CE PLUS - Nota 002783
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 29/12/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:39:14
Descrição da Nota: AJUSTE PARA TRAZER O MOTIVO ESTORNO DA F-05 QUANDO DER ERRO NA F-51
Sintoma
Ao fazer a variação cambial da DI, se der erro na F-51 o sistema volta estornando a F-05, porém não
está estornando, pois pára o batch input pedindo o motivo de estorno.
Solução
Foi descomentado o trecho onde selecionava a tabela /pws/zycbt007 para trazer o motivo estorno.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02783 Data: 29/12/2006 Hora: 10:57:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02783
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02239 - 00001 - 6.0 - 00025 - TRATAMENTO PARA MOTIVO DE ESTORNO DA FB08 NA DI
----------------------------------------------------------------------------------------------------
AJUSTE PARA TRAZER O MOTIVO ESTORNO DA F-05 QUANDO DER ERRO NA F-51
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCBT007, FORM EXECUTA_FB08,
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
ENDIF.
PERFORM clear_date_batch.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = '/PWS/ZYCIE085'.
itab_zycbe033-cpochv = /pws/zycie100a-nrseq.
itab_zycbe033-belnr = p_belnr.
itab_zycbe033-bukrs = /pws/zycie085-bukrs.
itab_zycbe033-bldat = p_budat.
itab_zycbe033-gjahs = itab_zycbe033-bldat+0(4).
v_belnr_ant = p_belnr.
* >> Início da inclusão: FORM EXECUTA_FB08
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
ENDIF.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'
EXPORTING
v_data = p_budat
v_bukrs = /pws/zycie085-bukrs
v_koart = 'K'
IMPORTING
v_subrc = vsubrc
v_gjahr = itab_zycbe033-gjahr.
IF vsubrc IS INITIAL.
itab_zycbe033-budat = p_budat.
...