CE PLUS - Nota 011938
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 13/02/2012 00:00:00
Data/Hora Última Alteração: 14/02/2012 15:15:35
Descrição da Nota: AO COPIAR EMBARQUE, FICA COM SEQUENCIAL 00001.
Sintoma
Ao copiar embarque, fica com sequencial 00001.
Solução
Ajustado programa para buscar o último número utilizado no sequencial de embarque na rotina de cópia
de embarque
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11938 Data: 13/02/2012 Hora: 14:02:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11938
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00010
Agrupamento : 00105
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01437 - 00001 - 6.0 - 00023 - ALTERAÇÃO DE DATA NO EMBARQUE
----------------------------------------------------------------------------------------------------
AO COPIAR EMBARQUE, FICA COM SEQUENCIAL 00001.
----------------------------------------------------------------------------------------------------
Palavras Chave:
COPIA DE EMBARQUE - SEQUENCIAL ERRADO - EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
FORM busca_sequencial_copia.
* >> Início da inclusão: FORM BUSCA_SEQUENCIAL_COPIA
DATA: v_anoemp LIKE /pws/zycie001-nrseq.
* << Fim da inclusão
...
...
IF NOT /pws/zycie001-bukrs IS INITIAL.
SELECT SINGLE * FROM /pws/zyglt006
INTO itab_zyglt006
* >> Início da exclusão: FORM BUSCA_SEQUENCIAL_COPIA
WHERE codmod EQ 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_SEQUENCIAL_COPIA
WHERE codmod EQ 'D'
and bukrs eq /pws/zycie001-bukrs.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF itab_zyglt006-bukrs = /pws/zycie001-bukrs
AND itab_zyglt006-j_1bbranch = /pws/zycie001-j_1bbranch.
CONCATENATE itab_zyglt006-range '%' 'I' sy-datlo+2(2)
* >> Início da exclusão: FORM BUSCA_SEQUENCIAL_COPIA
INTO v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_SEQUENCIAL_COPIA
INTO v_anoemp.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycit001
* >> Início da exclusão: FORM BUSCA_SEQUENCIAL_COPIA
WHERE nrseq LIKE v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_SEQUENCIAL_COPIA
WHERE nrseq LIKE v_anoemp.
* << Fim da inclusão
v_count = v_nrseq+0(7) + 1.
/pws/zycie001-nrseq = v_nrseq.
CONCATENATE v_count 'I' sy-datlo+2(2) INTO /pws/zycie001-nrseq.
...