CE PLUS - Nota 009080
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 24/09/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:10:36
Descrição da Nota: ATUALIZAÇÃO DO STATUS DO EMBARQUE INCORRETO
Sintoma
Atualiza status do embarque para desembaraçado quando preenche data de registro.
Solução
atualizar status do embarque para desembaraçado somente quando preencher
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09080 Data: 24/09/2009 Hora: 10:16:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09080
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07889 - 00001 - 7.0 - 00008 - DI VERIFICA ERRONEAMENTE DATA DESEMBARAÇO ANTES DE FAZER FATURA T
08722 - 00002 - 7.0 - 00010 - APÓS O RECEBIMENTO, SE VOLTAR NA DI E SALVAR, MUDA STATUS DO EMBA
----------------------------------------------------------------------------------------------------
ATUALIZAÇÃO DO STATUS DO EMBARQUE INCORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
STATUS - EMBARQUE - DI - DESEMBARAÇO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
WHERE nrseqdi = /pws/zycie085-nrseqdi.
APPEND it_zycit100.
READ TABLE it_zycit100 INDEX 1.
SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001
WHERE nrseq = it_zycit100-nrseq.
APPEND it_zycit001.
READ TABLE it_zycit001 INDEX 1.
IF NOT /pws/zycie085-dtreg IS INITIAL AND
NOT /pws/zycie085-nrdi IS INITIAL.
PERFORM salva_fatura.
* >> Início da exclusão: FORM SAVE_DATA
IF NOT itab_it-nrseq IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
ENDIF.
IF NOT itab_it-nrseq IS INITIAL .
IF /pws/zycie085-dtdesemb IS INITIAL .
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
* >> Início da exclusão: FORM SAVE_DATA
IF sy-subrc NE 0 .
it_zycit001-status = 'DS' .
UPDATE /pws/zycit001 SET status = 'DS'
WHERE nrseq = itab_it-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
IF sy-subrc NE 0.
IF NOT itab_it-nrseq IS INITIAL.
it_zycit001-status = 'DB' .
* << Fim da inclusão
MODIFY it_zycit001 INDEX 1.
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
* >> Início da exclusão: FORM SAVE_DATA
ENDIF.
* << Fim da exclusão
IF sy-subrc = 0.
PERFORM atualiza_status.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
ENDIF.
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
* >> Início da exclusão: FORM SAVE_DATA
IF sy-subrc NE 0.
IF NOT itab_it-nrseq IS INITIAL.
it_zycit001-status = 'DB' .
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
IF sy-subrc NE 0 .
it_zycit001-status = 'DS' .
UPDATE /pws/zycit001 SET status = 'DS'
WHERE nrseq = itab_it-nrseq.
* << Fim da inclusão
MODIFY it_zycit001 INDEX 1.
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
* >> Início da inclusão: FORM SAVE_DATA
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
PERFORM atualiza_status.
* >> Início da exclusão: FORM SAVE_DATA
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDIF.
DELETE itab_zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.
APPEND /pws/zycie085 TO itab_zycit085.
SORT itab_zycit085 BY nrseqdi.
COMMIT WORK.
IF v_dit = 'N'.
MESSAGE i017 WITH text-060.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
ENDIF.
SELECT * FROM /pws/zycit136 INTO TABLE itab_zycit136
WHERE nrseq EQ wa_zycit136-nrseq
AND tp_doc EQ wa_zycit136-tp_doc.
LOOP AT itab_zycit136.
CLEAR: itab_zycit255, itab_zycit001, itab_zycit100, itab_zycit085a.
READ TABLE itab_zycit085a WITH KEY nrseqdi = itab_zycit136-nrseq
.
IF NOT itab_zycit085a-nrdi IS INITIAL AND
NOT itab_zycit085a-dtreg IS INITIAL AND
* >> Início da inclusão: FORM VERIFY_HIST
NOT itab_zycit085a-dtdesemb IS INITIAL AND
* << Fim da inclusão
NOT itab_zycit136-nrsiscomex IS INITIAL.
READ TABLE itab_zycit100 WITH KEY
nrseqdi = itab_zycit136-nrseq.
READ TABLE itab_zycit001 WITH KEY
nrseq = itab_zycit100-nrseq.
IF NOT itab_zycit001-status = 'DB'.
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
IF sy-subrc NE 0.
...