CE PLUS - Nota 010563
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 02/09/2010 00:00:00
Data/Hora Última Alteração: 10/09/2010 10:45:10
Descrição da Nota: AO ALTERAR FATURA, NÃO ESTORNA DOCUMENTOS E CONTABILIZA NOVAMENTE.
Sintoma
AO ALTERAR FATURA, NÃO ESTORNA DOCUMENTOS E CONTABILIZA NOVAMENTE.
Solução
Tratar o estorno da miro .
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10563 Data: 02/09/2010 Hora: 11:25:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10563
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00037
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
04286 - 00001 - DESENVOLVIMENTO PARA GERAR A MIRO NA FATURA(AMERICA LATINA)
04455 - 00002 - TEXTOS CONTABEIS MIRO NA FATURA PROCESSOS AMERICA LATINA
----------------------------------------------------------------------------------------------------
AO ALTERAR FATURA, NÃO ESTORNA DOCUMENTOS E CONTABILIZA NOVAMENTE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - DOCUMENTOS - MIRO - AMERICA LATINA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
FREE itab_contas.
LOOP AT itab_zycbt035.
MOVE-CORRESPONDING itab_zycbt035 TO itab_contas.
APPEND itab_contas.
ENDLOOP.
IF NOT /pws/zycit477 IS INITIAL.
IF NOT /pws/zycie006-belnr_mr1m IS INITIAL.
EXIT.
ENDIF.
PERFORM miro_am_la.
* >> Início da exclusão: FORM fill_date_f-43_f-02
EXIT.
* << Fim da exclusão
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
IF /pws/zycie006-frpagto = 'D' AND e_subrc = '0'.
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_F_02C'
...
...
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
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.
* << Fim da inclusão
EXIT.
ENDIF.
itab_zycbe033-tabela = '/PWS/ZYCIT132'.
itab_zycbe033-cpochv = itab_zycit132-nrseq.
itab_zycbe033-belnr = 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
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.
* << Fim da inclusão
EXIT.
ENDIF.
itab_zycbe033-tabela = '/PWS/ZYCIT006'.
itab_zycbe033-cpochv = /pws/zycie006-nrseq.
itab_zycbe033-belnr = /pws/zycie006-belnr_p.
...