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 11974 Data: 28/02/2012 Hora: 09:51:52

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

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

Nota Número              : 11974

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:

PARAMETRO RE/RV/DDE: AUDITORIA

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

Palavras Chave:

LOG AUDITORIA - TRILHA

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

Objetos da nota:

CUAD /PWS/SAPMZYCET145

REPS /PWS/MZYCET145F01

REPS /PWS/MZYCET145I01

REPS /PWS/MZYCET145TOP

REPS /PWS/SAPMZYCET145

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

Modificações efetuadas em CUAD /PWS/SAPMZYCET145

STATUS GUI: '0200'

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 CUAD /PWS/SAPMZYCET145

STATUS GUI: '0200_M'

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/MZYCET145F01

...

FORM set_page.

  CASE sy-dynnr.

    WHEN '0200'.

      ts_param-activetab  = v_ativa.

    WHEN '0220'.

      ts_param1-activetab  = v_ativa1.

  ENDCASE.

ENDFORM.

FORM pf_status.

  IF v_input = 'M'.

* >> Início da exclusão: FORM PF_STATUS

    SET PF-STATUS '0200_M'.

* << Fim da exclusão

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

    SET PF-STATUS '0200_M' EXCLUDING itab_botoes.

* << Fim da inclusão

  ELSEIF v_input = 'C'.

    LOOP AT itab_botoes.

      SET PF-STATUS '0200_M' EXCLUDING itab_botoes.

    ENDLOOP.

  ELSEIF v_input = 'E'.

* >> Início da exclusão: FORM PF_STATUS

    SET PF-STATUS '0200'.

* << Fim da exclusão

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

    SET PF-STATUS '0200' EXCLUDING itab_botoes.

* << Fim da inclusão

  ENDIF.

ENDFORM.

FORM modificar.

  IF v_input = 'E'.

    CALL FUNCTION 'ENQUEUE_/PWS/EZYCET145'

         EXPORTING

              bukrs          = d_bukrs

              branch         = d_branch

         EXCEPTIONS

              foreign_lock   = 1

...

...

                screen-input = 0.

                MODIFY SCREEN.

              ENDIF.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDLOOP.

  ENDCASE.

ENDFORM.

FORM botoes.

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

  clear itab_botoes.

  refresh itab_botoes.

* << Fim da inclusão

  IF v_input = 'C'.

    MOVE: 'CRIA' TO itab_botoes-fcode.

    APPEND itab_botoes.

    MOVE: 'COPY_AS' TO itab_botoes-fcode.

    APPEND itab_botoes.

    MOVE: 'DELE' TO itab_botoes-fcode.

    APPEND itab_botoes.

    MOVE: 'MODI' TO itab_botoes-fcode.

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

    APPEND itab_botoes.

    MOVE: 'LOG_TRILHA' TO itab_botoes-fcode.

    APPEND itab_botoes.

  elseif v_log_trilha is initial..

    MOVE: 'LOG_TRILHA' TO itab_botoes-fcode.

* << Fim da inclusão

    APPEND itab_botoes.

  ENDIF.

ENDFORM.

FORM title_bar.

  CASE v_input.

    WHEN 'E'.

      SET TITLEBAR '0200'.

    WHEN 'M'.

      SET TITLEBAR '0200_M'.

    WHEN 'C'.

...

...

FORM deleta.

  CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

       EXPORTING

            defaultoption = 'Y'

            textline1     = text-015

            textline2     = text-016

            titel         = text-017

       IMPORTING

            answer        = v_resposta.

  IF v_resposta = 'J'.

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

    if not v_log_trilha is initial.

      v_funcionalidade = '/PWS/SAPMZYCET145'.

      concatenate /pws/zycee145-bukrs /pws/zycee145-branch

           into v_identificador.

      move-corresponding /pws/zycee145 to /pws/zycet145.

      PERFORM carrega_log USING '/PWS/ZYCET145'

                                'D'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

    endif.

* << Fim da inclusão

    DELETE FROM /pws/zycet145 WHERE bukrs  = /pws/zycee145-bukrs AND

                                    branch = /pws/zycee145-branch.

    CLEAR: /pws/zycee145,

           d_descdesp,

           d_descemb,

           d_descneg,

           d_bukrs,

           d_branch,

           v_alt.

    MESSAGE s016 WITH text-014.

...

...

  DATA : BEGIN OF itab_145 OCCURS 10.

          INCLUDE STRUCTURE /pws/zycet145.

  DATA : END OF itab_145.

  DELETE FROM /pws/zycet145 WHERE bukrs = /pws/zycee145-bukrs

                        AND       branch = /pws/zycee145-branch.

  COMMIT WORK.

  MOVE-CORRESPONDING /pws/zycee145 TO itab_145.

  APPEND itab_145.

  MODIFY /pws/zycet145 FROM TABLE itab_145.

  COMMIT WORK.

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

  if not v_log_trilha is initial.

    loop at itab_145.

      v_funcionalidade = '/PWS/SAPMZYCET145'.

      concatenate itab_145-bukrs itab_145-branch

           into v_identificador.

      move-corresponding itab_145 to /pws/zycet145.

      PERFORM carrega_log USING '/PWS/ZYCET145'

                                'U'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

    endloop.

  endif.

* << Fim da inclusão

  IF v_input = 'M'.

    MESSAGE s016 WITH text-002.

  ELSEIF v_input = 'C'.

    MESSAGE s016 WITH text-003.

  ENDIF.

  v_input = 'E'.

  CLEAR v_alt.

ENDFORM.

FORM voltar.

  IF v_input = 'C'.

...

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

Modificações efetuadas em REPS /PWS/MZYCET145I01

...

          v_ativa = okcode.

          v_tela = '0220'.

        WHEN 'FC_DDE'.

          v_ativa = okcode.

          v_tela = '0230'.

        WHEN 'FC_DSE'.

          v_ativa = okcode.

          v_tela  = '0240'.

        WHEN 'MODI'.

          PERFORM modificar.

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

        WHEN 'LOG_TRILHA'.

          concatenate /pws/zycee145-bukrs /pws/zycee145-branch

            into v_identificador.

          PERFORM log_trilha USING '/PWS/SAPMZYCET145'

                                   V_IDENTIFICADOR

                                   ' '.

* << Fim da inclusão

      ENDCASE.

    WHEN 'C'.

      CASE okcode.

        WHEN 'FC_RV'.

          v_ativa = okcode.

          v_tela = '0210'.

        WHEN 'BACK'.

          PERFORM voltar.

        WHEN 'ENCE'.

          PERFORM sair.

...

...

          v_ativa = okcode.

          v_tela  = '0240'.

        WHEN 'COPY_AS'.

          PERFORM copy_as.

        WHEN 'DELE'.

          PERFORM deleta.

        WHEN 'CRIA'.

          PERFORM cria.

        WHEN 'SAVE'.

          PERFORM salvar.

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

        WHEN 'LOG_TRILHA'.

          concatenate /pws/zycee145-bukrs /pws/zycee145-branch

            into v_identificador.

          PERFORM log_trilha USING '/PWS/SAPMZYCET145'

                                   V_IDENTIFICADOR

                                   ' '.

* << Fim da inclusão

      ENDCASE.

  ENDCASE.

ENDMODULE.

MODULE user_command_0220 INPUT.

  CASE okcode.

    WHEN 'FC_GER'.

      v_tela1 = '0224'.

      v_ativa1 = okcode.

    WHEN 'FC_CAB'.

      v_tela1 = '0221'.

...

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

Modificações efetuadas em REPS /PWS/MZYCET145TOP

...

      v_input(1)     type c value 'C',

      v_alt(1)       type c,

      v_volta        type i,

      v_abre         type i value 1,

      v_program(30)  type c value '/PWS/SAPMZYCET145',

      v_resposta(1)  type c,

      v_tela(4)      type c value '0210',

      v_ativa        like sy-ucomm value 'FC_RV',

      v_tela1(4)     type c value '0224',

      v_ativa1       like sy-ucomm value 'FC_GER'.

* >> Início da inclusão:

data: v_funcionalidade type /pws/zyglt390-programa,

      V_IDENTIFICADOR  TYPE /pws/zyglt390-identificador,

      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/SAPMZYCET145

INCLUDE /pws/mzycet145top.

INCLUDE /pws/mzycet145o01.

INCLUDE /pws/mzycet145i01.

INCLUDE /pws/mzycet145f01.

* >> Início da inclusão:

INCLUDE /PWS/ZYGLLOG.

* << Fim da inclusão