CE PLUS - Nota 007052
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 30/07/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:50:31
Descrição da Nota: ERRO AO ESTORNAR FATURA
Sintoma
Erro ao estornar faturas.
Solução
Retirar mensagens de pontos em que não são necessários.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07052 Data: 30/07/2008 Hora: 15:28:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07052
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00058
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06155 - 00001 - 7.0 - 00004 - TRATAMENTO PARA DOCUMENTOS ESTORNADOS POR FORA DO PWCE
----------------------------------------------------------------------------------------------------
ERRO AO ESTORNAR FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERRO - ESTORNO - FB08 - FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
itab_zycit132-status = 'X'.
itab_zycit132-eliminado = 'X'.
MODIFY itab_zycit132.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
PERFORM clear_date_batch.
* >> Início da exclusão: FORM ATUALIZA_FB08_FAT
PERFORM verifica_estorno_r3 CHANGING v_erro
v_answer.
IF v_erro = 'S'.
v_erro = 'X'.
ENDIF.
IF v_answer = 'J'.
* << Fim da exclusão
CLEAR: /pws/zycie006-belnr_p, /pws/zycie006-statusp.
MODIFY /pws/zycit006 FROM /pws/zycie006.
COMMIT WORK.
PERFORM dele_custo USING /pws/zycit031-inco1_ci space.
PERFORM fill_date_f-43_f-02.
* >> Início da exclusão: FORM ATUALIZA_FB08_FAT
ENDIF.
* << Fim da exclusão
ENDIF.
ELSE.
...
...
PERFORM dele_custo USING /pws/zycit031-inco1_ci space.
PERFORM fill_date_f-43_f-02.
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
PERFORM clear_date_batch.
* >> Início da exclusão: FORM ATUALIZA_FB08_FAT
PERFORM verifica_estorno_r3 CHANGING v_erro
v_answer.
IF v_erro = 'S'.
v_erro = 'X'.
ENDIF.
IF v_answer = 'J'.
* << Fim da exclusão
IF okcode NE 'DELE'.
CLEAR: /pws/zycie006-belnr_p, /pws/zycie006-statusp.
MODIFY /pws/zycit006 FROM /pws/zycie006.
COMMIT WORK.
PERFORM dele_custo USING /pws/zycit031-inco1_ci space.
PERFORM fill_date_f-43_f-02.
* >> Início da exclusão: FORM ATUALIZA_FB08_FAT
ENDIF.
* << Fim da exclusão
ENDIF.
...