Sintoma

Não havia, no programa de cadastro da Descrição de Produtos por País, a gravação do log de

modificação.

Solução

Foi incluído o log de modificação para a tabela /PWS/ZYCET028, funcionalidade /PWS/SAPMZYCE028, sem

chave de processo.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 11716 Data: 01/12/2011 Hora: 12:38:13

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 11716

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

----------------------------------------------------------------------------------------------------

PARAM. DESCR. DE PRODUTOS POR PAÍS: LOG DE MODIFICAÇÃO (/PWS/ZYCET028)

----------------------------------------------------------------------------------------------------

Palavras Chave:

DESCRIÇÃO DE PRODUTOS POR PAÍS LOG MODIFICAÇÃO AUDITORIA /PWS/ZYCET028

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCE028F01

REPS /PWS/MZYCE028I01

REPS /PWS/MZYCE028O01

REPS /PWS/MZYCE028TOP

REPS /PWS/SAPMZYCE028

CUAD /PWS/SAPMZYCE028

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYCE028

Alterar Status GUI 0100:

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 9

3º) Adicionar a tecla de função LOG_TRILHA na posição 10 da barra de botões

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE028F01

...

FORM salvar.

 DATA: v_subrc_tab LIKE sy-subrc,

                   v_subrc_reg LIKE sy-subrc.

  LOOP AT itab_zycet028_del.

* >> Início da inclusão: FORM SALVAR

    IF NOT v_log_modificacao IS INITIAL.

      /pws/zycet028 = itab_zycet028_del.

      PERFORM carrega_log

              USING

                '/PWS/ZYCET028'

                'D'

                space

                space

                space.

    ENDIF.

* << Fim da inclusão

    DELETE FROM /pws/zycet028 WHERE matnr = itab_zycet028_del-matnr AND

                               atwrt = itab_zycet028_del-atwrt AND

                               steuc = itab_zycet028_del-steuc AND

                               land  = itab_zycet028_del-land AND

                               nrlinha = itab_zycet028_del-nrlinha AND

                               spras   = itab_zycet028_del-spras.

    ADD sy-subrc TO v_subrc_tab.

  ENDLOOP.

  MOVE sy-subrc TO v_subrc_reg.

  LOOP AT itab_zycet028 WHERE alteracao NE space.

    IF itab_zycet028-alteracao EQ 'I'.

      MOVE-CORRESPONDING itab_zycet028 TO /pws/zycet028.

      INSERT /pws/zycet028.

* >> Início da inclusão: FORM SALVAR

      IF NOT v_log_modificacao IS INITIAL.

        PERFORM carrega_log

                USING

                  '/PWS/ZYCET028'

                  'I'

                  space

                  space

                  space.

      ENDIF.

* << Fim da inclusão

    ELSE.

      MOVE-CORRESPONDING itab_zycet028 TO /pws/zycet028.

      MODIFY /pws/zycet028.

* >> Início da inclusão: FORM SALVAR

      IF NOT v_log_modificacao IS INITIAL.

        PERFORM carrega_log

                USING

                  '/PWS/ZYCET028'

                  'U'

                  space

                  space

                  space.

      ENDIF.

* << Fim da inclusão

    ENDIF.

    CLEAR itab_zycet028-alteracao.

    MODIFY itab_zycet028 INDEX sy-tabix.

    ADD sy-subrc TO v_subrc_tab.

  ENDLOOP.

  ADD sy-subrc TO v_subrc_reg.

  IF v_subrc_reg = 8.

    MESSAGE s103 WITH text-026.

  ELSE.

    IF v_subrc_tab = 0.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE028I01

...

      CALL FUNCTION 'ENQUEUE_/PWS/EZYCET028'

           EXCEPTIONS

                foreign_lock   = 1

                system_failure = 2.

      IF sy-subrc = 0.

        PERFORM salvar.

      ELSE.

        MESSAGE s001 WITH text-022 text-023.

        EXIT.

      ENDIF.

* >> Início da inclusão: MODULE USER_COMMAND_0100, final do CASE sy-ucomm

    WHEN 'LOG_TRILHA'.

      PERFORM log_trilha

              USING

                sy-cprog

                space

                space.

* << Fim da inclusão

  ENDCASE.

ENDMODULE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE028O01

...

MODULE status_0100 OUTPUT.

* >> Início da inclusão: MODULE STATUS_0100

  IF v_log_modificacao IS INITIAL.

    SET PF-STATUS '0100' EXCLUDING 'LOG_TRILHA'.

  ELSE.

* << Fim da inclusão

  SET PF-STATUS '0100'.

* >> Início da inclusão: MODULE STATUS_0100

  ENDIF.

* << Fim da inclusão

  SET TITLEBAR '0100'.

ENDMODULE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE028TOP

...

      v_linhas      TYPE i,

      v_linha       TYPE i,

      v_index2      LIKE sy-tabix,

      v_index3      LIKE sy-tabix,

      v_index4      LIKE sy-tabix,

      v_largura TYPE i,

      v_altura  TYPE i VALUE 1,

      v_tela       LIKE sy-dynnr,

      v_tela_aux   LIKE sy-dynnr,

      v_altura_103 TYPE i VALUE 2,

* >> Início da exclusão:

      v_resp2(1)   TYPE c.

* << Fim da exclusão

* >> Início da inclusão:

      v_resp2(1)   TYPE c,

      v_log_modificacao TYPE /pws/zyglt009-trilha_auditoria.

* << Fim da inclusão

DATA: obj_txtdesc TYPE REF TO cl_gui_textedit,

      obj_acordo  TYPE REF TO cl_gui_textedit,

      obj_norma   TYPE REF TO cl_gui_textedit,

      obj_container_txtdesc TYPE REF TO cl_gui_custom_container,

      obj_container_acordo  TYPE REF TO cl_gui_custom_container,

      obj_container_norma   TYPE REF TO cl_gui_custom_container.

DATA: c_txtdesc(21) TYPE c VALUE '/PWS/ZYCEE028-TXTDESC',

      c_acordo(20)  TYPE c VALUE '/PWS/ZYCEE028-ACORDO',

      c_norma(20)  TYPE c VALUE '/PWS/ZYCEE028-NORMA',

      c_max_char    TYPE i VALUE 200.

...

...

* >> 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/SAPMZYCE028

INCLUDE /pws/mzyce028top.

INCLUDE /pws/mzyce028o01.

INCLUDE /pws/mzyce028i01.

INCLUDE /pws/mzyce028f01.

* >> Início da inclusão:

INCLUDE /pws/zygllog.

* << Fim da inclusão