CE PLUS - Nota 013808
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 17/03/2014 13:54:46
Data/Hora Última Alteração: 17/03/2014 13:54:46
Descrição da Nota: DATA DE VENCIMENTO INCORRETA NA LI
Sintoma
Criamos uma LI. Ao criar uma LI substitutiva, a LI antiga fica com a data de vencimento incorreta.
Solução
Não apagar, limpar o campo VALDAY.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13808 Data: 17/03/2014 Hora: 10:07:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13808
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07396 - 00001 - 7.0 - 00007 - NA LI AO SAIR ESTA NÃO ESTA GRAVANDO A EMPRESA E O IMPORTADOR
12082 - 00002 - 8.0 - 00011 - PORTARIA 23, ARTIGO 24: O PRAZO DE VALIDADE DE UMA LI É DE 90 DIA
13772 - 00003 - 9.0 - 00007 - CONSIDERAR VALIDADE DA LI ORIGNAL NA LI SUBSTITUTIVA
----------------------------------------------------------------------------------------------------
DATA DE VENCIMENTO INCORRETA NA LI
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - LI SUBSTITUTIVA - DATA DE VENCIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
MODULE find_dtvent OUTPUT.
if ( /pws/zycie078-tpli eq 'N'
and /pws/zycie078-flagpli ne 'X' ).
CHECK /pws/zycie078-nrseqlisuba IS INITIAL.
endif.
IF /pws/zycie078-dtdef NE space AND
/pws/zycie078-dtdef NE '00000000'.
* >> Início da inclusão: MODULE FIND_DTVENT
PERFORM validade.
* << Fim da inclusão
/pws/zycie078-dtvencto = /pws/zycie078-dtdef + /pws/zycie078-valday.
ELSE.
MOVE: space TO /pws/zycie078-dtvencto .
wa_zycit078-dtvencto = /pws/zycie078-dtvencto.
ENDIF.
PERFORM validade.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
* >> Início da exclusão: FORM COMM_LISUBST
move: space to /pws/zycie078-valday,
space to wa_zycit078_aux2-valday.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_LISUBST
move: space to /pws/zycie078-valday.
* << Fim da inclusão
...