CE PLUS - Nota 011306
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 12/09/2011 09:44:23
Data/Hora Última Alteração: 12/09/2011 09:44:23
Descrição da Nota: FATURA IMPORTAÇÃO - PAGAMENTO ANTECIPADO
Sintoma
Ao efetuar o lançamento da Saída de Pagamento, o documento não está sendo gerado devido a exit's
incluídas no SAP Standard que contem comandos não permitidos para execuções em Batch Input
Solução
A chamada do Batch Input foi alterada para ser feita de forma que o SAP Standard trate os comandos
não permitidos em execuções via Batch Input
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11306 Data: 08/07/2011 Hora: 10:29:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11306
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09845 - 00001 - 8.0 - 00002 - EXCLUSÃO DE TRATAMENTOS DE AUTORIZAÇÃO PARA PROCESSOS NA F-43
----------------------------------------------------------------------------------------------------
FATURA IMPORTAÇÃO - PAGAMENTO ANTECIPADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA IMPORTAÇÃO - PAGAMENTO ANTECIPADO - CALL TRANSACTION
BATCH INPUT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCAGF2F01
REPS /PWS/LZYCBGF2F01
REPS /PWS/LZYCMGF2F01
REPS /PWS/LZYGLGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCAGF2F01
...
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.
* >> Início da inclusão: FORM CALL_TRANSACTION
DATA: wa_opt TYPE ctu_params.
wa_opt-racommit = 'X'.
wa_opt-dismode = p_mode.
wa_opt-updmode = p_update.
* << Fim da inclusão
call transaction p_tcode using p_itab_bdc
* >> Início da exclusão: FORM CALL_TRANSACTION
mode p_mode
update p_update
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_TRANSACTION
OPTIONS FROM wa_opt
* << Fim da inclusão
messages into p_itab_msg.
if sy-subrc <> 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGF2F01
...
value(p_update)
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.
* >> Início da inclusão: FORM CALL_TRANSACTION
DATA: wa_opt TYPE ctu_params.
wa_opt-racommit = 'X'.
wa_opt-dismode = p_mode.
wa_opt-updmode = p_update.
* << Fim da inclusão
move sy-repid to v_repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'E'
i_func = v_repid
tables
itab_zyglt100 = itab_zyglt100.
read table itab_zyglt100 with key zexit = 'F29001'.
if sy-subrc eq 0.
if not itab_zyglt100-programa is initial and
...
...
tables p_itab_bdc
p_itab_msg
using p_tcode
p_mode
p_update
changing v_ret_call.
endif.
endif.
if v_ret_call ne '1'.
call transaction p_tcode using p_itab_bdc
* >> Início da exclusão: FORM CALL_TRANSACTION
mode p_mode
update p_update
messages into p_itab_msg. "#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_TRANSACTION
OPTIONS FROM wa_opt
MESSAGES INTO p_itab_msg.
* << Fim da inclusão
endif.
if sy-subrc <> 0.
loop at p_itab_msg.
add 1 to p_nrmsg.
call function 'MESSAGE_PREPARE'
exporting
language = sy-langu
msg_id = p_itab_msg-msgid
msg_no = p_itab_msg-msgnr
msg_var1 = p_itab_msg-msgv1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
p_itab_bdc structure bdcdata
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.
* >> Início da inclusão: FORM CALL_TRANSACTION
data: wa_opt type ctu_params.
wa_opt-racommit = 'X'.
wa_opt-dismode = p_mode.
wa_opt-updmode = p_update.
* << Fim da inclusão
call transaction p_tcode using p_itab_bdc
* >> Início da exclusão: FORM CALL_TRANSACTION
mode p_mode
update p_update
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_TRANSACTION
options from wa_opt
* << Fim da inclusão
messages into p_itab_msg.
if sy-subrc <> 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYGLGF2F01
...
p_itab_bdc structure bdcdata
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.
* >> Início da inclusão: FORM CALL_TRANSACTION
data: wa_opt type ctu_params.
wa_opt-racommit = 'X'.
wa_opt-dismode = p_mode.
wa_opt-updmode = p_update.
* << Fim da inclusão
call transaction p_tcode using p_itab_bdc
* >> Início da exclusão: FORM CALL_TRANSACTION
mode p_mode
update p_update
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_TRANSACTION
options from wa_opt
* << Fim da inclusão
messages into p_itab_msg.
if sy-subrc <> 0.
...