CE PLUS - Nota 012398
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 25/07/2012 00:00:00
Data/Hora Última Alteração: 03/09/2012 17:04:32
Descrição da Nota: ACRESCENTADO BOTÃO DE LOG DE MODIFICAÇÕES NOS PROGRAMAS
Sintoma
Acrescentado botão de log de modificações nos programas
Solução
Acrescentado botão nos programas
Versões Tratadas
9.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12398 Data: 25/07/2012 Hora: 13:22:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12398
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00001
Agrupamento : 00122
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
ACRESCENTADO BOTÃO DE LOG DE MODIFICAÇÕES NOS PROGRAMAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
BOTÃO - LOG DE MODIFICAÇÕES - TRILHA DE AUDITORIA - ALTERAÇÃO DE TABELAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI004
CUAD /PWS/SAPMZYCI006
CUAD /PWS/SAPMZYCI007
CUAD /PWS/SAPMZYCI012
CUAD /PWS/SAPMZYCI013
CUAD /PWS/SAPMZYCI016
CUAD /PWS/SAPMZYCI020
CUAD /PWS/SAPMZYCI023
CUAD /PWS/SAPMZYCI029
CUAD /PWS/SAPMZYCI035
CUAD /PWS/SAPMZYCI042
CUAD /PWS/SAPMZYCI058
CUAD /PWS/SAPMZYCI059
CUAD /PWS/SAPMZYCI061
CUAD /PWS/SAPMZYCI070
CUAD /PWS/SAPMZYCI072
CUAD /PWS/SAPMZYCI073
CUAD /PWS/SAPMZYCI074
CUAD /PWS/SAPMZYCI075
CUAD /PWS/SAPMZYCI076
REPS /PWS/MZYCI004O01
REPS /PWS/MZYCI005I01
REPS /PWS/MZYCI005O01
REPS /PWS/MZYCI006I01
REPS /PWS/MZYCI006O01
REPS /PWS/MZYCI007I01
REPS /PWS/MZYCI007O01
REPS /PWS/MZYCI012I01
REPS /PWS/MZYCI012O01
REPS /PWS/MZYCI013I01
REPS /PWS/MZYCI013O01
REPS /PWS/MZYCI016I01
REPS /PWS/MZYCI016O01
REPS /PWS/MZYCI016X01
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020X01
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI029F01
REPS /PWS/MZYCI029I01
REPS /PWS/MZYCI035F01
REPS /PWS/MZYCI035I01
REPS /PWS/MZYCI042I01
REPS /PWS/MZYCI042O01
REPS /PWS/MZYCI058I01
REPS /PWS/MZYCI058O01
REPS /PWS/MZYCI059I01
REPS /PWS/MZYCI059O01
REPS /PWS/MZYCI061F01
REPS /PWS/MZYCI061O01
REPS /PWS/MZYCI070I01
REPS /PWS/MZYCI070O01
REPS /PWS/MZYCI072I01
REPS /PWS/MZYCI072O01
REPS /PWS/MZYCI073I01
REPS /PWS/MZYCI073O01
REPS /PWS/MZYCI074I01
REPS /PWS/MZYCI074O01
REPS /PWS/MZYCI075I01
REPS /PWS/MZYCI075O01
REPS /PWS/MZYCI076I01
REPS /PWS/MZYCI076O01
*Incluir botão LOG_TRILHA nos status principais dos programas abaixo.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI004
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI006
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI007
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI012
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI013
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI029
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI035
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI042
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI058
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI059
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI061
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI070
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI072
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI073
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI074
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI075
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI076
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI004O01
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI004'.
it_code-fcode = 'LOG_TRILHA'.
append it_code.
endif.
* << Fim da inclusão
CASE sy-tcode.
WHEN '/PWS/ZYCI004'.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A' EXCLUDING it_code.
* << Fim da inclusão
SET TITLEBAR '0300'.
WHEN '/PWS/ZYCI004_E' OR '/PWS/ZYCI004_L'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI005I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie008-nradto
' '.
* << Fim da inclusão
ENDCASE.
CLEAR ok_code.
ENDIF.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI005O01
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
data: begin of itab_botoes occurs 0.
data: button_name(10) type c .
data: end of itab_botoes.
clear v_trilha_auditoria.
clear itab_botoes.
refresh itab_botoes.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
v_salvo eq space.
itab_botoes-button_name = 'LOG_TRILHA'.
append itab_botoes.
endif.
* << Fim da inclusão
IF v_modo = 'X'.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A' excluding itab_botoes..
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS400'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS400' excluding itab_botoes.
* << Fim da inclusão
ENDIF.
SET TITLEBAR '0300'.
IF sy-tcode = '/PWS/ZYCI005_E'.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS0300' EXCLUDING 'SAVE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
itab_botoes-button_name = 'SAVE'.
SET PF-STATUS 'STATUS0300' EXCLUDING itab_botoes.
* << Fim da inclusão
ENDIF.
PERFORM carrega_cgc.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI006I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie008-nradto
' '.
* << Fim da inclusão
ENDCASE.
CLEAR: sy-ucomm, ok_code.
ENDIF.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI006O01
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
DATA: v_trilha_auditoria TYPE /pws/zyglt009-trilha_auditoria.
CLEAR v_trilha_auditoria.
SELECT trilha_auditoria FROM /pws/zyglt009
INTO v_trilha_auditoria
UP TO 1 ROWS
WHERE bukrs = space.
ENDSELECT.
IF v_trilha_auditoria IS INITIAL OR
v_salvo EQ space.
it_code-fcode = 'LOG_TRILHA'.
APPEND it_code.
ENDIF.
* << Fim da inclusão
IF sy-tcode ='/PWS/ZYCI006_E'.
it_code-fcode = 'SAVE'. APPEND it_code.
it_code-fcode = 'MODIFY'. APPEND it_code.
it_code-fcode = 'DELE'. APPEND it_code.
* >> Início da inclusão: MODULE STATUS_0050
ENDIF.
* << Fim da inclusão
SET PF-STATUS 'STATUS300_A' EXCLUDING it_code.
* >> Início da exclusão: MODULE STATUS_0050
ELSE.
SET PF-STATUS 'STATUS300_A'.
ENDIF.
* << Fim da exclusão
SET TITLEBAR '0300'.
PERFORM carrega_cgc.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/PWS/ZYCIE026-NRPRES
' '.
* << Fim da inclusão
endcase.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007O01
...
module status_0050 output.
* >> Início da inclusão: MODULE STATUS_0050
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
/PWS/ZYCIE026-NRPRES is initial.
it_code-fcode = 'LOG_TRILHA'.
append it_code.
endif.
* << Fim da inclusão
case sy-tcode.
when '/PWS/ZYCI007'.
* >> Início da exclusão: MODULE STATUS_0050
set pf-status 'STATUS300_A'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
set pf-status 'STATUS300_A' .
* << Fim da inclusão
set titlebar '0300'.
when '/PWS/ZYCI007_E' or '/PWS/ZYCI007_L'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI012I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie008-nradto
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR ok_code.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI012O01
...
module status_0050 output.
* >> Início da inclusão: MODULE STATUS_0050
DATA: v_trilha_auditoria TYPE /pws/zyglt009-trilha_auditoria.
DATA: BEGIN OF itab_botoes OCCURS 0.
DATA: button_name(10) TYPE c .
DATA: END OF itab_botoes.
CLEAR v_trilha_auditoria.
CLEAR itab_botoes.
REFRESH itab_botoes.
SELECT trilha_auditoria FROM /pws/zyglt009
INTO v_trilha_auditoria
UP TO 1 ROWS
WHERE bukrs = space.
ENDSELECT.
IF v_trilha_auditoria IS INITIAL .
itab_botoes-button_name = 'LOG_TRILHA'.
APPEND itab_botoes.
ENDIF.
* << Fim da inclusão
if /pws/zycie008-belnr_i is initial and /pws/zycie008-belnr_o is
initial and /pws/zycie008-belnr_c is initial.
* >> Início da exclusão: MODULE STATUS_0050
set pf-status 'STATUS300'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300' EXCLUDING itab_botoes.
* << Fim da inclusão
else.
* >> Início da exclusão: MODULE STATUS_0050
set pf-status 'STATUS300_A'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A' EXCLUDING itab_botoes.
* << Fim da inclusão
endif.
if sy-tcode = '/PWS/ZYCI012_E'.
* >> Início da exclusão: MODULE STATUS_0050
set pf-status 'STATUS300_A' excluding 'ESTOR'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
itab_botoes-button_name = 'ESTOR'.
APPEND itab_botoes.
SET PF-STATUS 'STATUS300_A' EXCLUDING itab_botoes.
* << Fim da inclusão
endif.
set titlebar '0300'.
perform carrega_cgc.
endmodule.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie008-nradto
' '.
* << Fim da inclusão
ENDCASE.
CLEAR ok_code.
CLEAR sy-ucomm.
ENDIF.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013O01
...
module STATUS_0050 output.
* >> Início da inclusão: MODULE STATUS_0050
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial .
it_code-fcode = 'LOG_TRILHA'.
append it_code.
endif.
* << Fim da inclusão
IF sy-tcode = '/PWS/ZYCI013_E'.
it_code-fcode = 'APROV'. APPEND it_code.
it_code-fcode = 'MARC'. APPEND it_code.
it_code-fcode = 'DESM'. APPEND it_code.
it_code-fcode = 'ESTORNO'. APPEND it_code.
SET PF-STATUS 'STATUS0300' EXCLUDING it_code.
ELSE.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS0300'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS0300' excluding it_code.
* << Fim da inclusão
ENDIF.
SET TITLEBAR '0300'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0200
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie043-nrseq
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR: okcode.
ENDMODULE.
...
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
case okcode.
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie041-nrseq
' '.
endcase.
* << Fim da inclusão
ENDIF.
CLEAR: okcode.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016O01
...
MODULE status_0200 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0200
FREE itab_pf_status.
CLEAR v_trilha_auditoria.
SELECT trilha_auditoria FROM /pws/zyglt009
INTO v_trilha_auditoria
UP TO 1 ROWS
WHERE bukrs = space.
ENDSELECT.
IF v_trilha_auditoria IS INITIAL .
itab_pf_status-fcode = 'LOG_TRILHA'.
APPEND itab_pf_status.
ENDIF.
LOOP AT itab_zycit044 WHERE docnum IS initial.
ENDLOOP.
IF sy-subrc EQ 0.
itab_pf_status-fcode = 'LOG_TRILHA'.
APPEND itab_pf_status.
ENDIF.
* << Fim da inclusão
CLEAR v_nfe.
SELECT SINGLE * FROM dd03l
WHERE tabname = 'J_1BNFDOC' AND
fieldname = 'NFE'.
IF sy-subrc EQ 0.
v_nfe = 'X' .
ENDIF.
* >> Início da exclusão: MODULE STATUS_0200
FREE itab_pf_status.
* << Fim da exclusão
...
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
CLEAR v_trilha_auditoria.
SELECT trilha_auditoria FROM /pws/zyglt009
INTO v_trilha_auditoria
UP TO 1 ROWS
WHERE bukrs = space.
ENDSELECT.
IF v_trilha_auditoria IS INITIAL OR
sy-tcode = '/PWS/ZYCI016_C'.
itab_pf_status-fcode = 'LOG_TRILHA'.
APPEND itab_pf_status.
ENDIF.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
* >> Início da inclusão:
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0100
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie078-nrseqli
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR okcode.
ENDMODULE.
...
...
* >> Início da inclusão: MODULE USER_COMMAND_0400
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie078-nrseqli
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR okcode.
ENDMODULE.
...
...
* >> Início da inclusão: MODULE USER_COMMAND_0500
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie078-nrseqli
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR okcode.
IF /pws/zycie078-aplicpli EQ '2' AND ittxt1[] IS INITIAL.
ittxt1-line = text-429.
APPEND ittxt1.
CALL METHOD editor2->set_text_as_r3table EXPORTING
table = ittxt1[].
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
MODULE status_0100 OUTPUT.
CLEAR it_code.
REFRESH it_code.
* >> Início da inclusão: MODULE STATUS_0100
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI020_C'.
it_code-fcode = 'LOG_TRILHA'.
append it_code .
endif.
* << Fim da inclusão
...
...
MODULE status_0400 OUTPUT.
CLEAR it_code.
REFRESH it_code.
* >> Início da inclusão: MODULE STATUS_0400
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI020_P'.
it_code-fcode = 'LOG_TRILHA'.
append it_code.
endif.
* << Fim da inclusão
...
...
MODULE status_0500 OUTPUT.
CLEAR it_code.
REFRESH it_code.
* >> Início da inclusão: MODULE STATUS_0500
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI020_I'.
it_code-fcode = 'LOG_TRILHA'.
append it_code.
endif.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
* >> Início da inclusão:
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie085-nrseqdi
' '.
* << Fim da inclusão
ENDCASE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
module status_0050 output.
refresh: it_statu2,
it_statu4.
* >> Início da inclusão: MODULE STATUS_0050
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI023_C'.
it_statu2-fcode = 'LOG_TRILHA'.
append it_statu2.
endif.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
FORM status.
* >> Início da inclusão: FORM STATUS
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
* << Fim da inclusão
...
...
WHEN '0100'.
* >> Início da inclusão: FORM STATUS
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI029_C'.
itab_pf_status-fcode = 'LOG_TRILHA'.
append itab_pf_status.
endif.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0100
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie265-nrseqc
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR okcode.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI035F01
...
FORM botoes.
* >> Início da inclusão: FORM BOTOES
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
* << Fim da inclusão
...
IF sy-saprl = '46B'.
itab_botoes-bname = 'PED'.
* >> Início da inclusão: FORM BOTOES
APPEND itab_botoes.
ENDIF.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI035_C'.
itab_botoes-bname = 'LOG_TRILHA'.
* << Fim da inclusão
APPEND itab_botoes.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI035I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0100
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie180-nrseq
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR: ok_code.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI042I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0100
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie273-nrseq
' '.
* << Fim da inclusão
endcase.
endmodule.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI042O01
...
MODULE status OUTPUT.
* >> Início da inclusão: MODULE STATUS
DATA: v_trilha_auditoria TYPE /pws/zyglt009-trilha_auditoria.
CLEAR v_trilha_auditoria.
SELECT trilha_auditoria FROM /pws/zyglt009
INTO v_trilha_auditoria
UP TO 1 ROWS
WHERE bukrs = space.
ENDSELECT.
IF v_trilha_auditoria IS INITIAL OR
sy-tcode = '/PWS/ZYCI042_C'.
it_code-fcode = 'LOG_TRILHA'.
APPEND it_code.
ENDIF.
* << Fim da inclusão
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD'
FIELD sy-tcode.
IF sy-subrc NE 0.
IF sy-tcode EQ '/PWS/ZYCI042_A'.
MESSAGE e015 WITH text-003 sy-tcode.
ELSEIF sy-tcode EQ '/PWS/ZYCI042_C'.
MESSAGE e015 WITH text-003 sy-tcode.
ENDIF.
ELSE.
IF sy-dynnr EQ '0001'.
SET PF-STATUS '0001'.
SET TITLEBAR '001'.
ELSEIF sy-dynnr EQ '0002'.
SET PF-STATUS '0002'.
SET TITLEBAR '002'.
ELSEIF sy-dynnr EQ '0100'.
IF sy-tcode = '/PWS/ZYCI042_C'.
* >> Início da exclusão: MODULE STATUS
REFRESH it_code.
* << Fim da exclusão
it_code-fcode = 'DELE'.
APPEND it_code.
it_code-fcode = 'MODI'.
APPEND it_code.
* >> Início da exclusão: MODULE STATUS
SET PF-STATUS '0100' EXCLUDING it_code.
* << Fim da exclusão
ELSEIF sy-tcode = '/PWS/ZYCI042_A'.
* >> Início da exclusão: MODULE STATUS
IF OKCODE = 'MODI'.
SET PF-STATUS '0100'.
ELSE.
SET PF-STATUS '0100' EXCLUDING 'DELE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS
IF okcode NE 'MODI'.
it_code-fcode = 'DELE'.
APPEND it_code.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE STATUS
ELSE.
SET PF-STATUS '0100'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS
SET PF-STATUS '0100' EXCLUDING it_code .
SET TITLEBAR '100'.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE STATUS
SET TITLEBAR '100'.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0100
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie085-nrseqdi
' '.
* << Fim da inclusão
ENDCASE.
CLEAR sy-ucomm.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058O01
...
MODULE status_0200 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0200
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI058_C'.
it_statu5-fcode ='LOG_TRILHA'.
append it_statu5.
endif.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0100
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie085-nrseqdi
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR: ok_code, r_okcode.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059O01
...
MODULE status_0100 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0100
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI059_C'.
it_statu2-fcode = it_statu4-fcode = 'LOG_TRILHA'.
append : it_statu4, it_statu2.
endif.
* << Fim da inclusão
IF v_acto = 'A'.
SET PF-STATUS '0100' EXCLUDING it_statu4.
ELSE.
SET PF-STATUS '0100' EXCLUDING it_statu2.
ENDIF.
SET TITLEBAR '0100' WITH text-060 v_textstat.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI061F01
...
* >> Início da inclusão: FORM EXECUTA_EVENTOS
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/PWS/ZYCIE023-SEQ
' '.
* << Fim da inclusão
endcase.
endcase.
clear: okcode, sy-ucomm.
endform.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI061O01
MODULE status OUTPUT.
* >> Início da inclusão: MODULE STATUS
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI061_C'.
itab_botoes-bname = 'LOG_TRILHA'.
append itab_botoes.
endif.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/PWS/ZYCIE442-NRSEQDA
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
PERFORM atualiza_qtd_po.
PERFORM load_blag.
CLEAR: sy-ucomm, r_okcode, okcode.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070O01
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = '/PWS/ZYCI070_C'.
it_statu2-fcode = it_statu4-fcode = 'LOG_TRILHA'.
append it_statu4.
append it_statu2.
endif.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI072I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie465-nradto
' '.
* << Fim da inclusão
ENDCASE.
CLEAR: sy-ucomm, ok_code.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI072O01
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
DATA: v_trilha_auditoria TYPE /pws/zyglt009-trilha_auditoria.
CLEAR v_trilha_auditoria.
SELECT trilha_auditoria FROM /pws/zyglt009
INTO v_trilha_auditoria
UP TO 1 ROWS
WHERE bukrs = space.
ENDSELECT.
IF v_trilha_auditoria IS INITIAL OR
v_salvo EQ space.
it_code-fcode = 'LOG_TRILHA'.
APPEND it_code.
ENDIF.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI073I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie465-nradto
' '.
* << Fim da inclusão
endcase.
clear ok_code.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI073O01
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
data: begin of itab_botoes occurs 0.
data: button_name(10) type c .
data: end of itab_botoes.
clear v_trilha_auditoria.
clear itab_botoes.
refresh itab_botoes.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
v_salvo eq space.
itab_botoes-button_name = 'LOG_TRILHA'.
append itab_botoes.
endif.
* << Fim da inclusão
IF v_modo = 'X'.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A' excluding itab_botoes.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS400'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS400' excluding itab_botoes.
* << Fim da inclusão
ENDIF.
SET TITLEBAR '0300'.
IF sy-tcode = '/PWS/ZYCI073_E'.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS0300' EXCLUDING 'SAVE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
itab_botoes-button_name = 'SAVE'.
SET PF-STATUS 'STATUS0300' EXCLUDING itab_botoes.
* << Fim da inclusão
ENDIF.
PERFORM carrega_cgc.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI074I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie465-nradto
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR ok_code.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI074O01
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
DATA: v_trilha_auditoria TYPE /pws/zyglt009-trilha_auditoria.
DATA: BEGIN OF itab_botoes OCCURS 0.
DATA: button_name(10) TYPE c .
DATA: END OF itab_botoes.
CLEAR v_trilha_auditoria.
CLEAR itab_botoes.
REFRESH itab_botoes.
SELECT trilha_auditoria FROM /pws/zyglt009
INTO v_trilha_auditoria
UP TO 1 ROWS
WHERE bukrs = space.
ENDSELECT.
IF v_trilha_auditoria IS INITIAL .
itab_botoes-button_name = 'LOG_TRILHA'.
APPEND itab_botoes.
ENDIF.
* << Fim da inclusão
IF /pws/zycie465-belnr_i IS INITIAL AND /pws/zycie465-belnr_o IS
INITIAL.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300' EXCLUDING itab_botoes.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A' EXCLUDING itab_botoes.
* << Fim da inclusão
ENDIF.
IF sy-tcode = '/PWS/ZYCI074_E'.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS300_A' EXCLUDING 'ESTOR'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
itab_botoes-button_name = 'ESTOR'.
APPEND itab_botoes.
SET PF-STATUS 'STATUS300_A' EXCLUDING itab_botoes.
* << Fim da inclusão
ENDIF.
SET TITLEBAR '0300'.
PERFORM carrega_cgc.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI075I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/PWS/ZYCIE459-NRPRES
' '.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR ok_code.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI075O01
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
/PWS/ZYCIE459-NRPRES is initial.
it_code-fcode = 'LOG_TRILHA'.
append it_code.
endif.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI076I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
when 'LOG_TRILHA' .
perform log_trilha using sy-repid
/pws/zycie465-nradto
' '.
* << Fim da inclusão
ENDCASE.
CLEAR ok_code.
CLEAR sy-ucomm.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI076O01
...
MODULE status_0050 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0050
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial .
it_code-fcode = 'LOG_TRILHA'.
append it_code.
endif.
* << Fim da inclusão
IF sy-tcode = '/PWS/ZYCI076_E'.
it_code-fcode = 'APROV'. APPEND it_code.
it_code-fcode = 'MARC'. APPEND it_code.
it_code-fcode = 'DESM'. APPEND it_code.
it_code-fcode = 'ESTORNO'. APPEND it_code.
SET PF-STATUS 'STATUS0300' EXCLUDING it_code.
ELSE.
* >> Início da exclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS0300'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SET PF-STATUS 'STATUS0300' excluding it_code.
* << Fim da inclusão
ENDIF.
...