CE PLUS - Nota 011717
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Parâmetros
Data/Hora da Publicação: 13/12/2011 09:43:20
Data/Hora Última Alteração: 13/12/2011 09:43:20
Descrição da Nota: CADASTRO DE EMBALAGEM: LOG DE MODIFICAÇÃO
Sintoma
Não havia, no programa de Cadastro de Embalagem, a gravação do log de modificação.
Solução
Foi incluído o log de modificação conforme nota abaixo.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11717 Data: 01/12/2011 Hora: 13:23:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11717
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00096
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11506 - 00001 - 8.0 - 00009 - TRILHA DE AUDITORIA
----------------------------------------------------------------------------------------------------
CADASTRO DE EMBALAGEM: LOG DE MODIFICAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CADASTRO DE EMBALAGEM LOG DE MODIFICAÇÃO AUDITORIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCE043
REPS /PWS/MZYCE043F01
REPS /PWS/MZYCE043I01
REPS /PWS/MZYCE043O01
REPS /PWS/MZYCE043TOP
REPS /PWS/SAPMZYCE043
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCE043
Modificar STATUS GUI 002
1º) Criar nova tecla de função
Atalho: Ctrl-F12
Código: LOG_TRILHA
Texto de função (PT): Log de Modificação
Texto de função (ES): Registro de Modificación
Texto de função (EN): Modification Log
Nome de ícone: ICON_PHIO_CLASS
Texto informativo (PT): Log de Modificação
Texto informativo (ES): Registro de Modificación
Texto informativo (EN): Modification Log
2º) Adicionar uma linha de separação na barra de botões, posição 6
3º) Adicionar a tecla de função LOG_TRILHA na posição 7
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE043F01
...
CLEAR: itab_dados.
REFRESH itab_dados.
MOVE: /pws/zycee287-matnr TO itab_dados-matnr ,
/pws/zycee287-tpembpri TO itab_dados-tpembpri ,
/pws/zycee287-tpembsec TO itab_dados-tpembsec ,
/pws/zycee287-tpembter TO itab_dados-tpembter ,
sy-uname TO itab_dados-usernamec ,
sy-datum TO itab_dados-dtuserc ,
sy-timlo TO itab_dados-hruserc .
APPEND itab_dados.
* >> Início da inclusão: FORM SALVA_DADOS
IF NOT v_log_modificacao IS INITIAL.
/pws/zycet287-matnr = /pws/zycee287-matnr.
/pws/zycet287-tpembpri = itab_zycet287-tpembpri.
/pws/zycet287-tpembsec = itab_zycet287-tpembsec.
/pws/zycet287-tpembter = itab_zycet287-tpembter.
PERFORM carrega_log
USING
'/PWS/ZYCET287'
'D'
space
space
space.
ENDIF.
* << Fim da inclusão
DELETE FROM /pws/zycet287
* >> Início da exclusão: FORM SALVA_DADOS
WHERE matnr EQ /pws/zycee287-matnr AND
tpembpri EQ itab_zycet287-tpembpri AND
tpembsec EQ itab_zycet287-tpembsec AND
tpembter EQ itab_zycet287-tpembter .
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS
WHERE matnr = /pws/zycee287-matnr
AND tpembter = itab_zycet287-tpembter
AND tpembsec = itab_zycet287-tpembsec
AND tpembpri = itab_zycet287-tpembpri.
* << Fim da inclusão
CLEAR itab_zycet287.
READ TABLE itab_zycet287 WITH KEY matnr = itab_dados-matnr
tpembter = itab_dados-tpembter
tpembsec = itab_dados-tpembsec
tpembpri = itab_dados-tpembpri .
IF sy-subrc NE '0'.
MODIFY /pws/zycet287 FROM TABLE itab_dados.
MESSAGE s001 WITH text-001.
ELSE.
MODIFY /pws/zycet287 FROM TABLE itab_dados.
MESSAGE s001 WITH text-002.
ENDIF.
* >> Início da inclusão: FORM SALVA_DADOS
IF NOT v_log_modificacao IS INITIAL.
LOOP AT itab_dados[] INTO /pws/zycet287.
PERFORM carrega_log
USING
'/PWS/ZYCET287'
'U'
space
space
space.
ENDLOOP.
ENDIF.
* << Fim da inclusão
CLEAR okcode.
ENDFORM.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-009
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_answer.
IF v_answer = '1'.
LOOP AT itab_zycet287 WHERE mark = 'X'.
DELETE itab_zycet287 INDEX sy-tabix.
* >> Início da exclusão: FORM DEL_ITAB
DELETE FROM /pws/zycet287 WHERE matnr = itab_zycet287-matnr AND
tpembpri = itab_zycet287-tpembpri AND
tpembsec = itab_zycet287-tpembsec AND
tpembter = itab_zycet287-tpembter .
* << Fim da exclusão
* >> Início da inclusão: FORM DEL_ITAB
IF NOT v_log_modificacao IS INITIAL.
/pws/zycet287-matnr = itab_zycet287-matnr.
/pws/zycet287-tpembpri = itab_zycet287-tpembpri.
/pws/zycet287-tpembsec = itab_zycet287-tpembsec.
/pws/zycet287-tpembter = itab_zycet287-tpembter.
PERFORM carrega_log
USING
'/PWS/ZYCET287'
'D'
space
space
space.
ENDIF.
DELETE FROM /pws/zycet287
WHERE matnr = itab_zycet287-matnr
AND tpembter = itab_zycet287-tpembter
AND tpembsec = itab_zycet287-tpembsec
AND tpembpri = itab_zycet287-tpembpri.
* << Fim da inclusão
ENDLOOP.
COMMIT WORK AND WAIT.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE043I01
...
CALL FUNCTION 'DEQUEUE_/PWS/EZYCET287'.
ELSE.
MESSAGE s001 WITH text-017 text-018.
ENDIF.
WHEN 'POS'.
CALL SCREEN '0001' STARTING AT 20 10.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'ABORT'.
LEAVE PROGRAM.
* >> Início da inclusão: MODULE USER_COMMAND_0100
WHEN 'LOG_TRILHA'.
PERFORM log_trilha
USING
sy-cprog
space
space.
* << Fim da inclusão
ENDCASE.
ENDCASE.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE043O01
module status_0100 output.
* >> Início da inclusão: MODULE STATUS_0100
IF v_log_modificacao IS INITIAL.
SET PF-STATUS '002' EXCLUDING 'LOG_TRILHA'.
ELSE.
* << Fim da inclusão
set pf-status '002'.
* >> Início da inclusão: MODULE STATUS_0100
ENDIF.
* << Fim da inclusão
set titlebar '002'.
endmodule.
module status_0200 output.
set pf-status '0001'.
set titlebar '001'.
endmodule.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE043TOP
program /pws/sapmzyce043 message-id /pws/zycem.
* >> Início da exclusão:
tables /pws/zycee287.
* << Fim da exclusão
* >> Início da inclusão:
TABLES: /pws/zycee287,
/pws/zycet287. "#EC NEEDED
* << Fim da inclusão
controls: tc1 type tableview using screen 0100.
data: okcode like sy-ucomm.
data: begin of itab_dados occurs 0 .
include structure /pws/zycet287 .
data: end of itab_dados .
data: begin of itab_zycet286a occurs 0 .
include structure /pws/zycet286 .
data: end of itab_zycet286a .
data: begin of itab_zycet286 occurs 0 ,
tara like /pws/zycet286-tara ,
...
...
data: begin of itab_zycet287a occurs 0 .
include structure /pws/zycet287 .
data: mark(1) type c .
data: end of itab_zycet287a .
data: mark(1) type c ,
text1(20) type c ,
v_answer ,
v_current type i ,
v_comeco like /pws/zycet287-matnr ,
v_fim like /pws/zycet287-matnr ,
* >> Início da exclusão:
glines type i .
* << Fim da exclusão
* >> Início da inclusão:
glines TYPE i ,
v_log_modificacao TYPE /pws/zyglt009-trilha_auditoria.
* << Fim da inclusão
data wa_cols type cxtab_column.
...
...
* >> Início da inclusão: Final do include
LOAD-OF-PROGRAM.
SELECT SINGLE trilha_auditoria
FROM /pws/zyglt009
INTO v_log_modificacao
WHERE bukrs = ' '.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE043
include /pws/mzyce043top.
include /pws/mzyce043i01.
include /pws/mzyce043f01.
include /pws/mzyce043o01.
* >> Início da inclusão:
INCLUDE /pws/zygllog.
* << Fim da inclusão