CE PLUS - Nota 006054
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:52:42
Descrição da Nota: CODE INSPECTOR , VERIFICAÇÃO AMPLIADA - CAMBIO
Sintoma
performance e sintaxe
Solução
code inspector e verificação ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06054 Data: 28/02/2008 Hora: 10:09:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06054
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:
RELE F6DK958464 20080228 100627 PWSCB
REPS /PWS/MZYGL008F01
REPS /PWS/MZYGL008I01
REPS /PWS/MZYGL008TOP
REPS /PWS/MZYGL009F01
REPS /PWS/MZYGL009I01
REPS /PWS/MZYGL009O01
REPS /PWS/MZYGL009TOP
REPS /PWS/MZYGL010F01
REPS /PWS/MZYGL010O01
REPS /PWS/MZYGL010TOP
REPS /PWS/MZYGL011F01
REPS /PWS/MZYGL011TOP
REPT /PWS/SAPMZYGL008
REPT /PWS/SAPMZYGL009
REPT /PWS/SAPMZYGL010
REPT /PWS/SAPMZYGL011
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958464 20080228 100627 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL008F01
...
MESSAGE a000 WITH text-002.
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-006.
...
...
MESSAGE i000 WITH text-016.
ENDIF.
ENDIF.
ENDIF.
ELSE.
MESSAGE i000 WITH text-011.
ENDIF.
ENDFORM.
FORM busca_grupo.
IF /pws/zygle309 IS INITIAL.
* >> Início da exclusão: FORM BUSCA_GRUPO
SELECT SINGLE * FROM /pws/zyglt313 INTO wa_zyglt313
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_GRUPO
SELECT * FROM /pws/zyglt313
UP TO 1 ROWS
INTO wa_zyglt313
* << Fim da inclusão
WHERE tcode EQ sy-tcode.
* >> Início da inclusão: FORM BUSCA_GRUPO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zyglt309 INTO /pws/zygle309
WHERE grupp EQ wa_zyglt313-grupp.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM BUSCA_GRUPO
SELECT SINGLE * FROM /pws/zyglt310 INTO /pws/zygle310
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_GRUPO
SELECT * FROM /pws/zyglt310
UP TO 1 ROWS
INTO /pws/zygle310
* << Fim da inclusão
WHERE grupp EQ /pws/zygle309-grupp.
* >> Início da inclusão: FORM BUSCA_GRUPO
endselect. "#EC CI_NOFIRST
* << Fim da inclusão
CLEAR itab_zygle312. REFRESH itab_zygle312.
SELECT * FROM /pws/zyglt312 INTO TABLE itab_zygle312
WHERE grupp EQ /pws/zygle309-grupp.
IF sy-subrc EQ 0.
CLEAR itab_zygle311. REFRESH itab_zygle311.
SELECT * FROM /pws/zyglt311 INTO TABLE itab_zygle311
...
...
SET CURSOR FIELD 'ITAB_OPERS-LTEXT' LINE sy-tabix.
ENDFORM.
FORM atualiza_operacoes.
CLEAR itab_opers. REFRESH itab_opers.
LOOP AT itab_zygle312.
READ TABLE itab_zygle311 WITH KEY ktosl = itab_zygle312-ktosl.
MOVE: itab_zygle312-ktosl TO itab_opers-ktosl,
itab_zygle311-ltext TO itab_opers-ltext.
CLEAR itab_zygle316. REFRESH itab_zygle316.
SELECT * FROM /pws/zyglt316 INTO TABLE itab_zygle316
* >> Início da exclusão: FORM ATUALIZA_OPERACOES
WHERE ktosl EQ itab_zygle312-ktosl.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_OPERACOES
WHERE ktosl EQ itab_zygle312-ktosl. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
MOVE 'X' TO itab_opers-vdetc.
ELSE.
MOVE ' ' TO itab_opers-vdetc.
ENDIF.
APPEND itab_opers.
ENDLOOP.
ENDFORM.
FORM verifica_atributos.
IF v_tpscreen IS INITIAL.
...
...
text_question = text-017
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM CALL_UCOMM_CTAS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-018
text_question = v_quest
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM CALL_UCOMM_CTAS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM call_save_regras.
CLEAR: itab_zygle316, itab_zygle316_save, itab_zygle316_aux.
REFRESH: itab_zygle316, itab_zygle316_save, itab_zygle316_aux.
DELETE FROM /pws/zyglt316 WHERE bukrs = vbukrs
AND ktosl = itab_opers-ktosl.
COMMIT WORK AND WAIT.
tbctrl3-lines = 0.
ELSE.
MESSAGE s001 WITH text-026.
...
...
text_question = text-017
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM CALL_UCOMM_RGRS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM call_save_contas.
v_tpscreen = 'R'. dynpronr2 = '0007'.
ELSEIF v_confirm EQ '2'.
itab_zygle316_aux[] = itab_zygle316[] = itab_zygle316_save[].
v_tpscreen = 'R'. dynpronr2 = '0007'.
ENDIF.
ELSE.
v_tpscreen = 'R'. dynpronr2 = '0007'.
ENDIF.
...
...
text_question = text-017
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM CALL_UCOMM_OPER
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM call_save_contas.
IF v_screencall EQ '0003'.
LEAVE TO SCREEN 0001.
ELSE.
LEAVE TO SCREEN 0.
ENDIF.
ELSEIF v_confirm EQ '2'.
itab_zygle316[] = itab_zygle316_save[].
IF v_screencall EQ '0003'.
...
...
text_question = text-017
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM CALL_UCOMM_ABORT6
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-018
text_question = v_quest
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM CALL_UCOMM_ABORT6
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM call_ucomm_save.
ENDIF.
ENDIF.
ENDIF.
ELSE.
IF itab_zygle316_save[] NE itab_zygle316[].
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-018
text_question = text-017
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM CALL_UCOMM_ABORT6
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM call_ucomm_save.
ENDIF.
ENDIF.
ENDIF.
LEAVE PROGRAM.
ENDFORM.
FORM verifica_alteracao_dados.
CONCATENATE text-022 text-023 text-024 INTO v_quest
SEPARATED BY space.
...
...
text_question = text-017
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM VERIFICA_ALTERACAO_DADOS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-018
text_question = v_quest
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM VERIFICA_ALTERACAO_DADOS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM call_ucomm_save.
ENDIF.
ENDIF.
ENDIF.
ELSE.
IF itab_zygle316_save[] NE itab_zygle316[].
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-018
text_question = text-017
text_button_1 = text-019
text_button_2 = text-020
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM VERIFICA_ALTERACAO_DADOS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM call_ucomm_save.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM call_ucomm_dele.
CLEAR: v_campo, v_valor, v_pos.
GET CURSOR FIELD v_campo VALUE v_valor LINE v_linha.
v_pos = tbctrl3-top_line + v_linha - 1.
...
...
IF sy-subrc EQ 0.
DELETE itab_zygle316 INDEX v_pos.
itab_zygle316_aux[] = itab_zygle316[].
ENDIF.
ELSE.
MESSAGE i000 WITH text-028.
ENDIF.
ENDFORM.
FORM atualiza_determ_contas.
SELECT * FROM /pws/zyglt316 INTO TABLE itab_zygle316_tmp
* >> Início da exclusão: FORM ATUALIZA_DETERM_CONTAS
WHERE ktosl = itab_opers-ktosl.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DETERM_CONTAS
WHERE ktosl = itab_opers-ktosl. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
MOVE 'X' TO itab_opers-vdetc.
ELSE.
MOVE ' ' TO itab_opers-vdetc.
ENDIF.
MODIFY itab_opers TRANSPORTING vdetc
WHERE ktosl = itab_opers-ktosl.
ENDFORM.
FORM charge_text_fields.
MOVE: text-039 TO v_txtchbox1,
...
...
v_emp = ' ' .
CALL SCREEN 0005 STARTING AT 10 06.
ENDIF.
IF NOT node-node_key IS INITIAL AND NOT v_emp IS INITIAL.
CASE node-node_key.
WHEN text-007.
dynpronr = '0003'.
READ TABLE itab_zygle309 INTO /pws/zygle309
WITH KEY grupp = node-node_key.
READ TABLE itab_zygle310 INTO /pws/zygle310
* >> Início da exclusão: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODULO
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.
IF sy-subrc EQ 0.
CLEAR itab_zygle311. REFRESH itab_zygle311.
SELECT * FROM /pws/zyglt311 INTO TABLE itab_zygle311
FOR ALL ENTRIES IN itab_zygle312
WHERE ktosl EQ itab_zygle312-ktosl
AND spras EQ sy-langu.
SORT itab_zygle312 BY ktosl.
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: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key."#EC *
* << Fim da inclusão
READ TABLE itab_zygle310 INTO /pws/zygle310
* >> Início da exclusão: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODULO
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.
...
...
FOR ALL ENTRIES IN itab_zygle312
WHERE ktosl EQ itab_zygle312-ktosl
AND spras EQ sy-langu.
SORT itab_zygle312 BY ktosl.
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: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key."#EC *
* << Fim da inclusão
READ TABLE itab_zygle310 INTO /pws/zygle310
* >> Início da exclusão: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODULO
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.
...
...
FOR ALL ENTRIES IN itab_zygle312
WHERE ktosl EQ itab_zygle312-ktosl
AND spras EQ sy-langu.
SORT itab_zygle312 BY ktosl.
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: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key."#EC *
* << Fim da inclusão
READ TABLE itab_zygle310 INTO /pws/zygle310
* >> Início da exclusão: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODULO
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.
...
...
FOR ALL ENTRIES IN itab_zygle312
WHERE ktosl EQ itab_zygle312-ktosl
AND spras EQ sy-langu.
SORT itab_zygle312 BY ktosl.
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: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key."#EC *
* << Fim da inclusão
READ TABLE itab_zygle310 INTO /pws/zygle310
* >> Início da exclusão: FORM SELECIONA_DADOS_MODULO
WITH KEY grupp = node-node_key.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODULO
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL008I01
...
/pws/zygle316-codaux1 IS INITIAL AND
/pws/zygle316-codaux2 IS INITIAL AND
/pws/zygle316-codaux3 IS INITIAL.
MESSAGE w001 WITH text-045.
EXIT.
ENDIF.
ENDIF.
IF NOT vconta IS INITIAL.
SELECT saknr FROM ska1
INTO ska1
* >> Início da exclusão: MODULE MODIFY_TABLE_0008
WHERE saknr = vconta.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFY_TABLE_0008
WHERE saknr = vconta."#EC CI_SGLSELECT
* << Fim da inclusão
ENDSELECT.
IF sy-subrc NE 0.
MESSAGE e001 WITH text-052.
ENDIF.
ENDIF.
READ TABLE itab_zygle316 INDEX tbctrl3-current_line.
IF sy-subrc EQ 0.
itab_zygle316-bukrs = vbukrs .
itab_zygle316-ktosl = itab_opers-ktosl .
itab_zygle316-werks = /pws/zygle316-werks .
...
...
CALL FUNCTION 'HELP_VALUES_GET'
EXPORTING
fieldname = itab_zygle317-fieldname
tabname = itab_zygle317-tabname
show_all_values_at_first_time = 'X'
IMPORTING
select_value = v_select
select_index = i_select
EXCEPTIONS
no_help_for_field = 1
* >> Início da exclusão: MODULE GERA_AJUDA_MOD1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: MODULE GERA_AJUDA_MOD1
OTHERS = 2."#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
v_exibe = 'N'.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYGLE316-CODAUX1'
AND screen-input EQ '0'.
v_exibe = 'S'.
ENDIF.
ENDLOOP.
IF v_exibe EQ 'N'.
/pws/zygle316-codaux1 = v_select.
...
...
dynpfields = tdynpread
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
undefind_error = 7
OTHERS = 8.
* >> Início da inclusão: MODULE GERA_AJUDA_MOD1
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE GERA_AJUDA_MOD1
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE s001 WITH text-036.
ENDIF.
ENDMODULE.
...
...
dynpfields = tdynpread
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
undefind_error = 7
OTHERS = 8.
* >> Início da inclusão: MODULE GERA_AJUDA_MOD2
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE GERA_AJUDA_MOD2
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE s001 WITH text-036.
ENDIF.
ENDMODULE.
...
...
dynpfields = tdynpread
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
undefind_error = 7
OTHERS = 8.
* >> Início da inclusão: MODULE GERA_AJUDA_MOD3
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ELSE.
MESSAGE s001 WITH text-036.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE DESPESA
MODULE despesa INPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE DESPESA
MODULE despesa INPUT."#EC *
* << Fim da inclusão
ENDMODULE.
MODULE user_command_exit INPUT.
CASE sy-ucomm.
WHEN 'CANCEL'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL008TOP
program /pws/sapmzygl008 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 '0008'.
* >> Início da exclusão:
tables: /pws/zygle309, /pws/zyglt309,
/pws/zygle310, /pws/zyglt310,
/pws/zygle311, /pws/zyglt311,
/pws/zygle312, /pws/zyglt312,
/pws/zyglt313,
/pws/zygle314, /pws/zyglt314,
/pws/zygle315, /pws/zyglt315,
/pws/zygle316, /pws/zyglt316,
/pws/zygle317, /pws/zyglt317,
/pws/zygle318, /pws/zyglt318,
/pws/zygle319, /pws/zyglt319,
/pws/zygle323, /pws/zyglt323,
/pws/zycit019,
* << Fim da exclusão
* >> Início da inclusão:
tables: /pws/zygle309,
/pws/zyglt309,"#EC *
/pws/zygle310,
/pws/zyglt310,"#EC *
/pws/zyglt311,"#EC *
/pws/zyglt312,"#EC *
/pws/zyglt313, "#EC *
/pws/zyglt314,"#EC *
/pws/zyglt315, "#EC *
/pws/zygle316,
/pws/zyglt316,"#EC *
/pws/zyglt317,"#EC *
/pws/zyglt319,
/pws/zyglt323, "#EC *
* << Fim da inclusão
t001 ,
* >> Início da exclusão:
ska1 .
* << Fim da exclusão
* >> Início da inclusão:
ska1 . "#EC NEEDED
* << Fim da inclusão
data: okcode like sy-ucomm,
v_uso.
data: dynpronr like sy-dynnr value '0002' ,
...
...
v_tpscreen(1) type c ,
v_chkbox1(1) type c ,
v_chkbox2(1) type c ,
v_campo(35) type c ,
v_valor(35) type c ,
v_linha type i ,
v_pos type i ,
vbukrs type bukrs ,
nextline type sy-tabix ,
v_new type c value 'N' ,
* >> Início da exclusão:
v_saved type c value 'N' ,
* << Fim da exclusão
v_indicatu type i ,
v_confirm(1) type c ,
vconta like /pws/zygle316-konts ,
v_subrc like sy-subrc ,
v_quest(150) type c ,
v_select(50) type c ,
* >> Início da exclusão:
i_select like sy-tabix ,
* << Fim da exclusão
* >> Início da inclusão:
i_select like sy-tabix ,"#EC NEEDED
* << Fim da inclusão
v_exibe(1) type c ,
v_descr1_0006(40) type c ,
v_txtchbox1(30) type c ,
v_txtchbox2(30) type c ,
v_txtchbox3(30) type c ,
v_txtchbox4(30) type c ,
v_txtchbox5(30) type c ,
v_txtchbox6(30) type c ,
v_EMP type c ,
v_csccall type i .
...
...
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_zygle311 occurs 0.
include structure /pws/zygle311.
data: end of itab_zygle311.
data: begin of itab_zygle312 occurs 0.
include structure /pws/zygle312.
data: end of itab_zygle312.
* >> Início da exclusão:
data: begin of itab_zygle313 occurs 0.
include structure /pws/zyglt313.
data: end of itab_zygle313.
data: begin of itab_zygle314 occurs 0.
include structure /pws/zygle314.
data: end of itab_zygle314.
data: begin of itab_zygle315 occurs 0.
* << Fim da exclusão
* >> Início da inclusão:
data: begin of itab_zygle315 occurs 0."#EC NEEDED
* << Fim da inclusão
include structure /pws/zygle315.
data: end of itab_zygle315.
data: begin of itab_zygle316 occurs 0.
include structure /pws/zygle316.
data: vconta like /pws/zygle316-konts.
data: end of itab_zygle316.
* >> Início da exclusão:
data: itab_zygle316_save like itab_zygle316 occurs 0 with header line.
* << Fim da exclusão
* >> Início da inclusão:
data: itab_zygle316_save like itab_zygle316 occurs 0 ."#EC NEEDED
* << Fim da inclusão
data: itab_zygle316_aux like itab_zygle316 occurs 0 with header line.
* >> Início da exclusão:
data: itab_zygle316_tmp like itab_zygle316 occurs 0 with header line.
* << Fim da exclusão
* >> Início da inclusão:
data: itab_zygle316_tmp like itab_zygle316 occurs 0 ."#EC NEEDED
* << Fim da inclusão
data: begin of itab_botoes occurs 0,
nome(35) type c,
end of itab_botoes.
data: begin of itab_opers occurs 0 ,
ltext like /pws/zygle311-ltext,
ktosl like /pws/zygle311-ktosl,
marc(1) type c ,
vdetc(1) type c ,
end of itab_opers.
data: begin of itab_zygle317 occurs 0.
include structure /pws/zygle317.
data: end of itab_zygle317.
* >> Início da exclusão:
data: begin of itab_zygle318 occurs 0.
include structure /pws/zygle318.
data: end of itab_zygle318.
* << Fim da exclusão
data: begin of itab_zygle323 occurs 0.
include structure /pws/zygle323.
data: end of itab_zygle323.
data: tdynpread like dynpread occurs 0 with header line.
data: wa_zyglt313 like /pws/zyglt313,
wa_regrasp like /pws/zyglt314,
wa_regrasc like /pws/zyglt315,
wa_cols type cxtab_column .
data: begin of wa_chbox ,
chbox1(1) type c,
...
...
node_key = node-node_key.
if v_emp is initial and not node_key is initial.
v_EMP = ' ' .
call screen 0005 starting at 10 06.
endif.
if not node-node_key is initial and not v_emp 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_zygle312. refresh itab_zygle312.
select * from /pws/zyglt312 into table itab_zygle312
where grupp eq /pws/zygle309-grupp.
...
...
for all entries in itab_zygle312
where ktosl eq itab_zygle312-ktosl
and spras eq sy-langu.
sort itab_zygle312 by ktosl.
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_zygle312. refresh itab_zygle312.
select * from /pws/zyglt312 into table itab_zygle312
where grupp eq /pws/zygle309-grupp.
...
...
for all entries in itab_zygle312
where ktosl eq itab_zygle312-ktosl
and spras eq sy-langu.
sort itab_zygle312 by ktosl.
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_zygle312. refresh itab_zygle312.
select * from /pws/zyglt312 into table itab_zygle312
where grupp eq /pws/zygle309-grupp.
...
...
for all entries in itab_zygle312
where ktosl eq itab_zygle312-ktosl
and spras eq sy-langu.
sort itab_zygle312 by ktosl.
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_zygle312. refresh itab_zygle312.
select * from /pws/zyglt312 into table itab_zygle312
where grupp eq /pws/zygle309-grupp.
...
...
for all entries in itab_zygle312
where ktosl eq itab_zygle312-ktosl
and spras eq sy-langu.
sort itab_zygle312 by ktosl.
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_zygle312. refresh itab_zygle312.
select * from /pws/zyglt312 into table itab_zygle312
where grupp eq /pws/zygle309-grupp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL009F01
...
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-006.
...
...
ok_code = p_okcode
entry_act = p_tccurr
last_page_full = ' '
overlapping = b_overlapping
importing
entry_new = nextline.
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 /pws/zyglt344
into corresponding fields of table itab_tela
...
...
tbcrtl1-lines = v_linhas.
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-TEXT' or
v_campo eq 'ITAB_TELA-DESCRIPT' or
v_campo eq 'ITAB_TELA-PROGRAMA' or
v_campo eq 'ITAB_TELA-TELA_CCO' ) 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 marc eq 'X'.
itab_tela-marc = ' '.
modify itab_tela.
endloop.
read table itab_tela index v_linha.
v_indicatu = sy-tabix.
itab_tela-marc = 'X'.
modify itab_tela index v_linha.
perform seleciona_subgrupos.
...
...
endif.
else.
message i001 with text-011.
endif.
endform.
form trata_duplo_click_0110.
clear: v_campo, v_valor.
get cursor field v_campo value v_valor line v_linha.
if ( v_campo eq 'ITAB_SUBGRUPO-SUBGRUPO' ) and
not v_valor is initial.
* >> Início da exclusão: FORM TRATA_DUPLO_CLICK_0110
read table itab_subgrupo.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DUPLO_CLICK_0110
read table itab_subgrupo."#EC *
* << Fim da inclusão
if sy-subrc eq 0.
loop at itab_subgrupo where marc eq 'X'.
itab_subgrupo-marc = ' '.
modify itab_subgrupo.
endloop.
read table itab_subgrupo index v_linha.
v_indicatu = sy-tabix.
itab_subgrupo-marc = 'X'.
move v_valor to itab_subgrupo-subgrupo.
modify itab_subgrupo index v_linha.
...
...
form descricao_tela using p_nome_prog p_nrtela
changing p_descript.
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 lock_record.
CHECK sy-tcode EQ '/PWS/ZYGL009'.
CALL FUNCTION '/PWS/ZYGL_ENQUEUE_ZYGL009'
EXPORTING
mandt = /pws/zyglt309-mandt
EXCEPTIONS
foreign_lock = 1
system_failure = 2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL009I01
...
text_question = text-050
text_button_1 = 'SIM'(019)
text_button_2 = 'NÃO'(020)
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_conf
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: MODULE USER_COMMAND_0102
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_conf EQ '1'.
LOOP AT itab_tela WHERE marc EQ 'X'.
DELETE FROM /pws/zyglt320
WHERE modulo = itab_tela-modulo AND
programa = itab_tela-programa AND
tela = itab_tela-tela_cco.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE e001 WITH text-053.
ELSE.
...
...
IF okcode_old EQ 'SAVE'.
SET SCREEN 0110.
LEAVE SCREEN.
ELSE.
READ TABLE itab_campos_aux2
WITH KEY modulo = itab_campos-modulo
programa = itab_campos-programa
tela = itab_campos-tela
subgrupo = itab_campos-subgrupo
campo = itab_campos-campo
* >> Início da exclusão: MODULE USER_COMMAND_0120
denominacao = itab_campos-denominacao.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0120
denominacao = itab_campos-denominacao."#EC *
* << Fim da inclusão
IF itab_campos[] NE itab_campos_aux2[].
CLEAR: v_conf.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-056
text_question = text-057
text_button_1 = 'SIM'(019)
text_button_2 = 'NÃO'(020)
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = v_conf
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: MODULE USER_COMMAND_0120
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_conf EQ '1'.
PERFORM tratar_dados_e_salvar.
ELSEIF v_conf EQ '2'.
PERFORM atualizar_atributos_na_tela.
ENDIF.
SET SCREEN 0110.
LEAVE SCREEN.
ELSE.
SET SCREEN 0110.
LEAVE SCREEN.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL009O01
module status_0001 output.
perform mostra_botoes.
set pf-status '0001' excluding itab_botoes.
set titlebar 'TL0001' with text-047.
perform lock_record.
endmodule.
module set_objects output.
perform load_tree_control.
* >> Início da exclusão: MODULE SET_OBJECTS
select * from /pws/zyglt327 into table itab_zyglt327.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_OBJECTS
select * from /pws/zyglt327 into table itab_zyglt327."#EC CI_NOWHERE
* << Fim da inclusão
endmodule.
module status_0102 output.
perform define_linhas_da_tbcontrol.
perform lock_record.
endmodule.
module carrega_tela output.
clear: v_lin, v_index.
v_index = v_paging_cntr + sy-stepl.
read table itab_subgrupo index v_index.
describe table itab_subgrupo lines v_lin.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL009TOP
PROGRAM /pws/sapmzygl008 MESSAGE-ID /pws/zyglm.
TYPE-POOLS: shlp.
CONTROLS: tbcrtl1 TYPE TABLEVIEW USING SCREEN '0102'.
TABLES: /pws/zygle309, /pws/zyglt309,
* >> Início da exclusão:
/pws/zygle310, /pws/zyglt310,
/pws/zyglt320,
/pws/zyglt328,
/pws/zyglt344,
trdirt.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zygle310,
/pws/zyglt310, "#EC *
/pws/zyglt320, "#EC *
/pws/zyglt328,"#EC *
/pws/zyglt344, "#EC *
trdirt. "#EC *
* << Fim da inclusão
DATA: okcode LIKE sy-ucomm ,
okcode_old 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
v_campo(40) TYPE c ,
v_valor(40) TYPE c ,
v_linha TYPE i ,
* >> Início da exclusão:
v_indicatu TYPE i ,
* << Fim da exclusão
* >> Início da inclusão:
v_indicatu TYPE i ,"#EC NEEDED
* << Fim da inclusão
v_index TYPE i VALUE 1 ,
v_paging_cntr TYPE i VALUE 0 ,
v_index2 TYPE i VALUE 1 ,
v_paging_cntr2 TYPE i VALUE 0 ,
v_paging_cntr_old TYPE i VALUE 0 ,
v_lin LIKE sy-index ,
nextline TYPE sy-index ,
v_conf ,
marc ,
* >> Início da exclusão:
init ,
v_descr_tela(70) ,
v_descr_prog LIKE trdirt-text ,
* << Fim da exclusão
v_reg_usado,
v_status.
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_zygle310 .
DATA: BEGIN OF itab_tela OCCURS 0,
modulo LIKE /pws/zyglt344-modulo,
programa LIKE /pws/zyglt344-programa,
tela_cco LIKE /pws/zyglt344-tela_cco,
tela_ccr LIKE /pws/zyglt344-tela_ccr,
text LIKE trdirt-text,
descript LIKE rpy_dyhead-descript,
marc(1) TYPE c,
END OF itab_tela.
* >> Início da exclusão:
DATA: BEGIN OF itab_trdirt OCCURS 0.
INCLUDE STRUCTURE trdirt.
DATA: END OF itab_trdirt.
DATA: BEGIN OF itab_zyglt344 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt344.
DATA: END OF itab_zyglt344.
* << Fim da exclusão
DATA: BEGIN OF itab_subgrupo OCCURS 0 ,
modulo LIKE /pws/zyglt320-modulo ,
programa LIKE /pws/zyglt320-programa ,
tela LIKE /pws/zyglt320-tela ,
cod_grupo LIKE /pws/zyglt320-cod_grupo,
subgrupo LIKE /pws/zyglt327-subgrupo ,
marc(1) TYPE c ,
END OF itab_subgrupo .
DATA: BEGIN OF itab_subgrupo_aux OCCURS 0 ,
modulo LIKE /pws/zyglt320-modulo ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL010F01
...
message a000 with text-002.
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_zyglt309[] is initial.
* >> Início da exclusão: FORM FILL_NODES
select * from /pws/zyglt309 into table itab_zyglt309.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_NODES
select * from /pws/zyglt309 into table itab_zyglt309."#EC CI_NOWHERE
* << Fim da inclusão
sort itab_zyglt309 by grupp.
if sy-subrc eq 0.
select * from /pws/zyglt310 into table itab_zyglt310
for all entries in itab_zyglt309
where grupp eq itab_zyglt309-grupp
and spras eq sy-langu.
endif.
endif.
clear node.
node-node_key = text-003.
...
...
endif.
modify screen.
endloop.
endform.
form salva_registro.
clear itab_zyglt319_aux.
refresh itab_zyglt319_aux.
select * from /pws/zyglt319
into table itab_zyglt319
where obj_name = /pws/zygle319-obj_name and
* >> Início da exclusão: FORM SALVA_REGISTRO
dynnumb = /pws/zygle319-dynnumb.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_REGISTRO
dynnumb = /pws/zygle319-dynnumb."#EC CI_NOFIRST
* << Fim da inclusão
loop at itab_zyglt319.
move /pws/zygle319-tcode to itab_zyglt319-tcode.
move /pws/zygle319-visivel to itab_zyglt319-visivel.
modify itab_zyglt319.
clear /pws/zyglt319.
move-corresponding itab_zyglt319 to /pws/zyglt319.
modify /pws/zyglt319 from /pws/zyglt319.
endloop.
okcode = okcode_aux.
message i000 with text-009.
endform.
form popup_message using p_textline1
* >> Início da exclusão: FORM POPUP_MESSAGE
p_titel.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
p_titel."#EC *
* << Fim da inclusão
clear v_answer.
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 carrega_descricao.
if not itab_programas is initial.
select * from trdirt into table itab_trdirt
for all entries in itab_programas
where name = itab_programas-obj_name and
* >> Início da exclusão: FORM CARREGA_DESCRICAO
sprsl = sy-langu.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DESCRICAO
sprsl = sy-langu."#EC CI_SGLSELECT
* << Fim da inclusão
loop at itab_programas.
read table itab_trdirt with key name = itab_programas-obj_name.
move itab_trdirt-text to itab_programas-text.
modify itab_programas.
endloop.
endif.
endform.
form seleciona_prgramas.
loop at itab_zyglt319.
on change of itab_zyglt319-obj_name.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL010O01
...
set titlebar '001' with text-001.
set pf-status '0004'.
perform: trata_campos,
perform_desc_tela.
perform lock_record.
endmodule.
module carrega_descricao output.
perform seleciona_prgramas.
perform carrega_descricao.
endmodule.
* >> Início da exclusão: MODULE SELECIONA_PRGRAMAS
module seleciona_prgramas output.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_PRGRAMAS
module seleciona_prgramas output."#EC *
* << Fim da inclusão
loop at itab_zyglt319.
on change of itab_zyglt319-obj_name.
move itab_zyglt319 to itab_programas.
append itab_programas.
endon.
endloop.
endmodule.
module fill_dados_tela output.
data: v_modulo like /pws/zyglt319-grupp,
v_programa like /pws/zyglt319-obj_name,
* >> Início da exclusão: MODULE FILL_DADOS_TELA
v_nome like itab_zyglt319-text.
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_DADOS_TELA
v_nome like itab_zyglt319-text."#EC NEEDED
* << Fim da inclusão
move: itab_programas-grupp to v_modulo,
itab_programas-obj_name to v_programa,
itab_programas-text to v_nome.
clear itab_zyglt319_aux.
refresh itab_zyglt319_aux.
loop at itab_zyglt319 where grupp eq v_modulo and
obj_name eq v_programa.
move itab_zyglt319 to itab_zyglt319_aux.
append itab_zyglt319_aux.
endloop.
endmodule.
* >> Início da exclusão: MODULE STATUS_0005
module status_0005 output.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0005
module status_0005 output."#EC *
* << Fim da inclusão
set pf-status '0005' excluding it_botoes.
set titlebar '001' with text-001.
perform lock_record.
endmodule.
module descricao_tela output.
select single dtxt from d020t
into v_descr_tela
where PROG = /pws/zygle319-obj_name and
DYNR = /pws/zygle319-dynnumb and
LANG = sy-langu.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL010TOP
program /pws/sapmzygl010 message-id /pws/zyglm.
tables: /pws/zygle309, /pws/zyglt309,
/pws/zyglt319, /pws/zygle319,
* >> Início da exclusão:
/pws/zyglt310, /pws/zygle310.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zyglt310,"#EC *
/pws/zygle310.
* << Fim da inclusão
controls: tc_botao type tableview using screen '0003'.
controls: tc_tela type tableview using screen '0005'.
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_trdirt occurs 0.
include structure trdirt.
...
...
end of it_botoes.
data: begin of itab_zyglt319_aux occurs 0.
include structure /pws/zyglt319.
data: text like trdirt-text.
data: end of itab_zyglt319_aux.
data: okcode like sy-ucomm,
okcode_aux like sy-ucomm,
dynpronr like sy-dynnr value '0002',
v_linha type i,
v_pos type i,
* >> Início da exclusão:
v_visivel,
v_answer,
* << Fim da exclusão
* >> Início da inclusão:
v_answer,"#EC NEEDED
* << Fim da inclusão
v_descr_tela(50),
v_reg_usado,
v_status.
class lcl_event_click definition.
public section.
class-methods:
select_item for event selection_changed of cl_gui_simple_tree
importing node_key.
endclass.
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.
free itab_zyglt319.
free itab_programas.
read table itab_zyglt309 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_zyglt310 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
select * from /pws/zyglt319
into table itab_zyglt319
where grupp = node-node_key.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL011F01
...
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 = 'GRP001'.
...
...
IF sy-subrc <> 0.
MESSAGE a001 WITH text-002.
ENDIF.
CLEAR g_custom_container. CLEAR g_tree.
ENDIF.
ENDFORM.
FORM define_tela_e_seleciona_dados.
dynpronr = '0102'.
IF NOT itab_zygle309[] IS INITIAL.
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
ENDIF.
IF NOT itab_zygle310[] IS INITIAL.
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
ENDIF.
* >> Início da exclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
CLEAR: itab_zycbt011, itab_zyglt351, itab_opers, itab_zyglt354.
REFRESH: itab_zycbt011, itab_zyglt351, itab_opers, itab_zyglt354.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS
CLEAR:
itab_zyglt351,
itab_opers,
itab_zyglt354.
REFRESH:
itab_zyglt351,
itab_opers,
itab_zyglt354.
* << Fim da inclusão
SELECT * FROM /pws/zyglt351
INTO TABLE itab_zyglt351
WHERE grupp EQ /pws/zygle309-grupp.
IF NOT itab_zyglt351[] IS INITIAL.
SELECT * FROM /pws/zyglt354
INTO TABLE itab_zyglt354
FOR ALL ENTRIES IN itab_zyglt351
WHERE codeven EQ itab_zyglt351-codeven
AND grupp EQ itab_zyglt351-grupp
AND spras EQ sy-langu.
...
...
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 VERIFICA_ALTERACAO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM comm_save.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM comm_save.
PERFORM save_eventos.
ENDFORM.
FORM save_eventos.
...
...
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_OPER
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM save_eventos.
IF v_screencall EQ '0102'.
LEAVE TO SCREEN 0100.
ELSE.
LEAVE TO SCREEN 0.
ENDIF.
ELSEIF v_confirm EQ '2'.
/pws/zycbe011 = wa_zycbt011_save.
IF v_screencall EQ '0102'.
...
...
text_question = text-034
text_button_1 = text-021
text_button_2 = text-022
default_button = '2'
display_cancel_button = ' '
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM COMM_DELE
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_confirm EQ '1'.
DELETE FROM /pws/zycbt011
WHERE codmod EQ itab_opers-codmod
AND codeven EQ itab_opers-codeven
AND bukrs EQ d_bukrs.
LEAVE TO SCREEN 0100.
ENDIF.
ENDFORM.
FORM busca_grupo.
IF /pws/zygle309 IS INITIAL.
* >> Início da exclusão: FORM BUSCA_GRUPO
SELECT SINGLE * FROM /pws/zyglt313 INTO wa_zyglt313
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_GRUPO
SELECT *
FROM /pws/zyglt313
UP TO 1 ROWS
INTO wa_zyglt313
* << Fim da inclusão
WHERE tcode EQ sy-tcode.
* >> Início da inclusão: FORM BUSCA_GRUPO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zyglt309 INTO /pws/zygle309
WHERE grupp EQ wa_zyglt313-grupp.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zyglt310 INTO /pws/zygle310
WHERE grupp EQ /pws/zygle309-grupp
AND spras EQ sy-langu.
* >> Início da exclusão: FORM BUSCA_GRUPO
CLEAR: itab_zycbt011, itab_zyglt351, itab_opers.
REFRESH: itab_zycbt011, itab_zyglt351, itab_opers.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_GRUPO
CLEAR:
itab_zyglt351, itab_opers.
REFRESH:
itab_zyglt351, itab_opers.
* << Fim da inclusão
SELECT * FROM /pws/zyglt351
INTO TABLE itab_zyglt351
WHERE grupp EQ /pws/zygle309-grupp.
IF NOT itab_zyglt351[] IS INITIAL.
SELECT * FROM /pws/zyglt354
INTO TABLE itab_zyglt354
FOR ALL ENTRIES IN itab_zyglt351
WHERE codeven EQ itab_zyglt351-codeven
AND grupp EQ itab_zyglt351-grupp
AND spras EQ sy-langu.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL011TOP
program /pws/sapmzygl011 message-id /pws/zyglm.
type-pools: shlp.
controls: tc_evtctb type tableview using screen '0102'.
tables: /pws/zycbt011, /pws/zycbe011,
* >> Início da exclusão:
t001 ,
/pws/zygle309, /pws/zyglt309,
/pws/zygle310, /pws/zyglt310,
/pws/zyglt313,
/pws/zyglt351,
/pws/zyglt353,
/pws/zyglt354.
* << Fim da exclusão
* >> Início da inclusão:
t001 ,"#EC *
/pws/zygle309,
/pws/zyglt309,"#EC *
/pws/zygle310,
/pws/zyglt310,"#EC *
/pws/zyglt313,"#EC *
/pws/zyglt351,"#EC *
/pws/zyglt354."#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 ,
v_campo(35) type c ,
v_valor(35) type c ,
v_linha like sy-tabix ,
v_indicatu like sy-tabix ,
v_pos type i ,
v_screencall type sy-dynnr ,
v_tpscreen(1) type c ,
* >> Início da exclusão:
v_quest(150) type c ,
* << Fim da exclusão
* >> Início da inclusão:
v_quest(150) type c ,"#EC NEEDED
* << Fim da inclusão
v_confirm(1) type c ,
v_emp type c ,
v_csccall type i ,
* >> Início da exclusão:
v_node_key like mtreesnode ,
* << Fim da exclusão
v_reg_usado,
v_status.
data: d_bukrstxt(40) ,
d_bukrs_aux type bukrs ,
...
...
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.
* >> Início da exclusão:
data: begin of itab_zycbt011 occurs 0 .
include structure /pws/zycbt011 .
data: marc(1) type c .
data: end of itab_zycbt011 .
* << Fim da exclusão
data: begin of itab_opers occurs 0 ,
ltext like /pws/zyglt354-ltext ,
codeven like /pws/zyglt351-codeven,
codmod like /pws/zyglt351-codmod ,
marc(1) type c ,
end of itab_opers.
data: begin of itab_zyglt351 occurs 0.
include structure /pws/zyglt351.
data: end of itab_zyglt351.
data: begin of itab_zyglt354 occurs 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL008
------------------------------------------------------------------------
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: 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: 053
Texto: (33 caracteres)
"Favor selecionar despesa correta!"
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL009
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 000
Texto: (62 caracteres)
"Atualizar Configuração Contabilidade: Lançtos. Autom. - Grupos"
Comprimento máximo: 62
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (6 caracteres)
"Grupos"
Comprimento máximo: 6
------------------------------------------------------------------------
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: 010
Texto: (65 caracteres)
"Atualizar Configuração Contabilidade: Lançtos. Autom. - Operações"
Comprimento máximo: 65
------------------------------------------------------------------------
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: 013
Texto: (18 caracteres)
"Seleção de Empresa"
Comprimento máximo: 18
------------------------------------------------------------------------
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: 016
Texto: (27 caracteres)
"Empresa informada inválida."
Comprimento máximo: 27
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 017
Texto: (37 caracteres)
"Os dados devem ser gravados primeiro?"
Comprimento máximo: 37
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 018
Texto: (11 caracteres)
"Confirmação"
Comprimento máximo: 11
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 019
Texto: (3 caracteres)
"SIM"
Comprimento máximo: 3
------------------------------------------------------------------------
Modificado 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: 022
Texto: (45 caracteres)
"A determinação atual da conta será eliminada,"
Comprimento máximo: 45
------------------------------------------------------------------------
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: 038
Texto: (6 caracteres)
"Câmbio"
Comprimento máximo: 6
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 040
Texto: (17 caracteres)
"Câmbio Importação"
Comprimento máximo: 17
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 041
Texto: (2 caracteres)
"CE"
Comprimento máximo: 2
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 042
Texto: (17 caracteres)
"Câmbio Exportação"
Comprimento máximo: 17
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 044
Texto: (17 caracteres)
"Câmbio Financeiro"
Comprimento máximo: 17
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 045
Texto: (23 caracteres)
"Documentação Exportação"
Comprimento máximo: 45
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 046
Texto: (23 caracteres)
"Documentação Importação"
Comprimento máximo: 23
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 052
Texto: (28 caracteres)
"Digite uma tela ou um cursor"
Comprimento máximo: 30
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 055
Texto: (23 caracteres)
"Entrada não encontrada."
Comprimento máximo: 23
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL010
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 058
Texto: (0 caracteres)
Comprimento máximo: 1
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL011
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (19 caracteres)
"Ctg. Taxa de Câmbio"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (17 caracteres)
"Tipo de Documento"
Comprimento máximo: 17
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 004
Texto: (26 caracteres)
"Tipo de Documento Nacional"
Comprimento máximo: 26
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (13 caracteres)
"Tipo de Conta"
Comprimento máximo: 13
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (6 caracteres)
"GRP001"
Comprimento máximo: 6
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 010
Texto: (10 caracteres)
"Código RzE"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 012
Texto: (38 caracteres)
"Atualizar Configuração Eventos: Regras"
Comprimento máximo: 38
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 023
Texto: (27 caracteres)
"Regras gravadas com êxito !"
Comprimento máximo: 27
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 024
Texto: (32 caracteres)
"Regras não puderam ser gravadas."
Comprimento máximo: 32
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 029
Texto: (42 caracteres)
"Preenchimento mínimo da chave é requerido."
Comprimento máximo: 42
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (38 caracteres)
"Posicionar cursor em uma linha válida."
Comprimento máximo: 38
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 031
Texto: (25 caracteres)
"Primeiro gravar as regras"
Comprimento máximo: 25