CE PLUS - Nota 006058
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 28/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:48:23
Descrição da Nota: VERIFICAÇÃO AMPLIADA , CODE INSPECTOR - CAMBIO
Sintoma
performance e sintaxe
Solução
verificação ampliada e code inspector
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06058 Data: 28/02/2008 Hora: 14:27:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06058
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
VERIFICAÇÃO AMPLIADA , CODE INSPECTOR - CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VERIFICAÇÃO AMPLIADA , CODE INSPECTOR - CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYGL018F01
REPS /PWS/MZYGL018I01
REPS /PWS/MZYGL018O01
REPS /PWS/MZYGL018TOP
REPS /PWS/MZYGL020F01
REPS /PWS/MZYGL020TOP
REPS /PWS/MZYGL021F01
REPS /PWS/MZYGL021TOP
REPS /PWS/MZYGL051TOP
REPT /PWS/SAPMZYGL018
REPT /PWS/SAPMZYGL020
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL018F01
...
modify itab_zygle330.
endloop.
read table itab_zygle330 index v_pos.
v_indicatu = sy-tabix.
itab_zygle330-marc = 'X'.
modify itab_zygle330 index v_pos.
if sy-subrc eq 0.
select * from /pws/zyglt334
into corresponding fields of table itab_zygle334
where name = itab_zygle330-prog
* >> Início da exclusão: FORM CALL_UCOMM_SELE_0004
and dynr = itab_zygle330-dynr.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_UCOMM_SELE_0004
and dynr = itab_zygle330-dynr. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc ne 0.
message i000 with text-019.
exit.
else.
if not itab_zygle334[] is initial.
select * from d021t
into table itab_d021t
for all entries in itab_zygle334
where prog = itab_zygle334-name
and dynr = itab_zygle334-dynr
...
...
loop at itab_opers where marc eq 'X'.
itab_opers-marc = ' '.
modify itab_opers.
endloop.
read table itab_opers index v_pos.
v_indicatu = sy-tabix.
itab_opers-marc = 'X'.
modify itab_opers index v_pos.
select * from /pws/zyglt330
into table itab_zygle330_i
* >> Início da exclusão: FORM CALL_UCOMM_SELE
where name = v_namep.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_UCOMM_SELE
where name = v_namep. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc eq 0.
select * from d020t
into table itab_zygle330
for all entries in itab_zygle330_i
where prog = itab_zygle330_i-name
and dynr = itab_zygle330_i-dynr
and lang = 'P'.
if sy-subrc ne 0.
message i000 with text-016.
exit.
...
...
call screen '0004'.
else.
message i000 with text-016.
endif.
endif.
endif.
endform.
form deleta_0005.
read table itab_zygle334 with key marc = 'X'.
if sy-subrc eq 0.
* >> Início da exclusão: FORM DELETA_0005
if itab_zygle334-usuario = sy-uname and itab_zygle334-copy = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETA_0005
if itab_zygle334-usuario = sy-uname
and itab_zygle334-copy = 'X'."#EC *
* << Fim da inclusão
move: itab_zygle334 to itab_zygle334_aux.
delete itab_zygle334 where marc = 'X'.
append itab_zygle334_aux.
else.
message i000 with text-018.
endif.
endif.
endform.
form button_save_0005.
move itab_zygle334[] to itab_save[].
...
...
message i000 with text-046.
endform.
form button_copy_0005.
read table itab_zygle334 with key marc = 'X'.
itab_zygle334-copy = 'X'.
clear itab_zygle334-marc.
append itab_zygle334.
endform.
form chama_tela.
select * from /pws/zyglt329
* >> Início da exclusão: FORM CHAMA_TELA
into table itab_zygle329.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_TELA
into table itab_zygle329. "#EC CI_NOWHERE
* << Fim da inclusão
if sy-subrc eq 0.
select * from /pws/zyglt330
into table itab_zygle330_i
* >> Início da exclusão: FORM CHAMA_TELA
where name eq v_namep.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_TELA
where name eq v_namep. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endform.
form monta_tela.
loop at itab_zygle330.
endloop.
endform.
* >> Início da exclusão: FORM TRATA_MARC
form trata_marc.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_MARC
form trata_marc. "#EC CALLED
* << Fim da inclusão
leave to screen '0001'.
endform.
form posiciona_cursor.
read table itab_opers with key marc = 'X'.
if sy-subrc ne 0.
read table itab_opers index 1.
if sy-subrc eq 0.
itab_opers-marc = 'X'.
modify itab_opers index 1.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL018I01
...
when 'SAVE'.
perform button_save_0005.
when 'DELE'.
perform deleta_0005.
endcase.
clear okcode.
endmodule.
module atualiza_itab_opers input.
modify itab_opers index tbctrl1-current_line.
endmodule.
* >> Início da exclusão: MODULE ATUALIZA_ITAB_D020T
module atualiza_itab_d020t input.
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_ITAB_D020T
module atualiza_itab_d020t input."#EC *
* << Fim da inclusão
modify itab_d020t index tbctrl2-current_line.
endmodule.
module preenche_itab_zygle334 input.
move:/pws/zygle334-tipo to itab_zygle334-tipo ,
/pws/zygle334-dtxt to itab_zygle334-dtxt ,
/pws/zygle334-atrib to itab_zygle334-atrib ,
/pws/zygle334-caract to itab_zygle334-caract ,
/pws/zygle334-caract1 to itab_zygle334-caract1,
/pws/zygle334-caract2 to itab_zygle334-caract2,
/pws/zygle334-caract3 to itab_zygle334-caract3,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL018O01
...
endif.
modify screen.
endif.
endloop.
endmodule.
module status_0005 output.
perform set_screen_0005.
set pf-status '0005'.
set titlebar 'TL0005' with text-013.
endmodule.
* >> Início da exclusão: MODULE MONTA_TELA
module monta_tela output.
* << Fim da exclusão
* >> Início da inclusão: MODULE MONTA_TELA
module monta_tela output."#EC *
* << Fim da inclusão
perform monta_tela.
endmodule.
module trata_linhas_0003 output.
loop at screen.
case screen-name.
when 'ITAB_OPERS-TEXT' or 'ITAB_OPERS-NAME'.
if itab_opers-marc eq 'X'.
screen-intensified = 1.
else.
screen-intensified = 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL018TOP
program /pws/sapmzygl018 message-id /pws/zyglm.
type-pools: shlp.
controls: tbctrl1 type tableview using screen '0003',
tbctrl2 type tableview using screen '0004',
tbctrl3 type tableview using screen '0005'.
* >> Início da exclusão:
tables: /pws/zygle309, /pws/zyglt309,
/pws/zygle310, /pws/zyglt310,
/pws/zygle329, /pws/zyglt329,
/pws/zygle330, /pws/zyglt330,
/pws/zygle334, /pws/zyglt334,
* << Fim da exclusão
* >> Início da inclusão:
tables: /pws/zygle309,
/pws/zyglt309,"#EC *
/pws/zygle310,
/pws/zyglt310,"#EC *
/pws/zygle329,
/pws/zyglt329,"#EC *
/pws/zygle330,
/pws/zyglt330,"#EC *
/pws/zygle334,
/pws/zyglt334,"#EC *
* << Fim da inclusão
D020T,
* >> Início da exclusão:
TRDIRT,
D021T.
* << Fim da exclusão
* >> Início da inclusão:
TRDIRT,"#EC *
D021T."#EC *
* << Fim da inclusão
data: okcode like sy-ucomm.
data: dynpronr like sy-dynnr value '0002' ,
* >> Início da exclusão:
dynpronr2 like sy-dynnr ,
v_screencall like sy-dynnr ,
* << Fim da exclusão
* >> Início da inclusão:
v_screencall like sy-dynnr ,"#EC NEEDED
* << Fim da inclusão
v_namep like /pws/zygle329-name ,
* >> Início da exclusão:
v_named like /pws/zygle329-name ,
v_name like /pws/zygle329-name ,
v_text like trdirt-text ,
v_grupp like /pws/zygle309-grupp ,
v_ltext like /pws/zygle310-ltext ,
v_cols type cxtab_column ,
* << Fim da exclusão
* >> Início da inclusão:
v_named like /pws/zygle329-name ,"#EC NEEDED
* << Fim da inclusão
nextline type sy-tabix ,
* >> Início da exclusão:
v_tipo like /pws/zyglt334 ,
v_valor1(35) type c ,
v_tpscreen(1) type c ,
v_dtxt(35) type c ,
v_dynr(35) type c ,
v_tela type c ,
* << Fim da exclusão
* >> Início da inclusão:
v_tpscreen(1) type c ,"#EC NEEDED
v_dynr(35) type c ,"#EC NEEDED
* << Fim da inclusão
v_campo(35) type c ,
v_valor(35) type c ,
v_linha type i ,
v_pos type i ,
* >> Início da exclusão:
v_indicatu type i ,
v_chave(1) type c ,
v_resposta(1) type c value '1' ,
marc .
* << Fim da exclusão
* >> Início da inclusão:
v_indicatu type i ,"#EC NEEDED
v_chave(1) type n .
* << Fim da inclusão
data: g_custom_container type ref to cl_gui_custom_container,
g_tree type ref to cl_gui_simple_tree ,
node_table like node_str occurs 0 ,
node like mtreesnode ,
events type cntl_simple_events ,
event type cntl_simple_event .
data: begin of itab_zygle309 occurs 0 .
include structure /pws/zygle309.
data: end of itab_zygle309 .
data: begin of itab_zygle310 occurs 0 .
include structure /pws/zygle310.
data: end of itab_zygle310 .
data: begin of itab_zygle329 occurs 0 .
include structure /pws/zyglt329.
data: end of itab_zygle329 .
data: begin of itab_zygle330 occurs 0.
include structure D020T .
data: marc(1) type c .
data: end of itab_zygle330 .
* >> Início da exclusão:
data: begin of itab_zygle330_I occurs 0.
* << Fim da exclusão
* >> Início da inclusão:
data: begin of itab_zygle330_I occurs 0."#EC *
* << Fim da inclusão
include structure /pws/zyglt330.
data: end of itab_zygle330_I .
* >> Início da exclusão:
data: flag like /pws/zyglt334-caract.
* << Fim da exclusão
data: begin of itab_save occurs 0 .
include structure /pws/zygle334.
data: end of itab_save .
data: begin of itab_zygle334 occurs 0 .
include structure /pws/zygle334.
data: marc(1) type c .
data: end of itab_zygle334 .
* >> Início da exclusão:
data: begin of itab_zygle334_chk occurs 0,
grupp like /pws/zygle334-grupp ,
name like /pws/zygle334-name ,
dynr like /pws/zygle334-dynr .
data: end of itab_zygle334_chk .
* << Fim da exclusão
data: begin of itab_zygle334_aux occurs 0.
include structure /pws/zygle334 .
data: end of itab_zygle334_aux .
* >> Início da exclusão:
data: begin of ITAB_D020T occurs 0.
* << Fim da exclusão
* >> Início da inclusão:
data: begin of ITAB_D020T occurs 0."#EC NEEDED
* << Fim da inclusão
include structure D020T .
data: marc(1) type c .
data: end of ITAB_D020T .
data: begin of itab_D021T occurs 0.
include structure D021T .
data: end of itab_D021T .
* >> Início da exclusão:
data: begin of itab_tc occurs 0.
include structure d020t .
data: marc(1) type c .
data: end of itab_tc .
* << Fim da exclusão
data: begin of itab_TRDIRT occurs 0.
include structure TRDIRT .
data: end of itab_TRDIRT .
data: begin of itab_botoes occurs 0,
nome(35) type c ,
end of itab_botoes .
data: begin of itab_opers occurs 0 ,
name like /pws/zygle329-name ,
text like TRDIRT-text ,
marc(1) type c ,
...
...
class lcl_event_click implementation.
method: select_item.
clear node.
call method g_tree->get_selected_node importing
node_key = node-node_key.
if not node-node_key is initial.
case node-node_key.
when text-007.
dynpronr = '0003'.
read table itab_zygle309 into /pws/zygle309
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
read table itab_zygle310 into /pws/zygle310
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
clear itab_zygle329. refresh itab_zygle329.
select * from /pws/zyglt329 into table itab_zygle329
where grupp eq /pws/zygle309-grupp.
if sy-subrc eq 0.
clear itab_TRDIRT. refresh itab_TRDIRT.
select * from TRDIRT into table itab_TRDIRT
for all entries in itab_zygle329
where name eq itab_zygle329-name
* >> Início da exclusão:
and SPRSL = 'P'.
* << Fim da exclusão
* >> Início da inclusão:
and SPRSL = 'P'. "#EC CI_SGLSELECT
* << Fim da inclusão
sort itab_zygle329 by name.
endif.
perform atualiza_operacoes.
tbctrl1-top_line = 1.
when text-008.
dynpronr = '0003'.
read table itab_zygle309 into /pws/zygle309
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
read table itab_zygle310 into /pws/zygle310
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
clear itab_zygle329. refresh itab_zygle329.
select * from /pws/zyglt329 into table itab_zygle329
where grupp eq /pws/zygle309-grupp.
if sy-subrc eq 0.
clear itab_TRDIRT. refresh itab_TRDIRT.
select * from TRDIRT into table itab_TRDIRT
for all entries in itab_zygle329
where name eq itab_zygle329-name
* >> Início da exclusão:
and SPRSL = 'P'.
* << Fim da exclusão
* >> Início da inclusão:
and SPRSL = 'P'. "#EC CI_SGLSELECT
* << Fim da inclusão
sort itab_zygle329 by name.
endif.
perform atualiza_operacoes.
tbctrl1-top_line = 1.
when text-009.
dynpronr = '0003'.
read table itab_zygle309 into /pws/zygle309
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
read table itab_zygle310 into /pws/zygle310
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
clear itab_zygle329. refresh itab_zygle329.
select * from /pws/zyglt329 into table itab_zygle329
where grupp eq /pws/zygle309-grupp.
if sy-subrc eq 0.
clear itab_TRDIRT. refresh itab_TRDIRT.
select * from TRDIRT into table itab_TRDIRT
for all entries in itab_zygle329
where name eq itab_zygle329-name
* >> Início da exclusão:
and SPRSL = 'P'.
* << Fim da exclusão
* >> Início da inclusão:
and SPRSL = 'P'. "#EC CI_SGLSELECT
* << Fim da inclusão
sort itab_zygle329 by name.
endif.
perform atualiza_operacoes.
tbctrl1-top_line = 1.
when text-037.
dynpronr = '0003'.
read table itab_zygle309 into /pws/zygle309
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
read table itab_zygle310 into /pws/zygle310
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
clear itab_zygle329. refresh itab_zygle329.
select * from /pws/zyglt329 into table itab_zygle329
where grupp eq /pws/zygle309-grupp.
if sy-subrc eq 0.
clear itab_TRDIRT. refresh itab_TRDIRT.
select * from TRDIRT into table itab_TRDIRT
for all entries in itab_zygle329
where name eq itab_zygle329-name
* >> Início da exclusão:
and SPRSL = 'P'.
* << Fim da exclusão
* >> Início da inclusão:
and SPRSL = 'P'. "#EC CI_SGLSELECT
* << Fim da inclusão
sort itab_zygle329 by name.
endif.
perform atualiza_operacoes.
tbctrl1-top_line = 1.
when text-038.
dynpronr = '0003'.
read table itab_zygle309 into /pws/zygle309
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
read table itab_zygle310 into /pws/zygle310
* >> Início da exclusão:
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão:
with key grupp = node-node_key."#EC *
* << Fim da inclusão
clear itab_zygle329. refresh itab_zygle329.
select * from /pws/zyglt329 into table itab_zygle329
where grupp eq /pws/zygle309-grupp.
if sy-subrc eq 0.
clear itab_TRDIRT. refresh itab_TRDIRT.
select * from TRDIRT into table itab_TRDIRT
for all entries in itab_zygle329
where name eq itab_zygle329-name
* >> Início da exclusão:
and SPRSL = 'P'.
* << Fim da exclusão
* >> Início da inclusão:
and SPRSL = 'P'. "#EC CI_SGLSELECT
* << Fim da inclusão
sort itab_zygle329 by name.
endif.
perform atualiza_operacoes.
tbctrl1-top_line = 1.
when others.
dynpronr = '0002'.
clear: /pws/zygle309, /pws/zygle310.
endcase.
endif.
endmethod.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL020F01
...
endif.
call method g_tree->set_registered_events
exporting events = events.
set handler lcl_event_click=>select_item for g_tree.
perform fill_nodes.
endif.
endform.
form fill_nodes.
refresh: node_table.
if itab_zygle309[] is initial.
* >> Início da exclusão: FORM FILL_NODES
select * from /pws/zyglt309 into table itab_zygle309.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_NODES
select * from /pws/zyglt309 into table itab_zygle309."#EC CI_NOWHERE
* << Fim da inclusão
sort itab_zygle309 by grupp.
if sy-subrc eq 0.
select * from /pws/zyglt310 into table itab_zygle310
for all entries in itab_zygle309
where grupp eq itab_zygle309-grupp
and spras eq sy-langu.
endif.
endif.
clear node.
node-node_key = text-008.
...
...
table_structure_name = 'NODE_STR'.
if sy-subrc <> 0.
message a001 with text-007.
endif.
call method g_tree->expand_node exporting node_key = text-008.
call method g_tree->set_selected_node exporting node_key = text-008.
endform.
form define_tela_e_seleciona_dados.
dynpronr = '0102'.
read table itab_zygle309 into /pws/zygle309
* >> Início da exclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
with key grupp = node-node_key."#EC *
* << Fim da inclusão
read table itab_zygle310 into /pws/zygle310
* >> Início da exclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
with key grupp = node-node_key."#EC *
* << Fim da inclusão
clear itab_zygle312. refresh itab_zygle312.
select * from /pws/zyglt312 into table itab_zygle312
where grupp eq /pws/zygle309-grupp.
...
...
text_question = text-020
text_button_1 = text-021
text_button_2 = text-022
default_button = '2'
display_cancel_button = 'X'
importing
answer = v_confirm
exceptions
text_not_found = 1
others = 2.
* >> Início da inclusão: FORM VERIFY_CHANGES
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
if v_confirm eq '1'.
perform comm_save.
dynpronr2 = '0201'.
elseif v_confirm eq '2'.
dynpronr2 = '0201'.
endif.
else.
dynpronr2 = '0201'.
endif.
endform.
...
...
text_question = text-020
text_button_1 = text-021
text_button_2 = text-022
default_button = '2'
display_cancel_button = 'X'
importing
answer = v_confirm
exceptions
text_not_found = 1
others = 2.
* >> Início da inclusão: FORM COMM_ABORT
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
if v_confirm eq '1'.
perform comm_save.
leave program.
elseif v_confirm eq '2'.
leave program.
endif.
else.
leave program.
endif.
endform.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL020TOP
program /pws/sapmzygl020 message-id /pws/zyglm.
type-pools: shlp.
controls: tc_operacao type tableview using screen '0102'.
* >> Início da exclusão:
tables: t687t,
/pws/zygle309, /pws/zyglt309,
/pws/zyglt337,
/pws/zygle338, /pws/zyglt338,
/pws/zygle310, /pws/zyglt310.
* << Fim da exclusão
* >> Início da inclusão:
tables:
/pws/zygle309,
/pws/zyglt309, "#EC *
/pws/zygle338,
/pws/zyglt338, "#EC *
/pws/zygle310,
/pws/zyglt310. "#EC *
* << Fim da inclusão
data: okcode like sy-ucomm ,
* >> Início da exclusão:
dynpronr like sy-dynnr value '0101' ,
* << Fim da exclusão
* >> Início da inclusão:
dynpronr like sy-dynnr value '0101' ,"#EC NEEDED
* << Fim da inclusão
dynpronr2 like sy-dynnr value '0201' ,
v_valor(35) type c ,
v_pos type i ,
v_linha like sy-tabix ,
v_index like sy-index ,
v_paging_cntr TYPE i VALUE 0 ,
v_campo(35) type c .
data: d_bukrs type bukrs ,
* >> Início da exclusão:
d_vtext(40) ,
* << Fim da exclusão
d_descgrupo(40) ,
d_contabil(40) ,
d_oresult(40) ,
d_bukrstxt(40) .
data: g_custom_container type ref to cl_gui_custom_container,
g_tree type ref to cl_gui_simple_tree ,
node_table like node_str occurs 0 ,
node like mtreesnode ,
events type cntl_simple_events ,
event type cntl_simple_event .
...
...
data: begin of itab_zygle312 occurs 0.
include structure /pws/zygle312.
data: end of itab_zygle312.
data: begin of itab_zyglt328 occurs 0 .
include structure /pws/zyglt328 .
data: end of itab_zyglt328 .
data: begin of itab_zyglt338 occurs 0 .
include structure /pws/zyglt338 .
data: descricao like dd04t-scrtext_l .
data: end of itab_zyglt338 .
* >> Início da exclusão:
data: itab_zyglt338_save like itab_zyglt338 occurs 0 with header line.
* << Fim da exclusão
* >> Início da inclusão:
data: itab_zyglt338_save like itab_zyglt338 occurs 0 .
* << Fim da inclusão
data: itab_zyglt338_aux like itab_zyglt338 occurs 0 with header line.
data: begin of itab_zyglt359 occurs 0 .
include structure /pws/zyglt359 .
data: end of itab_zyglt359 .
data: begin of itab_dd04t occurs 0 .
include structure dd04t .
data: end of itab_dd04t .
class lcl_event_click definition.
public section.
class-methods:
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL021F01
...
endif.
call method g_tree->set_registered_events
exporting events = events.
set handler lcl_event_click=>select_item for g_tree.
perform fill_nodes.
endif.
endform.
form define_tela_e_seleciona_dados.
dynpronr = '0102'.
read table itab_zygle309 into /pws/zygle309
* >> Início da exclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
with key grupp = node-node_key."#EC *
* << Fim da inclusão
read table itab_zygle310 into /pws/zygle310
* >> Início da exclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
with key grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
with key grupp = node-node_key."#EC *
* << Fim da inclusão
clear itab_tela. refresh itab_tela.
select * from dd02t
into corresponding fields of table itab_tela
where tabname eq '/PWS/ZYCIT029' or
tabname eq '/PWS/ZYCIT030'.
endform.
form descricao_programa using p_nome_prog
* >> Início da exclusão: FORM DESCRICAO_PROGRAMA
changing p_text.
* << Fim da exclusão
* >> Início da inclusão: FORM DESCRICAO_PROGRAMA
changing p_text."#EC *
* << Fim da inclusão
select single text from trdirt
into p_text
where name eq p_nome_prog and
sprsl eq sy-langu.
endform.
form descricao_tela using p_nome_prog p_nrtela
* >> Início da exclusão: FORM DESCRICAO_TELA
changing p_descript.
* << Fim da exclusão
* >> Início da inclusão: FORM DESCRICAO_TELA
changing p_descript."#EC *
* << Fim da inclusão
data: wa_header like rpy_dyhead,
v_nrtela like d020s-dnum.
v_nrtela = p_nrtela.
call function 'RPY_DYNPRO_READ'
exporting
progname = p_nome_prog
dynnr = v_nrtela
importing
* >> Início da exclusão: FORM DESCRICAO_TELA
header = wa_header.
* << Fim da exclusão
* >> Início da inclusão: FORM DESCRICAO_TELA
header = wa_header."#EC *
* << Fim da inclusão
p_descript = wa_header-descript.
endform.
form fill_nodes.
refresh: node_table.
if itab_zygle309[] is initial.
select *
from /pws/zyglt309
into table itab_zygle309
where grupp = 'DE' or
grupp = 'DI'.
...
...
endif.
call method g_tree->expand_node exporting node_key = text-027.
call method g_tree->set_selected_node exporting node_key = text-027.
endform.
form trata_duplo_click.
clear: v_campo, v_valor.
get cursor field v_campo value v_valor line v_linha.
if v_campo eq 'ITAB_TELA-TABNAME' or
v_campo eq 'ITAB_TELA-DDTEXT' and
not v_valor is initial.
* >> Início da exclusão: FORM TRATA_DUPLO_CLICK
read table itab_tela.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DUPLO_CLICK
read table itab_tela."#EC *
* << Fim da inclusão
if sy-subrc eq 0.
loop at itab_tela where mark eq 'X'.
itab_tela-mark = ' '.
modify itab_tela.
endloop.
read table itab_tela index v_linha.
itab_tela-mark = 'X'.
modify itab_tela index v_linha.
perform seleciona_tabela.
endif.
...
...
into table itab_zycit030
from /pws/zycit030
where bukrs = d_bukrs and
codmod = 'D'.
endif.
endif.
endcase.
v_current = 1.
endform.
form linha_tc.
* >> Início da exclusão: FORM LINHA_TC
data: v_line type i,
v_lines type i.
* << Fim da exclusão
* >> Início da inclusão: FORM LINHA_TC
data: v_line type i.
* << Fim da inclusão
case sy-dynnr.
when '0200'.
describe table itab_zycit029 lines v_line.
tc_tab29-lines = v_line.
when '0210'.
if v_okcode = 'COPY_AS'.
describe table itab_zycit029 lines v_line.
tc_tab29_c-lines = v_line.
v_current = 1.
elseif v_okcode = 'NOVA'.
...
...
endif.
clear okcode.
endcase.
endform.
form data_unlock.
if not itab_zycit029 is initial.
call function '/PWS/ZYCI_DEQUEUE_ZYCIT029'
exporting
mandt = sy-mandt
exceptions
* >> Início da exclusão: FORM DATA_UNLOCK
others = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM DATA_UNLOCK
others = 0.
* << Fim da inclusão
elseif not itab_zycit030 is initial.
call function '/PWS/ZYCI_DEQUEUE_ZYCIT030'
exporting
mandt = sy-mandt
exceptions
* >> Início da exclusão: FORM DATA_UNLOCK
others = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM DATA_UNLOCK
others = 0.
* << Fim da inclusão
endif.
clear: v_tcode.
endform.
form data_lock.
if not itab_zycit029 is initial.
call function '/PWS/ZYCI_ENQUEUE_ZYCIT029'
exporting
mandt = sy-mandt
exceptions
foreign_lock = 1
...
...
or not itab_zycit030_del[] is initial.
case sy-dynnr.
when '0200'.
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
textline1 = text-006
textline2 = text-007
titel = text-016
importing
* >> Início da exclusão: FORM VOLTAR
answer = v_resposta.
* << Fim da exclusão
* >> Início da inclusão: FORM VOLTAR
answer = v_resposta."#EC *
* << Fim da inclusão
if v_resposta = 'J'.
perform data_unlock.
perform salvar.
clear v_okcode.
set screen '0100'.
elseif v_resposta = 'N'.
perform data_unlock.
clear v_okcode.
set screen '0100'.
endif.
...
...
message s001 with text-012.
endif.
endif.
when '0210'.
case v_okcode.
when 'COPY_AS'.
read table itab_zycit029 with key modificado = 'X'.
if sy-subrc = 0.
loop at itab_zycit029.
v_index = sy-tabix.
* >> Início da exclusão: FORM SALVAR
select single *
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR
select *
* << Fim da inclusão
from /pws/zycit029
* >> Início da inclusão: FORM SALVAR
up to 1 rows
* << Fim da inclusão
where codmod = itab_zycit029-codmod and
codigo = itab_zycit029-codigo.
* >> Início da inclusão: FORM SALVAR
endselect.
* << Fim da inclusão
if sy-subrc = 0.
...
...
message s001 with text-013.
endif.
else.
v_tcode = '/PWS/ZYCIT029'.
message w001 with text-012.
endif.
when 'NOVA'.
if not itab_zycit029[] is initial.
loop at itab_zycit029.
v_index = sy-tabix.
* >> Início da exclusão: FORM SALVAR
select single *
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR
select *
* << Fim da inclusão
from /pws/zycit029
* >> Início da inclusão: FORM SALVAR
up to 1 rows
* << Fim da inclusão
where codmod = itab_zycit029-codmod and
codigo = itab_zycit029-codigo.
* >> Início da inclusão: FORM SALVAR
endselect.
* << Fim da inclusão
if sy-subrc = 0.
...
...
endloop.
if v_duplicata = 1.
clear v_duplicata.
message w001 with text-014.
elseif v_nulo = 1.
clear: v_nulo.
v_tcode = '/PWS/ZYCIT029_M'.
message w001 with text-015.
else.
loop at itab_zycit029.
* >> Início da exclusão: FORM SALVAR
select single *
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR
select *
* << Fim da inclusão
from /pws/zycit029
* >> Início da inclusão: FORM SALVAR
up to 1 rows
* << Fim da inclusão
where codmod = itab_zycit029-codmod and
codigo = itab_zycit029-codigo.
* >> Início da inclusão: FORM SALVAR
endselect.
* << Fim da inclusão
if sy-subrc ne 0.
...
...
message s001 with text-012.
endif.
endif.
when '0310'.
case v_okcode.
when 'COPY_AS'.
read table itab_zycit030 with key modificado = 'X'.
if sy-subrc = 0.
loop at itab_zycit030.
v_index = sy-tabix.
* >> Início da exclusão: FORM SALVAR
select single *
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR
select *
* << Fim da inclusão
from /pws/zycit030
* >> Início da inclusão: FORM SALVAR
up to 1 rows
* << Fim da inclusão
where bukrs = itab_zycit030-bukrs and
codmod = itab_zycit030-codmod and
codigo = itab_zycit030-codigo and
kschl = itab_zycit030-kschl.
* >> Início da inclusão: FORM SALVAR
endselect.
* << Fim da inclusão
if sy-subrc = 0.
if itab_zycit030-salvo = ' '.
delete itab_zycit030.
v_duplicata = 1.
endif.
else.
if itab_zycit030-bukrs = '' and
itab_zycit030-codmod = '' and
itab_zycit030-codigo = '' and
itab_zycit030-kschl = ''.
...
...
message s001 with text-013.
endif.
else.
v_tcode = '/PWS/ZYCIT030'.
message w001 with text-012.
endif.
when 'NOVA'.
if not itab_zycit030[] is initial.
loop at itab_zycit030.
v_index = sy-tabix.
* >> Início da exclusão: FORM SALVAR
select single *
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR
select *
* << Fim da inclusão
from /pws/zycit030
* >> Início da inclusão: FORM SALVAR
up to 1 rows
* << Fim da inclusão
where bukrs = itab_zycit030-bukrs and
codmod = itab_zycit030-codmod and
codigo = itab_zycit030-codigo and
kschl = itab_zycit030-kschl.
* >> Início da inclusão: FORM SALVAR
endselect.
* << Fim da inclusão
if sy-subrc = 0.
if itab_zycit030-salvo = ' '.
delete itab_zycit030.
v_duplicata = 1.
endif.
else.
if itab_zycit030-bukrs = '' and
itab_zycit030-codmod = '' and
itab_zycit030-codigo = '' and
itab_zycit030-kschl = ''.
...
...
endloop.
if v_duplicata = 1.
clear v_duplicata.
message w001 with text-014.
elseif v_nulo = 1.
clear: v_nulo.
v_tcode = '/PWS/ZYCIT030_M'.
message w001 with text-015.
else.
loop at itab_zycit030.
* >> Início da exclusão: FORM SALVAR
select single *
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR
select *
* << Fim da inclusão
from /pws/zycit030
* >> Início da inclusão: FORM SALVAR
up to 1 rows
* << Fim da inclusão
where bukrs = itab_zycit030-bukrs and
codmod = itab_zycit030-codmod and
codigo = itab_zycit030-codigo and
kschl = itab_zycit030-kschl.
* >> Início da inclusão: FORM SALVAR
endselect.
* << Fim da inclusão
if sy-subrc ne 0.
modify /pws/zycit030 from table itab_zycit030[].
endif.
endloop.
message s001 with text-013.
endif.
endif.
endcase.
endcase.
endform.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL021TOP
PROGRAM /PWS/SAPMZYGL021 MESSAGE-ID /pws/zyglm.
CONTROLS: TC_TABELA TYPE TABLEVIEW USING SCREEN '0102',
TC_TAB29 TYPE TABLEVIEW USING SCREEN '0200',
TC_TAB29_C TYPE TABLEVIEW USING SCREEN '0210',
TC_TAB30 TYPE TABLEVIEW USING SCREEN '0300',
TC_TAB30_C TYPE TABLEVIEW USING SCREEN '0310'.
* >> Início da exclusão:
TABLES: /pws/zygle309, /pws/zyglt309,
/pws/zygle310, /pws/zyglt310,
/pws/zycit029, /pws/zycie029,
/pws/zycit030, /pws/zycie030,
trdirt.
* << Fim da exclusão
* >> Início da inclusão:
TABLES: /pws/zygle309,
/pws/zyglt309,"#EC *
/pws/zygle310,
/pws/zyglt310,"#EC *
/pws/zycit029,
/pws/zycie029,
/pws/zycit030,
/pws/zycie030,
trdirt."#EC *
* << Fim da inclusão
DATA: okcode LIKE sy-ucomm ,
v_okcode like sy-ucomm ,
v_campo(40) TYPE c ,
v_valor(40) TYPE c ,
v_linha TYPE i ,
v_tcode like sy-tcode ,
v_current type i ,
v_marca like sy-tabix ,
v_marca_ult like sy-tabix ,
v_resposta(1) type c ,
v_codmod like /pws/zycit030-codmod ,
* >> Início da exclusão:
dynpronr LIKE sy-dynnr VALUE '0101' .
* << Fim da exclusão
* >> Início da inclusão:
dynpronr LIKE sy-dynnr VALUE '0101' ."#EC NEEDED
* << Fim da inclusão
DATA: D_MARK(1) TYPE C,
D_TEXT(20) TYPE C,
D_BUKRS LIKE /PWS/ZYCIT030.
data: v_field(40) type c,
v_offset type i.
DATA: g_custom_container TYPE REF TO cl_gui_custom_container,
g_tree TYPE REF TO cl_gui_simple_tree ,
node_table LIKE node_str OCCURS 0 ,
node LIKE mtreesnode ,
events TYPE cntl_simple_events ,
...
...
DATA: END OF itab_zycit029_del.
DATA: BEGIN OF itab_zycit030 OCCURS 0.
INCLUDE STRUCTURE /PWS/ZYCIT030.
DATA: mark(1) type c,
modificado type c,
salvo(1) type c.
DATA: END OF itab_zycit030.
DATA: BEGIN OF itab_zycit030_del OCCURS 0.
INCLUDE STRUCTURE itab_zycit030.
DATA: END OF itab_zycit030_del.
* >> Início da exclusão:
data: begin of itab_emp occurs 1,
* << Fim da exclusão
* >> Início da inclusão:
data: begin of itab_emp occurs 1,"#EC *
* << Fim da inclusão
bukrs like t001-bukrs,
end of itab_emp.
* >> Início da exclusão:
data a001.
* << Fim da exclusão
CLASS lcl_event_click DEFINITION.
PUBLIC SECTION.
CLASS-METHODS:
select_item FOR EVENT selection_changed OF cl_gui_simple_tree
IMPORTING node_key.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL051TOP
PROGRAM /PWS/SAPMZYCI051 .
* >> Início da exclusão:
DATA: FCODE LIKE SY-TCODE,
OCODE LIKE SY-TCODE.
* << Fim da exclusão
* >> Início da inclusão:
DATA: FCODE LIKE SY-TCODE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL018
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (35 caracteres)
"Erro ao chamar parâmetros de evento"
Comprimento máximo: 35
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 004
Texto: (39 caracteres)
"Erro interno em uma classe Tree Control"
Comprimento máximo: 39
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (28 caracteres)
"Não existe mais Tree Control"
Comprimento máximo: 28
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 012
Texto: (45 caracteres)
"Definição de Grupo p/ Transação não definido."
Comprimento máximo: 45
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 014
Texto: (62 caracteres)
"Atualizar Configuração Contabilidade: Lançtos. Autom. - Regras"
Comprimento máximo: 62
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 015
Texto: (62 caracteres)
"Atualizar Configuração Contabilidade: Lançtos. Autom. - Contas"
Comprimento máximo: 62
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 017
Texto: (20 caracteres)
"Dados já existentes!"
Comprimento máximo: 37
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 020
Texto: (3 caracteres)
"Não"
Comprimento máximo: 3
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 021
Texto: (37 caracteres)
"É necessário a marcação de uma regra!"
Comprimento máximo: 37
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 023
Texto: (29 caracteres)
"caso se modifiquem as regras."
Comprimento máximo: 29
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 024
Texto: (27 caracteres)
"Deseja modificar as regras?"
Comprimento máximo: 27
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 025
Texto: (25 caracteres)
"Primeiro gravar as regras"
Comprimento máximo: 35
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 026
Texto: (37 caracteres)
"Não foi efetuada nenhuma modificação."
Comprimento máximo: 37
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 027
Texto: (36 caracteres)
"Já existe entrada com a mesma chave."
Comprimento máximo: 36
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 028
Texto: (38 caracteres)
"Posicionar cursor em uma linha válida."
Comprimento máximo: 38
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 029
Texto: (7 caracteres)
"CODAUX1"
Comprimento máximo: 7
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (7 caracteres)
"CODAUX2"
Comprimento máximo: 7
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 031
Texto: (7 caracteres)
"CODAUX3"
Comprimento máximo: 7
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 032
Texto: (30 caracteres)
"Parâmetro p/ ajuda de pesquisa"
Comprimento máximo: 30
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 033
Texto: (48 caracteres)
"(campo Modif. Ger. 1) não definido corretamente."
Comprimento máximo: 48
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 034
Texto: (48 caracteres)
"(campo Modif. Ger. 2) não definido corretamente."
Comprimento máximo: 48
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 035
Texto: (48 caracteres)
"(campo Modif. Ger. 3) não definido corretamente."
Comprimento máximo: 48
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 036
Texto: (24 caracteres)
"Valores não encontrados."
Comprimento máximo: 24
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 039
Texto: (6 caracteres)
"Centro"
Comprimento máximo: 6
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 040
Texto: (19 caracteres)
"Classe de Avaliação"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 041
Texto: (19 caracteres)
"Modificação Geral 1"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 042
Texto: (19 caracteres)
"Modificação Geral 2"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 043
Texto: (19 caracteres)
"Modificação Geral 3"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 044
Texto: (14 caracteres)
"Débito/Crédito"
Comprimento máximo: 14
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 045
Texto: (42 caracteres)
"Preenchimento mínimo da chave é requerido."
Comprimento máximo: 42
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 047
Texto: (28 caracteres)
"Deseja salvar as alterações?"
Comprimento máximo: 28
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 048
Texto: (26 caracteres)
"Confirmação de alterações."
Comprimento máximo: 26
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL020
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 017
Texto: (22 caracteres)
"Classificação Contábil"
Comprimento máximo: 22
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 018
Texto: (39 caracteres)
"Classificação Contábil Objeto Resultado"
Comprimento máximo: 39