CE PLUS - Nota 011653
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Desconto de Recebíveis
Data/Hora da Publicação: 23/11/2011 14:33:03
Data/Hora Última Alteração: 23/11/2011 14:33:03
Descrição da Nota: DESCONTO DE RECEBÍVEIS - TRILHA AUDITORIA
Sintoma
Desconto de Recebíveis - Trilha Auditoria
Solução
Desconto de Recebíveis - Trilha Auditoria
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11653 Data: 23/11/2011 Hora: 11:22:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11653
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00095
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00234 - 00001 - 6.0 - 00021 - MATCHCODE DESCONTO DE RECEBIVEIS
00278 - 00002 - 6.0 - 00021 - TRANSAÇÃO PARA O ACESSO AO PROGRAMA EMBARQUE FOI ALTERADA
04958 - 00003 - 7.0 - 00003 - FATURA/VINCULAÇÃO/LIQUIDAÇÃO - COMMODITIES
06017 - 00004 - 7.0 - 00004 - CB - 442639 - CODE INSPECTOR
10206 - 00005 - 8.0 - 00003 - SOCIEDADE PARCEIRA DESCONTO DE RECEBÍVEIS
11339 - 00006 - 8.0 - 00008 - DESCONTO DE RECEBÍVEIS, CRIAR BOTÃO PARA SELECIONAR FATURAS
11506 - 00007 - 8.0 - 00009 - TRILHA DE AUDITORIA
----------------------------------------------------------------------------------------------------
DESCONTO DE RECEBÍVEIS - TRILHA AUDITORIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESCONTO DE RECEBÍVEIS - TRILHA AUDITORIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCB033
REPS /PWS/MZYCB033F01
REPS /PWS/MZYCB033I01
REPS /PWS/MZYCB033TOP
REPS /PWS/SAPMZYCB033
REPT /PWS/SAPMZYCB033
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB033
Alterar STATUS-GUI 0100
Incluir BOTÃO ESTÁTICO (Barra de Botões)
CÓDIGO DE FUNÇÃO: LOG_TRILHA
CATEGORIA DE FUNÇÃO: ' '
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Log de Modificação
NOME DE ÍCONE: ICON_PHIO_CLASS
TEXTO DE ÍCONE: ' '
TEXTO INFORMATIVO: ' '
SELEÇÃO DIRETA: ' '
TECLA DE ATALHO: Ctrl+F12
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB033F01
...
wa_cols-screen-input = v_status.
endif.
modify tc_desrec-cols from wa_cols.
endloop.
endform.
form set_status.
data: begin of itab_pf occurs 10,
fcode like rsmpe-func,
end of itab_pf.
data: v_descricao(15).
* >> Início da inclusão: FORM SET_STATUS
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
* << Fim da inclusão
clear ok_code.
if v_line_ini = 0.
v_line_ini = 1.
endif.
if v_status eq '0'.
itab_pf-fcode = 'MARK'.
append itab_pf.
itab_pf-fcode = 'DMARK'.
append itab_pf.
itab_pf-fcode = 'EXCL'.
...
...
itab_pf-fcode = 'PROC'.
append itab_pf.
itab_pf-fcode = 'MODO'.
append itab_pf.
itab_pf-fcode = 'SELE'.
append itab_pf.
else.
itab_pf-fcode = 'AEND'.
append itab_pf.
endif.
* >> Início da inclusão: FORM SET_STATUS
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode eq c_transacao_c.
itab_pf-fcode = 'LOG_TRILHA'.
append itab_pf.
endif.
* << Fim da inclusão
set pf-status '0100' excluding itab_pf.
if v_status eq '0'.
v_descricao = text-011.
else.
if sy-tcode eq c_transacao_c.
v_descricao = text-009.
else.
v_descricao = text-010.
endif.
endif.
...
...
gsberf = itab_zycbt219-gsberf and
nrparcf = itab_zycbt219-nrparcf.
itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans -
itab_zycbt219-vlme.
modify itab_zycbt030.
update /pws/zycbt030 set vlsltrans = itab_zycbt030-vlsltrans
where nrinvoic = itab_zycbt219-nrinvoic and
gsberf = itab_zycbt219-gsberf and
nrparcf = itab_zycbt219-nrparcf and
vbeln = itab_zycbt030-vbeln.
* >> Início da inclusão: FORM PROC_INCLUSAO
concatenate itab_zycbt219-nrinvoic
itab_zycbt219-nrparcf
itab_zycbt219-gsberf into v_identific.
move-corresponding itab_zycbt030 to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
* << Fim da inclusão
endloop.
itab_zycbt219-saldo = itab_zycbt219-vlme.
itab_zycbt219-dtbelnr = itab_zycbt219-dtcredext.
itab_zycbt219-status = 'C'.
itab_zycbt219-vlsltrans = itab_zycbt219-vlsltrans -
itab_zycbt219-vlme.
move itab_zycbt219 to /pws/zycbt219.
* >> Início da inclusão: FORM PROC_INCLUSAO
select * from /pws/zycbt219
into table itab_zycbt219_aud
where bukrs = itab_zycbt219-bukrs
and nrinvoic = itab_zycbt219-nrinvoic
and belnr = itab_zycbt219-belnr
and dtincl = itab_zycbt219-dtincl
and gsberf = itab_zycbt219-gsberf
and nrparcf = itab_zycbt219-nrparcf.
* << Fim da inclusão
modify /pws/zycbt219.
clear itab_zycbt219-oper.
* >> Início da inclusão: FORM PROC_INCLUSAO
concatenate itab_zycbt219-nrinvoic
itab_zycbt219-nrparcf
itab_zycbt219-gsberf into v_identific.
if itab_zycbt219_aud[] is initial.
perform carrega_log using '/PWS/ZYCBT219'
'I'
sy-tcode
sy-repid
v_identific.
else.
perform carrega_log using '/PWS/ZYCBT219'
'U'
sy-tcode
sy-repid
v_identific.
endif.
* << Fim da inclusão
call function 'MESSAGE_STORE'
exporting
arbgb = itab_zycbt032-msgid
msgty = itab_zycbt032-tpmsg
msgv1 = itab_zycbt032-msgv1
msgv2 = itab_zycbt032-msgv2
msgv3 = itab_zycbt032-msgv3
msgv4 = itab_zycbt032-msgv4
txtnr = itab_zycbt032-nrmsg
zeile = v_zeile.
...
...
if sy-subrc eq 0.
v_belnr_temp = itab_zycbt032-belnr.
if p_flag is initial.
perform estorna_agrupamento using v_belnr_temp.
endif.
update /pws/zycbt030 set vlsltrans = itab_zycbt030-vlsltrans
where nrinvoic = itab_zycbt030-nrinvoic and
nrparcf = itab_zycbt030-nrparcf and
vbeln = itab_zycbt030-vbeln and
gsberf = itab_zycbt030-gsberf.
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
concatenate itab_zycbt030-nrinvoic
itab_zycbt030-nrparcf
itab_zycbt030-gsberf into v_identific.
move-corresponding itab_zycbt030 to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
select single *
from /pws/zycbt219
into wa_zycbt219_aud
where bukrs = itab_zycbt219-bukrs and
nrinvoic = itab_zycbt219-nrinvoic and
gsberf = itab_zycbt219-gsberf and
nrparcf = itab_zycbt219-nrparcf and
dtincl = itab_zycbt219-dtincl and
belnr = itab_zycbt219-belnr.
concatenate itab_zycbt219-nrinvoic
itab_zycbt219-nrparcf
itab_zycbt219-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding wa_zycbt219_aud to /pws/zycbt219.
perform carrega_log using '/PWS/ZYCBT219'
'D'
sy-tcode
sy-repid
v_identific.
endif.
* << Fim da inclusão
delete from /pws/zycbt219
where bukrs = itab_zycbt219-bukrs and
nrinvoic = itab_zycbt219-nrinvoic and
gsberf = itab_zycbt219-gsberf and
nrparcf = itab_zycbt219-nrparcf and
dtincl = itab_zycbt219-dtincl and
belnr = itab_zycbt219-belnr.
delete itab_zycbt219
where bukrs = itab_zycbt219-bukrs and
nrinvoic = itab_zycbt219-nrinvoic and
...
...
gsberf = itab_zycbt219-gsberf and
nrparcf = itab_zycbt219-nrparcf.
perform clear_dados_batch.
itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans +
itab_zycbt219-vlme.
update /pws/zycbt030 set vlsltrans = itab_zycbt030-vlsltrans
where nrinvoic = itab_zycbt030-nrinvoic and
nrparcf = itab_zycbt030-nrparcf and
vbeln = itab_zycbt030-vbeln and
gsberf = itab_zycbt030-gsberf.
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
concatenate itab_zycbt030-nrinvoic
itab_zycbt030-nrparcf
itab_zycbt030-gsberf into v_identific.
move-corresponding itab_zycbt030 to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
* << Fim da inclusão
endloop.
if v_subrc eq 0.
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
select single *
from /pws/zycbt219
into wa_zycbt219_aud
where bukrs = itab_zycbt219-bukrs and
nrinvoic = itab_zycbt219-nrinvoic and
gsberf = itab_zycbt219-gsberf and
nrparcf = itab_zycbt219-nrparcf and
dtincl = itab_zycbt219-dtincl and
belnr = itab_zycbt219-belnr.
concatenate itab_zycbt219-nrinvoic
itab_zycbt219-nrparcf
itab_zycbt219-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding wa_zycbt219_aud to /pws/zycbt219.
perform carrega_log using '/PWS/ZYCBT219'
'D'
sy-tcode
sy-repid
v_identific.
endif.
* << Fim da inclusão
delete from /pws/zycbt219
where bukrs = itab_zycbt219-bukrs and
nrinvoic = itab_zycbt219-nrinvoic and
gsberf = itab_zycbt219-gsberf and
nrparcf = itab_zycbt219-nrparcf and
dtincl = itab_zycbt219-dtincl and
belnr = itab_zycbt219-belnr.
delete itab_zycbt219
where bukrs = itab_zycbt219-bukrs and
nrinvoic = itab_zycbt219-nrinvoic and
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB033I01
...
perform modify_line.
endmodule.
module verifica_linhas input.
perform verifica_linhas.
endmodule.
module get_invoice input.
perform get_invoice.
endmodule.
module user_command_0100 input.
data: e_subrc like sy-subrc,
* >> Início da exclusão: MODULE USER_COMMAND_0100
e_exec_okcode."#EC *
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
e_exec_okcode. "#EC *
data: v_identificador type /pws/zyglt390-identificador.
* << Fim da inclusão
clear: r_okcode, e_exec_okcode, v_syrepid.
call method cl_gui_cfw=>dispatch.
if not r_okcode is initial.
ok_code = r_okcode.
endif.
clear itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
...
...
when 'DRILL'.
perform command_drill.
when 'P-' or 'P--' or 'P+' or 'P++'.
perform command_page.
tc_desrec-top_line = v_line_ini.
when 'MODO'.
perform command_modo.
when 'SELE'.
set screen '0200'.
leave to screen '0200'.
* >> Início da inclusão: MODULE USER_COMMAND_0100
when 'LOG_TRILHA'.
read table itab_zycbt219 with key mark = 'X'.
if sy-subrc = 0.
concatenate itab_zycbt219-nrinvoic itab_zycbt219-nrparcf
itab_zycbt219-gsberf
into v_identificador.
perform log_trilha using sy-repid
v_identificador
' '.
else.
message i015 with text-061.
endif.
* << Fim da inclusão
endcase.
endmodule.
module user_command_exit input.
perform exit_command.
endmodule.
module user_command_0051 input.
case ok_code.
when 'BC'.
call method html_control->go_back.
clear ok_code.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB033TOP
...
data: begin of itab_nrsd occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycbe017-nrsd,
high like /pws/zycbe017a-nrsd,
end of itab_nrsd.
data: begin of itab_zycbt017_aux occurs 0.
include structure /pws/zycbt017.
data: v_fsaldo type c,
end of itab_zycbt017_aux.
* >> Início da inclusão:
data: begin of itab_zycbt219_aud occurs 0.
include structure /pws/zycbt219.
data: end of itab_zycbt219_aud.
data: wa_zycbt219_aud like /pws/zycbt219,
v_identific(25) type c.
* << Fim da inclusão
constants: c_transacao_c(14) value '/PWS/ZYCB033_C',
c_transacao_a(14) value '/PWS/ZYCB033_A',
c_transacao_e(14) value '/PWS/ZYCB033_E'.
constants: c_no_modify(1) value 'X'.
controls: tc_desrec type tableview using screen '0100'.
data:
v_oper like icons-text,
v_status(1) type c value '1',
v_vlsltrans like /pws/zycbt030-vlsltrans,
v_line_ini type i value 1,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCB033
INCLUDE /pws/mzycb033top.
INCLUDE /pws/mzycb033f01.
INCLUDE /pws/mzycb033o01.
INCLUDE /pws/mzycb033i01.
INCLUDE /pws/mzycb033h01.
* >> Início da inclusão:
include /pws/zygllog.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB033
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 076
Texto: (25 caracteres)
"Nenhum campo foi marcado."
Comprimento máximo: 25