CE PLUS - Nota 008053
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 12/02/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:30:07
Descrição da Nota: ATUALIZAR CANAL E DATA DE DESEMBARQUE AO VERIFICAR DI
Sintoma
Atualizar canal e data de desembarque ao verificar DI.
Solução
Atualizar campos canal e data de desembarque ao verificar DI
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08053 Data: 12/02/2009 Hora: 15:55:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08053
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00085
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ATUALIZAR CANAL E DATA DE DESEMBARQUE AO VERIFICAR DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
CANAL - DATA DE DESEMBARQUE - DI - TRANSMISSÃO SISCOMEX
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_RETURN_FILA
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RETURN_FILA
...
IF sy-subrc NE 0.
return = '4'.
EXIT.
ENDIF.
IF i_stasis EQ text-008.
CASE i_tp_doc.
WHEN text-001 OR text-002.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILA
UPDATE /pws/zycit085 SET nrdi = i_nrsiscomex
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RETURN_FILA
IF i_tp_doc = text-001.
UPDATE /pws/zycit085 SET nrdi = i_nrsiscomex
dtreg = i_dtreg
canal = i_canal
dtdesemb = i_dtdesemb
WHERE nrseqdi = i_nrseq.
ELSE.
UPDATE /pws/zycit085 SET nrdi = i_nrsiscomex
* << Fim da inclusão
dtreg = i_dtreg
WHERE nrseqdi = i_nrseq.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RETURN_FILA
ENDIF.
* << Fim da inclusão
SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085
WHERE nrseqdi = i_nrseq AND
nrdi = i_nrsiscomex.
IF sy-subrc = 0.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
...
...
SELECT SINGLE * FROM /pws/zycit003
WHERE nrseq = i_nrseq
AND ebeln = itab_zycit079-ebeln
AND ebelp = itab_zycit079-ebelp.
IF sy-subrc = 0.
UPDATE /pws/zycit003 SET nrlsi =
i_nrsiscomex
WHERE nrseq = i_nrseq.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILA
UPDATE /pws/zycit078 SET nrli =
i_nrsiscomex
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RETURN_FILA
UPDATE /pws/zycit078 SET nrli = i_nrsiscomex
* << Fim da inclusão
dtreg = i_dtreg
dtdef = i_dtdef
WHERE nrseqli = i_nrseq AND
tpli = 'S'.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILA
UPDATE /pws/zycit078 SET nrli = i_nrsiscomex
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RETURN_FILA
UPDATE /pws/zycit078 SET nrli = i_nrsiscomex
* << Fim da inclusão
dtreg = i_dtreg
dtdef = i_dtdef
WHERE nrseqli = i_nrseq AND
tpli = 'N'.
ENDCASE.
ENDIF.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RETURN_FILA
commit work.
* << Fim da inclusão
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
program = v_string_ex
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.
IF sy-subrc = 0.
COMMIT WORK AND WAIT.
* >> Início da exclusão: FORM VERIFY_TRANSM
SELECT SINGLE nrdi dtreg FROM /pws/zycit085
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_TRANSM
SELECT SINGLE nrdi dtreg dtdesemb canal FROM /pws/zycit085
* << Fim da inclusão
INTO CORRESPONDING FIELDS OF /pws/zycie085
WHERE nrseqdi = /pws/zycie085-nrseqdi.
ENDIF.
PERFORM: refresh_screen.
PERFORM: verify_hist.
ENDFORM.
FORM refresh_screen.
DATA: cont(4) TYPE n.
WHILE cont < 1000.
COMMIT WORK.
SELECT SINGLE * FROM /pws/zycit085 INTO /pws/zycit085
WHERE nrseqdi = /pws/zycie085-nrseqdi.
IF NOT /pws/zycit085-nrdi IS INITIAL.
* >> Início da inclusão: FORM REFRESH_SCREEN
IF ( NOT /pws/zycit085-canal IS INITIAL AND
NOT /pws/zycit085-dtdesemb IS INITIAL ).
* << Fim da inclusão
EXIT.
ENDIF.
* >> Início da inclusão: FORM REFRESH_SCREEN
ENDIF.
* << Fim da inclusão
cont = cont + 1.
ENDWHILE.
IF sy-subrc = 0 AND NOT /pws/zycit085-nrdi IS INITIAL.
v_acto = 'N'.
/pws/zycie085-nrdi = /pws/zycit085-nrdi.
/pws/zycie085-dtreg = /pws/zycit085-dtreg.
* >> Início da inclusão: FORM REFRESH_SCREEN
/pws/zycie085-canal = /pws/zycit085-canal.
/pws/zycie085-dtdesemb = /pws/zycit085-dtdesemb.
* << Fim da inclusão
ENDIF.
ENDFORM.
...