CE PLUS - Nota 009845
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 13/09/2011 11:55:12
Data/Hora Última Alteração: 13/09/2011 11:55:12
Descrição da Nota: EXCLUSÃO DE TRATAMENTOS DE AUTORIZAÇÃO PARA PROCESSOS NA F-43
Sintoma
Problemas de acesso para execução de transações SAP.
Solução
Exclusão do tratamento de autorização quando os programas são executados pelo pw.CE.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09845 Data: 18/02/2010 Hora: 17:21:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09845
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00009
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
EXCLUSÃO DE TRATAMENTOS DE AUTORIZAÇÃO PARA PROCESSOS NA F-43
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXCLUI TRATA AUTORIZA PROCESSO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCAGF2F01
REPS /PWS/LZYCMGF2F01
REPS /PWS/LZYGLGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCAGF2F01
...
value(p_update)
value(p_msgid)
value(p_msgno)
changing p_nrmsg. "#EC *
data: v_belnr like bseg-belnr. " Guarda nº documento anterior
* >> Início da exclusão: FORM CALL_TRANSACTION
if sy-subrc eq 0.
* << Fim da exclusão
call transaction p_tcode using p_itab_bdc
mode p_mode
update p_update
messages into p_itab_msg.
* Testa o retorno
if sy-subrc <> 0. "ERRO NO CALL TRANSACTION
loop at p_itab_msg.
add 1 to p_nrmsg.
call function 'MESSAGE_PREPARE'
...
...
translate p_t_zycbt032-belnr using ' 0'.
append p_t_zycbt032.
v_num = itab_zycbt036-belnr.
loop at itab_zycbt036 where belnr = v_num.
itab_zycbt036-belnr = p_t_zycbt032-belnr.
modify itab_zycbt036.
endloop.
v_belnr = p_t_dados-belnr.
p_t_dados-belnr = p_t_zycbt032-belnr.
modify p_t_dados transporting belnr where belnr = v_belnr.
* >> Início da exclusão: FORM CALL_TRANSACTION
endif.
else.
p_t_zycbt032-mandt = p_t_dados-mandt.
p_t_zycbt032-tcode = p_tcode.
p_t_zycbt032-tabela = p_t_dados-tabela.
p_t_zycbt032-cpochv = p_t_dados-cpochv.
p_t_zycbt032-tpmsg = 'E'.
p_t_zycbt032-msgid = 'NOAUTHORITY'.
p_t_zycbt032-nrmsg = p_nrmsg.
concatenate text-043 p_tcode
into p_t_zycbt032-msg separated by space.
append p_t_zycbt032.
* << Fim da exclusão
endif.
refresh: p_itab_bdc.
endform.
form obter_taxa_cambial using value(p_belnr)
value(p_bukrs)
changing p_taxa."#EC CALLED
data: wa_bkpf like bkpf.
call function 'READ_DOCUMENT_HEADER'
exporting
belnr = p_belnr
bukrs = p_bukrs
importing
e_bkpf = wa_bkpf
exceptions
exit = 1
not_found = 2
archive_cancel = 3
others = 4."#EC *
if sy-subrc eq 0.
p_taxa = wa_bkpf-kursf.
endif.
endform.
form check_periodo using value(p_koart)
value(p_monat)
value(p_bukrs)
value(p_gjahr)
value(p_konto)
changing value(p_novadata)
...
----------------------------------------------------------------------------------------------------
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 exclusão: FORM CALL_TRANSACTION
if sy-subrc eq 0.
* << Fim da exclusão
call transaction p_tcode using p_itab_bdc
mode p_mode
update p_update
messages into p_itab_msg.
if sy-subrc <> 0.
loop at p_itab_msg.
add 1 to p_nrmsg.
call function 'MESSAGE_PREPARE'
exporting
language = sy-langu
...
...
msg_no = p_msgno
msg_var1 = sy-msgv1
msg_var2 = sy-msgv2
msg_var3 = sy-msgv3
msg_var4 = sy-msgv4
importing
msg_text = p_t_zycbt032-msg
exceptions
function_not_completed = 1
message_not_found = 2
others = 3. "#EC *
if sy-subrc = 0.
else.
endif.
p_t_zycbt032-mandt = p_t_dados-mandt.
p_t_zycbt032-tcode = p_tcode.
p_t_zycbt032-tabela = p_t_dados-tabela.
p_t_zycbt032-cpochv = p_t_dados-cpochv.
p_t_zycbt032-tpmsg = 'S'.
p_t_zycbt032-nrmsg = p_nrmsg.
p_t_zycbt032-belnr = sy-msgv1.
...
...
translate p_t_zycbt032-belnr using ' 0'.
append p_t_zycbt032.
v_num = itab_zycbt036-belnr.
loop at itab_zycbt036 where belnr = v_num.
itab_zycbt036-belnr = p_t_zycbt032-belnr.
modify itab_zycbt036.
endloop.
v_belnr = p_t_dados-belnr.
p_t_dados-belnr = p_t_zycbt032-belnr.
modify p_t_dados transporting belnr where belnr = v_belnr.
* >> Início da exclusão: FORM CALL_TRANSACTION
endif.
else.
p_t_zycbt032-mandt = p_t_dados-mandt.
p_t_zycbt032-tcode = p_tcode.
p_t_zycbt032-tabela = p_t_dados-tabela.
p_t_zycbt032-cpochv = p_t_dados-cpochv.
p_t_zycbt032-tpmsg = 'E'.
p_t_zycbt032-nrmsg = p_nrmsg.
concatenate text-098 p_tcode
into p_t_zycbt032-msg separated by space.
append p_t_zycbt032.
* << Fim da exclusão
endif.
refresh: p_itab_bdc.
endform.
form obter_taxa_cambial
using
p_belnr type /pws/zycbe033-belnr
p_bukrs type /pws/zycbe033-bukrs
p_taxa like bkpf-kursf.
data: wa_bkpf like bkpf.
call function 'READ_DOCUMENT_HEADER'
...
----------------------------------------------------------------------------------------------------
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 exclusão: FORM CALL_TRANSACTION
if sy-subrc eq 0.
* << Fim da exclusão
call transaction p_tcode using p_itab_bdc
mode p_mode
update p_update
messages into p_itab_msg.
if sy-subrc <> 0.
loop at p_itab_msg.
add 1 to p_nrmsg.
call function 'MESSAGE_PREPARE'
exporting
language = sy-langu
...
...
append p_t_zycbt032.
v_num = itab_zycbt036-belnr.
loop at itab_zycbt036 where belnr = v_num.
itab_zycbt036-belnr = p_t_zycbt032-belnr.
modify itab_zycbt036.
endloop.
v_belnr = p_t_dados-belnr.
p_t_dados-belnr = p_t_zycbt032-belnr.
p_t_dados-dtdocto = p_t_dados-budat.
modify p_t_dados transporting: belnr dtdocto where belnr = v_belnr.
* >> Início da exclusão: FORM CALL_TRANSACTION
endif.
else.
p_t_zycbt032-mandt = p_t_dados-mandt.
p_t_zycbt032-tcode = p_tcode.
p_t_zycbt032-tabela = p_t_dados-tabela.
p_t_zycbt032-cpochv = p_t_dados-cpochv.
p_t_zycbt032-tpmsg = 'E'.
p_t_zycbt032-nrmsg = p_nrmsg.
concatenate text-048 p_tcode
into p_t_zycbt032-msg separated by space.
append p_t_zycbt032.
* << Fim da exclusão
endif.
refresh: p_itab_bdc.
endform.
form obter_taxa_cambial using value(p_belnr)
value(p_bukrs)
changing p_taxa.
data: wa_bkpf like bkpf.
call function 'READ_DOCUMENT_HEADER'
exporting
belnr = p_belnr
...