CE PLUS - Nota 006035
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 26/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:49:43
Descrição da Nota: CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, CAMBIO
Sintoma
performance, sintaxe
Solução
code inspector e verificação ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06035 Data: 26/02/2008 Hora: 14:46:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06035
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:
CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYGL007 0120
RELE F6DK958369 20080226 143926 PWSCB
REPS /PWS/MZYGL007F01
REPS /PWS/MZYGL007F02
REPS /PWS/MZYGL007I01
REPS /PWS/MZYGL007O01
REPS /PWS/MZYGL007TOP
REPS /PWS/MZYGL015F01
REPS /PWS/MZYGL015I01
REPS /PWS/MZYGL015O01
REPS /PWS/MZYGL015TOP
REPS /PWS/MZYGL344F01
REPS /PWS/MZYGL344TOP
REPS /PWS/MZYGLT355F01
REPS /PWS/MZYGLT355I01
REPS /PWS/MZYGLT355O01
REPS /PWS/MZYGLT355TOP
REPS /PWS/MZYGLT362I01
REPS /PWS/MZYGLT362O01
REPT /PWS/SAPMZYGL007
REPT /PWS/SAPMZYGL015
REPT /PWS/SAPMZYGLT355
REPT /PWS/SAPMZYGLT362
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYGL007 0120
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958369 20080226 143926 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007F01
FORM pega_descricao_dominio USING value(p_objeto)
value(p_valor)
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
CHANGING p_retorno.
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
CHANGING p_retorno."#EC *
* << Fim da inclusão
DATA: wa_dd03l LIKE dd03l.
DATA: BEGIN OF itab_dd07t OCCURS 5.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
DATA: tablename LIKE dd03l-tabname,
fieldname LIKE dd03l-fieldname.
SPLIT p_objeto AT '-' INTO tablename fieldname.
IF sy-subrc NE 0.
EXIT.
ENDIF.
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
SELECT *
* << Fim da inclusão
FROM dd03l
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_dd03l
WHERE ( tabname = tablename AND
fieldname = fieldname ).
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM dd07t
INTO TABLE itab_dd07t
WHERE domname = wa_dd03l-domname AND
ddlanguage = sy-langu(1).
IF sy-subrc = 0.
READ TABLE itab_dd07t WITH KEY domvalue_l = p_valor.
IF sy-subrc EQ 0.
p_retorno = itab_dd07t-ddtext.
ELSE.
LOOP AT itab_dd07t WHERE domvalue_l IS initial.
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
IF p_valor GE itab_dd07t-domval_ld AND
p_valor LE itab_dd07t-domval_hd.
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
IF p_valor GE itab_dd07t-domval_ld AND "#EC *
p_valor LE itab_dd07t-domval_hd. "#EC *
* << Fim da inclusão
p_retorno = itab_dd07t-ddtext.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007F02
...
PERFORM help_imp_fin_gerais.
PERFORM help_imp_fin_importacao.
PERFORM help_imp_fin_financeiro.
PERFORM help_imp_fin_viagens.
PERFORM help_imp_fin_boleto.
ENDFORM.
FORM get_information USING p_lang
p_text
p_colum
p_row
* >> Início da exclusão: FORM GET_INFORMATION
p_obj LIKE dokhl-object.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INFORMATION
p_obj LIKE dokhl-object."#EC *
* << Fim da inclusão
CALL FUNCTION 'POPUP_DISPLAY_TEXT'
EXPORTING
language = p_lang
popup_title = p_text
start_column = p_colum
start_row = p_row
text_object = p_obj
EXCEPTIONS
text_not_found = 1
* >> Início da exclusão: FORM GET_INFORMATION
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INFORMATION
OTHERS = 2."#EC *
* << Fim da inclusão
IF sy-subrc <> 0.
MESSAGE i015 WITH text-019.
ENDIF.
ENDFORM.
FORM help_exp_corretagem.
CASE v_campo.
WHEN '/PWS/ZYCBT007-PTAX'.
PERFORM get_information USING sy-langu
text-010
10
...
...
10
3
'/PWS/ZYCBT089-NUM_SELECAO' .
ENDCASE.
ENDFORM.
FORM identifica_usuario.
DATA: v_var(100) TYPE c.
SELECT SINGLE *
FROM usr21
WHERE bname EQ sy-uname.
* >> Início da exclusão: FORM IDENTIFICA_USUARIO
SELECT SINGLE * FROM v_adrp_cp CLIENT SPECIFIED
* << Fim da exclusão
* >> Início da inclusão: FORM IDENTIFICA_USUARIO
SELECT * FROM v_adrp_cp CLIENT SPECIFIED
up to 1 rows
* << Fim da inclusão
WHERE client = sy-mandt
AND persnumber = usr21-persnumber
AND addrnumber = usr21-addrnumber.
* >> Início da inclusão: FORM IDENTIFICA_USUARIO
ENDSELECT.
* << Fim da inclusão
CONCATENATE sy-uname v_adrp_cp-department wa_zyglt009-user_modif
INTO
v_var
SEPARATED BY ' - '.
WRITE v_var TO v_usuario2.
ENDFORM.
FORM nome_usuario.
CALL FUNCTION 'GUI_GET_DESKTOP_INFO'
EXPORTING
type = 5
CHANGING
* >> Início da exclusão: FORM NOME_USUARIO
return = v_name.
* << Fim da exclusão
* >> Início da inclusão: FORM NOME_USUARIO
return = v_name."#EC *
* << Fim da inclusão
ENDFORM.
FORM help_imp_fin_viagens.
CASE v_campo.
WHEN 'V_VIAGEMTV1' OR 'V_VIAGEMTV2'.
PERFORM get_information USING sy-langu
text-053
10
3
'/PWS/Z_ZYCBT007_VIAGEMTV'.
WHEN 'V_FUNCFORN1' OR 'V_FUNCFORN2'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007I01
...
wa_zycbt089 NE wa_zycbt089_aux.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-007
textline1 = text-008
titel = text-009
IMPORTING
answer = v_resposta
EXCEPTIONS
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
OTHERS = 0."#EC *
* << Fim da inclusão
IF v_resposta EQ 'J'.
MOVE: sy-uname TO wa_zyglt009-user_ultmodif,
sy-datum TO wa_zyglt009-data_ultmodif,
sy-uzeit TO wa_zyglt009-hora_ultmodif.
MODIFY /pws/zycbt007 FROM wa_zycbt007.
MODIFY /pws/zycbt089 FROM wa_zycbt089.
MODIFY /pws/zyglt009 FROM wa_zyglt009.
COMMIT WORK.
PERFORM unlock_record.
LEAVE PROGRAM.
...
...
wa_zycbt089 NE wa_zycbt089_aux.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-007
textline1 = text-008
titel = text-009
IMPORTING
answer = v_resposta
EXCEPTIONS
* >> Início da exclusão: MODULE USER_COMMAND_0100
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
OTHERS = 0.
* << Fim da inclusão
IF v_resposta EQ 'J'.
MOVE: sy-uname TO wa_zyglt009-user_ultmodif,
sy-datum TO wa_zyglt009-data_ultmodif,
sy-uzeit TO wa_zyglt009-hora_ultmodif.
PERFORM nome_usuario.
wa_zyglt009-user_save = v_name.
MODIFY /pws/zycbt007 FROM wa_zycbt007.
MODIFY /pws/zycbt089 FROM wa_zycbt089.
MODIFY /pws/zyglt009 FROM wa_zyglt009.
COMMIT WORK.
...
...
ELSEIF v_contpa3 = 'X'.
/pws/zyglt009-contpa = 'Y'.
ENDIF.
IF v_auto1 = 'X'.
/pws/zycbt007-saida_auto = 'X'.
ELSE.
CLEAR /pws/zycbt007-saida_auto.
ENDIF.
MOVE v_me TO /pws/zycbt007-flag_me.
ENDMODULE.
* >> Início da exclusão: MODULE SET_CAMPOS_104
MODULE set_campos_104 INPUT.
ENDMODULE.
* << Fim da exclusão
MODULE carrega_ok_code INPUT.
ok_code = sy-ucomm.
ENDMODULE.
MODULE set_screen_109 INPUT.
IF v_fprovisao1 = 'X'.
CLEAR /pws/zycbt007-fprovisao.
ELSEIF v_fprovisao2 = 'X'.
/pws/zycbt007-fprovisao = 'C'.
ENDIF.
IF v_dtest1 = 'X'.
...
...
/pws/zycbt089-controle_ov = 'X'.
ELSEIF v_ctrl_ov2 = 'X'.
CLEAR /pws/zycbt089-controle_ov.
ENDIF.
IF v_ov_obrig1 = 'X'.
/pws/zycbt089-cpo_ov_obrig = 'X'.
ELSEIF v_ov_obrig2 = 'X'.
CLEAR /pws/zycbt089-cpo_ov_obrig.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE SET_CAMPOS134
MODULE set_campos134 INPUT.
ENDMODULE.
* << Fim da exclusão
MODULE set_tpconta INPUT.
IF v_contaimp1 EQ 'X'.
MOVE '1' TO /pws/zyglt009-cont_impostos.
ELSEIF v_contaimp2 EQ 'X'.
MOVE '2' TO /pws/zyglt009-cont_impostos.
ELSEIF v_contaimp3 EQ 'X'.
MOVE '3' TO /pws/zyglt009-cont_impostos.
ENDIF.
ENDMODULE.
MODULE consiste_retencao INPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007O01
...
ENDMODULE.
MODULE set_fdtdoc OUTPUT.
IF wa_zycbt007-fdtdoc = 'L'.
v_fdtdoc1 = 'X'.
CLEAR v_fdtdoc2.
ELSEIF wa_zycbt007-fdtdoc = 'D'.
v_fdtdoc2 = 'X'.
CLEAR v_fdtdoc1.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE SET_CONTBRL
MODULE set_contbrl OUTPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_CONTBRL
MODULE set_contbrl OUTPUT."#EC *
* << Fim da inclusão
IF /pws/zyglt009-contbrl = 'X'.
v_contbrl1 = 'X'.
CLEAR v_contbrl2.
ELSE.
v_contbrl2 = 'X'.
CLEAR v_contbrl1.
ENDIF.
ENDMODULE.
MODULE set_infotext OUTPUT.
IF /pws/zyglt009-infotext = 'X'.
...
...
MOVE 'X' TO v_me.
ENDIF.
IF /pws/zyglt009-cont_impostos EQ '1'.
MOVE 'X' TO v_contaimp1.
ELSEIF /pws/zyglt009-cont_impostos EQ '2'.
MOVE 'X' TO v_contaimp2.
ELSEIF /pws/zyglt009-cont_impostos EQ '3'.
MOVE 'X' TO v_contaimp3.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE SET_CAMPOS_104
MODULE set_campos_104 OUTPUT.
ENDMODULE.
* << Fim da exclusão
MODULE set_screen_109 OUTPUT.
IF /pws/zycbt007-fprovisao = ' '.
v_fprovisao1 = 'X'.
CLEAR v_fprovisao2.
ELSEIF /pws/zycbt007-fprovisao = 'C'.
v_fprovisao2 = 'X'.
CLEAR v_fprovisao1.
ENDIF.
CLEAR: v_dataestorno1,
v_dataestorno2,
...
...
CLEAR v_eletro1.
ENDIF.
ENDMODULE.
MODULE set_bx_cli OUTPUT.
IF v_bx_cli1 = 'X'.
/pws/zycbt089-bx_cli_vinc = 'X'.
ELSEIF v_bx_cli2 = 'X'.
CLEAR /pws/zycbt089-bx_cli_vinc.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE BOX_EMPRESA
MODULE box_empresa OUTPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE BOX_EMPRESA
MODULE box_empresa OUTPUT."#EC *
* << Fim da inclusão
CALL SCREEN 0200.
ENDMODULE.
MODULE status_0200 OUTPUT.
SET PF-STATUS '0200'.
SET TITLEBAR 'TL0001' WITH text-087.
ENDMODULE.
* >> Início da exclusão: MODULE USER_COMMAND_0200
MODULE user_command_0200 OUTPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
MODULE user_command_0200 OUTPUT."#EC *
* << Fim da inclusão
CASE sy-ucomm.
WHEN 'ENTER'.
WHEN 'CANCEL'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
MODULE set_cfm OUTPUT.
IF /pws/zycbt007-cfm = 'X'.
v_cfm1 = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007TOP
...
v_reg_usado,
v_empresa(100) TYPE c,
v_j_1bbranch(100) TYPE c,
v_werks(100) TYPE c,
v_plcontas(100) TYPE c,
v_waersb(100) TYPE c,
v_waersa(100) TYPE c,
v_ktokk(100) TYPE c,
v_percorr(100) TYPE c,
v_perencer(100) TYPE c,
* >> Início da exclusão:
v_liqcp(100) TYPE c,
* << Fim da exclusão
v_waers_canc(100) TYPE c,
v_fdivisao(100) TYPE c,
v_divisao(100) TYPE c,
v_waers_corr(100) TYPE c,
v_fdtdoc1 TYPE c,
v_fdtdoc2 TYPE c,
v_fprovisao1 TYPE c,
v_fprovisao2 TYPE c,
v_dtest1 TYPE c,
v_dtest2 TYPE c,
v_dtest3 TYPE c,
v_dtest4 TYPE c,
v_contbrl1 TYPE c,
v_contbrl2 TYPE c,
v_compempr1 TYPE c,
v_compempr2 TYPE c,
v_infotext1 TYPE c,
v_infotext2 TYPE c,
* >> Início da exclusão:
v_dtvincul1 TYPE c,
v_dtvincul2 TYPE c,
v_dtliquid1 TYPE c,
v_dtliquid2 TYPE c,
v_dtliquidcp1 TYPE c,
v_dtliquidcp2 TYPE c,
v_dtliquidcp3 TYPE c,
v_dtliquidcp4 TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
v_dtvincul1 TYPE c,"#EC NEEDED
v_dtvincul2 TYPE c,"#EC NEEDED
v_dtliquid1 TYPE c,"#EC NEEDED
v_dtliquid2 TYPE c,"#EC NEEDED
v_dtliquidcp1 TYPE c,"#EC NEEDED
v_dtliquidcp2 TYPE c,"#EC NEEDED
v_dtliquidcp3 TYPE c,"#EC NEEDED
v_dtliquidcp4 TYPE c,"#EC NEEDED
* << Fim da inclusão
v_dtjuros1 TYPE c,
v_dtjuros2 TYPE c,
v_dtjuros3 TYPE c,
v_proliquid1 TYPE c,
v_proliquid2 TYPE c,
v_aviso1 TYPE c,
v_aviso2 TYPE c,
v_comis1 TYPE c,
v_comis2 TYPE c,
v_comis3 TYPE c,
...
...
v_liq_cp2 TYPE c,
v_dtefet1 TYPE c,
v_dtefet2 TYPE c,
v_dtefet3 TYPE c,
v_fdivisao1 TYPE c,
v_fdivisao2 TYPE c,
v_dacc1 TYPE c,
v_dacc2 TYPE c,
v_docprov1 TYPE c,
v_docprov2 TYPE c,
* >> Início da exclusão:
modul(30) TYPE c VALUE '/PWS/SAPMZYGL007',
* << Fim da exclusão
* >> Início da inclusão:
modul(30) TYPE c VALUE '/PWS/SAPMZYGL007', "#EC *
* << Fim da inclusão
ok_code LIKE sy-ucomm,
v_resposta(1) TYPE c,
v_ftransf1 TYPE c,
v_ftransf2 TYPE c,
v_fltxt1 TYPE c,
v_fltxt2 TYPE c,
v_fpredicao1 TYPE c,
v_fpredicao2 TYPE c,
v_cont_canc1 TYPE c,
v_cont_canc2 TYPE c,
...
...
v_calc_rot_sep2 TYPE c,
v_cont_rot_sep1 TYPE c,
v_cont_rot_sep2 TYPE c,
v_tx_transf_lpcp1 TYPE c,
v_tx_transf_lpcp2 TYPE c,
v_provjur_moeda1 TYPE c,
v_provjur_moeda2 TYPE c,
v_campo(100) TYPE c,
v_usuario2(100) TYPE c,
v_name(100) TYPE c,
* >> Início da exclusão:
v_name_aux(100) TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
v_name_aux(100) TYPE c,"#EC NEEDED
* << Fim da inclusão
v_forn_rec_fed(35) TYPE c,
v_eletro1 TYPE c,
v_eletro2 TYPE c,
v_est_var1 TYPE c,
v_est_var2 TYPE c,
v_f_cont_canc1 TYPE c,
v_f_cont_canc2 TYPE c,
v_bx_cli1 TYPE c,
v_bx_cli2 TYPE c,
v_bx_pdd_1 TYPE c,
...
...
v_ov_obrig1 TYPE c,
v_ov_obrig2 TYPE c,
v_averb_re_n TYPE c,
v_averb_re_s TYPE c,
ref_emb TYPE c,
ref_fat TYPE c,
v_dr_sim TYPE c,
v_dr_nao TYPE c,
v_me TYPE c,
v_mi TYPE c,
* >> Início da exclusão:
v_dt_cred_vinc TYPE c,
* << Fim da exclusão
v_contaimp1(1) TYPE c,
v_contaimp2(1) TYPE c,
v_contaimp3(1) TYPE c,
v_prov_prem(1) TYPE c,
v_prov_prem2(1) TYPE c,
v_conts(1) TYPE c,
v_contn(1) TYPE c,
v_cc1(1) TYPE c,
v_cc2(1) TYPE c,
v_lei(30),
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL015F01
...
screen-input = '0'.
endif.
endif.
if v_novo = 'X'.
screen-input = '1'.
endif.
modify screen.
endloop.
clear v_novo.
endform.
* >> Início da exclusão: FORM SALVA_REGISTRO
form salva_registro.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_REGISTRO
form salva_registro."#EC CALLED
* << Fim da inclusão
clear itab_zyglt326_aux.
refresh itab_zyglt326_aux.
select * from /pws/zyglt326
into table itab_zyglt326_aux
where cod_fech = itab_zyglt326-cod_fech.
loop at itab_zyglt326_aux.
move itab_zyglt326-tp_fech to itab_zyglt326_aux-tp_fech.
modify itab_zyglt326_aux.
clear /pws/zyglt326.
move-corresponding itab_zyglt326_aux to /pws/zyglt326.
...
...
okcode = okcode_aux.
message i000 with text-009.
endform.
form call_ucomm_abort.
perform free_tree.
leave program.
endform.
form fill_nodes.
refresh: node_table.
if itab_zyglt326[] is initial.
* >> Início da exclusão: FORM FILL_NODES
select * from /pws/zyglt326 into table itab_zyglt326.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_NODES
select * from /pws/zyglt326 into table itab_zyglt326."#EC CI_NOWHERE
* << Fim da inclusão
sort itab_zyglt326 by cod_fech.
endif.
clear node.
node-node_key = text-003.
node-isfolder = 'X'.
node-text = text-004.
node-dragdropid = ' '.
append node to node_table.
loop at itab_zyglt326.
clear node.
...
...
move wa_zyglt326 to /pws/zygle326.
v_status_s = '0'.
when 'A' .
v_status_s = '1'.
when others.
v_status_s = '0'.
endcase.
endif.
endform.
form popup_message using value(p_textline1)
* >> Início da exclusão: FORM POPUP_MESSAGE
value(p_titel).
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
value(p_titel)."#EC *
* << Fim da inclusão
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
textline1 = p_textline1
titel = p_titel
importing
answer = v_answer
exceptions
* >> Início da exclusão: FORM POPUP_MESSAGE
others = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
others = 0."#EC *
* << Fim da inclusão
endform.
form save_changes.
if /pws/zygle326 ne wa_zyglt326.
update /pws/zyglt326 set tp_fech = /pws/zygle326-tp_fech
where cod_fech = /pws/zygle326-cod_fech.
if sy-subrc ne 0 .
insert into /pws/zyglt326 values /pws/zygle326 .
commit work.
endif.
v_status_s = 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL015I01
...
endcase.
clear okcode.
endif.
endmodule.
module user_command_0001_exit input.
case okcode.
when 'ABORT'.
perform call_ucomm_abort.
endcase.
endmodule.
* >> Início da exclusão: MODULE USER_COMMAND_0003
module user_command_0003 input.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0003
module user_command_0003 input."#EC *
* << Fim da inclusão
case okcode.
when 'BACK'.
perform call_ucomm_back.
when 'AEND'.
perform change_status.
when 'DELE'.
perform exclui_reg.
when 'SAVE'.
perform save_changes.
when 'NOVO'.
perform criar.
endcase.
clear okcode.
endmodule.
* >> Início da exclusão: MODULE CARREGA_CAMPOS
module carrega_campos input.
read table itab_zyglt326 with key cod_fech = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_CAMPOS
module carrega_campos input."#EC *
read table itab_zyglt326 with key cod_fech = node-node_key."#EC *
* << Fim da inclusão
move itab_zyglt326 to /pws/zyglt326.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL015O01
...
MODULE set_objects OUTPUT.
PERFORM load_tree_control.
if sy-ucomm ne 'ENTE'.
MOVE /pws/zygle326 TO wa_zyglt326.
endif.
ENDMODULE.
MODULE status_0003 OUTPUT.
PERFORM trata_campos.
v_tela = 'X'.
ENDMODULE.
* >> Início da exclusão: MODULE CARREGA_CAMPOS
MODULE carrega_campos OUTPUT.
READ TABLE itab_zyglt326 WITH KEY cod_fech = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_CAMPOS
MODULE carrega_campos OUTPUT."#EC *
READ TABLE itab_zyglt326 WITH KEY cod_fech = node-node_key."#EC *
* << Fim da inclusão
MOVE itab_zyglt326 TO /pws/zyglt326.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL015TOP
PROGRAM /PWS/SAPMZYGL011 MESSAGE-ID /pws/zyglm.
tables : /pws/zyglt326, /pws/zygle326.
DATA: BEGIN OF itab_zyglt326 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt326.
DATA: END OF itab_zyglt326.
DATA: BEGIN OF itab_zyglt326_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt326.
DATA: END OF itab_zyglt326_aux.
* >> Início da exclusão:
DATA: BEGIN OF it_botoes OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF it_botoes OCCURS 0,"#EC NEEDED
* << Fim da inclusão
nome(35) TYPE c,
END OF it_botoes.
data: wa_zyglt326 like /pws/zyglt326.
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 ,
okcode LIKE sy-ucomm ,
okcode_aux LIKE sy-ucomm ,
dynpronr LIKE sy-dynnr VALUE '0002' ,
* >> Início da exclusão:
v_linha TYPE i ,
v_pos TYPE i ,
v_visivel,
* << Fim da exclusão
v_status_s ,
v_answer ,
v_tela .
data v_novo.
CLASS lcl_event_click DEFINITION.
PUBLIC SECTION.
CLASS-METHODS:
select_item FOR EVENT selection_changed OF cl_gui_simple_tree
IMPORTING node_key.
ENDCLASS.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL344F01
...
ITAB_PF_STATUS-FCODE = 'DEL'.
APPEND ITAB_PF_STATUS.
ITAB_PF_STATUS-FCODE = 'MARC'.
APPEND ITAB_PF_STATUS.
ITAB_PF_STATUS-FCODE = 'DMARC'.
APPEND ITAB_PF_STATUS.
V_TITLE = '100_E'.
ELSE.
V_TITLE = '100'.
ENDIF.
* >> Início da exclusão: FORM SETA_STATUS_0100
SET PF-STATUS '0100' EXCLUDING ITAB_PF_STATUS..
* << Fim da exclusão
* >> Início da inclusão: FORM SETA_STATUS_0100
SET PF-STATUS '0100' EXCLUDING ITAB_PF_STATUS.
* << Fim da inclusão
SET TITLEBAR V_TITLE.
ENDFORM.
FORM ATUALIZA_TELA_0100.
MOVE-CORRESPONDING ITAB_ZYGLT368 TO /PWS/ZYGLE368.
MOVE ITAB_ZYGLT368-MARC TO MARC.
ENDFORM.
FORM ATUALIZA_ITAB_0100.
READ TABLE ITAB_ZYGLT368 INDEX TCONTROL1-CURRENT_LINE.
MOVE-CORRESPONDING /PWS/ZYGLE368 TO ITAB_ZYGLT368.
MOVE V_EMP TO ITAB_ZYGLT368-BUKRS.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL344TOP
PROGRAM /PWS/SAPMZYGL344 MESSAGE-ID /PWS/ZYGLM.
TABLES: /PWS/ZYGLT368,
/PWS/ZYGLE368.
CONTROLS TCONTROL1 TYPE TABLEVIEW USING SCREEN '0100'.
* >> Início da exclusão:
DATA: WA_ZYGLT368 LIKE /PWS/ZYGLT368,
* << Fim da exclusão
* >> Início da inclusão:
DATA:
* << Fim da inclusão
WA_COLS TYPE CXTAB_COLUMN.
DATA: BEGIN OF ITAB_ZYGLT368 OCCURS 0.
INCLUDE STRUCTURE /PWS/ZYGLT368.
DATA: MARC.
DATA: END OF ITAB_ZYGLT368.
DATA: ITAB_ZYGLT368E LIKE ITAB_ZYGLT368 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF ITAB_PF_STATUS OCCURS 10,
FCODE LIKE RSMPE-FUNC,
END OF ITAB_PF_STATUS.
DATA: OK_CODE LIKE SY-UCOMM,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT355F01
...
itab_zyglt355-versao TO itab_zyglt355_dele-versao ,
itab_zyglt355-avisopg TO itab_zyglt355_dele-avisopg,
itab_zyglt355-versaolote to itab_zyglt355_dele-versaolote,
itab_zyglt355-flag TO itab_zyglt355_dele-flag .
APPEND itab_zyglt355_dele.
ENDIF.
ENDLOOP.
DELETE itab_zyglt355 WHERE mark = 'X'.
ENDFORM.
FORM popup_message USING value(p_textline1)
* >> Início da exclusão: FORM POPUP_MESSAGE
value(p_titel).
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
value(p_titel)."#EC *
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = p_textline1
titel = p_titel
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM POPUP_MESSAGE
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
OTHERS = 0."#EC *
* << Fim da inclusão
ENDFORM.
FORM rolagem.
DATA: v_sobre(1) TYPE c VALUE 'X'.
DESCRIBE TABLE itab_zyglt355 LINES v_lines.
IF v_lines = 0.
EXIT.
ENDIF.
CALL FUNCTION 'SCROLLING_IN_TABLE'
EXPORTING
entry_to = v_lines
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT355I01
...
/pws/zygle355-versaolote TO itab_zyglt355-versaolote .
IF itab_zyglt355-flag <> 'A'.
MOVE: 'N' TO itab_zyglt355-flag.
ENDIF.
MODIFY itab_zyglt355 INDEX tc_data-current_line.
IF sy-subrc NE 0.
APPEND itab_zyglt355.
ENDIF.
ENDMODULE.
MODULE deleta_duplicados INPUT.
* >> Início da exclusão: MODULE DELETA_DUPLICADOS
DATA: v_var1(10) TYPE c,
v_var2(10) TYPE c,
v_var3 TYPE i,
* << Fim da exclusão
* >> Início da inclusão: MODULE DELETA_DUPLICADOS
DATA: v_var1(10) TYPE n,
v_var2(10) TYPE n,
v_var3 TYPE n,
* << Fim da inclusão
wa_temp LIKE itab_zyglt355.
CLEAR: v_var1,
v_var2,
v_var3.
DESCRIBE TABLE itab_zyglt355 LINES v_var3.
SORT itab_zyglt355 BY land1 hbkid flag.
LOOP AT itab_zyglt355.
v_var1 = sy-tabix + 1.
READ TABLE itab_zyglt355 INDEX v_var1 INTO wa_temp.
IF itab_zyglt355-land1 = wa_temp-land1 AND
...
...
APPEND f_tab.
CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
EXPORTING
display = ' '
fieldname = 'HBKID'
tabname = '/PWS/ZYGLT355'
IMPORTING
select_value = value
TABLES
valuetab = v_tab
* >> Início da exclusão: MODULE P100_VALUE
fields = f_tab.
* << Fim da exclusão
* >> Início da inclusão: MODULE P100_VALUE
fields = f_tab."#EC *
* << Fim da inclusão
v_tam = strlen( value ).
CLEAR v_cont.
DO v_tam TIMES.
IF value+v_cont(1) <> '/'.
CONCATENATE /pws/zygle355-hbkid value+v_cont(1)
INTO /pws/zygle355-hbkid.
ENDIF.
v_cont = v_cont + 1.
ENDDO.
ENDMODULE.
* >> Início da exclusão: MODULE AJUDA_TABLE
MODULE ajuda_table INPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE AJUDA_TABLE
MODULE ajuda_table INPUT."#EC *
* << Fim da inclusão
SELECT hbkid bankl banks
FROM t012
INTO TABLE itab_t012
* >> Início da exclusão: MODULE AJUDA_TABLE
WHERE banks = /pws/zygle355-land1.
* << Fim da exclusão
* >> Início da inclusão: MODULE AJUDA_TABLE
WHERE banks = /pws/zygle355-land1."#EC CI_GENBUFF
* << Fim da inclusão
IF NOT itab_t012[] IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT355O01
...
MODULE seleciona_dados OUTPUT.
DATA: v_var(1) TYPE c.
CLEAR: itab_t012,
itab_bnka.
REFRESH: itab_t012,
itab_bnka.
IF itab_zyglt355[] IS INITIAL AND
itab_zyglt355_dele[] IS INITIAL.
SELECT mandt land1 hbkid versao avisopg versaolote
FROM /pws/zyglt355
* >> Início da exclusão: MODULE SELECIONA_DADOS
INTO TABLE itab_zyglt355.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_DADOS
INTO TABLE itab_zyglt355."#EC CI_NOWHERE
* << Fim da inclusão
v_var = 'A'.
LOOP AT itab_zyglt355.
MOVE: v_var TO itab_zyglt355-flag.
MODIFY itab_zyglt355.
ENDLOOP.
CLEAR v_var.
ENDIF.
IF NOT itab_zyglt355[] IS INITIAL.
SELECT hbkid bankl banks
FROM t012
INTO TABLE itab_t012
FOR ALL ENTRIES IN itab_zyglt355
WHERE hbkid = itab_zyglt355-hbkid
* >> Início da exclusão: MODULE SELECIONA_DADOS
AND banks = itab_zyglt355-land1.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_DADOS
AND banks = itab_zyglt355-land1."#EC CI_GENBUFF
* << Fim da inclusão
IF NOT itab_t012[] IS INITIAL.
SELECT bankl banks banka
FROM bnka
INTO TABLE itab_bnka
FOR ALL ENTRIES IN itab_t012
WHERE bankl = itab_t012-bankl
AND banks = itab_t012-banks.
ENDIF.
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT355TOP
PROGRAM /pws/sapmzyglt355
MESSAGE-ID /pws/zycbm
NO STANDARD PAGE HEADING.
TABLES:
/pws/zyglt355,
/pws/zygle355,
bnka ,
* >> Início da exclusão:
t012.
* << Fim da exclusão
* >> Início da inclusão:
t012."#EC *
* << Fim da inclusão
DATA:
BEGIN OF itab_zyglt355 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt355.
DATA: mark ,
flag(1) TYPE c ,
END OF itab_zyglt355,
BEGIN OF itab_zyglt355_dele OCCURS 0,
land1 LIKE /pws/zyglt355-land1 ,
hbkid LIKE /pws/zyglt355-hbkid ,
versao LIKE /pws/zyglt355-versao ,
...
...
BEGIN OF itab_t012 OCCURS 0,
hbkid LIKE t012-hbkid,
bankl LIKE t012-bankl,
banks LIKE t012-banks,
END OF itab_t012,
BEGIN OF itab_bnka OCCURS 0,
bankl LIKE bnka-bankl,
banks LIKE bnka-banks,
banka LIKE bnka-banka,
END OF itab_bnka.
* >> Início da exclusão:
DATA: wa_zyglt355 LIKE /pws/zyglt355.
* << Fim da exclusão
* >> Início da inclusão:
DATA: wa_zyglt355 LIKE /pws/zyglt355."#EC NEEDED
* << Fim da inclusão
CONTROLS:
tc_data TYPE TABLEVIEW USING SCREEN '0100'.
DATA:
okcode LIKE sy-ucomm,
nextline TYPE i ,
v_lines TYPE i ,
* >> Início da exclusão:
v_answer ,
* << Fim da exclusão
* >> Início da inclusão:
v_answer ,"#EC NEEDED
* << Fim da inclusão
v_posi(50) ,
v_reg_usado,
v_status.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT362I01
...
/pws/zygle362-texto TO itab_zyglt362-texto.
IF itab_zyglt362-flag <> 'A'.
MOVE: 'N' TO itab_zyglt362-flag.
ENDIF.
MODIFY itab_zyglt362 INDEX tc_data-current_line.
IF sy-subrc <> 0.
APPEND itab_zyglt362.
ENDIF.
ENDMODULE.
MODULE delete_duplicates INPUT.
* >> Início da exclusão: MODULE DELETE_DUPLICATES
DATA: v_var1(10) TYPE c,
v_var2(10) TYPE c,
v_var3 TYPE i,
* << Fim da exclusão
* >> Início da inclusão: MODULE DELETE_DUPLICATES
DATA: v_var1(10) TYPE n,
v_var2(10) TYPE n,
v_var3 TYPE n,
* << Fim da inclusão
wa_temp LIKE itab_zyglt362.
CLEAR: v_var1,
v_var2,
v_var3.
DESCRIBE TABLE itab_zyglt362 LINES v_var3.
SORT itab_zyglt362 BY linha flag.
LOOP AT itab_zyglt362.
v_var1 = sy-tabix + 1.
READ TABLE itab_zyglt362 INDEX v_var1 INTO wa_temp.
IF itab_zyglt362-linha = wa_temp-linha AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT362O01
MODULE seleciona_dados OUTPUT.
IF itab_zyglt362 IS INITIAL AND
itab_zyglt362_dele[] IS INITIAL.
SELECT * FROM /pws/zyglt362
* >> Início da exclusão: MODULE SELECIONA_DADOS
INTO TABLE itab_zyglt362.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_DADOS
INTO TABLE itab_zyglt362."#EC CI_NOWHERE
* << Fim da inclusão
LOOP AT itab_zyglt362.
MOVE: 'A' TO itab_zyglt362-flag.
ENDLOOP.
ENDIF.
CLEAR v_screen.
ENDMODULE.
MODULE move_para_tc OUTPUT.
MOVE: itab_zyglt362-linha TO /pws/zygle362-linha,
itab_zyglt362-texto TO /pws/zygle362-texto.
tc_data-lines = tc_data-lines + 2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL007
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (42 caracteres)
"Registro já existe. Criação não permitida."
Comprimento máximo: 42
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 050
Texto: (9 caracteres)
"Terminal:"
Comprimento máximo: 9
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 059
Texto: (34 caracteres)
"Associação Fornecedores Diferentes"
Comprimento máximo: 34
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 081
Texto: (34 caracteres)
"Motivo Estorno Período Determinado"
Comprimento máximo: 34
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 086
Texto: (51 caracteres)
"Pasta Temporária para Arquivo Remessa Banco Empresa"
Comprimento máximo: 51
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 091
Texto: (18 caracteres)
"Data de lançamento"
Comprimento máximo: 18
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 092
Texto: (27 caracteres)
"Data de crédito no exterior"
Comprimento máximo: 27
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 093
Texto: (23 caracteres)
"Data de disponibilidade"
Comprimento máximo: 23
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL015
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 010
Texto: (38 caracteres)
"Posicionar o cursor em uma das linhas."
Comprimento máximo: 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGLT355
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 002
Texto: (39 caracteres)
"Deseja realmente excluir a(s) linha(s)?"
Comprimento máximo: 39
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (11 caracteres)
"Confirmação"
Comprimento máximo: 11
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (26 caracteres)
"Favor preencher campo Pais"
Comprimento máximo: 26
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (27 caracteres)
"Favor Preencher Campo Banco"
Comprimento máximo: 27
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 009
Texto: (33 caracteres)
"Deseja realmente salvar os dados?"
Comprimento máximo: 33
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGLT362
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (0 caracteres)
Comprimento máximo: 132