CE PLUS - Nota 000895
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 16/02/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:15:44
Descrição da Nota: AS DESPESAS DA DI ESTÃO SE PERDENDO AO SALVAR DUAS DIS AO MESMO TEMPO.
Sintoma
Ao criar duas DI no mesmo momento, ao trocar o sequencial da DI, o campo despesas da DI que salvou
1º assume os valores da 2a, e a 2a. DI que adquiriu novo sequencial perde as informações da pasta
despesas, ficam em branco os valores.
Solução
inserido consistências para verificar sequencial antes de salvar e atualizar tabelas de despesas
caso seja alterado o número sequencial da DI ao criar.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00895 Data: 16/02/2006 Hora: 15:33:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00895
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00101
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AS DESPESAS DA DI ESTÃO SE PERDENDO AO SALVAR DUAS DIS AO MESMO TEMPO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUAS DIS AO MESMO - DESPESAS - SALVAR DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
MODIFY /pws/zycit095 FROM TABLE itab_zycit095.
IF v_dit = 'N'.
IF NOT /pws/zycie085-nrbl IS INITIAL.
v_calci = 'S'.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit049 FROM TABLE itab_zycit049.
* << Fim da inclusão
DELETE FROM /pws/zycit086 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit086 FROM TABLE itab_zycit086.
DELETE FROM /pws/zycit087 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit087 FROM TABLE itab_zycit087.
DELETE FROM /pws/zycit096 WHERE nrseqdi = /pws/zycie085-nrseqdi.
...
...
PERFORM: fill_criar.
INSERT INTO /pws/zycit085 VALUES /pws/zycie085.
WHILE sy-subrc NE 0.
PERFORM findnrseq.
INSERT INTO /pws/zycit085 VALUES /pws/zycie085.
* >> Início da inclusão: FORM FILL_NRSEQ
if sy-subrc eq 0.
MESSAGE i015 WITH text-013 /pws/zycie085-nrseqdi.
endif.
* << Fim da inclusão
ENDWHILE.
IF sy-subrc EQ 0.
itab_zycit095-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit095 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
IF v_dit = 'N'.
* >> Início da inclusão: FORM FILL_NRSEQ
itab_zycit049-nrseq = /pws/zycie085-nrseqdi.
MODIFY itab_zycit049 TRANSPORTING nrseq
WHERE nrseq = v_nrseq_ant.
* << Fim da inclusão
itab_zycit086-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit086 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
itab_zycit087-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit087 TRANSPORTING nrseqdi
...