CE PLUS - Nota 010951
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 11/02/2011 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:39:45
Descrição da Nota: AJUSTE PARA AO ELIMINAR A FATURA(AL) O PROGRAMA NÃO GERE MIRO.
Sintoma
Ao eliminar a fatura(AL) o programa está gerando uma MIRO após o estorno da MIRO da fatura.
Solução
Ajustado programa para não executar o tratamento de recontabilização quando a fatura estiver sendo
eliminada.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10951 Data: 11/02/2011 Hora: 09:23:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10951
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00058
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10563 - 00001 - 8.0 - 00004 - AO ALTERAR FATURA, NÃO ESTORNA DOCUMENTOS E CONTABILIZA NOVAMENTE
----------------------------------------------------------------------------------------------------
AJUSTE PARA AO ELIMINAR A FATURA(AL) O PROGRAMA NÃO GERE MIRO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO - FATURA - MIRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
e_estorno = 'FB08'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc EQ '0'.
CLEAR v_erro.
IF v_parcela = 'X'.
IF itab_zycit132-miro EQ 'X'.
PERFORM estorn_miro_la.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
IF okcode NE 'DELE'.
* << Fim da inclusã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 inclusão: FORM REVERSE_DOCUMENT_FB08
ENDIF.
* << Fim da inclusão
EXIT.
ENDIF.
...
...
itab_zycbe033-stgrd = /pws/zycbt007-percorr.
ELSE.
itab_zycbe033-budat = sy-datum.
itab_zycbe033-stgrd = /pws/zycbt007-perencer .
ENDIF.
ENDIF.
v_belnr_ant = itab_zycit132-belnr_p.
ELSE.
IF /pws/zycie006-statusp_mr1m EQ 'X'.
PERFORM estorn_miro_la.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
IF okcode NE 'DELE'.
* << Fim da inclusã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 inclusão: FORM REVERSE_DOCUMENT_FB08
ENDIF.
* << Fim da inclusão
EXIT.
ENDIF.
...