CE PLUS - Nota 002294
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 23/10/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:15:31
Descrição da Nota: ESTORNAR A FATURA E DAR ERRO ESTÁ APARECENDO A MENSAGEM DESEJA ESTORNAR
Sintoma
Favor verificar porque ao estornar a fatura e dar erro está aparecendo a mensagem deseja estornar
sem eliminar o documento anterior.
Esta mensagem não deve aparecer no estorno da fatura.
Outro ponto é que ao modificar algo na fatura e ela gerar um novo documento contábil, não está
atualizando o documento na tabela do câmbio.
Solução
comentado a o trecho do pop-up.
Atualizado o Estorno da Fatura quando apareçe a mensagem sem eliminar o documento anterior.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02294 Data: 23/10/2006 Hora: 11:05:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02294
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00136
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00136 - 00001 - 6.0 - 00021 - ALTERAÇÃO NO VALOR DA FATURA APÓS CONTABILIZAÇÃO.
02005 - 00002 - 6.0 - 00024 - ERRO NO ESTORNO DE RECEBIMENTO NA FATURA DE SERVIÇO.
----------------------------------------------------------------------------------------------------
ESTORNAR A FATURA E DAR ERRO ESTÁ APARECENDO A MENSAGEM DESEJA ESTORNAR
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - ESTORNO - EXCLUIR DOCUMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
erro_bi = 'X'.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
PERFORM clear_date_batch.
* << Fim da inclusão
ENDFORM.
FORM get_parameters_f-43_f-02.
DATA: v_index TYPE i,
v_forn(10) TYPE c.
PERFORM clear_date_batch.
...
...
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
PERFORM clear_date_batch.
v_erro = 'X'.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
CLEAR: /pws/zycie006-belnr_p, /pws/zycie006-statusp,
itab_zycit132-status, itab_zycit132-belnr_p.
MODIFY /pws/zycit006 FROM /pws/zycie006.
MODIFY itab_zycit132.
IF itab_zycit132-mark NE 'X' AND itab_zycit132-status NE 'X'.
PERFORM dele_custo USING /pws/zycit031-inco1_ci space.
PERFORM fill_date_f-43_f-02.
ELSE.
itab_zycit132-status = 'X'.
MODIFY itab_zycit132.
ENDIF.
ENDIF.
* << Fim da exclusão
ENDIF.
ELSE.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCIT006'
cpochv = /pws/zycie006-nrseq
...
...
itab_zycbt032-msg+50(50).
ENDLOOP.
PERFORM clear_date_batch.
v_erro = 'X'.
/pws/zycie006 = wa_zycie006_ini.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
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.
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM popup_message USING value(p_textline1)
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
* >> Início da exclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
CLEAR: /pws/zycie006-statusp_f_51,
/pws/zycie006-belnr_f_51 ,
/pws/zycie006-dt_f_51 .
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
PERFORM clear_date_batch.
* << Fim da inclusão
MODIFY /pws/zycit006 FROM /pws/zycie006.
* >> Início da exclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
v_fb08_ok = 'S'.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
ENDIF.
* << Fim da exclusão
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
* >> Início da exclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
CLEAR: /pws/zycie006-statusp_f_51,
/pws/zycie006-belnr_f_51 ,
/pws/zycie006-dt_f_51 .
v_fb08_ok = 'S'.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
PERFORM clear_date_batch.
* << Fim da inclusão
ENDIF.
CLEAR: v_cpochv_fb08, v_belnr_fb08,
v_bukrs_fb08 , v_bldat_fb08,
v_docant_fb08.
ENDFORM.
...