CE PLUS - Nota 011067
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 06/04/2011 00:00:00
Data/Hora Última Alteração: 06/04/2011 10:26:04
Descrição da Nota: PROGRAMA ELIMINA FATURA MESMO OCORRENDO ERRO NO ESTORNO DA MIROV
Sintoma
Programa elimina Fatura mesmo ocorrendo erro no estorno da MIRO.
Solução
Ajustado programa para cancelar a eliminação da fatura caso ocorra erro no estorno da MIRO.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11067 Data: 06/04/2011 Hora: 10:05:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11067
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00065
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote Descrição Breve
10583 - 00001 - 8.0 - 00004 - ERRO AO ESTORNAR FATURA DA AMERICA LATINA
----------------------------------------------------------------------------------------------------
Texto Rápido:
PROGRAMA ELIMINA FATURA MESMO OCORRENDO ERRO NO ESTORNO DA MIROV
----------------------------------------------------------------------------------------------------
Palavras Chave:
ELIMINAR - FATURA - ERRO - ESTORNO - MIRO - PROCESSO - AMERICA - LATINA
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
itab_zycit132-status = 'X'.
MODIFY itab_zycit132 TRANSPORTING status miro belnr_mr1m
WHERE belnr_mr1m EQ /pws/zycie006-belnr_mr1m.
ELSE.
CLEAR: /pws/zycie006-statusp_mr1m, /pws/zycie006-belnr_mr1m,
/pws/zycie006-dt_mr1m.
PERFORM clear_date_batch.
CLEAR v_mr1m_ok.
ENDIF.
ELSE.
* >> Início da inclusão: FORM ESTORN_MIRO_LA
v_erro = 'X'.
PERFORM clear_date_batch.
* << Fim da inclusão
LOOP AT itab_zycit032.
MESSAGE i015 WITH itab_zycit032-msg+0(50)
itab_zycit032-msg+50(50).
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycit032.
MESSAGE i015 WITH itab_zycit032-msg+0(50)
itab_zycit032-msg+50(50).
ENDLOOP.
...