CE PLUS - Nota 007382
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 30/09/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:44:53
Descrição da Nota: AO SUBSTITUIR LI, PROGRAMA RECLAMA DE NÚMERO DE REGISTRO
Sintoma
Ao substituir LI, programa reclama de número de registro
Solução
Atualização no programa de LI para que o sistema verifique se a LI substitutiva estava registrada no
moemnto de salvar.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07382 Data: 30/09/2008 Hora: 14:48:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07382
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00067
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO SUBSTITUIR LI, PROGRAMA RECLAMA DE NÚMERO DE REGISTRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI SUBSTITUTIVA - CRIAR - SALTAR - SUBSTITUIR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
IF NOT v_flagsub IS INITIAL.
IF NOT /pws/zycie078-nrli IS INITIAL.
PERFORM verificacao_sub.
CLEAR v_flagsub.
* >> Início da exclusão: FORM SAVE
ELSE.
IF /pws/zycie078-tpli EQ 'N'.
MESSAGE s015 WITH text-187 text-188.
ELSEIF /pws/zycie078-tpli EQ 'S'.
MESSAGE s015 WITH text-211 text-188.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM SAVE
EXIT.
ENDIF.
* << Fim da exclusão
ENDIF.
...
...
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P' OR
* >> Início da exclusão: FORM SAVE
v_tcode EQ '/PWS/ZYCI020_I'.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE
v_tcode EQ '/PWS/ZYCI020_I' or
v_flagsub eq 'X' .
* << Fim da inclusão
PERFORM verifica_nrseq_gravado.
ENDIF.
...