CE PLUS - Nota 008722
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 23/07/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:09:32
Descrição da Nota: APÓS O RECEBIMENTO, SE VOLTAR NA DI E SALVAR, MUDA STATUS DO EMBARQUE.
Sintoma
Após o recebimento, se voltar na DI e salvar, muda status do embarque.
Solução
Verificar se há nota fiscal criada antes de atualizar o status do embarque através da DI.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08722 Data: 23/07/2009 Hora: 16:03:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08722
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00106
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07544 - 00001 - 7.0 - 00007 - MELHORIAS DE NAVEGABILIDADE NO EMBARQUE
----------------------------------------------------------------------------------------------------
APÓS O RECEBIMENTO, SE VOLTAR NA DI E SALVAR, MUDA STATUS DO EMBARQUE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO - DI - EMBARQUE - STATUS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
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.
IF NOT itab_it-nrseq IS INITIAL.
* >> Início da inclusão: FORM SAVE_DATA
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
IF sy-subrc NE 0 .
* << Fim da inclusão
it_zycit001-status = 'DS' .
UPDATE /pws/zycit001 SET status = 'DS'
WHERE nrseq = itab_it-nrseq.
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
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
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'.
* >> Início da inclusão: FORM VERIFY_HIST
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
IF sy-subrc NE 0.
* << Fim da inclusão
itab_zycit001-status = 'DB'.
DELETE itab_zycit001 WHERE nrseq = itab_zycit100-nrseq.
APPEND itab_zycit001 .
MODIFY /pws/zycit001 FROM TABLE itab_zycit001.
* >> Início da inclusão: FORM VERIFY_HIST
ENDIF.
* << Fim da inclusão
CLEAR itab_zycit255. REFRESH itab_zycit255.
MOVE: sy-mandt TO itab_zycit255-mandt,
itab_zycit001-nrseq TO itab_zycit255-nrseq,
...