CE PLUS - Nota 000884
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 15/02/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:10:32
Descrição da Nota: ERRO AO CRIAR EMBARQUE.
Sintoma
Ao criar uma fatura de serviço e sair dela, ao voltar e clicar em fatura aparece muitas faturas
sendo que só foi criada uma.
Solução
Corrigida consistencia para gravar corretamente.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00884 Data: 15/02/2006 Hora: 14:02:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00884
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
----------------------------------------------------------------------------------------------------
ERRO AO CRIAR EMBARQUE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CRIAR - EMBARQUE - FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
v_tot LIKE /pws/zycit036-vlreal ,
v_real_acum LIKE /pws/zycit036-vlreal,
v_real_dif LIKE /pws/zycit036-vlreal.
DATA itab_zycit036_plan LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE.
IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ).
* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO
PERFORM fill_nrseq_pgfat.
* << Fim da inclusão
IF sy-tcode EQ '/PWS/ZYCI003_C'.
LOOP AT itab_zycit003.
IF NOT itab_zycit003-j_1bnbm IS INITIAL.
SELECT SINGLE *
FROM t604f
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
MODIFY /pws/zycbt141 FROM /pws/zycbt141.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CRIA_REMESSA
DELETE FROM /pws/zycit263
WHERE nrseq = itab_zycit003-nrseq.
* << Fim da inclusão
perform fill_nrseq_pgfat.
ENDFORM.
FORM busca_sequencialre.
DATA:
v_nrseq LIKE /pws/zycit001-nrseq,
...