CE PLUS - Nota 006078
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:44:39
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 06078 Data: 29/02/2008 Hora: 15:27:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06078
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:
REPS /PWS/MZYGL343F01
REPS /PWS/MZYGL343O01
REPS /PWS/MZYGL343TOP
REPS /PWS/MZYGL345F01
REPS /PWS/MZYGL345TOP
REPS /PWS/MZYGL346E01
REPS /PWS/MZYGL346F01
REPS /PWS/MZYGL346I01
REPS /PWS/MZYGL346TOP
REPS /PWS/MZYGLT217F01
REPS /PWS/MZYGLT217I01
REPT /PWS/SAPMZYGL343
REPT /PWS/SAPMZYGLT217
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL343F01
...
itab_zyglt343-frggrp
itab_zyglt343-frggrs
itab_zyglt343-frggrt
itab_zyglt343-frggrqa
itab_zyglt343-frggrqi
itab_zyglt343-nlib
itab_zyglt343-seq
itab_zyglt343-aprova
'2'.
COMMIT WORK AND WAIT.
* >> Início da exclusão: FORM SALVAR_DADOS
MESSAGE i017(/pws/zycim).
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
MESSAGE i017(/pws/zycim)."#EC *
* << Fim da inclusão
ELSE.
READ TABLE itab_zyglt343 WITH KEY
frgsx = /pws/zyglt343-frgsx
frggrp = /pws/zyglt343-frggrp
frggrs = /pws/zyglt343-frggrs
frggrt = /pws/zyglt343-frggrt
frggrqa = /pws/zyglt343-frggrqa
frggrqi = /pws/zyglt343-frggrqi .
IF sy-subrc NE 0.
MOVE-CORRESPONDING /pws/zyglt343 TO itab_zyglt343.
...
...
itab_zyglt343-frggrp
itab_zyglt343-frggrs
itab_zyglt343-frggrt
itab_zyglt343-frggrqa
itab_zyglt343-frggrqi
itab_zyglt343-nlib
itab_zyglt343-seq
itab_zyglt343-aprova
'1'.
COMMIT WORK AND WAIT.
* >> Início da exclusão: FORM SALVAR_DADOS
MESSAGE i017(/pws/zycim).
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
MESSAGE i017(/pws/zycim)."#EC *
* << Fim da inclusão
ELSE.
MESSAGE i015 WITH text-020.
ENDIF.
MODIFY /pws/zyglt343 FROM itab_zyglt343.
ENDIF.
ENDFORM.
FORM controla_navegacao.
CASE ok_code.
WHEN 'NEXT'.
PERFORM proximo_item.
...
...
text = text-000.
REPLACE '&' WITH sy-msgv1(12) INTO text.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
titel = text-001
diagnosetext1 = text
diagnosetext2 = text-017
textline1 = text-018
defaultoption = 'Y'
IMPORTING
* >> Início da exclusão: FORM TRATA_BLOQUEIO
answer = v_answer.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BLOQUEIO
answer = v_answer."#EC *
* << Fim da inclusão
IF v_answer = 'J'.
v_tcode = 'E'.
ELSE.
LEAVE PROGRAM.
ENDIF.
ELSE.
v_tcode = 'A'.
ENDIF.
ENDIF.
ENDFORM.
...
...
sy-datum TO wa_zyglt381-data ,
v_uzeit TO wa_zyglt381-hora ,
'2' TO wa_zyglt381-operacao,
sy-uname TO wa_zyglt381-usuario .
INSERT /pws/zyglt381 FROM wa_zyglt381.
ENDIF.
ENDIF.
CLEAR itab_zyglt381.
REFRESH itab_zyglt381.
ENDFORM.
* >> Início da exclusão: FORM PREENCHE_ITAB_LOG
FORM preenche_itab_log TABLES p_zyglt343 STRUCTURE /pws/zyglt343.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ITAB_LOG
FORM preenche_itab_log TABLES p_zyglt343 STRUCTURE /pws/zyglt343."#EC *
* << Fim da inclusão
CLEAR itab_zyglt381. REFRESH itab_zyglt381.
CASE ok_code.
WHEN 'DELE'.
CLEAR itab_zyglt381. REFRESH itab_zyglt381.
MOVE: '/PWS/ZYGLT343' TO itab_zyglt381-tabela ,
'FRGSX' TO itab_zyglt381-campo ,
p_zyglt343-frgsx TO itab_zyglt381-reg_ant.
APPEND itab_zyglt381.
MOVE: '/PWS/ZYGLT343' TO itab_zyglt381-tabela ,
'FRGGRP' TO itab_zyglt381-campo ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL343O01
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100' WITH text-001.
ENDMODULE.
MODULE load_data OUTPUT.
IF itab_zyglt343[] IS INITIAL.
SELECT * FROM /pws/zyglt343
* >> Início da exclusão: MODULE LOAD_DATA
INTO TABLE itab_zyglt343.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
INTO TABLE itab_zyglt343."#EC CI_NOWHERE
* << Fim da inclusão
PERFORM trata_bloqueio.
MOVE itab_zyglt343[] TO it_regant[].
ENDIF.
ENDMODULE.
MODULE atualiza_posicao OUTPUT.
DATA: currentline(5),
totalline(5).
DESCRIBE TABLE itab_zyglt343 LINES v_line.
IF itab_zyglt343[] IS INITIAL.
CLEAR: v_line,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL343TOP
...
INCLUDE STRUCTURE /pws/zyglt343.
DATA: mark TYPE c.
DATA: END OF itab_zyglt343.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode(4) TYPE c,
END OF itab_pf_status.
DATA: BEGIN OF itab_zyglt381 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt381.
DATA: END OF itab_zyglt381.
DATA: it_regant LIKE /pws/zyglt343 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão:
DATA: wa_zyglt343 LIKE itab_zyglt343,
* << Fim da exclusão
* >> Início da inclusão:
DATA: wa_zyglt343 LIKE itab_zyglt343,"#EC NEEDED
* << Fim da inclusão
wa_zyglt343_aux LIKE /pws/zyglt343.
DATA: ok_code LIKE sy-ucomm ,
v_tabix LIKE sy-tabix ,
v_tcode ,
v_answer ,
text(100) ,
mark ,
nextline TYPE i ,
v_line TYPE i ,
v_posi(40) ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL345F01
FORM modifica_grid.
itab_zyglt370_grid-descr = /pws/zyglt370-descr.
MODIFY itab_zyglt370_grid INDEX tc_zyglt370-current_line.
ENDFORM.
FORM dados_iniciais.
DESCRIBE TABLE itab_zyglt370_grid LINES tc_zyglt370-lines.
ENDFORM.
FORM trata_evento_0100.
CASE okcode.
WHEN 'BACK'.
* >> Início da exclusão: FORM TRATA_EVENTO_0100
CLEAR: v_inicio, itab_zyglt370_grid.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EVENTO_0100
CLEAR:
itab_zyglt370_grid.
* << Fim da inclusão
REFRESH: itab_zyglt370_grid.
SET SCREEN '0200'.
LEAVE SCREEN.
WHEN 'EXIT'.
* >> Início da exclusão: FORM TRATA_EVENTO_0100
CLEAR: v_inicio, itab_zyglt370_grid.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EVENTO_0100
CLEAR:
itab_zyglt370_grid.
* << Fim da inclusão
REFRESH: itab_zyglt370_grid.
SET SCREEN '0200'.
LEAVE SCREEN.
WHEN '%EX'.
* >> Início da exclusão: FORM TRATA_EVENTO_0100
CLEAR: v_inicio, itab_zyglt370_grid.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EVENTO_0100
CLEAR:
itab_zyglt370_grid.
* << Fim da inclusão
REFRESH: itab_zyglt370_grid.
LEAVE TO SCREEN '0'.
WHEN 'UPD'.
IF v_upd IS INITIAL.
v_upd = 'X'.
ELSE.
CLEAR: v_upd.
ENDIF.
WHEN 'SAVE'.
PERFORM atualiza_dados.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL345TOP
tables: /pws/zyglt370,
* >> Início da exclusão:
dd03l,
* << Fim da exclusão
* >> Início da inclusão:
dd03l,"#EC *
* << Fim da inclusão
dd04t.
data: begin of itab_zyglt370 occurs 0.
include structure /pws/zyglt370.
data: end of itab_zyglt370.
data: begin of itab_zyglt370_grid occurs 0.
data: mark type c.
include structure /pws/zyglt370.
data: ddtext like dd03vt-ddtext.
data: end of itab_zyglt370_grid.
data: begin of itab_dd03l occurs 0,
...
...
rollname like dd04t-rollname,
ddlanguage like dd04t-ddlanguage,
as4local like dd04t-as4local,
as4vers like dd04t-as4vers,
ddtext like dd04t-ddtext,
end of itab_dd04t.
data: begin of itab_dd03l_aux occurs 0,
tabname like dd03l-tabname,
fieldname like dd03l-fieldname,
end of itab_dd03l_aux.
* >> Início da exclusão:
data: v_inicio type c,
* << Fim da exclusão
* >> Início da inclusão:
data:
* << Fim da inclusão
okcode like sy-ucomm,
v_upd type c,
v_cont type i,
v_tabix like sy-tabix.
controls: tc_zyglt370 type tableview using screen '0100'.
* >> Início da exclusão:
data: g_tc_zyglt370_lines type syloopc.
* << Fim da exclusão
* >> Início da inclusão:
data: g_tc_zyglt370_lines type syloopc."#EC *
* << Fim da inclusão
selection-screen begin of screen 0200.
* >> Início da exclusão:
selection-screen begin of block 1 with frame title text-000.
* << Fim da exclusão
* >> Início da inclusão:
selection-screen begin of block a1 with frame title text-000.
* << Fim da inclusão
select-options: s_grupo for /pws/zyglt370-grupo,
s_prog for /pws/zyglt370-programa,
s_dynr for /pws/zyglt370-dynr,
s_campo for /pws/zyglt370-campo,
s_spras for /pws/zyglt370-spras,
s_descr for /pws/zyglt370-descr.
* >> Início da exclusão:
selection-screen end of block 1.
* << Fim da exclusão
* >> Início da inclusão:
selection-screen end of block a1.
* << Fim da inclusão
selection-screen end of screen 0200.
initialization.
sy-lsind = 0.
at selection-screen output.
at selection-screen.
case sy-ucomm.
when 'CRET'.
perform seleciona_dados.
endcase.
case okcode.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL346E01
...
itab_dfies_tleg TYPE STANDARD TABLE OF dfies,
wa_dfies TYPE dfies,
resultado TYPE i,
primeira_linha TYPE flag.
AT SELECTION-SCREEN.
CASE sy-dynnr.
WHEN '0001'.
SELECT COUNT(*) FROM /pws/zyglt372
WHERE processo IN so_proc
AND tabnova IN so_tnova
* >> Início da exclusão:
AND tablegado IN so_tleg.
* << Fim da exclusão
* >> Início da inclusão:
AND tablegado IN so_tleg."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-dbcnt <> 0.
MESSAGE s000 WITH sy-dbcnt text-033.
ELSE.
MESSAGE e000 WITH text-008.
ENDIF.
WHEN '0101'.
CLEAR: resultado, primeira_linha.
LOOP AT itab_zyglt371.
IF itab_zyglt371-sequencial IN s_seque AND
itab_zyglt371-processo IN s_proc AND
...
...
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sotleg-low.
PERFORM shlp_tablegado USING 'SOTLEG-LOW'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sotleg-high.
PERFORM shlp_tablegado USING 'SOTLEG-HIGH'.
FORM shlp_processo USING campo TYPE help_info-dynprofld.
IF itab_dfies_proc IS INITIAL.
PERFORM shlp_fields_processo.
ENDIF.
SELECT DISTINCT processo descproc
FROM /pws/zyglt371
* >> Início da exclusão: FORM SHLP_PROCESSO
INTO TABLE itab_processos.
* << Fim da exclusão
* >> Início da inclusão: FORM SHLP_PROCESSO
INTO TABLE itab_processos."#EC CI_NOWHERE
* << Fim da inclusão
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'PROCESSO'
dynpprog = progname
dynpnr = scrnum
dynprofield = campo
value_org = 'S'
TABLES
value_tab = itab_processos
field_tab = itab_dfies_proc
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL346F01
FORM carrega_t371.
CHECK fl_t371_initial = 'X'.
* >> Início da exclusão: FORM CARREGA_T371
SELECT * FROM /pws/zyglt371 INTO TABLE itab_zyglt371.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_T371
SELECT * FROM /pws/zyglt371 INTO TABLE itab_zyglt371."#EC CI_NOWHERE
* << Fim da inclusão
CLEAR fl_t371_initial.
ENDFORM.
FORM salvar_t371.
DATA: t_371_consistente TYPE flag.
IF okcode <> 'BACK' AND okcode <> 'EXIT' AND okcode <> 'CANCEL'.
PERFORM consiste_t371 CHANGING t_371_consistente.
CHECK t_371_consistente = 'X'.
ENDIF.
DELETE FROM /pws/zyglt371 CLIENT SPECIFIED WHERE mandt = sy-mandt.
INSERT /pws/zyglt371 FROM TABLE itab_zyglt371[]
...
...
IF sy-subrc = 0.
WRITE: /2 wa_campos-tabnova(25), 28 sy-dbcnt NO-SIGN.
ELSE.
WRITE: /2 wa_campos-tabnova(25), 28 sy-dbcnt NO-SIGN,
78 text-005 COLOR 6 INVERSE.
ENDIF.
ELSEIF cb_abaixo = 'X'.
PERFORM deleta_registros_abaixo
USING wa_campos-tabnova
CHANGING regra
* >> Início da exclusão: FORM PROCESSAR_EXCLUIR
sy-dbcnt.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_EXCLUIR
sy-dbcnt."#EC *
* << Fim da inclusão
IF sy-dbcnt >= 0.
WRITE: /2 wa_campos-tabnova(25), 28 sy-dbcnt NO-SIGN,
78 regra.
ELSEIF sy-dbcnt = erro_sem_regras.
WRITE: /2 wa_campos-tabnova(25), 78 text-038
COLOR 6 INVERSE.
ELSEIF sy-dbcnt = erro_delete.
WRITE: /2 wa_campos-tabnova(25), 78 text-039.
ELSE.
WRITE: /2 wa_campos-tabnova(25), 78 text-040
...
...
r_tabnova-sign = 'I'.
r_tabnova-low = d_tabnova.
r_tabnova-option = 'CP'.
APPEND r_tabnova.
ENDIF.
SELECT *
FROM /pws/zyglt371
INTO TABLE itab_zyglt371
WHERE processo IN r_processo
AND tabnova IN r_tabnova
* >> Início da exclusão: FORM FILTRA_PROCESSOS
AND ativo = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILTRA_PROCESSOS
AND ativo = 'X'."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0 AND NOT itab_zyglt371[] IS INITIAL.
SELECT sequencial tabnova processo tablegado camponova
chave campolegado valorfixo tratamento
FROM /pws/zyglt372
INTO TABLE itab_campos
FOR ALL ENTRIES IN itab_zyglt371[]
WHERE tabnova = itab_zyglt371-tabnova
* >> Início da exclusão: FORM FILTRA_PROCESSOS
AND processo IN r_processo.
* << Fim da exclusão
* >> Início da inclusão: FORM FILTRA_PROCESSOS
AND processo IN r_processo."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
registros = sy-dbcnt.
SORT itab_campos BY sequencial.
ELSE.
registros = 0.
ENDIF.
ELSE.
registros = 0.
ENDIF.
ENDFORM.
FORM gera_parametros_campos.
DATA: wa_zyglt371_copia LIKE LINE OF itab_zyglt371,
itab_zyglt372_copia LIKE TABLE OF itab_zyglt372
WITH HEADER LINE.
CLEAR: itab_zyglt371, itab_zyglt371[], itab_zyglt372, itab_zyglt372[].
SELECT *
FROM /pws/zyglt371
* >> Início da exclusão: FORM GERA_PARAMETROS_CAMPOS
INTO TABLE itab_zyglt371.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PARAMETROS_CAMPOS
INTO TABLE itab_zyglt371."#EC CI_NOWHERE
* << Fim da inclusão
IF itab_zyglt371[] IS INITIAL.
DELETE FROM /pws/zyglt372 CLIENT SPECIFIED WHERE mandt = sy-mandt.
EXIT.
ENDIF.
SELECT tabname position fieldname keyflag rollname inttype leng
decimals
FROM dd03l
INTO TABLE itab_dd03l_nova
FOR ALL ENTRIES IN itab_zyglt371
WHERE tabname = itab_zyglt371-tabnova.
...
...
itab_zyglt372-descnova.
itab_zyglt372-sequencial = wa_zyglt371_copia-sequencial.
itab_zyglt372-tablegado = wa_zyglt371_copia-tablegado.
itab_zyglt372-campolegado = wa_dd03l_legado-fieldname.
APPEND itab_zyglt372.
ENDIF.
ENDLOOP.
ENDAT.
ENDLOOP.
SELECT * FROM /pws/zyglt372
* >> Início da exclusão: FORM GERA_PARAMETROS_CAMPOS
INTO TABLE itab_zyglt372_copia.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PARAMETROS_CAMPOS
INTO TABLE itab_zyglt372_copia."#EC CI_NOWHERE
* << Fim da inclusão
LOOP AT itab_zyglt372_copia.
READ TABLE itab_zyglt372
WITH KEY processo = itab_zyglt372_copia-processo
tabnova = itab_zyglt372_copia-tabnova
camponova = itab_zyglt372_copia-camponova.
IF sy-subrc = 0.
MODIFY itab_zyglt372[] INDEX sy-tabix FROM itab_zyglt372_copia
TRANSPORTING valorfixo tratamento.
ENDIF.
ENDLOOP.
...
...
CLEAR fl_entrada.
fl_t372_initial = 'X'.
tc_campos-top_line = 1.
ENDIF.
IF fl_t372_initial = 'X'.
SELECT *
FROM /pws/zyglt372
INTO TABLE itab_zyglt372
WHERE processo IN so_proc
AND tabnova IN so_tnova
* >> Início da exclusão: FORM CARREGA_T372
AND tablegado IN so_tleg.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_T372
AND tablegado IN so_tleg."#EC CI_NOFIRST
* << Fim da inclusão
itab_zyglt372_ant[] = itab_zyglt372[].
CLEAR fl_t372_initial.
ENDIF.
ENDFORM.
FORM define_selecao_t371 USING flag TYPE flag.
LOOP AT itab_zyglt371.
itab_zyglt371-mark = flag.
MODIFY itab_zyglt371 TRANSPORTING mark.
ENDLOOP.
ENDFORM.
...
...
CHANGING itab_log[].
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF NOT itab_zyglt372-tratamento IS INITIAL AND
itab_zyglt372-tratamento <> '#'.
SPLIT itab_zyglt372-tratamento AT '@'
INTO itab_zyglt372-tratamento v_form.
READ TABLE itab_tratamentos
* >> Início da exclusão: FORM CONSISTE_T372
WITH KEY programa = itab_zyglt372-tratamento.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_T372
WITH KEY programa = itab_zyglt372-tratamento."#EC *
* << Fim da inclusão
IF sy-subrc = 0.
CLEAR itab_zyglt372-tratamento.
MODIFY itab_zyglt372 TRANSPORTING tratamento.
ADD 1 TO v_entradas_corrigidas.
PERFORM monta_log
USING log_tratamento_excluido
v_tabix
wa_zyglt372_old-tabnova
wa_zyglt372_old-camponova
wa_zyglt372_old-tablegado
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL346I01
...
MESSAGE e000 WITH text-019.
ENDIF.
ENDMODULE.
MODULE verifica_campolegado INPUT.
DATA: wa_campo_original TYPE type_caract_campo,
wa_campo_proposto TYPE type_caract_campo.
fl_tab_editada = 'X'.
CHECK ( NOT itab_zyglt372-campolegado IS INITIAL
OR NOT itab_zyglt372-tablegado IS INITIAL )
AND fl_entrada IS INITIAL.
* >> Início da exclusão: MODULE VERIFICA_CAMPOLEGADO
SELECT SINGLE inttype leng decimals
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_CAMPOLEGADO
SELECT inttype leng decimals
* << Fim da inclusão
FROM dd03l
* >> Início da inclusão: MODULE VERIFICA_CAMPOLEGADO
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_campo_original
WHERE tabname = itab_zyglt372-tabnova
AND fieldname = itab_zyglt372-camponova
AND as4local = 'A'.
* >> Início da exclusão: MODULE VERIFICA_CAMPOLEGADO
SELECT SINGLE inttype leng decimals
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_CAMPOLEGADO
endselect.
SELECT inttype leng decimals
* << Fim da inclusão
FROM dd03l
* >> Início da inclusão: MODULE VERIFICA_CAMPOLEGADO
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_campo_proposto
WHERE tabname = itab_zyglt372-tablegado
AND fieldname = itab_zyglt372-campolegado
AND as4local = 'A'.
* >> Início da inclusão: MODULE VERIFICA_CAMPOLEGADO
endselect.
* << Fim da inclusão
IF sy-subrc <> 0.
MESSAGE e000 WITH text-021.
EXIT.
ENDIF.
IF wa_campo_original-inttype <> wa_campo_proposto-inttype
OR wa_campo_original-leng < wa_campo_proposto-leng
OR wa_campo_original-decimals < wa_campo_proposto-decimals.
SET CURSOR FIELD 'ITAB_ZYGLT372-CAMPOLEGADO' LINE sy-stepl.
MESSAGE e000 WITH text-027.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL346TOP
...
fl_tab_editada TYPE flag,
posicao(30) TYPE c.
DATA: itab_zyglt371 TYPE STANDARD TABLE OF type_zyglt371
WITH HEADER LINE.
DATA: fl_t372_edit TYPE flag,
fl_t372_initial TYPE flag VALUE 'X',
fl_entrada TYPE flag VALUE 'X'.
DATA: itab_zyglt372 TYPE STANDARD TABLE OF type_zyglt372
WITH HEADER LINE.
DATA itab_zyglt372_ant
* >> Início da exclusão:
TYPE STANDARD TABLE OF type_zyglt372
WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
TYPE STANDARD TABLE OF type_zyglt372 .
* << Fim da inclusão
DATA: d_processo TYPE /pws/zygll1099,
d_tabnova TYPE /pws/zygll1101,
d_registros TYPE i,
prog_tratamento TYPE programm.
DATA: cb_abaixo(1) TYPE c,
cb_tudo(1) TYPE c.
TYPES: BEGIN OF type_regras,
tabela LIKE /pws/zyglt379-tabela,
campo LIKE /pws/zyglt379-campo,
regra LIKE /pws/zyglt379-regra,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT217F01
...
IF v_input = 1.
SET TITLEBAR '0100M'.
ELSE.
SET TITLEBAR '0100'.
ENDIF.
ENDFORM.
FORM seleciona.
IF itab_zyglt217_aux[] IS INITIAL.
SELECT *
FROM /pws/zyglt217
* >> Início da exclusão: FORM SELECIONA
INTO TABLE itab_zyglt217.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA
INTO TABLE itab_zyglt217."#EC CI_NOWHERE
* << Fim da inclusão
MOVE itab_zyglt217[] TO itab_zyglt217_aux[].
ENDIF.
v_current = 1.
SORT itab_zyglt217.
ENDFORM.
FORM tab_into_tc.
MOVE-CORRESPONDING itab_zyglt217 TO /pws/zygle217.
MOVE itab_zyglt217-mark TO d_mark.
SELECT SINGLE text
FROM t100
INTO /pws/zygle217-text
WHERE arbgb EQ /pws/zygle217-arbgb
AND msgnr EQ /pws/zygle217-msgnr
AND sprsl EQ sy-langu.
ENDFORM.
FORM current.
IF NOT v_current IS INITIAL.
v_comeco = tc_mensist-current_line.
v_fim = tc_mensist-lines.
* >> Início da exclusão: FORM CURRENT
CONCATENATE 'Entrada' v_comeco 'de' v_fim INTO d_text SEPARATED
* << Fim da exclusão
* >> Início da inclusão: FORM CURRENT
CONCATENATE text-019 v_comeco 'de' v_fim INTO d_text SEPARATED
* << Fim da inclusão
BY space.
CLEAR v_current.
ENDIF.
ENDFORM.
FORM posiciona.
IF sy-subrc = 0.
CLEAR: /pws/zyglt217-arbgb,
/pws/zyglt217-msgnr.
MOVE sy-tabix TO tc_mensist-top_line.
SET SCREEN 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT217I01
...
WHEN 'SAVE'.
IF v_status NE '0'.
PERFORM salvar.
ENDIF.
WHEN 'DELE'.
PERFORM excluir_dados.
WHEN 'MODI'.
PERFORM modificar.
ENDCASE.
ENDMODULE.
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
MODULE user_command_exit INPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
MODULE user_command_exit INPUT."#EC *
* << Fim da inclusão
PERFORM unlock_record.
ENDMODULE.
MODULE user_command_0001 INPUT.
CASE okcode.
WHEN 'CANC'.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'ENTE'.
IF /pws/zyglt217-msgnr IS INITIAL AND
/pws/zyglt217-arbgb IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL343
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 015
Texto: (19 caracteres)
"Botões de navegação"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 016
Texto: (29 caracteres)
"Gravar modificações primeiro?"
Comprimento máximo: 29
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGLT217
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 019
Texto: (7 caracteres)
"Entrada"
Comprimento máximo: 7