CE PLUS - Nota 006072
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 29/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:53:44
Descrição da Nota: CB - 443628 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
Sintoma
CB - 443628 - Code Inspector e Verificação Ampliada
Solução
CB - 443628 - Code Inspector e Verificação Ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06072 Data: 29/02/2008 Hora: 11:27:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06072
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:
CB - 443628 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CB - 443628 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK958669 20080229 112231 PWSCB
REPS /PWS/MZYGL014F01
REPS /PWS/MZYGL014I01
REPS /PWS/MZYGL014TOP
REPS /PWS/MZYGL016F01
REPS /PWS/MZYGL016I01
REPS /PWS/MZYGL016O01
REPS /PWS/MZYGL016TOP
REPS /PWS/MZYGL017F01
REPS /PWS/MZYGL017I01
REPS /PWS/MZYGL017O01
REPS /PWS/MZYGL017TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958669 20080229 112231 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL014F01
...
FORM popup_message USING value(p_textline1)
value(p_titel).
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.
* << Fim da inclusão
ENDFORM.
FORM pagina.
DATA: v_sobre(1) TYPE c VALUE 'X'.
DESCRIBE TABLE itab_zyglt325 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/MZYGL014I01
...
wa_temp LIKE itab_zyglt325.
CLEAR: v_var1,
v_var2,
v_var3.
DESCRIBE TABLE itab_zyglt325 LINES v_var3.
SORT itab_zyglt325 BY cod_area.
LOOP AT itab_zyglt325.
v_var1 = sy-tabix + 1.
READ TABLE itab_zyglt325 INDEX v_var1 INTO wa_temp.
IF itab_zyglt325-cod_area = wa_temp-cod_area AND
* >> Início da exclusão: MODULE DELETA_DUPLICADO
v_var1 <= v_var3.
* << Fim da exclusão
* >> Início da inclusão: MODULE DELETA_DUPLICADO
v_var1 <= v_var3."#EC PORTABLE
* << Fim da inclusão
MODIFY itab_zyglt325.
v_var2 = v_var1 - 1.
DELETE itab_zyglt325
WHERE cod_area = wa_temp-cod_area AND
flag <> 'A'.
DESCRIBE TABLE itab_zyglt325 LINES v_var3.
ENDIF.
ENDLOOP.
* >> Início da exclusão: MODULE DELETA_DUPLICADO
IF NOT v_var2 IS INITIAL AND v_var2 <= v_var3.
* << Fim da exclusão
* >> Início da inclusão: MODULE DELETA_DUPLICADO
IF NOT v_var2 IS INITIAL AND v_var2 <= v_var3."#EC PORTABLE
* << Fim da inclusão
MESSAGE i001 WITH text-009.
ENDIF.
ENDMODULE.
MODULE p100_value INPUT.
DATA: value(132) ,
v_tam TYPE i,
v_cont TYPE n.
DATA: BEGIN OF f_tab OCCURS 10.
INCLUDE STRUCTURE help_value.
DATA: END OF f_tab.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL014TOP
...
TABLES: /pws/zyglt325, /pws/zygle325.
DATA: BEGIN OF itab_zyglt325 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt325.
DATA: mark,
flag(1) TYPE c,
END OF itab_zyglt325.
DATA: BEGIN OF itab_zyglt325_dele OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt325.
DATA: mark,
END OF itab_zyglt325_dele.
* >> Início da exclusão:
DATA: BEGIN OF itab_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt325.
DATA: END OF itab_aux.
DATA: wa_zyglt325 LIKE /pws/zyglt325.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_aux OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zyglt325."#EC *
DATA: END OF itab_aux."#EC *
DATA: wa_zyglt325 LIKE /pws/zyglt325."#EC *
* << Fim da inclusão
CONTROLS: tc_tab TYPE TABLEVIEW USING SCREEN '0001'.
DATA: okcode LIKE sy-ucomm,
nextline TYPE i ,
v_lines TYPE i ,
v_answer ,
v_posi(100) ,
v_reg_usado,
v_status.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL016F01
...
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_zyglt327_aux.
refresh itab_zyglt327_aux.
select * from /pws/zyglt327
into table itab_zyglt327_aux
where cod_grupo = itab_zyglt327-cod_grupo.
loop at itab_zyglt327_aux.
move itab_zyglt327-subgrupo to itab_zyglt327_aux-subgrupo.
modify itab_zyglt327_aux.
clear /pws/zyglt327.
move-corresponding itab_zyglt327_aux to /pws/zyglt327.
...
...
form popup_message using value(p_textline1)
value(p_titel).
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.
* << Fim da inclusão
endform.
form save_changes.
if /pws/zygle327 ne wa_zyglt327.
update /pws/zyglt327 set subgrupo = /pws/zygle327-subgrupo
where cod_grupo = /pws/zygle327-cod_grupo.
if sy-subrc ne 0 .
insert into /pws/zyglt327 values /pws/zygle327 .
commit work.
endif.
v_status_s = 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL016I01
...
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_zyglt327 with key cod_grupo = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_CAMPOS
MODULE carrega_campos INPUT. "#EC *
READ TABLE itab_zyglt327 WITH KEY cod_grupo = node-node_key."#EC *
* << Fim da inclusão
move itab_zyglt327 to /pws/zyglt327.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL016O01
...
MODULE set_objects OUTPUT.
PERFORM load_tree_control.
if sy-ucomm ne 'ENTE'.
MOVE /pws/zygle327 TO wa_zyglt327.
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_zyglt327 WITH KEY cod_grupo = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_CAMPOS
MODULE carrega_campos OUTPUT."#EC *
READ TABLE itab_zyglt327 WITH KEY cod_grupo = node-node_key."#EC *
* << Fim da inclusão
MOVE itab_zyglt327 TO /pws/zyglt327.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL016TOP
PROGRAM /PWS/SAPMZYGL011 MESSAGE-ID /pws/zyglm.
tables : /pws/zyglt327, /pws/zygle327.
DATA: BEGIN OF itab_zyglt327 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt327.
DATA: END OF itab_zyglt327.
DATA: BEGIN OF itab_zyglt327_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt327.
DATA: END OF itab_zyglt327_aux.
* >> Início da exclusão:
DATA: BEGIN OF it_botoes OCCURS 0,
nome(35) TYPE c,
END OF it_botoes.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF it_botoes OCCURS 0, "#EC *
nome(35) TYPE c, "#EC *
END OF it_botoes. "#EC *
* << Fim da inclusão
data: wa_zyglt327 like /pws/zyglt327.
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
* >> Início da inclusão:
v_linha TYPE i , "#EC *
v_pos TYPE i , "#EC *
v_visivel, "#EC *
* << Fim da inclusã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/MZYGL017F01
...
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_zyglt328_aux.
refresh itab_zyglt328_aux.
select * from /pws/zyglt328
into table itab_zyglt328_aux
where campo = itab_zyglt328-campo.
loop at itab_zyglt328_aux.
move itab_zyglt328-ELEMENTO to itab_zyglt328_aux-ELEMENTO.
modify itab_zyglt328_aux.
clear /pws/zyglt328.
move-corresponding itab_zyglt328_aux to /pws/zyglt328.
...
...
form popup_message using value(p_textline1)
value(p_titel).
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.
* << Fim da inclusão
endform.
form save_changes.
if /pws/zygle328 ne wa_zyglt328.
update /pws/zyglt328 set ELEMENTO = /pws/zygle328-ELEMENTO
where campo = /pws/zygle328-campo.
if sy-subrc ne 0 .
insert into /pws/zyglt328 values /pws/zygle328 .
commit work.
endif.
v_status_s = 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL017I01
...
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.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_CAMPOS
MODULE carrega_campos INPUT."#EC *
* << Fim da inclusão
read table itab_zyglt328 with key campo = node-node_key.
move itab_zyglt328 to /pws/zyglt328.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL017O01
...
MODULE set_objects OUTPUT.
PERFORM load_tree_control.
if sy-ucomm ne 'ENTE'.
MOVE /pws/zygle328 TO wa_zyglt328.
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.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_CAMPOS
MODULE carrega_campos OUTPUT."#EC *
* << Fim da inclusão
READ TABLE itab_zyglt328 WITH KEY campo = node-node_key.
MOVE itab_zyglt328 TO /pws/zyglt328.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL017TOP
PROGRAM /PWS/SAPMZYGL017 MESSAGE-ID /pws/zyglm.
tables : /pws/zyglt328, /pws/zygle328.
DATA: BEGIN OF itab_zyglt328 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt328.
DATA: END OF itab_zyglt328.
DATA: BEGIN OF itab_zyglt328_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt328.
DATA: END OF itab_zyglt328_aux.
* >> Início da exclusão:
DATA: BEGIN OF it_botoes OCCURS 0,
nome(35) TYPE c,
END OF it_botoes.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF it_botoes OCCURS 0, "#EC *
nome(35) TYPE c, "#EC *
END OF it_botoes. "#EC *
* << Fim da inclusão
data: wa_zyglt328 like /pws/zyglt328.
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
* >> Início da inclusão:
v_linha TYPE i , "#EC *
v_pos TYPE i , "#EC *
v_visivel, "#EC *
* << Fim da inclusã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.
...