CE PLUS - Nota 006059
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:59:17
Descrição da Nota: CB - 443582 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
Sintoma
CB - 443582 - Code Inspector e Verificação Ampliada
Solução
CB - 443582 - Code Inspector e Verificação Ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06059 Data: 28/02/2008 Hora: 15:10:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06059
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 - 443582 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CB - 443582 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYGL003 1001
RELE F6DK958457 20080228 150341 PWSCB
REPS /PWS/MZYGL001F01
REPS /PWS/MZYGL001TOP
REPS /PWS/MZYGL002F01
REPS /PWS/MZYGL002TOP
REPS /PWS/MZYGL003F01
REPS /PWS/MZYGL003I01
REPS /PWS/MZYGL003O01
REPS /PWS/MZYGL003TOP
REPS /PWS/MZYGL004F01
REPS /PWS/MZYGL004I01
REPS /PWS/MZYGL004TOP
REPT /PWS/SAPMZYGL003
REPT /PWS/SAPMZYGL004
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYGL003 1001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958457 20080228 150341 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL001F01
...
vkorg = itab_zyglt006-vkorg
vtweg = itab_zyglt006-vtweg
spart = itab_zyglt006-spart
gsber = itab_zyglt006-gsber
werks = itab_zyglt006-werks
j_1bbranch = itab_zyglt006-j_1bbranch.
IF sy-subrc = 0.
IF itab_zyglt006-range <> itab_zyglt006_aux-range.
CONCATENATE itab_zyglt006_aux-range '%' INTO v_range.
IF itab_zyglt006-codmod EQ 'X'.
* >> Início da exclusão: FORM SALVA_DADOS
SELECT SINGLE * INTO wa_zycet001
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS
SELECT * INTO wa_zycet001
* << Fim da inclusão
FROM /pws/zycet001
* >> Início da inclusão: FORM SALVA_DADOS
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseq LIKE v_range.
* >> Início da inclusão: FORM SALVA_DADOS
ENDSELECT.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM SALVA_DADOS
SELECT SINGLE * FROM /pws/zycit001
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS
SELECT * FROM /pws/zycit001
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseq LIKE v_range.
* >> Início da inclusão: FORM SALVA_DADOS
ENDSELECT.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
MOVE itab_zyglt006_aux-range TO itab_zyglt006-range.
MODIFY itab_zyglt006 INDEX v_tabix.
LOOP AT itab_zyglt006_del WHERE range = itab_zyglt006_aux-range.
v_tabix = sy-tabix.
...
...
vkorg = itab_zyglt006_aux-vkorg
vtweg = itab_zyglt006_aux-vtweg
spart = itab_zyglt006_aux-spart
gsber = itab_zyglt006_aux-gsber
werks = itab_zyglt006_aux-werks
j_1bbranch = itab_zyglt006_aux-j_1bbranch
range = itab_zyglt006_aux-range.
IF sy-subrc = 0.
CONCATENATE itab_zyglt006_aux-range '%' INTO v_range.
IF itab_zyglt006_aux-codmod EQ 'X'.
* >> Início da exclusão: FORM SALVA_DADOS
SELECT SINGLE * INTO wa_zycet001
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS
SELECT * INTO wa_zycet001
* << Fim da inclusão
FROM /pws/zycet001
* >> Início da inclusão: FORM SALVA_DADOS
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseq LIKE v_range.
* >> Início da inclusão: FORM SALVA_DADOS
ENDSELECT.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM SALVA_DADOS
SELECT SINGLE * FROM /pws/zycit001
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS
SELECT * FROM /pws/zycit001
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseq LIKE v_range.
* >> Início da inclusão: FORM SALVA_DADOS
ENDSELECT.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
MESSAGE i001 WITH text-004.
v_erro = 1.
ENDIF.
ENDIF.
ENDLOOP.
MODIFY /pws/zyglt006 FROM TABLE itab_zyglt006.
CLEAR itab_zyglt006_aux. REFRESH itab_zyglt006_aux.
itab_zyglt006_aux[] = itab_zyglt006[].
IF v_erro NE 0.
LOOP AT itab_zyglt006_del.
MOVE sy-tabix TO v_tabix.
CLEAR v_range.
CONCATENATE itab_zyglt006_del-range '%' INTO v_range.
IF itab_zyglt006_del-codmod EQ 'X'.
* >> Início da exclusão: FORM SALVA_DADOS
SELECT SINGLE * INTO wa_zycet001
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS
SELECT * INTO wa_zycet001
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycet001
WHERE nrseq LIKE v_range.
* >> Início da inclusão: FORM SALVA_DADOS
ENDSELECT.
* << Fim da inclusão
ELSE.
ENDIF.
IF sy-subrc = 0.
MOVE itab_zyglt006_del TO itab_zyglt006.
APPEND itab_zyglt006.
...
...
MOVE space TO itab_zyglt006.
APPEND itab_zyglt006.
ENDLOOP.
v_status = '2'.
ENDFORM.
FORM entradas_novas.
CALL SCREEN 200.
ENDFORM.
.
FORM salva_dados2.
* >> Início da exclusão: FORM SALVA_DADOS2
READ TABLE itab_zyglt006_aux1.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS2
READ TABLE itab_zyglt006_aux1 INDEX 1.
* << Fim da inclusão
IF itab_zyglt006_aux1-range IS INITIAL.
MESSAGE i001 WITH text-013.
EXIT.
ENDIF.
MOVE-CORRESPONDING itab_zyglt006_aux1 TO itab_zyglt006_aux2.
APPEND itab_zyglt006_aux2.
READ TABLE itab_zyglt006_aux2 WITH KEY
codmod = itab_zyglt006_aux1-codmod
bukrs = itab_zyglt006_aux1-bukrs
vkorg = itab_zyglt006_aux1-vkorg
vtweg = itab_zyglt006_aux1-vtweg
spart = itab_zyglt006_aux1-spart
gsber = itab_zyglt006_aux1-gsber
werks = itab_zyglt006_aux1-werks
j_1bbranch = itab_zyglt006_aux1-j_1bbranch.
IF sy-subrc = 0.
IF itab_zyglt006_aux1-range <> itab_zyglt006_aux2-range.
CONCATENATE itab_zyglt006_aux2-range '%' INTO v_range.
IF itab_zyglt006_aux1-codmod EQ 'X'.
* >> Início da exclusão: FORM SALVA_DADOS2
SELECT SINGLE * INTO wa_zycet001
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS2
SELECT * INTO wa_zycet001
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycet001
WHERE nrseq LIKE v_range.
* >> Início da inclusão: FORM SALVA_DADOS2
ENDSELECT.
* << Fim da inclusão
ELSE.
ENDIF.
IF sy-subrc = 0.
MOVE itab_zyglt006_aux2-range TO itab_zyglt006_aux1-range.
MODIFY itab_zyglt006_aux1 INDEX v_tabix.
...
...
vkorg = itab_zyglt006_aux-vkorg
vtweg = itab_zyglt006_aux-vtweg
spart = itab_zyglt006_aux-spart
gsber = itab_zyglt006_aux-gsber
werks = itab_zyglt006_aux-werks
j_1bbranch = itab_zyglt006_aux-j_1bbranch
range = itab_zyglt006_aux-range.
IF sy-subrc = 0.
CONCATENATE itab_zyglt006_aux2-range '%' INTO v_range.
IF itab_zyglt006_aux2-codmod EQ 'X'.
* >> Início da exclusão: FORM SALVA_DADOS2
SELECT SINGLE * INTO wa_zycet001
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS2
SELECT * INTO wa_zycet001
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycet001
WHERE nrseq LIKE v_range.
* >> Início da inclusão: FORM SALVA_DADOS2
ENDSELECT.
* << Fim da inclusão
ELSE.
ENDIF.
IF sy-subrc = 0.
MESSAGE i001 WITH text-004.
v_erro = 1.
...
...
ENDLOOP.
MODIFY /pws/zyglt006 FROM TABLE itab_zyglt006_aux1.
CLEAR itab_zyglt006_aux2. REFRESH itab_zyglt006_aux2.
itab_zyglt006_aux2[] = itab_zyglt006_aux1[].
IF v_erro NE 0.
LOOP AT itab_zyglt006_del.
MOVE sy-tabix TO v_tabix.
CLEAR v_range.
CONCATENATE itab_zyglt006_del-range '%' INTO v_range.
IF itab_zyglt006_del-codmod EQ 'X'.
* >> Início da exclusão: FORM SALVA_DADOS2
SELECT SINGLE * INTO wa_zycet001
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS2
SELECT * INTO wa_zycet001
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycet001
WHERE nrseq LIKE v_range.
* >> Início da inclusão: FORM SALVA_DADOS2
ENDSELECT.
* << Fim da inclusão
ELSE.
ENDIF.
IF sy-subrc = 0.
MOVE itab_zyglt006_del TO itab_zyglt006_aux1.
APPEND itab_zyglt006_aux1.
...
...
MOVE: itab_zyglt006 TO itab_zyglt006_aux1.
APPEND itab_zyglt006_aux1.
CLEAR itab_zyglt006_aux1.
ENDIF.
ENDLOOP.
CALL SCREEN 200.
ELSE.
MESSAGE i001 WITH text-002.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_REGISTROS
FORM verifica_registros.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_REGISTROS
FORM verifica_registros. "#EC CALLED
* << Fim da inclusão
LOOP AT itab_zyglt006_aux1.
READ TABLE itab_zyglt006 WITH KEY
mandt = itab_zyglt006_aux1-mandt
codmod = itab_zyglt006_aux1-codmod
bukrs = itab_zyglt006_aux1-bukrs
vkorg = itab_zyglt006_aux1-vkorg
vtweg = itab_zyglt006_aux1-vtweg
spart = itab_zyglt006_aux1-spart
gsber = itab_zyglt006_aux1-gsber
werks = itab_zyglt006_aux1-werks
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL001TOP
program /pws/sapmzygl001 message-id /pws/zycem.
tables: /pws/zyglt006,
/pws/zygle006,
* >> Início da exclusão:
/pws/zycet001,
/pws/zycit001.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycet001,"#EC *
/pws/zycit001."#EC *
* << Fim da inclusão
controls: tc_lista type tableview
using screen '0100'.
controls: tc_lista2 type tableview
using screen '0200'.
data: wa_cols type cxtab_column.
data: begin of itab_zyglt006 occurs 0.
include structure /pws/zyglt006.
data: mark(1) type c.
data: v_doble(1) type c.
data: end of itab_zyglt006.
...
...
include structure /pws/zyglt006.
data: mark(1) type c.
data: end of itab_zyglt006_aux1.
data: begin of itab_zyglt006_aux2 occurs 0.
include structure /pws/zyglt006.
data: mark(1) type c.
data: end of itab_zyglt006_aux2.
data: begin of itab_zyglt006_del occurs 0.
include structure /pws/zyglt006.
data: mark(1) type c.
* >> Início da exclusão:
data: end of itab_zyglt006_del.
data: wa_zycet001 like /pws/zycet001.
* << Fim da exclusão
* >> Início da inclusão:
DATA: END OF itab_zyglt006_del."#EC *
DATA: wa_zycet001 LIKE /pws/zycet001."#EC *
* << Fim da inclusão
data: mark(1) type c,
okcode like sy-ucomm,
* >> Início da exclusão:
v_sele(1) type c value 0,
v_exist type i value 0,
v_exclu type i value 0,
* << Fim da exclusão
* >> Início da inclusão:
v_sele(1) TYPE c VALUE 0,"#EC *
v_exist TYPE i VALUE 0,"#EC *
v_exclu TYPE i VALUE 0,"#EC *
* << Fim da inclusão
v_status type i value 0,
* >> Início da exclusão:
v_status2 type i value 0,
* << Fim da exclusão
* >> Início da inclusão:
v_status2 TYPE i VALUE 0,"#EC *
* << Fim da inclusão
v_erro type i value 0,
v_bix like sy-tabix,
v_tabix like sy-tabix,
v_range like /pws/zycet001-nrseq,
v_alt type i value 0,
v_mod like /pws/zygle006-codmod,
v_flag .
* >> Início da exclusão:
data: v_cols type cxtab_column.
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_cols TYPE cxtab_column."#EC *
* << Fim da inclusão
data v_doble.
.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL002F01
...
move : itab_zycbt011 to /pws/zycbe011,
itab_zycbt011 to wa_zycbt011,
itab_zycbt012[] to itab_zycbt012_aux[].
v_status = '0'.
call screen '0100'.
endif.
endif.
endform.
form verifica_exclusao.
loop at itab_zycbt011 where mark eq 'X'.
* >> Início da exclusão: FORM VERIFICA_EXCLUSAO
select single * from /pws/zycbt012
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EXCLUSAO
SELECT * FROM /pws/zycbt012
* << Fim da inclusão
into /pws/zycbt012
* >> Início da inclusão: FORM VERIFICA_EXCLUSAO
UP TO 1 ROWS
* << Fim da inclusão
where codmod eq /pws/zycbe011-codmod
and codeven eq itab_zycbt011-codeven.
* >> Início da inclusão: FORM VERIFICA_EXCLUSAO
ENDSELECT.
* << Fim da inclusão
if sy-subrc eq 0.
message w061 with text-005 itab_zycbt011-codeven
text-006 text-007.
else.
delete itab_zycbt011.
endif.
endloop.
endform.
form salvar_dados.
if v_cria eq 'X'.
* >> Início da exclusão: FORM SALVAR_DADOS
select single * from /pws/zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
SELECT * FROM /pws/zycbt011
UP TO 1 ROWS
* << Fim da inclusão
where codeven eq /pws/zycbe011-codeven
and codmod eq /pws/zycbe011-codmod.
* >> Início da inclusão: FORM SALVAR_DADOS
ENDSELECT.
* << Fim da inclusão
if sy-subrc eq 0.
message w015 with text-001 text-002.
exit.
endif.
insert into /pws/zycbt011 values /pws/zycbe011.
...
...
move itab_zycbt012[] to itab_zycbt012a[].
loop at itab_zycbt012.
clear v_contador.
loop at itab_zycbt012a where chlanc =
itab_zycbt012-chlanc
and tpcodaux = itab_zycbt012-tpcodaux
and codaux = itab_zycbt012-codaux
and codaux2 = itab_zycbt012-codaux2.
v_contador = v_contador + 1.
endloop.
* >> Início da exclusão: FORM SALVAR_DADOS
if v_contador > 1.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
IF v_contador > 1. "#EC PORTABLE
* << Fim da inclusão
exit.
endif.
endloop.
refresh itab_zycbt012a.
clear : itab_zycbt012a.
* >> Início da exclusão: FORM SALVAR_DADOS
if v_contador > 1.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
IF v_contador > 1. "#EC PORTABLE
* << Fim da inclusão
message w015 with text-003.
exit.
endif.
modify /pws/zycbt012 from table itab_zycbt012.
loop at itab_zycbt012_aux.
clear itab_zycbt012.
read table itab_zycbt012
with key chlanc = itab_zycbt012_aux-chlanc
tpcodaux = itab_zycbt012_aux-tpcodaux
codaux = itab_zycbt012_aux-codaux
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL002TOP
program /pws/sapmzygl002 message-id /pws/zycmm.
* >> Início da exclusão:
tables : /pws/zycbt011,
/pws/zycbt012,
* << Fim da exclusão
* >> Início da inclusão:
TABLES : /pws/zycbt011,"#EC *
/pws/zycbt012,"#EC *
* << Fim da inclusão
/pws/zycbe011,
/pws/zycbe012.
controls:
ts_cont type tabstrip,
* >> Início da exclusão:
tc_conta type tableview using screen 102,
tc_even type tableview using screen 0001.
* << Fim da exclusão
* >> Início da inclusão:
tc_conta TYPE TABLEVIEW USING SCREEN 102, "#EC *
tc_even TYPE TABLEVIEW USING SCREEN 0001. "#EC *
* << Fim da inclusão
data : begin of itab_zycbt012 occurs 0.
include structure /pws/zycbt012.
data : mark.
data : end of itab_zycbt012.
data : begin of itab_zycbt012_aux occurs 0.
include structure /pws/zycbt012.
data : end of itab_zycbt012_aux.
data : begin of itab_zycbt012a occurs 0.
include structure /pws/zycbt012.
data : end of itab_zycbt012a.
data : begin of itab_zycbt011 occurs 0.
include structure /pws/zycbt011.
data : mark.
data : end of itab_zycbt011.
data : begin of itab_zycbt011_aux occurs 0.
include structure /pws/zycbt011.
data : end of itab_zycbt011_aux.
* >> Início da inclusão:
DATA: BEGIN OF itab_pf_status OCCURS 10,"#EC *
* << Fim da inclusão
* >> Início da exclusão:
data: begin of itab_pf_status occurs 10,
fcode like rsmpe-func,
end of itab_pf_status.
* << Fim da exclusão
* >> Início da inclusão:
fcode LIKE rsmpe-func,"#EC *
END OF itab_pf_status."#EC *
* << Fim da inclusão
data : wa_zycbt011 like /pws/zycbt011,
wa_cols type cxtab_column.
data : mark,
v_campo(25),
v_valor like /pws/zycbt011-txtdesc,
v_codmod like /pws/zycbt011-codmod,
okcode like sy-ucomm,
v_cria,
v_contador,
v_status,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003F01
...
when 'C'.
gt_outtab-icon = icon_red_light.
endcase.
append gt_outtab.
endloop.
endform.
form alv_build_header.
data: v_data(10) type c,
v_hora(10) type c,
v_dt(25) type c,
* >> Início da exclusão: FORM ALV_BUILD_HEADER
v_cabec(60) type c,
v_mandt(20) type c,
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER
v_cabec(60) TYPE c, "#EC *
v_mandt(20) TYPE c, "#EC *
* << Fim da inclusão
v_stat(20),
v_nummax type i.
data: ls_listheader like line of et_list_commentary.
write sy-datum dd/mm/yyyy to v_data.
write sy-uzeit to v_hora.
concatenate v_data v_hora into v_dt separated by ' - '.
concatenate sy-mandt sy-host(4) into v_mandt separated by ' - '.
case ok-code.
when 'AENV'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER
v_stat = 'A Enviar'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER
v_stat = text-002.
* << Fim da inclusão
when 'ENV'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER
v_stat = 'Enviado'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER
v_stat = text-003.
* << Fim da inclusão
when 'CANC'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER
v_stat = 'Cancelada'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER
v_stat = text-004.
* << Fim da inclusão
when 'LIST'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER
v_stat = 'Todos os STATUS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER
v_stat = text-005.
* << Fim da inclusão
endcase.
v_nummax = rco54if-maxsel.
refresh: et_list_commentary.
clear ls_listheader.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER
ls_listheader-key = 'Status : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER
ls_listheader-key = text-006.
* << Fim da inclusão
ls_listheader-info = v_stat.
append ls_listheader to et_list_commentary.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER
ls_listheader-key = 'Núm.Max de Mens: '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER
ls_listheader-key = text-007.
* << Fim da inclusão
ls_listheader-info = v_nummax.
append ls_listheader to et_list_commentary.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER
ls_listheader-key = 'Data/Hora : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER
ls_listheader-key = text-008.
* << Fim da inclusão
ls_listheader-info = v_dt.
append ls_listheader to et_list_commentary.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER
ls_listheader-key = 'Usuário : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER
ls_listheader-key = text-009.
* << Fim da inclusão
ls_listheader-info = sy-uname.
...
...
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = et_list_commentary.
endform.
form alv_build_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'ICON'.
ls_fieldcat-ref_fieldname = 'ICON'.
ls_fieldcat-ref_tabname = 'gt_outtab'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_s = 'Exceção'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_s = text-010.
* << Fim da inclusão
ls_fieldcat-outputlen = 8.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'TIPMEN'.
ls_fieldcat-ref_fieldname = 'TIPMEN'.
ls_fieldcat-ref_tabname = 'gt_outtab'.
ls_fieldcat-seltext_s = 'Tip.Msg'.
ls_fieldcat-outputlen = 8.
...
...
ls_fieldcat-ref_tabname = 'gt_outtab'.
ls_fieldcat-seltext_s = 'Núm.Interno'.
ls_fieldcat-outputlen = 11.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'DTCRIACAO'.
ls_fieldcat-ref_fieldname = 'DTCRIACAO'.
ls_fieldcat-ref_tabname = 'gt_outtab'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_m = 'Dt. Criação'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_m = text-011.
* << Fim da inclusão
ls_fieldcat-outputlen = 11.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'HRCRIACAO'.
ls_fieldcat-ref_fieldname = 'HRCRIACAO'.
ls_fieldcat-ref_tabname = 'gt_outtab'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_m = 'Hr. Criação'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_m = text-012.
* << Fim da inclusão
ls_fieldcat-outputlen = 11.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'USUARIO'.
ls_fieldcat-ref_fieldname = 'USUARIO'.
ls_fieldcat-ref_tabname = 'gt_outtab'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_s = 'Usuário'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_s = text-013.
* << Fim da inclusão
ls_fieldcat-outputlen = 12.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'STATUS'.
ls_fieldcat-ref_fieldname = 'STATUS'.
ls_fieldcat-ref_tabname = 'gt_outtab'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_s = 'Status'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_s = text-014.
* << Fim da inclusão
ls_fieldcat-outputlen = 8.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'PROCESSO'.
ls_fieldcat-ref_fieldname = 'PROCESSO'.
ls_fieldcat-ref_tabname = 'gt_outtab'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_s = 'Processo'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT
ls_fieldcat-seltext_s = text-015.
* << Fim da inclusão
ls_fieldcat-outputlen = 18.
append ls_fieldcat to gt_fieldcat.
endform.
form alv_set_layout.
clear l_is_layout.
l_is_layout-info_fieldname = 'COL'.
l_is_layout-box_fieldname = 'CHKBOX'.
l_is_layout-f2code = 'DOPPELKLICK'.
l_is_layout-zebra = 'X'.
endform.
* >> Início da exclusão: FORM SET_PF_STATUS
form set_pf_status using rt_extab type slis_t_extab.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_PF_STATUS
FORM set_pf_status USING rt_extab TYPE slis_t_extab. "#EC *
* << Fim da inclusão
case ok-code.
when ok_aenv.
set pf-status '200_ALV' excluding rt_extab.
when ok_env.
set pf-status '200_ALV' excluding rt_extab.
when ok_canc.
set pf-status '201_ALV' excluding rt_extab.
when ok_list.
set pf-status '201_ALV' excluding rt_extab.
endcase.
set titlebar 'LIS'.
endform.
form spec_user_command using r_ucomm like sy-ucomm
* >> Início da exclusão: FORM SPEC_USER_COMMAND
rs_selfield type slis_selfield.
* << Fim da exclusão
* >> Início da inclusão: FORM SPEC_USER_COMMAND
rs_selfield TYPE slis_selfield."#EC *
* << Fim da inclusão
clear v_numreg.
case r_ucomm.
when ok_anzei.
perform select_valor.
describe table t_cabe lines v_numreg.
tb_cabe-current_line = 1.
tb_cabe-top_line = 1.
tb_cabe-lines = v_numreg.
clear v_numreg.
describe table t_item lines v_numreg.
tb_item-current_line = 1.
tb_item-top_line = 1.
tb_item-lines = v_numreg.
sort: t_cabe by tipmen numint,
t_item by tipmen numint categ.
if not t_cabe[] is initial.
call screen 1000.
else.
call function 'POPUP_TO_CONFIRM_MSG_WITH_CALL'
exporting
* >> Início da exclusão: FORM SPEC_USER_COMMAND
txt01 = 'Não há registros para exibição das MENSAGENS...'
title = 'Exibição de MENSAGENS!!!'
* << Fim da exclusão
* >> Início da inclusão: FORM SPEC_USER_COMMAND
txt01 = text-016
title = text-017
* << Fim da inclusão
length = '65'
exceptions
function_module_missed = 1
text_second_pushbutton_missed = 2
others = 3.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endif.
...
...
for all entries in t_aux
where a~tipmen eq t_aux-tipmen
and a~numint eq t_aux-numint
and a~processo eq t_aux-processo.
if sy-subrc = 0.
select tipmen numint categ campo valor
from /pws/zyglt018
into table t_item
for all entries in t_cabe
where tipmen eq t_cabe-tipmen
* >> Início da exclusão: FORM SELECT_VALOR
and numint eq t_cabe-numint.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_VALOR
AND numint EQ t_cabe-numint. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endif.
else.
clear: t_aux, t_cabe, t_item.
refresh: t_aux, t_cabe, t_item.
loop at gt_outtab.
move: gt_outtab-tipmen to t_aux-tipmen,
gt_outtab-numint to t_aux-numint,
gt_outtab-processo to t_aux-processo.
append t_aux.
...
...
for all entries in t_aux
where a~tipmen eq t_aux-tipmen
and a~numint eq t_aux-numint
and a~processo eq t_aux-processo.
if sy-subrc = 0.
select tipmen numint categ campo valor
from /pws/zyglt018
into table t_item
for all entries in t_cabe
where tipmen eq t_cabe-tipmen
* >> Início da exclusão: FORM SELECT_VALOR
and numint eq t_cabe-numint.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_VALOR
AND numint EQ t_cabe-numint. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endif.
endif.
endform.
form list_read.
clear: ran_status, t_infmen, v_max_num_of_entries.
refresh: ran_status, t_infmen.
v_max_num_of_entries = rco54if-maxsel.
case ok-code.
when ok_aenv.
...
...
alv_build_fieldcat,
alv_set_layout,
alv_set_events.
if sy-batch is initial and
sy-binpt is initial.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM PERFORM_LIST
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
is_layout = l_is_layout
it_events = et_events
i_save = 'A'
it_excluding = rt_extab
is_variant = l_is_variant
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = gt_outtab.
else.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
is_layout = l_is_layout
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM PERFORM_LIST
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
it_excluding = rt_extab
i_save = 'A'
is_variant = l_is_variant
it_events = et_events
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = gt_outtab.
endif.
if alv_exit_caused_by_user-back = 'X'.
...
...
if alv_exit_caused_by_user-cancel = 'X'.
if not sy-calld is initial.
leave.
endif.
endif.
endform.
form exclusao.
clear: v_answer, v_mcateg, v_mtipmen, v_text.
call function 'POPUP_TO_CONFIRM'
exporting
* >> Início da exclusão: FORM EXCLUSAO
titlebar = 'Exclusão de valores e/ou dados básicos !!!'
text_question = 'Deseja EXCLUIR somente valores ?'
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
titlebar = text-018
text_question = text-019
* << Fim da inclusão
text_button_1 = 'Sim'
icon_button_1 = 'ICON_OKAY'
text_button_2 = 'Não'
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ''
importing
answer = v_answer
exceptions
text_not_found = 1
...
...
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
if v_answer = 1.
if not /pws/zyglt020-tipmen is initial and
not /pws/zyglt016-categ is initial and
not /pws/zyglt019-campo is initial.
read table t_carac with key col = 'X'.
if sy-subrc ne 0.
* >> Início da exclusão: FORM EXCLUSAO
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Selecionar registros a serem eliminados!!!'.
else.
loop at t_carac where col = 'X'.
delete t_tb_carac where
tipmen = /pws/zyglt020-tipmen and
categ = /pws/zyglt016-categ and
campo = /pws/zyglt019-campo and
valor = t_carac-valor and
...
...
delete t_carac index sy-tabix.
delete from /pws/zyglt022 client specified
where mandt = sy-mandt
and tipmen = /pws/zyglt020-tipmen
and categ = /pws/zyglt016-categ
and campo = /pws/zyglt019-campo
and valor = t_carac-valor.
endloop.
endif.
else.
* >> Início da exclusão: FORM EXCLUSAO
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Há campos OBRIGATÓRIOS não preenchidos!!!'.
endif.
else.
call function 'POPUP_TO_CONFIRM'
exporting
* >> Início da exclusão: FORM EXCLUSAO
titlebar = 'Exclusão de DADOS BÁSICOS !!!'
text_question = 'Deseja EXCLUIR dados básicos ?'
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
titlebar = text-019
text_question = text-021
* << Fim da inclusão
text_button_1 = 'Sim'
icon_button_1 = 'ICON_OKAY'
text_button_2 = 'Não'
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ''
importing
answer = v_answer
exceptions
text_not_found = 1
others = 2.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
if v_answer = 1.
if not /pws/zyglt020-tipmen is initial and
not /pws/zyglt016-categ is initial and
not /pws/zyglt019-campo is initial.
* >> Início da exclusão: FORM EXCLUSAO
select single * from /pws/zyglt020
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
SELECT * FROM /pws/zyglt020
UP TO 1 ROWS
* << Fim da inclusão
where campo = /pws/zyglt019-campo.
* >> Início da inclusão: FORM EXCLUSAO
ENDSELECT.
* << Fim da inclusão
if sy-subrc = 0.
* >> Início da exclusão: FORM EXCLUSAO
concatenate 'Primeiro deve-se eliminar CAMPO:'
/pws/zyglt019-campo into v_text
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
CONCATENATE text-020 /pws/zyglt019-campo INTO v_text
* << Fim da inclusão
separated by space.
* >> Início da exclusão: FORM EXCLUSAO
concatenate 'Categ:'
/pws/zyglt020-categ into v_mcateg
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
CONCATENATE text-022 /pws/zyglt020-categ INTO v_mcateg
* << Fim da inclusão
separated by space.
concatenate 'Tip.Mens:' /pws/zyglt020-tipmen into v_mtipmen
separated by space.
* >> Início da exclusão: FORM EXCLUSAO
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '092'
with v_text
* >> Início da exclusão: FORM EXCLUSAO
'da Tela => "Chaves / Ord. Campo" - '
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
text-023
* << Fim da inclusão
v_mcateg
...
...
where mandt = sy-mandt
and tipmen = /pws/zyglt020-tipmen
and categ = /pws/zyglt016-categ
and campo = /pws/zyglt019-campo
and valor = t_carac-valor.
delete from /pws/zyglt019 client specified
where mandt = sy-mandt
and campo = /pws/zyglt019-campo.
endloop.
else.
* >> Início da exclusão: FORM EXCLUSAO
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Há campos OBRIGATÓRIOS não preenchidos!!!'.
endif.
endif.
endif.
clear v_answer.
endform.
form grava.
/pws/zyglt015-mandt = sy-mandt.
...
...
alv_build_fieldcat_par,
alv_set_layout_par,
alv_set_events_par.
if sy-batch is initial and
sy-binpt is initial.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LISTA_PARAMETROS
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
is_layout = l_is_layout
it_events = et_events
i_save = 'A'
it_excluding = rt_extab
is_variant = l_is_variant
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_param.
else.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
is_layout = l_is_layout
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LISTA_PARAMETROS
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
it_excluding = rt_extab
i_save = 'A'
is_variant = l_is_variant
it_events = et_events
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_param.
endif.
if alv_exit_caused_by_user-back = 'X'.
...
...
if alv_exit_caused_by_user-cancel = 'X'.
if not sy-calld is initial.
leave.
endif.
endif.
endform.
form alv_build_header_par.
data: v_data(10) type c,
v_hora(10) type c,
v_dt(25) type c,
* >> Início da exclusão: FORM ALV_BUILD_HEADER_PAR
v_cabec(60) type c,
v_mandt(20) type c,
v_stat(20),
v_nummax type i.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_PAR
v_cabec(60) TYPE c, "#EC *
v_mandt(20) TYPE c, "#EC *
v_stat(20), "#EC *
v_nummax TYPE i. "#EC *
* << Fim da inclusão
data: ls_listheader like line of et_list_commentary.
write sy-datum dd/mm/yyyy to v_data.
write sy-uzeit to v_hora.
concatenate v_data v_hora into v_dt separated by ' - '.
concatenate sy-mandt sy-host(4) into v_mandt separated by ' - '.
refresh: et_list_commentary.
clear ls_listheader.
ls_listheader-typ = 'S'.
ls_listheader-key = 'Data/Hora : '.
ls_listheader-info = v_dt.
...
...
refresh t_param.
select * from /pws/zyglt015
into table t_param.
endform.
form alv_build_fieldcat_par.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'TIPMEN'.
ls_fieldcat-ref_fieldname = 'TIPMEN'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'Tipo Mens.'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-024.
* << Fim da inclusão
ls_fieldcat-outputlen = 10.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'DESCR'.
ls_fieldcat-ref_fieldname = 'DESCR'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'Descr.'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-025.
* << Fim da inclusão
ls_fieldcat-outputlen = 20.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'STATUS'.
ls_fieldcat-ref_fieldname = 'STATUS'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
ls_fieldcat-seltext_s = 'Status'.
ls_fieldcat-outputlen = 6.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'DAT_VAL'.
ls_fieldcat-ref_fieldname = 'DAT_VAL'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
ls_fieldcat-seltext_s = 'Vál. Desde'.
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-026.
* << Fim da inclusão
ls_fieldcat-outputlen = 10.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'PROD'.
ls_fieldcat-ref_fieldname = 'PROD'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'Produto'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-027.
* << Fim da inclusão
ls_fieldcat-outputlen = 10.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'ARQ_CLI'.
ls_fieldcat-ref_fieldname = 'ARQ_CLI'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'Arq. Cliente'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-028.
* << Fim da inclusão
ls_fieldcat-outputlen = 30.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'ARQ_TRA'.
ls_fieldcat-ref_fieldname = 'ARQ_TRA'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'Arq. Trabalho'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-029.
* << Fim da inclusão
ls_fieldcat-outputlen = 30.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'ARQ_LOG'.
ls_fieldcat-ref_fieldname = 'ARQ_LOG'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'Arq. LOG'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-030.
* << Fim da inclusão
ls_fieldcat-outputlen = 30.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'CATEG'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
ls_fieldcat-seltext_s = 'Categ(E/S)'.
ls_fieldcat-outputlen = 12.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'SISTOP_CLI'.
ls_fieldcat-ref_fieldname = 'SISTOP_CLI'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'S.O.-Cliente'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-031.
* << Fim da inclusão
ls_fieldcat-outputlen = 11.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'SISTOP_TRA'.
ls_fieldcat-ref_fieldname = 'SISTOP_TRA'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'S.O.-Trab'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-032.
* << Fim da inclusão
ls_fieldcat-outputlen = 11.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'SISTOP_LOG'.
ls_fieldcat-ref_fieldname = 'SISTOP_OG'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
ls_fieldcat-seltext_s = 'S.O.-LOG'.
ls_fieldcat-outputlen = 11.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'ORDEM'.
ls_fieldcat-ref_fieldname = 'ORDEM'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'Ordem'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-033.
* << Fim da inclusão
ls_fieldcat-outputlen = 5.
append ls_fieldcat to gt_fieldcat.
endform.
form alv_set_layout_par.
clear l_is_layout.
l_is_layout-zebra = 'X'.
endform.
form alv_set_events_par.
call function 'REUSE_ALV_EVENTS_GET'
exporting
...
...
case lr_event-name.
when 'USER_COMMAND'.
lr_event-form = 'PAR_USER_COMMAND'.
when 'TOP_OF_PAGE'.
lr_event-form = 'ALV_BUILD_HEADER_PAR'.
endcase.
modify et_events from lr_event.
endloop.
endform.
form par_user_command using r_ucomm like sy-ucomm
* >> Início da exclusão: FORM PAR_USER_COMMAND
rs_selfield type slis_selfield.
* << Fim da exclusão
* >> Início da inclusão: FORM PAR_USER_COMMAND
rs_selfield TYPE slis_selfield."#EC *
* << Fim da inclusão
endform.
* >> Início da exclusão: FORM PAR_SET_PF_STATUS
form par_set_pf_status using rt_extab type slis_t_extab.
* << Fim da exclusão
* >> Início da inclusão: FORM PAR_SET_PF_STATUS
FORM par_set_pf_status USING rt_extab TYPE slis_t_extab. "#EC *
* << Fim da inclusão
set titlebar 'LIS_PAR'.
endform.
form refresh_par.
...
...
v_work3 = 'X'.
endif.
/pws/zyglt015-ordem = /pws/zyglt015-ordem.
endform.
form read_info_2001.
select single * from /pws/zyglt019
where campo = /pws/zyglt019-campo.
if sy-subrc eq 0.
else.
clear /pws/zyglt019.
* >> Início da exclusão: FORM READ_INFO_2001
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: FORM READ_INFO_2001
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '017'
* >> Início da exclusão: FORM READ_INFO_2001
with 'Informação inexistente!!!'.
* << Fim da exclusão
* >> Início da inclusão: FORM READ_INFO_2001
WITH text-034.
* << Fim da inclusão
endif.
endform.
* >> Início da exclusão: FORM LOG
form log.
* << Fim da exclusão
* >> Início da inclusão: FORM LOG
FORM log. "#EC *
* << Fim da inclusão
loop at gt_outtab where chkbox = 'X'.
log_extnum = gt_outtab-tipmen.
define macro_add_fields.
clear l_s_fcat.
l_s_fcat-ref_table = 'BAL_S_SHOW'.
if &2 = 0.
l_s_fcat-no_out = 'X'.
else.
l_s_fcat-col_pos = &2.
endif.
...
...
object = log_object
subobject = ' '
external_number = log_extnum
object_attribute = 2
subobject_attribute = 2
external_number_attribute = 2
date_from = '00000000'
time_from = '000000'
date_to = '00000000'
time_to = '000000'
* >> Início da exclusão: FORM LOG
title_selection_screen = 'Título do LOG'
title_list_screen = 'Título do LOG'
* << Fim da exclusão
* >> Início da inclusão: FORM LOG
title_selection_screen = text-035
title_list_screen = text-035
* << Fim da inclusão
column_selection = h_baldisp
suppress_selection_dialog = 'X'
i_s_display_profile = l_bal_profile
importing
number_of_protocols = num_prot
exceptions
no_authority = 01.
if sy-subrc = 01.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
...
...
clear v_tipmen.
endif.
if not /pws/zyglt016-categ is initial.
select single denom from /pws/zyglt016
into v_categoria
where categ = /pws/zyglt016-categ.
else.
clear v_categoria.
endif.
if not /pws/zyglt019-status is initial.
* >> Início da exclusão: FORM DET_DOMINIO
select single ddtext from dd07t
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
SELECT ddtext FROM dd07t
* << Fim da inclusão
into v_status
* >> Início da inclusão: FORM DET_DOMINIO
UP TO 1 ROWS
* << Fim da inclusão
where domname = '/PWS/ZYGLD029'
and domvalue_l = /pws/zyglt019-status.
* >> Início da inclusão: FORM DET_DOMINIO
ENDSELECT.
* << Fim da inclusão
elseif not /pws/zyglt015-status is initial.
* >> Início da exclusão: FORM DET_DOMINIO
select single ddtext from dd07t
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
SELECT ddtext FROM dd07t
* << Fim da inclusão
into v_status
* >> Início da inclusão: FORM DET_DOMINIO
UP TO 1 ROWS
* << Fim da inclusão
where domname = '/PWS/ZYGLD029'
and domvalue_l = /pws/zyglt015-status.
* >> Início da inclusão: FORM DET_DOMINIO
ENDSELECT.
* << Fim da inclusão
else.
clear v_status.
endif.
if not /pws/zyglt019-categ_dad is initial.
* >> Início da exclusão: FORM DET_DOMINIO
select single ddtext from dd07t
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
SELECT ddtext FROM dd07t
* << Fim da inclusão
into v_categ_dad
* >> Início da inclusão: FORM DET_DOMINIO
UP TO 1 ROWS
* << Fim da inclusão
where domname = '/PWS/ZYGLD123'
and domvalue_l = /pws/zyglt019-categ_dad.
* >> Início da inclusão: FORM DET_DOMINIO
ENDSELECT.
* << Fim da inclusão
else.
clear v_categ_dad.
endif.
if not /pws/zyglt015-prod is initial.
* >> Início da exclusão: FORM DET_DOMINIO
select single ddtext from dd07t
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
SELECT ddtext FROM dd07t
* << Fim da inclusão
into v_produto
* >> Início da inclusão: FORM DET_DOMINIO
UP TO 1 ROWS
* << Fim da inclusão
where domname = '/PWS/ZYGLD030'
and domvalue_l = /pws/zyglt015-prod.
* >> Início da inclusão: FORM DET_DOMINIO
ENDSELECT.
* << Fim da inclusão
else.
clear v_produto.
endif.
if not /pws/zyglt019-formato is initial.
* >> Início da exclusão: FORM DET_DOMINIO
select single ddtext from dd07t
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
SELECT ddtext FROM dd07t
* << Fim da inclusão
into v_formato
* >> Início da inclusão: FORM DET_DOMINIO
UP TO 1 ROWS
* << Fim da inclusão
where domname = '/PWS/ZYGLD017'
and domvalue_l = /pws/zyglt019-formato.
* >> Início da inclusão: FORM DET_DOMINIO
ENDSELECT.
* << Fim da inclusão
else.
...
...
endif.
endform.
form check_1005.
clear v_check.
select single *
from /pws/zyglt016
where categ = /pws/zyglt016-categ.
if sy-subrc = 0.
if /pws/zyglt016-tip eq 'I'.
if /pws/zyglt023-cpchaveit is initial.
* >> Início da exclusão: FORM CHECK_1005
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_1005
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '017'
* >> Início da exclusão: FORM CHECK_1005
with 'Campo CHAVE ÍTEM não preenchidos!!!'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_1005
WITH text-036.
* << Fim da inclusão
v_check = 'X'.
exit.
endif.
elseif /pws/zyglt016-tip eq 'C'.
if ( /pws/zyglt023-cpchaveit is initial or
/pws/zyglt023-cpproc is initial ).
* >> Início da exclusão: FORM CHECK_1005
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_1005
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '017'
* >> Início da exclusão: FORM CHECK_1005
with 'Campos PROCESSO e/ou CHAVE ÍTEM'
'não preenchidos!!!'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_1005
WITH text-037. "#EC *
* << Fim da inclusão
v_check = 'X'.
...
...
alv_build_fieldcat_log,
alv_set_layout_log,
alv_set_events_log.
if sy-batch is initial and
sy-binpt is initial.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LOG_LIST
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
is_layout = l_is_layout
it_events = et_events
i_save = 'A'
it_excluding = rt_extab
is_variant = l_is_variant
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_log_zyglt020.
else.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
is_layout = l_is_layout
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LOG_LIST
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
it_excluding = rt_extab
i_save = 'A'
is_variant = l_is_variant
it_events = et_events
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_log_zyglt020.
endif.
if alv_exit_caused_by_user-back = 'X'.
...
...
endform.
form select_list.
select * from /pws/zyglt020
into table t_log_zyglt020
where campo = /pws/zyglt019-campo.
endform.
form alv_build_header_log.
data: v_data(10) type c,
v_hora(10) type c,
v_dt(25) type c,
* >> Início da exclusão: FORM ALV_BUILD_HEADER_LOG
v_cabec(60) type c,
v_mandt(20) type c.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG
v_cabec(60) TYPE c, "#EC *
v_mandt(20) TYPE c. "#EC *
* << Fim da inclusão
data: ls_listheader like line of et_list_commentary.
write sy-datum dd/mm/yyyy to v_data.
write sy-uzeit to v_hora.
concatenate v_data v_hora into v_dt separated by ' - '.
concatenate sy-mandt sy-host(4) into v_mandt separated by ' - '.
refresh: et_list_commentary.
clear ls_listheader.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER_LOG
ls_listheader-key = 'Campo : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG
ls_listheader-key = text-038.
* << Fim da inclusão
ls_listheader-info = /pws/zyglt019-campo.
append ls_listheader to et_list_commentary.
ls_listheader-typ = 'S'.
ls_listheader-key = 'Data/Hora : '.
ls_listheader-info = v_dt.
append ls_listheader to et_list_commentary.
ls_listheader-typ = 'S'.
ls_listheader-key = 'Usuário : '.
ls_listheader-info = sy-uname.
append ls_listheader to et_list_commentary.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = et_list_commentary.
endform.
form alv_build_fieldcat_log.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BUKRS'.
ls_fieldcat-ref_fieldname = 'BUKRS'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT020'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG
ls_fieldcat-seltext_s = 'Empresa'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG
ls_fieldcat-seltext_s = text-039.
* << Fim da inclusão
ls_fieldcat-outputlen = 8.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'TIPMEN'.
ls_fieldcat-ref_fieldname = 'TIPMEN'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT020'.
ls_fieldcat-seltext_s = 'Tip.Msg'.
ls_fieldcat-outputlen = 8.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'CATEG'.
ls_fieldcat-ref_fieldname = 'CATEG'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT020'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG
ls_fieldcat-seltext_s = 'Categoria'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG
ls_fieldcat-seltext_s = text-040.
* << Fim da inclusão
ls_fieldcat-outputlen = 11.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'CHAVE'.
ls_fieldcat-ref_fieldname = 'CHAVE'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT020'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG
ls_fieldcat-seltext_s = 'Chave'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG
ls_fieldcat-seltext_s = text-041.
* << Fim da inclusão
ls_fieldcat-outputlen = 7.
append ls_fieldcat to gt_fieldcat.
endform.
form alv_set_layout_log.
clear l_is_layout.
l_is_layout-zebra = 'X'.
endform.
form alv_set_events_log.
call function 'REUSE_ALV_EVENTS_GET'
exporting
...
...
alv_set_events_log_ext.
case sy-ucomm.
when 'PROT'.
if sy-batch is initial and
sy-binpt is initial.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LOG_EXTRATOR_INTERFACE
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
is_layout = l_is_layout
it_events = et_events
i_save = 'A'
it_excluding = rt_extab
is_variant = l_is_variant
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_log_zyglt021.
else.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
is_layout = l_is_layout
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LOG_EXTRATOR_INTERFACE
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
it_excluding = rt_extab
i_save = 'A'
is_variant = l_is_variant
it_events = et_events
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_log_zyglt021.
endif.
when 'INTE'.
if sy-batch is initial and
sy-binpt is initial.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LOG_EXTRATOR_INTERFACE
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
is_layout = l_is_layout
it_events = et_events
i_save = 'A'
it_excluding = rt_extab
is_variant = l_is_variant
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_log_zyglt024.
else.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
is_layout = l_is_layout
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LOG_EXTRATOR_INTERFACE
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
it_excluding = rt_extab
i_save = 'A'
is_variant = l_is_variant
it_events = et_events
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_log_zyglt024.
endif.
if alv_exit_caused_by_user-back = 'X'.
...
...
if alv_exit_caused_by_user-cancel = 'X'.
if not sy-calld is initial.
leave.
endif.
endif.
endform.
form alv_build_header_log_ext.
data: v_data(10) type c,
v_hora(10) type c,
v_dt(25) type c,
* >> Início da exclusão: FORM ALV_BUILD_HEADER_LOG_EXT
v_cabec(60) type c,
v_mandt(20) type c,
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG_EXT
v_cabec(60) TYPE c, "#EC *
v_mandt(20) TYPE c, "#EC *
* << Fim da inclusão
v_tip(30) type c,
v_dtin(10) type c,
v_dtfi(10) type c.
data: ls_listheader like line of et_list_commentary.
write sy-datum dd/mm/yyyy to v_data.
write sy-uzeit to v_hora.
concatenate v_data v_hora into v_dt separated by ' - '.
concatenate sy-mandt sy-host(4) into v_mandt separated by ' - '.
refresh: et_list_commentary.
clear ls_listheader.
...
...
ls_listheader-key = 'Data/Hora : '.
ls_listheader-info = v_dt.
append ls_listheader to et_list_commentary.
ls_listheader-typ = 'S'.
ls_listheader-key = 'Usuário : '.
ls_listheader-info = sy-uname.
append ls_listheader to et_list_commentary.
if not rco54if-abdat is initial.
write rco54if-abdat dd/mm/yyyy to v_dtin.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER_LOG_EXT
ls_listheader-key = 'Data Início : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG_EXT
ls_listheader-key = text-042.
* << Fim da inclusão
ls_listheader-info = v_dtin.
append ls_listheader to et_list_commentary.
endif.
if not rco54if-bisdat is initial.
write rco54if-bisdat dd/mm/yyyy to v_dtfi.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER_LOG_EXT
ls_listheader-key = 'Data Final : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG_EXT
ls_listheader-key = text-043.
* << Fim da inclusão
ls_listheader-info = v_dtfi.
append ls_listheader to et_list_commentary.
endif.
if /pws/zyglt017-tipmen is initial.
v_tip = 'TODOS OS TIPOS DE MENSAGENS'.
else.
v_tip = /pws/zyglt017-tipmen.
endif.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER_LOG_EXT
ls_listheader-key = 'Tipo Mensagem : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG_EXT
ls_listheader-key = text-044.
* << Fim da inclusão
ls_listheader-info = v_tip.
append ls_listheader to et_list_commentary.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = et_list_commentary.
endform.
form alv_build_fieldcat_log_ext.
case sy-ucomm.
when 'PROT'.
clear ls_fieldcat.
...
...
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT021'.
ls_fieldcat-seltext_s = 'Empresa'.
ls_fieldcat-outputlen = 8.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'ARQUIVO'.
ls_fieldcat-ref_fieldname = 'ARQUIVO'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT021'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Arquivo'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-045.
* << Fim da inclusão
ls_fieldcat-outputlen = 128.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'DATA'.
ls_fieldcat-ref_fieldname = 'DATA'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT021'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Data'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-046.
* << Fim da inclusão
ls_fieldcat-outputlen = 10.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'HORA'.
ls_fieldcat-ref_fieldname = 'HORA'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT021'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Hora'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-047.
* << Fim da inclusão
ls_fieldcat-outputlen = 8.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'LINHA'.
ls_fieldcat-ref_fieldname = 'LINHA'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT021'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Linha'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-048.
* << Fim da inclusão
ls_fieldcat-outputlen = 5.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'SEQ'.
ls_fieldcat-ref_fieldname = 'SEQ'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT021'.
ls_fieldcat-seltext_s = 'Seq'.
ls_fieldcat-outputlen = 5.
...
...
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
ls_fieldcat-seltext_s = 'Tip.Mensagem'.
ls_fieldcat-outputlen = 12.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'NUMINT'.
ls_fieldcat-ref_fieldname = 'NUMINT'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Núm. Int.'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-049.
* << Fim da inclusão
ls_fieldcat-outputlen = 10.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'DTMSG'.
ls_fieldcat-ref_fieldname = 'DTMSG'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
ls_fieldcat-seltext_s = 'Data'.
ls_fieldcat-outputlen = 10.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'CNPJ_BASF'.
ls_fieldcat-ref_fieldname = 'CNPJ_BASF'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'CNPJ Empresa'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-050.
* << Fim da inclusão
ls_fieldcat-outputlen = 16.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'CNPJ_DESPACHANTE'.
ls_fieldcat-ref_fieldname = 'CNPJ_DESPACHANTE'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'CNPJ Despachante'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-051.
* << Fim da inclusão
ls_fieldcat-outputlen = 16.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'CNPJ_IMPORTADOR'.
ls_fieldcat-ref_fieldname = 'CNPJ_IMPORTADOR'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'CNPJ Importador'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-052.
* << Fim da inclusão
ls_fieldcat-outputlen = 16.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'EMBARCA'.
ls_fieldcat-ref_fieldname = 'EMBARCA'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Nome Embarque'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-053.
* << Fim da inclusão
ls_fieldcat-outputlen = 15.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'NRSEQ'.
ls_fieldcat-ref_fieldname = 'NRSEQ'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Núm. Embarque'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-054.
* << Fim da inclusão
ls_fieldcat-outputlen = 10.
append ls_fieldcat to gt_fieldcat.
pos = pos + 1.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'MENSAGEM'.
ls_fieldcat-ref_fieldname = 'MENSAGEM'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Mensagem'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-055.
* << Fim da inclusão
ls_fieldcat-outputlen = 100.
append ls_fieldcat to gt_fieldcat.
when others.
endcase.
endform.
form alv_set_layout_log_ext.
clear l_is_layout.
l_is_layout-zebra = 'X'.
endform.
form alv_set_events_log_ext.
...
...
case lr_event-name.
when 'USER_COMMAND'.
lr_event-form = 'LOG_EXT_USER_COMMAND'.
when 'TOP_OF_PAGE'.
lr_event-form = 'ALV_BUILD_HEADER_LOG_EXT'.
endcase.
modify et_events from lr_event.
endloop.
endform.
form log_ext_user_command using r_ucomm like sy-ucomm
* >> Início da exclusão: FORM LOG_EXT_USER_COMMAND
rs_selfield type slis_selfield.
* << Fim da exclusão
* >> Início da inclusão: FORM LOG_EXT_USER_COMMAND
rs_selfield TYPE slis_selfield."#EC *
* << Fim da inclusão
endform.
* >> Início da exclusão: FORM LOG_EXT_SET_PF_STATUS
form log_ext_set_pf_status using rt_extab type slis_t_extab.
* << Fim da exclusão
* >> Início da inclusão: FORM LOG_EXT_SET_PF_STATUS
FORM log_ext_set_pf_status USING rt_extab TYPE slis_t_extab."#EC *
* << Fim da inclusão
set titlebar 'LIS_LOG_EXT'.
endform.
form fill_output_table_log_ext.
...
...
and numint = gt_outtab_aux-numint.
else.
select * from /pws/zyglt024
into table t_log_zyglt024
where bukrs = t001-bukrs
and tipmen = /pws/zyglt017-tipmen.
endif.
when others.
endcase.
endform.
* >> Início da exclusão: FORM LOG_INTERFACE
form log_interface.
* << Fim da exclusão
* >> Início da inclusão: FORM LOG_INTERFACE
FORM log_interface. "#EC *
* << Fim da inclusão
clear: rt_extab, gt_fieldcat, t_log_zyglt024,
alv_exit_caused_by_user, et_list_commentary, gt_fieldcat.
refresh: rt_extab, gt_fieldcat, t_log_zyglt024,
et_list_commentary, gt_fieldcat.
g_repid = sy-repid.
perform fill_output_table_log_ext.
perform: alv_build_header_log_ext,
alv_build_fieldcat_log_ext,
alv_set_layout_log_ext,
alv_set_events_log_ext.
if sy-batch is initial and
sy-binpt is initial.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LOG_INTERFACE
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
is_layout = l_is_layout
it_events = et_events
i_save = 'A'
it_excluding = rt_extab
is_variant = l_is_variant
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_log_zyglt024.
else.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_buffer_active = ' '
i_callback_program = g_repid
is_layout = l_is_layout
it_fieldcat = gt_fieldcat
* >> Início da exclusão: FORM LOG_INTERFACE
i_callback_top_of_page = 'ALV_TOP_OF_LIST'
* << Fim da exclusão
it_excluding = rt_extab
i_save = 'A'
is_variant = l_is_variant
it_events = et_events
importing
es_exit_caused_by_user = alv_exit_caused_by_user
tables
t_outtab = t_log_zyglt024.
endif.
if alv_exit_caused_by_user-back = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003I01
module ok_exit input.
clear: flg.
set screen 0.
leave screen.
endmodule.
module user_command_1001.
case ok-code.
when ok_refresh.
if t001-bukrs is initial.
* >> Início da exclusão: MODULE USER_COMMAND_1001
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
* >> Início da exclusão: MODULE USER_COMMAND_1001
with 'Preencher o campo EMPRESA !!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
WITH text-056. "#EC *
* << Fim da inclusão
else.
perform read_info.
endif.
when ok_aenv.
if t001-bukrs is initial.
* >> Início da exclusão: MODULE USER_COMMAND_1001
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Preencher o campo EMPRESA !!!'.
else.
perform read_info.
if v_inf_aenv > 0.
perform list_read.
perform perform_list.
endif.
endif.
when ok_env.
if t001-bukrs is initial.
* >> Início da exclusão: MODULE USER_COMMAND_1001
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Preencher o campo EMPRESA !!!'.
else.
perform read_info.
if v_inf_env > 0.
perform list_read.
perform perform_list.
endif.
endif.
when ok_canc.
if t001-bukrs is initial.
* >> Início da exclusão: MODULE USER_COMMAND_1001
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Preencher o campo EMPRESA !!!'.
else.
perform read_info.
if v_inf_canc > 0.
perform list_read.
perform perform_list.
endif.
endif.
when ok_list.
if t001-bukrs is initial.
* >> Início da exclusão: MODULE USER_COMMAND_1001
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Preencher o campo EMPRESA !!!'.
else.
perform read_info.
perform list_read.
perform perform_list.
endif.
when 'PROT'.
perform: log_extrator_interface.
...
...
g_ts_monitor-pressed_tab = c_ts_monitor-tab4.
when c_ts_monitor-tab5.
g_ts_monitor-pressed_tab = c_ts_monitor-tab5.
when others.
endcase.
endmodule.
module user_command_1002 input.
data: var1(132) type c ,
var2(132) type c ,
v_tam type i ,
* >> Início da exclusão: MODULE USER_COMMAND_1002
v_cont type i .
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1002
v_cont TYPE i . "#EC *
* << Fim da inclusão
perform det_categ.
case ok-code.
when 'PES_CLI'.
if v_work1 = 'X'.
call function 'WS_FILENAME_GET'
exporting
def_filename = ''
def_path = 'C:\'
mask = ',all files, *.*.'
mode = 'O'
title = text-001
importing
filename = v_cam_cli
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_1002
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
others = 5.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1002
inv_winsys = 0
no_batch = 0
selection_cancel = 0
selection_error = 0
OTHERS = 0.
* << Fim da inclusão
var1 = v_cam_cli.
v_tam = strlen( var1 ).
clear var2.
if v_cam_cli ne ' '.
v_tam = v_tam - 4.
var2 = var1(v_tam).
v_cam_cli = var2.
endif.
else.
call function 'POPUP_TO_CONFIRM_MSG_WITH_CALL'
exporting
* >> Início da exclusão: MODULE USER_COMMAND_1002
txt01 = 'Para Servidor de Aplicação, favor digitar o caminho!'
title = 'Caminho de Arquivo - CLIENTE'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1002
txt01 = text-057
title = text-058
* << Fim da inclusão
length = '65'
exceptions
function_module_missed = 1
text_second_pushbutton_missed = 2
others = 3.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endif.
...
...
call function 'WS_FILENAME_GET'
exporting
def_filename = ''
def_path = 'C:\'
mask = ',all files, *.*.'
mode = 'O'
title = text-001
importing
filename = v_cam_tra
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_1002
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
others = 5.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1002
inv_winsys = 0
no_batch = 0
selection_cancel = 0
selection_error = 0
OTHERS = 0.
* << Fim da inclusão
var1 = v_cam_tra.
v_tam = strlen( var1 ).
clear var2.
if v_cam_tra ne ' '.
v_tam = v_tam - 4.
var2 = var1(v_tam).
v_cam_tra = var2.
endif.
else.
call function 'POPUP_TO_CONFIRM_MSG_WITH_CALL'
exporting
txt01 = 'Para Servidor de Aplicação, favor digitar o caminho!'
* >> Início da exclusão: MODULE USER_COMMAND_1002
title = 'Caminho de Arquivo - TRABALHO'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1002
title = text-060
* << Fim da inclusão
length = '65'
exceptions
function_module_missed = 1
text_second_pushbutton_missed = 2
others = 3.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endif.
...
...
call function 'WS_FILENAME_GET'
exporting
def_filename = ''
def_path = 'C:\'
mask = ',all files, *.*.'
mode = 'O'
title = text-001
importing
filename = v_cam_log
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_1002
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
others = 5.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1002
inv_winsys = 0
no_batch = 0
selection_cancel = 0
selection_error = 0
OTHERS = 0.
* << Fim da inclusão
var1 = v_cam_log.
v_tam = strlen( var1 ).
clear var2.
if v_cam_log ne ' '.
v_tam = v_tam - 4.
var2 = var1(v_tam).
v_cam_log = var2.
endif.
else.
call function 'POPUP_TO_CONFIRM_MSG_WITH_CALL'
exporting
txt01 = 'Para Servidor de Aplicação, favor digitar o caminho!'
* >> Início da exclusão: MODULE USER_COMMAND_1002
title = 'Caminho de Arquivo - LOG'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1002
title = text-059
* << Fim da inclusão
length = '65'
exceptions
function_module_missed = 1
text_second_pushbutton_missed = 2
others = 3.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endif.
...
...
if not t_categ-categ is initial and
not t_categ-denom is initial.
loop at t_categ.
/pws/zyglt016-mandt = sy-mandt.
/pws/zyglt016-categ = t_categ-categ.
/pws/zyglt016-denom = t_categ-denom.
/pws/zyglt016-tip = t_categ-tip.
insert into /pws/zyglt016 values /pws/zyglt016.
endloop.
else.
* >> Início da exclusão: MODULE USER_COMMAND_1003
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
* >> Início da exclusão: MODULE USER_COMMAND_1003
with 'Preencher os campos Categoria/Denominação!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
WITH text-061.
* << Fim da inclusão
endif.
when 'EXCL'.
clear: ok-code, sy-ucomm.
read table t_tb_categ with key col = 'X'.
if sy-subrc ne 0.
* >> Início da exclusão: MODULE USER_COMMAND_1003
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
* >> Início da exclusão: MODULE USER_COMMAND_1003
with 'Selecionar registros a serem eliminados!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
WITH text-062.
* << Fim da inclusão
else.
* >> Início da exclusão: MODULE USER_COMMAND_1003
select single * from /pws/zyglt022
where categ = t_tb_categ-categ.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
SELECT * FROM /pws/zyglt022
UP TO 1 ROWS
WHERE categ = t_tb_categ-categ. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
if sy-subrc = 0.
v_mcateg = '"Caract.de Campo"'.
endif.
* >> Início da exclusão: MODULE USER_COMMAND_1003
select single * from /pws/zyglt020
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
SELECT * FROM /pws/zyglt020
UP TO 1 ROWS
* << Fim da inclusão
where categ = t_tb_categ-categ.
* >> Início da inclusão: MODULE USER_COMMAND_1003
ENDSELECT.
* << Fim da inclusão
if sy-subrc = 0.
v_mcateg1 = '"Chaves / Ord.Campo"'.
endif.
if not v_mcateg is initial or
not v_mcateg1 is initial.
concatenate v_mcateg v_mcateg1 into v_text
separated by ' - '.
* >> Início da exclusão: MODULE USER_COMMAND_1003
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '092'
with 'CATEGORIA:'
t_tb_categ-categ
'existente nas telas:'
* >> Início da exclusão: MODULE USER_COMMAND_1003
v_text.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
v_text. "#EC *
* << Fim da inclusão
exit.
endif.
loop at t_tb_categ where col = 'X'.
delete t_categ where categ = t_tb_categ-categ.
delete t_tb_categ index sy-tabix.
delete from /pws/zyglt016 client specified
where mandt = sy-mandt
and categ = t_tb_categ-categ.
endloop.
endif.
when 'ALTE'.
clear: ok-code, sy-ucomm.
read table t_categ with key col = 'X'.
if sy-subrc ne 0.
* >> Início da exclusão: MODULE USER_COMMAND_1003
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'S'
number '000'
* >> Início da exclusão: MODULE USER_COMMAND_1003
with 'Selecionar registros a serem alterados!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
WITH text-063.
* << Fim da inclusão
endif.
loop at t_categ where col = 'X'.
...
...
endif.
endmodule.
module ts_carac_active_tab_get input.
ok-code = sy-ucomm.
case ok-code.
when c_ts_carac-tab1.
g_ts_carac-pressed_tab = c_ts_carac-tab1.
when c_ts_carac-tab2.
if /pws/zyglt016-categ is initial or
/pws/zyglt020-tipmen is initial.
* >> Início da exclusão: MODULE TS_CARAC_ACTIVE_TAB_GET
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE TS_CARAC_ACTIVE_TAB_GET
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
* >> Início da exclusão: MODULE TS_CARAC_ACTIVE_TAB_GET
with 'Preencher: CATEGORIA e TIPO MENSAGEM!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TS_CARAC_ACTIVE_TAB_GET
WITH text-064.
* << Fim da inclusão
exit.
else.
...
...
endmodule.
module user_command_2001 input.
case ok-code.
when 'INSE'.
clear: ok-code, sy-ucomm.
if not /pws/zyglt019-campo is initial.
select single * from /pws/zyglt019
into st_basic
where campo = /pws/zyglt019-campo.
if sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_2001
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_2001
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '017'
* >> Início da exclusão: MODULE USER_COMMAND_2001
with 'Já existe esta informação,'
'somente permitido alteração!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_2001
WITH text-065. "#EC *
* << Fim da inclusão
else.
...
...
insert into /pws/zyglt019 values /pws/zyglt019.
endif.
endif.
when 'ALTE'.
clear: ok-code, sy-ucomm.
if not /pws/zyglt019-campo is initial.
select single * from /pws/zyglt019
into st_basic
where campo = /pws/zyglt019-campo.
if sy-subrc ne 0.
* >> Início da exclusão: MODULE USER_COMMAND_2001
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_2001
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '017'
* >> Início da exclusão: MODULE USER_COMMAND_2001
with 'Informação inexistente,'
'portanto não há como alterar!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_2001
WITH text-066.
* << Fim da inclusão
else.
...
...
/pws/zyglt019-campo = t_carac-campo.
/pws/zyglt019-dat_val = /pws/zyglt019-dat_val.
/pws/zyglt019-denominacao = /pws/zyglt019-denominacao.
/pws/zyglt019-status = /pws/zyglt019-status.
/pws/zyglt019-categ_dad = /pws/zyglt019-categ_dad.
/pws/zyglt019-num_carac = /pws/zyglt019-num_carac.
/pws/zyglt019-tip_carac = /pws/zyglt019-tip_carac.
insert into /pws/zyglt019 values /pws/zyglt019.
endloop.
else.
* >> Início da exclusão: MODULE USER_COMMAND_2002
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_2002
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
* >> Início da exclusão: MODULE USER_COMMAND_2002
with 'Há campos não preenchidos!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_2002
WITH text-067.
* << Fim da inclusão
endif.
when 'EXCL'.
clear: ok-code, sy-ucomm.
call function 'POPUP_TO_CONFIRM'
exporting
* >> Início da exclusão: MODULE USER_COMMAND_2002
titlebar = 'Exclusão de valores e/ou dados básicos !!!'
text_question = 'Deseja realmente EXCLUIR registros?'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_2002
titlebar = text-068
text_question = text-069
* << Fim da inclusão
text_button_1 = 'Sim'
icon_button_1 = 'ICON_OKAY'
text_button_2 = 'Não'
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ''
importing
answer = v_answer
exceptions
text_not_found = 1
...
...
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
if v_answer = 1.
perform exclusao.
endif.
when 'ALTE'.
clear: ok-code, sy-ucomm.
read table t_carac with key col = 'X'.
if sy-subrc ne 0.
* >> Início da exclusão: MODULE USER_COMMAND_2002
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_2002
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Selecionar registros a serem alterados!!!'.
endif.
loop at t_carac where col = 'X'.
/pws/zyglt022-mandt = sy-mandt.
/pws/zyglt022-tipmen = t_carac-tipmen.
/pws/zyglt022-categ = t_carac-categ.
/pws/zyglt022-campo = t_carac-campo.
/pws/zyglt022-valor = t_carac-valor.
...
...
and tipmen eq /pws/zyglt020-tipmen
and categ eq /pws/zyglt016-categ.
if sy-subrc <> 0.
/pws/zyglt023-mandt = sy-mandt.
/pws/zyglt023-bukrs = t001-bukrs.
/pws/zyglt023-tipmen = /pws/zyglt020-tipmen.
/pws/zyglt023-categ = /pws/zyglt016-categ.
/pws/zyglt023-cpproc = /pws/zyglt023-cpproc.
/pws/zyglt023-cpchaveit = /pws/zyglt023-cpchaveit.
insert into /pws/zyglt023 values /pws/zyglt023.
* >> Início da exclusão: MODULE USER_COMMAND_1005
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'S'
number '000'
* >> Início da exclusão: MODULE USER_COMMAND_1005
with 'CAMPOS OBRIGATÓRIOS inseridos!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
WITH text-070.
* << Fim da inclusão
exit.
endif.
...
...
/pws/zyglt020-mandt = sy-mandt.
/pws/zyglt020-bukrs = t001-bukrs.
/pws/zyglt020-tipmen = t_ordem-tipmen.
/pws/zyglt020-categ = t_ordem-categ.
/pws/zyglt020-campo = t_ordem-campo.
/pws/zyglt020-ordem = t_ordem-ordem.
/pws/zyglt020-chave = t_ordem-chave.
insert into /pws/zyglt020 values /pws/zyglt020.
endloop.
else.
* >> Início da exclusão: MODULE USER_COMMAND_1005
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Há campos não preenchidos!!!'.
endif.
when 'ALTE'.
if not v_proc is initial or
not v_chave is initial.
select single * from /pws/zyglt023
into st_zyglt023
where bukrs eq t001-bukrs
and tipmen eq /pws/zyglt020-tipmen
and categ eq /pws/zyglt016-categ.
if sy-subrc = 0.
/pws/zyglt023-mandt = sy-mandt.
/pws/zyglt023-bukrs = t001-bukrs.
/pws/zyglt023-tipmen = st_zyglt023-tipmen.
/pws/zyglt023-categ = st_zyglt023-categ.
/pws/zyglt023-cpproc = /pws/zyglt023-cpproc.
/pws/zyglt023-cpchaveit = /pws/zyglt023-cpchaveit.
update /pws/zyglt023.
* >> Início da exclusão: MODULE USER_COMMAND_1005
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'S'
number '000'
* >> Início da exclusão: MODULE USER_COMMAND_1005
with 'CAMPOS OBRIGATÓRIOS alterados!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
WITH text-071.
* << Fim da inclusão
endif.
endif.
clear: v_proc, v_chave.
perform check_1005.
if v_check is initial.
clear: ok-code, sy-ucomm.
read table t_ordem with key col = 'X'.
if sy-subrc ne 0.
* >> Início da exclusão: MODULE USER_COMMAND_1005
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Selecionar registros a serem alterados!!!'.
endif.
loop at t_ordem where col = 'X'.
/pws/zyglt020-mandt = sy-mandt.
/pws/zyglt020-bukrs = t001-bukrs.
/pws/zyglt020-tipmen = t_ordem-tipmen.
/pws/zyglt020-categ = t_ordem-categ.
/pws/zyglt020-campo = t_ordem-campo.
...
...
modify t_ordem index sy-tabix.
t_tb_ordem = t_ordem.
modify t_tb_ordem index sy-tabix.
endif.
endloop.
endif.
when 'EXCL'.
clear: ok-code, sy-ucomm.
read table t_ordem with key col = 'X'.
if sy-subrc ne 0.
* >> Início da exclusão: MODULE USER_COMMAND_1005
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
with 'Selecionar registros a serem eliminados!!!'.
else.
loop at t_ordem where col = 'X'.
delete t_ordem index sy-tabix.
delete t_tb_ordem where bukrs = t001-bukrs
and tipmen = t_ordem-tipmen
and categ = t_ordem-categ
and campo = t_ordem-campo.
...
...
and categ = t_ordem-categ
and campo = t_ordem-campo.
endloop.
endif.
endcase.
endmodule.
module tb_ordem_modify input.
select single * from /pws/zyglt019
where campo = t_tb_ordem-campo.
if sy-subrc ne 0.
* >> Início da exclusão: MODULE TB_ORDEM_MODIFY
message id 'ZYNFM'
* << Fim da exclusão
* >> Início da inclusão: MODULE TB_ORDEM_MODIFY
MESSAGE ID '/PWS/ZYNFM'
* << Fim da inclusão
type 'W'
number '000'
* >> Início da exclusão: MODULE TB_ORDEM_MODIFY
with 'Campo inválido!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TB_ORDEM_MODIFY
WITH text-072.
* << Fim da inclusão
exit.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003O01
...
v_work3 = 'X'.
v_entrada = 'X'.
v_saida = ''.
flg-no_init = 'X'.
endif.
endmodule.
module refresh_info output.
rco54if-abdat = v_datini.
rco54if-bisdat = v_datfim.
endmodule.
* >> Início da exclusão: MODULE STATUS_1000
module status_1000 output.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_1000
module status_1000 output. "#EC *
* << Fim da inclusão
set pf-status '110'.
set titlebar '110'.
clear v_numreg.
describe table t_cabe lines v_numreg.
tb_cabe-lines = sy-tfill.
describe table t_item lines v_numreg.
tb_item-lines = sy-tfill.
endmodule.
module ts_monitor_active_tab_set output.
ts_monitor-activetab = g_ts_monitor-pressed_tab.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003TOP
program /pws/sapmzygl003.
tables: /pws/zyglt015,
/pws/zyglt016,
/pws/zyglt017,
/pws/zyglt018,
/pws/zyglt019,
/pws/zyglt020,
* >> Início da exclusão:
/pws/zyglt021,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zyglt021,"#EC *
* << Fim da inclusão
/pws/zyglt022,
/pws/zyglt023,
* >> Início da exclusão:
/pws/zyglt024,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zyglt024,"#EC *
* << Fim da inclusão
rco54if,
t001,
* >> Início da exclusão:
dd07t.
* << Fim da exclusão
* >> Início da inclusão:
dd07t."#EC *
* << Fim da inclusão
data: begin of flg,
not_first,
refresh_list,
send,
no_init,
upd,
ins,
text_changed,
txtrf,
terminated_without_commit,
end of flg.
* >> Início da exclusão:
data: begin of st_basic.
include structure /pws/zyglt019.
data: end of st_basic.
data: begin of st_zyglt015.
include structure /pws/zyglt015.
data: end of st_zyglt015.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF st_basic."#EC *
INCLUDE STRUCTURE /pws/zyglt019."#EC *
DATA: END OF st_basic."#EC *
DATA: BEGIN OF st_zyglt015."#EC *
INCLUDE STRUCTURE /pws/zyglt015."#EC *
DATA: END OF st_zyglt015."#EC *
* << Fim da inclusão
data: begin of st_zyglt023.
include structure /pws/zyglt023.
data: end of st_zyglt023.
data: begin of t_icount occurs 0,
status(1),
count type i,
end of t_icount,
begin of t_infmen occurs 0,
tipmen like /pws/zyglt017-tipmen,
numint like /pws/zyglt017-numint,
...
...
data: begin of t_log_zyglt020 occurs 0.
include structure /pws/zyglt020.
data: end of t_log_zyglt020.
data: begin of t_log_zyglt021 occurs 0.
include structure /pws/zyglt021.
data: end of t_log_zyglt021.
data: begin of t_log_zyglt024 occurs 0.
include structure /pws/zyglt024.
data: end of t_log_zyglt024.
data:
* >> Início da exclusão:
ok-code like sy-ucomm,
* << Fim da exclusão
* >> Início da inclusão:
ok-code LIKE sy-ucomm, "#EC *
* << Fim da inclusão
v_func like sy-ucomm,
v_max_num_of_entries type i,
v_inf_aenv type i,
v_inf_env type i,
v_inf_canc type i,
v_numreg type i,
v_cam_cli(132) type c,
v_cam_tra(132) type c,
v_cam_log(132) type c,
v_appl1(1) type c,
...
...
v_entrada(1) type c,
v_saida(1) type c,
v_answer(1) type c,
v_categ(1) type c,
v_datini like sy-datum,
v_datfim like sy-datum,
v_categoria like dd07t-ddtext,
v_status like dd07t-ddtext,
v_tipmen like dd07t-ddtext,
v_categ_dad like dd07t-ddtext,
* >> Início da exclusão:
v_formato like dd07t-ddtext,
* << Fim da exclusão
* >> Início da inclusão:
v_formato LIKE dd07t-ddtext,"#EC *
* << Fim da inclusão
v_produto like dd07t-ddtext,
* >> Início da exclusão:
v_flag(1) type c,
* << Fim da exclusão
* >> Início da inclusão:
v_flag(1) TYPE c,"#EC *
* << Fim da inclusão
v_mcateg(20) type c,
v_mcateg1(20) type c,
v_mtipmen(20) type c,
v_text(40) type c,
v_proc(1) type c,
v_chave(1) type c,
v_check(1) type c.
data:
v_max_num_of_entries_def type i value '500',
* >> Início da exclusão:
ok_back like ok-code value 'BACK',
* << Fim da exclusão
* >> Início da inclusão:
ok_back LIKE ok-code VALUE 'BACK',"#EC *
* << Fim da inclusão
ok_list like ok-code value 'LISTA',
* >> Início da exclusão:
ok_prot like ok-code value 'PROT',
* << Fim da exclusão
* >> Início da inclusão:
ok_prot LIKE ok-code VALUE 'PROT',"#EC *
* << Fim da inclusão
ok_anzei like ok-code value 'ANZEI',
ok_refresh like ok-code value 'REFR',
ok_aenv like ok-code value 'AENV',
...
...
include structure /pws/zyglt015.
data end of t_param.
type-pools: slis.
include <icon>.
data: gt_fieldcat type slis_t_fieldcat_alv.
data: ls_fieldcat type slis_fieldcat_alv.
data: alv_exit_caused_by_user type slis_exit_by_user.
data: rt_extab type slis_t_extab.
data: g_repid like sy-repid.
data: pos type i value 1.
* >> Início da exclusão:
data: l_is_layout type slis_layout_alv.
* << Fim da exclusão
* >> Início da inclusão:
DATA: l_is_layout TYPE slis_layout_alv."#EC *
* << Fim da inclusão
data: l_is_variant type disvariant.
* >> Início da exclusão:
data: cs_variant like disvariant.
* << Fim da exclusão
* >> Início da inclusão:
DATA: cs_variant LIKE disvariant."#EC *
* << Fim da inclusão
data: et_events type slis_t_event.
* >> Início da exclusão:
data: lr_event type slis_alv_event.
data: et_list_commentary type slis_t_listheader.
data: ls_list_commentary type slis_listheader.
* << Fim da exclusão
* >> Início da inclusão:
DATA: lr_event TYPE slis_alv_event."#EC *
DATA: et_list_commentary TYPE slis_t_listheader."#EC *
DATA: ls_list_commentary TYPE slis_listheader."#EC *
* << Fim da inclusão
data: hlp_txt_alv(50) value ''.
* >> Início da exclusão:
data: hlp_sep_alv(2) value ' '.
controls: tb_cabe type tableview using screen 1000.
controls: tb_item type tableview using screen 1000.
* << Fim da exclusão
* >> Início da inclusão:
DATA: hlp_sep_alv(2) VALUE ' '."#EC *
CONTROLS: tb_cabe TYPE TABLEVIEW USING SCREEN 1000."#EC *
CONTROLS: tb_item TYPE TABLEVIEW USING SCREEN 1000."#EC *
* << Fim da inclusão
controls: tb_categ type tableview using screen 1003.
controls: tb_carac type tableview using screen 2002.
controls: tb_ordem type tableview using screen 1005.
constants: begin of c_ts_monitor,
tab1 like sy-ucomm value 'MONIT',
tab2 like sy-ucomm value 'PARAM',
tab3 like sy-ucomm value 'CATEG',
tab4 like sy-ucomm value 'CARAC',
tab5 like sy-ucomm value 'CHAVE',
end of c_ts_monitor.
* >> Início da exclusão:
controls: ts_monitor type tabstrip.
* << Fim da exclusão
* >> Início da inclusão:
CONTROLS: ts_monitor TYPE TABSTRIP."#EC *
* << Fim da inclusão
data: begin of g_ts_monitor,
subscreen like sy-dynnr,
prog like sy-repid value '/PWS/SAPMZYGL003',
pressed_tab like sy-ucomm value c_ts_monitor-tab1,
end of g_ts_monitor.
constants: begin of c_ts_carac,
tab1 like sy-ucomm value 'BASIC',
tab2 like sy-ucomm value 'VALOR',
end of c_ts_carac.
* >> Início da exclusão:
controls: ts_carac type tabstrip.
* << Fim da exclusão
* >> Início da inclusão:
CONTROLS: ts_carac TYPE TABSTRIP."#EC *
* << Fim da inclusão
data: begin of g_ts_carac,
subscreen like sy-dynnr,
prog like sy-repid value '/PWS/SAPMZYGL003',
pressed_tab like sy-ucomm value c_ts_carac-tab1,
end of g_ts_carac.
data: log_extnum like balhdr-extnumber,
* >> Início da exclusão:
num_prot like sy-dbcnt.
* << Fim da exclusão
* >> Início da inclusão:
num_prot LIKE sy-dbcnt."#EC *
* << Fim da inclusão
data: log_object like balhdr-object value 'COMS'.
* >> Início da exclusão:
data l_bal_profile type bal_s_prof.
* << Fim da exclusão
* >> Início da inclusão:
DATA l_bal_profile TYPE bal_s_prof. "#EC *
* << Fim da inclusão
data l_s_fcat type bal_s_fcat.
* >> Início da exclusão:
data l_s_sort type bal_s_sort.
* << Fim da exclusão
* >> Início da inclusão:
DATA l_s_sort TYPE bal_s_sort."#EC *
* << Fim da inclusão
data: h_baldisp like baldisp value '2 2221122 '.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL004F01
...
endif.
call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
exporting
defaultoption = 'Y'
diagnosetext1 = ' '
textline1 = text-021
titel = text-020
importing
answer = v_answer
exceptions
* >> Início da exclusão: FORM EXCLUIR
others = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR
OTHERS = 0.
* << Fim da inclusão
if v_answer eq 'J'.
v_dele = 1.
loop at it_zycit417 where mark = 'X'.
v_tabix = sy-tabix.
move: it_zycit417 to itab_dele.
append itab_dele.
delete it_zycit417 index v_tabix.
endloop.
endif.
endform.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL004I01
...
clear ok_code.
endmodule.
module tb_info_modify input.
clear: usr02, lfa1.
unpack it_zycit417-lifnr to it_zycit417-lifnr.
select single * from usr02
into usr02
where bname = it_zycit417-uname.
if sy-subrc ne 0.
message w013
* >> Início da exclusão: MODULE TB_INFO_MODIFY
with 'Usuário incorreto!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TB_INFO_MODIFY
with text-031.
* << Fim da inclusão
exit.
endif.
select single * from lfa1
into lfa1
where lifnr = it_zycit417-lifnr.
if sy-subrc ne 0.
message w013
* >> Início da exclusão: MODULE TB_INFO_MODIFY
with 'Despachante incorreto!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TB_INFO_MODIFY
with text-032.
* << Fim da inclusão
exit.
endif.
if it_zycit417-mark is initial.
append it_zycit417.
else.
modify it_zycit417 index tb_info-current_line.
endif.
endmodule.
module user_command_exit input.
case ok_code.
when 'BACK'.
perform trata_button_back.
when 'CANC'.
leave program.
when 'EXIT'.
leave program.
endcase.
clear ok_code.
endmodule.
* >> Início da exclusão: MODULE TRATA_DADOS
module trata_dados input.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_DADOS
MODULE trata_dados INPUT."#EC *
* << Fim da inclusão
if ok_code = 'POSI'.
move: mark to it_zycit417-mark .
move-corresponding /pws/zycit417 to it_zycit417.
modify it_zycit417 index tb_info-current_line .
endif.
endmodule.
module user_command_0200 input.
case ok_code.
when 'SAVE'.
perform salvar_dados.
...
...
read table it_zycit417 into wa_zycit417
with key lifnr = /pws/zycit417-lifnr.
if sy-subrc = 0.
tb_info-top_line = sy-tabix.
nextline = sy-tabix.
endif.
leave to screen 0.
elseif /pws/zycit417-uname is initial and
/pws/zycit417-lifnr is initial.
if sy-subrc eq 0.
* >> Início da exclusão: MODULE USER_COMMAND_0001
message s015 with text-003.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
MESSAGE s015 WITH text-003."#EC *
* << Fim da inclusão
exit.
endif.
leave to screen 0.
endif.
when 'BACK'.
leave to screen 0.
endcase.
clear ok_code.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL004TOP
PROGRAM /pws/sapmzygl004 MESSAGE-ID /pws/zycim.
TABLES: /pws/zycit417,
* >> Início da exclusão:
usr02,
lfa1.
* << Fim da exclusão
* >> Início da inclusão:
usr02,"#EC *
lfa1."#EC *
* << Fim da inclusão
DATA: BEGIN OF it_zycit417 OCCURS 0 .
INCLUDE STRUCTURE /PWS/ZYCIT417.
DATA: mark(1) .
DATA: END OF it_zycit417 .
DATA: BEGIN OF itab_dele OCCURS 0 .
INCLUDE STRUCTURE it_zycit417.
DATA: END OF itab_dele .
* >> Início da exclusão:
DATA: BEGIN OF it_aux OCCURS 0 .
INCLUDE STRUCTURE it_zycit417.
DATA: END OF it_aux .
DATA: BEGIN OF it_aux1 OCCURS 0 .
INCLUDE STRUCTURE it_zycit417.
DATA: END OF it_aux1 .
data: wa_zycit417 like it_zycit417.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF it_aux OCCURS 0 ."#EC *
INCLUDE STRUCTURE it_zycit417."#EC *
DATA: END OF it_aux ."#EC *
DATA: BEGIN OF it_aux1 OCCURS 0 . "#EC *
INCLUDE STRUCTURE it_zycit417. "#EC *
DATA: END OF it_aux1 . "#EC *
DATA: wa_zycit417 LIKE it_zycit417."#EC *
* << Fim da inclusão
DATA: BEGIN OF st_flag,
initial(1) ,
END OF st_flag .
data: ok_code like sy-ucomm ,
v_tabix like sy-tabix ,
v_tcode ,
v_answer ,
* >> Início da exclusão:
text(100) ,
* << Fim da exclusão
* >> Início da inclusão:
text(100) , "#EC *
* << Fim da inclusão
mark ,
nextline type i ,
v_line type i ,
v_posi(40) ,
v_copia(1) type c ,
v_cria(1) type c ,
v_exib(1) type c ,
v_index like sy-tabix ,
v_cont type n ,
v_copy type c ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 002
Texto: (8 caracteres)
"A Enviar"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (7 caracteres)
"Enviado"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 004
Texto: (9 caracteres)
"Cancelada"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (15 caracteres)
"Todos os STATUS"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (16 caracteres)
"Status :"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 007
Texto: (16 caracteres)
"Núm.Max de Mens:"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 008
Texto: (16 caracteres)
"Data/Hora :"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 009
Texto: (16 caracteres)
"Usuário :"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 010
Texto: (7 caracteres)
"Exceção"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 011
Texto: (11 caracteres)
"Dt. Criação"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 012
Texto: (11 caracteres)
"Hr. Criação"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 013
Texto: (7 caracteres)
"Usuário"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 014
Texto: (6 caracteres)
"Status"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 015
Texto: (8 caracteres)
"Processo"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 016
Texto: (47 caracteres)
"Não há registros para exibição das MENSAGENS..."
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 017
Texto: (24 caracteres)
"Exibição de MENSAGENS!!!"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 018
Texto: (42 caracteres)
"Exclusão de valores e/ou dados básicos !!!"
Comprimento máximo: 42
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 019
Texto: (29 caracteres)
"Exclusão de DADOS BÁSICOS !!!"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 020
Texto: (32 caracteres)
"Primeiro deve-se eliminar CAMPO:"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 021
Texto: (30 caracteres)
"Deseja EXCLUIR dados básicos ?"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 022
Texto: (6 caracteres)
"Categ:"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 023
Texto: (34 caracteres)
"da Tela => "Chaves / Ord. Campo" -"
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 024
Texto: (10 caracteres)
"Tipo Mens."
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 025
Texto: (6 caracteres)
"Descr."
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 026
Texto: (10 caracteres)
"Vál. Desde"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 027
Texto: (7 caracteres)
"Produto"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 028
Texto: (12 caracteres)
"Arq. Cliente"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 029
Texto: (13 caracteres)
"Arq. Trabalho"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (8 caracteres)
"Arq. LOG"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 031
Texto: (12 caracteres)
"S.O.-Cliente"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 032
Texto: (9 caracteres)
"S.O.-Trab"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 033
Texto: (5 caracteres)
"Ordem"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 034
Texto: (25 caracteres)
"Informação inexistente!!!"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 035
Texto: (13 caracteres)
"Título do LOG"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 036
Texto: (35 caracteres)
"Campo CHAVE ÍTEM não preenchidos!!!"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 037
Texto: (50 caracteres)
"Campos PROCESSO e/ou CHAVE ÍTEM não preenchidos!!!"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 038
Texto: (16 caracteres)
"Campo :"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 039
Texto: (7 caracteres)
"Empresa"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 040
Texto: (9 caracteres)
"Categoria"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 041
Texto: (5 caracteres)
"Chave"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 042
Texto: (16 caracteres)
"Data Início :"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 043
Texto: (16 caracteres)
"Data Final :"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 044
Texto: (16 caracteres)
"Tipo Mensagem :"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 045
Texto: (7 caracteres)
"Arquivo"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 046
Texto: (4 caracteres)
"Data"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 047
Texto: (4 caracteres)
"Hora"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 048
Texto: (5 caracteres)
"Linha"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 049
Texto: (9 caracteres)
"Núm. Int."
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 050
Texto: (12 caracteres)
"CNPJ Empresa"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 051
Texto: (16 caracteres)
"CNPJ Despachante"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 052
Texto: (15 caracteres)
"CNPJ Importador"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 053
Texto: (13 caracteres)
"Nome Embarque"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (13 caracteres)
"Núm. Embarque"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 055
Texto: (8 caracteres)
"Mensagem"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 056
Texto: (29 caracteres)
"Preencher o campo EMPRESA !!!"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 057
Texto: (52 caracteres)
"Para Servidor de Aplicação, favor digitar o caminho!"
Comprimento máximo: 52
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 058
Texto: (28 caracteres)
"Caminho de Arquivo - CLIENTE"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 059
Texto: (24 caracteres)
"Caminho de Arquivo - LOG"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 060
Texto: (29 caracteres)
"Caminho de Arquivo - TRABALHO"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 061
Texto: (44 caracteres)
"Preencher os campos Categoria/Denominação!!!"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 062
Texto: (42 caracteres)
"Selecionar registros a serem eliminados!!!"
Comprimento máximo: 42
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 063
Texto: (41 caracteres)
"Selecionar registros a serem alterados!!!"
Comprimento máximo: 41
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 064
Texto: (39 caracteres)
"Preencher: CATEGORIA e TIPO MENSAGEM!!!"
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 065
Texto: (57 caracteres)
"Já existe esta informação, somente permitido alteração!!!"
Comprimento máximo: 57
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 066
Texto: (55 caracteres)
"Informação inexistente, portanto não há como alterar!!!"
Comprimento máximo: 55
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 067
Texto: (28 caracteres)
"Há campos não preenchidos!!!"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 068
Texto: (42 caracteres)
"Exclusão de valores e/ou dados básicos !!!"
Comprimento máximo: 42
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 069
Texto: (35 caracteres)
"Deseja realmente EXCLUIR registros?"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 070
Texto: (32 caracteres)
"CAMPOS OBRIGATÓRIOS inseridos!!!"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 071
Texto: (32 caracteres)
"CAMPOS OBRIGATÓRIOS alterados!!!"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 072
Texto: (17 caracteres)
"Campo inválido!!!"
Comprimento máximo: 17
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL004
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 031
Texto: (20 caracteres)
"Usuário incorreto!!!"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 032
Texto: (24 caracteres)
"Despachante incorreto!!!"
Comprimento máximo: 24