Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 12/07/2011 00:00:00
Data/Hora Última Alteração: 14/07/2011 14:21:43
Descrição da Nota: AJUSTE NO CALL TRANSACTION PARA FBRA
Sintoma
Ao estornar o Complemento do Boleto da parcela de Principal de Empréstimo e Financiamento, o
sistema está estornado o documento (FBRA) porém não continua a contabilização fazendo a FB08
dando mensagem para Entrar com nr do Documento.
Solução
Foi ajustado o Call Transaction para quando executar a FBRA não processar o Tratamento de Commit
Work.
8.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11317 Data: 12/07/2011 Hora: 15:30:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11317
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00077
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11306 - 00001 - 8.0 - 00008 - FATURA IMPORTAÇÃO - PAGAMENTO ANTECIPADO
----------------------------------------------------------------------------------------------------
AJUSTE NO CALL TRANSACTION PARA FBRA
----------------------------------------------------------------------------------------------------
Palavras Chave:
AJUSTE, CALL TRANSACTION, FBRA,
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCAGF2F01
REPS /PWS/LZYCBGF2F01
REPS /PWS/LZYCMGF2F01
REPS /PWS/LZYGLGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCAGF2F01
...
/pws/zycbt032
p_t_dados STRUCTURE /pws/zycbe033
USING value(p_tcode)
value(p_mode)
value(p_update)
value(p_msgid)
value(p_msgno)
CHANGING p_nrmsg. "#EC *
DATA: v_belnr LIKE bseg-belnr.
DATA: wa_opt TYPE ctu_params.
* >> Início da inclusão: FORM CALL_TRANSACTION
if not p_tcode eq 'FBRA'.
* << Fim da inclusão
wa_opt-racommit = 'X'.
* >> Início da inclusão: FORM CALL_TRANSACTION
else.
wa_opt-racommit = ''.
endif.
* << Fim da inclusão
wa_opt-dismode = p_mode.
wa_opt-updmode = p_update.
CALL TRANSACTION p_tcode USING p_itab_bdc
OPTIONS FROM wa_opt
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGF2F01
...
value(p_msgid)
value(p_msgno)
CHANGING p_nrmsg. "#EC *
DATA: v_belnr LIKE bseg-belnr.
DATA: itab_zyglt100
TYPE STANDARD TABLE OF /pws/zyglt100
WITH HEADER LINE,
v_ret_call(1) TYPE c VALUE '0',
v_repid LIKE sy-repid.
DATA: wa_opt TYPE ctu_params.
* >> Início da inclusão: FORM CALL_TRANSACTION
if not p_tcode eq 'FBRA'.
* << Fim da inclusão
wa_opt-racommit = 'X'.
* >> Início da inclusão: FORM CALL_TRANSACTION
else.
wa_opt-racommit = ''.
endif.
* << Fim da inclusão
wa_opt-dismode = p_mode.
wa_opt-updmode = p_update.
MOVE sy-repid TO v_repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
p_t_zycbt032 structure /pws/zycbt032
p_t_dados structure /pws/zycbe033
using value(p_tcode)
value(p_mode)
value(p_update)
value(p_msgid)
value(p_msgno)
changing p_nrmsg. "#EC *
data: v_belnr like bseg-belnr.
data: wa_opt type ctu_params.
* >> Início da inclusão: FORM CALL_TRANSACTION
if not p_tcode eq 'FBRA'.
* << Fim da inclusão
wa_opt-racommit = 'X'.
* >> Início da inclusão: FORM CALL_TRANSACTION
else.
wa_opt-racommit = ''.
endif.
* << Fim da inclusão
wa_opt-dismode = p_mode.
wa_opt-updmode = p_update.
call transaction p_tcode using p_itab_bdc
options from wa_opt
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYGLGF2F01
...
p_t_zycbt032 structure /pws/zycbt032
p_t_dados structure /pws/zycbe033
using value(p_tcode)
value(p_mode)
value(p_update)
value(p_msgid)
value(p_msgno)
changing p_nrmsg.
data: v_belnr like bseg-belnr.
data: wa_opt type ctu_params.
* >> Início da inclusão: FORM CALL_TRANSACTION
if not p_tcode eq 'FBRA'.
* << Fim da inclusão
wa_opt-racommit = 'X'.
* >> Início da inclusão: FORM CALL_TRANSACTION
else.
wa_opt-racommit = ''.
endif.
* << Fim da inclusão
wa_opt-dismode = p_mode.
wa_opt-updmode = p_update.
call transaction p_tcode using p_itab_bdc
options from wa_opt
...