CE PLUS - Nota 002249
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 11/10/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:00:23
Descrição da Nota: DI DESPESAS PROVISIONADAS NÃO APARECEM NA INVOICES
Sintoma
Algumas faturas de despesas de um embarque estavam aparecendo no custo efetivo de outro embarque.
Solução
Alterado o perform atualiza_novo_seq de lugar.
Para não ter problema ao criar várias faturas de despesa ao mesmo tempo.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02249 Data: 11/10/2006 Hora: 10:31:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02249
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00135
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00984 - 00001 - 6.0 - 00022 - A FATURA 04 NÃO ESTÁ LEVANDO O VALOR DA DESPESA NA PASTA EXPENDIT
----------------------------------------------------------------------------------------------------
DI DESPESAS PROVISIONADAS NÃO APARECEM NA INVOICES
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - DESPESA - INVOICE - PROVISIONADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
IF sy-subrc EQ 0.
PERFORM busca_sequencial_fatura.
MESSAGE i061 WITH text-008 /pws/zycie001-embarca
text-009 /pws/zycie001-nrseq.
INSERT INTO /pws/zycit006 VALUES /pws/zycie006.
* >> Início da exclusão: FORM CONSISTE_SEQUENCIAL
PERFORM atualiza_novo_seq.
* << Fim da exclusão
WHILE sy-subrc NE 0.
PERFORM busca_sequencial_fatura.
MESSAGE i061 WITH text-008 /pws/zycie001-embarca
* >> Início da exclusão: FORM CONSISTE_SEQUENCIAL
text-009 /pws/zycie001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_SEQUENCIAL
text-009 /pws/zycie006-nrseq.
* << Fim da inclusão
INSERT INTO /pws/zycit006 VALUES /pws/zycie006.
PERFORM atualiza_novo_seq.
ENDWHILE.
v_flag_sequencial = 'X'.
v_existe = 'S'.
ELSE.
INSERT INTO /pws/zycit006 VALUES /pws/zycie006.
WHILE sy-subrc NE 0.
PERFORM busca_sequencial_fatura.
MESSAGE i061 WITH text-008 /pws/zycie001-embarca
* >> Início da exclusão: FORM CONSISTE_SEQUENCIAL
text-009 /pws/zycie001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_SEQUENCIAL
text-009 /pws/zycie006-nrseq.
* << Fim da inclusão
INSERT INTO /pws/zycit006 VALUES /pws/zycie006.
PERFORM atualiza_novo_seq.
ENDWHILE.
v_flag_sequencial = 'X'.
v_existe = 'S'.
...