CE PLUS - Nota 010583
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 10/09/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:22:40
Descrição da Nota: ERRO AO ESTORNAR FATURA DA AMERICA LATINA
Sintoma
ao estornar fatura da america latina, não atualiza documentos.
Solução
tratar campos e mensagens ao retornar do estorno.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10583 Data: 10/09/2010 Hora: 11:02:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10583
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00037
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
ERRO AO ESTORNAR FATURA DA AMERICA LATINA
----------------------------------------------------------------------------------------------------
Palavras Chave:
F-51 - ESTORNO - MIRO - ARGENTINA - AMERICA LATINA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCIT006'
cpochv = /pws/zycie006-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i059 WITH itab_zycbt032-belnr.
* >> Início da inclusão: FORM FILL_DATE_F_51_DOCS_MIRO
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM FILL_DATE_F_51_DOCS_MIRO
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
* << Fim da inclusão
ENDIF.
ELSEIF e_subrc EQ '8'.
...
...
...
ELSE.
READ TABLE itab_zycit032 WITH KEY tcode = 'MR8M'
tabela = '/PWS/ZYCIT006'
cpochv = /pws/zycie006-nrseq
tpmsg = 'S'.
ENDIF.
IF sy-subrc EQ 0.
PERFORM fill_date_f_51_docs_miro.
MESSAGE i030 WITH v_belnr_ant.
IF v_parcela = 'X'.
* >> Início da inclusão: FORM ESTORN_MIRO_LA
CLEAR: itab_zycit132-belnr_mr1m.
* << Fim da inclusão
CLEAR: itab_zycit132-miro, itab_zycit132-status.
itab_zycit132-status = 'X'.
* >> Início da inclusão: FORM ESTORN_MIRO_LA
MODIFY itab_zycit132 TRANSPORTING status miro belnr_mr1m
* << Fim da inclusão
* >> Início da exclusão: FORM ESTORN_MIRO_LA
MODIFY itab_zycit132 TRANSPORTING miro status
* << Fim da exclusão
WHERE belnr_mr1m EQ /pws/zycie006-belnr_mr1m.
* >> Início da exclusão: FORM ESTORN_MIRO_LA
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORN_MIRO_LA
ELSE.
CLEAR: /pws/zycie006-statusp_mr1m, /pws/zycie006-belnr_mr1m,
/pws/zycie006-dt_mr1m.
* << Fim da inclusão
PERFORM clear_date_batch.
CLEAR v_mr1m_ok.
* >> Início da inclusão: FORM ESTORN_MIRO_LA
ENDIF.
* << Fim da inclusão
ELSE.
LOOP AT itab_zycit032.
MESSAGE i015 WITH itab_zycit032-msg+0(50)
itab_zycit032-msg+50(50).
ENDLOOP.
* >> Início da exclusão: FORM ESTORN_MIRO_LA
PERFORM clear_date_batch.
v_erro = 'X'.
* << Fim da exclusão
ENDIF.
ELSE.
LOOP AT itab_zycit032.
MESSAGE i015 WITH itab_zycit032-msg+0(50)
itab_zycit032-msg+50(50).
ENDLOOP.
PERFORM clear_date_batch.
v_erro = 'X'.
ENDIF.
...