Sintoma

O programa não possui nenhum log de alteração,e por essa razão não é possivel auditar os dados.

Solução

Criado a rotina para que seja gravado todo tipo de alteração feito pelo o usuário que posteriormente

será usado para auditar os dados do pw.CE.

Informações Complementares

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

Nota Número 11980 Data: 28/02/2012 Hora: 15:01:42

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

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

Nota Número              : 11980

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00010

Agrupamento              : 00107

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote Descrição Breve

11506  - 00001 - 8.0    - 00009 - TRILHA DE AUDITORIA

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

Texto Rápido:

PARÂMETRO GERAL: AUDITORIA

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

Palavras Chave:

LOG AUDITORIA - TRILHA

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

Objetos da nota:

REPS /PWS/MZYCE037F01

REPS /PWS/MZYCE037I01

REPS /PWS/MZYCE037O01

REPS /PWS/MZYCE037TOP

REPS /PWS/SAPMZYCE037

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

Modificações efetuadas em CUAD /PWS/MZYCE037F01

STATUS GUI: '0100'

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: 'LOG_TRILHA'

CATEGORIA DE FUNÇÃO: ____

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: 'Log de Modificação'

NOME DE ÍCONE: 'ICON_PHIO_CLASS'

TEXTO DE ÍCONE: _____________________________________________________

TEXTO INFORMATIVO: __________________________________________________

SELEÇÃO DIRETA: _____

TECLA DE ATALHO: Ctrl-F2

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

Modificações efetuadas em REPS /PWS/MZYCE037F01

...

  wa_zycet037 = /pws/zycet037.

  wa_zycet037-usernamec = sy-uname.

  wa_zycet037-dtuserc   = sy-datum.

  wa_zycet037-hruserc   = sy-uzeit.

  PERFORM nome_usuario.

  wa_zycet037-user_save = v_name.

  MODIFY /pws/zycet037 FROM wa_zycet037.

  COMMIT WORK.

  MESSAGE s016 WITH text-001.

  gmodify =  'N'.

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

  IF NOT v_log_trilha IS INITIAL.

    MOVE-CORRESPONDING wa_zycet037 TO /pws/zycet037.

    PERFORM carrega_log USING '/PWS/ZYCET037'

                              'U'

                              sy-tcode

                              SY-REPID

                              wa_zycet037-bukrs.

  ENDIF.

* << Fim da inclusão

  /pws/zycet037-usernamec = wa_zycet037-usernamec.

  /pws/zycet037-dtuserc   = wa_zycet037-dtuserc.

  /pws/zycet037-hruserc   = wa_zycet037-hruserc.

  /pws/zycet037-user_save = wa_zycet037-user_save.

ENDFORM.

FORM switchmode.

  IF gmodify = 'S'.

    IF /pws/zycet037 NE wa_zycet037.

      PERFORM boxsave CHANGING gresp.

      IF gresp = 'J'.

...

...

            icon_button_2         = 'ICON_CANCEL'

            default_button        = '1'

            display_cancel_button = ' '

       IMPORTING

            answer                = v_exclui

       EXCEPTIONS

            text_not_found        = 1

            OTHERS                = 2.

  CHECK sy-subrc IS INITIAL.

  IF v_exclui EQ '1'.

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

    IF NOT v_log_trilha IS INITIAL.

      MOVE-CORRESPONDING wa_zycet037 TO /pws/zycet037.

      PERFORM carrega_log USING '/PWS/ZYCET037'

                                'D'

                                sy-tcode

                                SY-REPID

                                wa_zycet037-bukrs.

    ENDIF.

* << Fim da inclusão

    DELETE FROM /pws/zycet037

           WHERE bukrs EQ v_bukrs.

    CLEAR: /pws/zycet037, wa_zycet037, v_bukrs, ginit.

    MESSAGE i016 WITH text-013.

    CALL SCREEN '1000'.

  ENDIF.

ENDFORM.

FORM ativa.

  IF sy-dynnr = '1150'.

    ts_emb-activetab  = gtab3.

...

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

Modificações efetuadas em REPS /PWS/MZYCE037I01

...

    WHEN 'CRIA'.

      SELECT SINGLE * FROM /pws/zycet037

      WHERE bukrs = /pws/zycet037-bukrs.

      IF sy-subrc EQ 0.

        MESSAGE i016 WITH text-009.

      ELSE.

        MOVE: /pws/zycet037-bukrs TO v_bukrs.

        CLEAR: wa_zycet037, /pws/zycet037.

        MOVE v_bukrs TO /pws/zycet037-bukrs.

      ENDIF.

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

    WHEN 'LOG_TRILHA'.

      PERFORM log_trilha USING sy-repid

                               /pws/zycet037-bukrs

                               ' '.

* << Fim da inclusão

  ENDCASE.

  CLEAR sy-ucomm.

ENDMODULE.

MODULE user_command_1100 INPUT.

  CASE sy-ucomm.

    WHEN 'FEMP'.

      gtab2 = sy-ucomm.  gdyn2 = '1110'.

    WHEN 'FMOE'.

      gtab2 = sy-ucomm.  gdyn2 = '1120'.

    WHEN 'FCON'.

...

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

Modificações efetuadas em REPS /PWS/MZYCE037O01

...

             loadwerks,

             loadktokk,

             loadplcontas,

             loadkappl,

             loadorigem.

  ENDIF.

ENDMODULE.

MODULE status_1000 OUTPUT.

  CLEAR itab_botao.

  REFRESH itab_botao.

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

  if v_log_trilha is initial.

    MOVE 'LOG_TRILHA' TO itab_botao-fcode.

    APPEND itab_botao.

  endif.

* << Fim da inclusão

  IF gmodify EQ 'S'.

    SET PF-STATUS '1000' EXCLUDING itab_botao.

  ELSE.

    MOVE 'SAVE' TO itab_botao-fcode.

    APPEND itab_botao.

    MOVE 'COPY' TO itab_botao-fcode.

    APPEND itab_botao.

    MOVE 'DELE' TO itab_botao-fcode.

    APPEND itab_botao.

    MOVE 'CRIA' TO itab_botao-fcode.

...

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

Modificações efetuadas em REPS /PWS/MZYCE037TOP

...

DATA: v_bukrs           LIKE /pws/zycet037-bukrs,

      v_bukrs_modelo    LIKE /pws/zycet037-bukrs,

      v_copy(1)         TYPE n,

      v_name(100)       TYPE c,

      v_campo(100)     TYPE c,

      v_exclui(1)       TYPE c.

CONTROLS: tsmain  TYPE TABSTRIP,                            "#EC NEEDED

          tsexpo  TYPE TABSTRIP,                            "#EC NEEDED

          ts_emb  TYPE TABSTRIP,                            "#EC NEEDED

          ts_cont TYPE TABSTRIP.                            "#EC NEEDED

* >> Início da inclusão:

data: v_log_trilha TYPE /pws/zyglt009-trilha_auditoria.

LOAD-OF-PROGRAM.

  SELECT SINGLE trilha_auditoria

      FROM /pws/zyglt009

      INTO v_log_trilha

      WHERE bukrs = '    '.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/SAPMZYCE037

INCLUDE /pws/mzyce037top.

INCLUDE /pws/mzyce037o01.

INCLUDE /pws/mzyce037i01.

INCLUDE /pws/mzyce037f01.

INCLUDE /pws/mzyce037f02.

* >> Início da inclusão:

INCLUDE /PWS/ZYGLLOG.

* << Fim da inclusão