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 11973 Data: 28/02/2012 Hora: 09:31:46

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

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

Nota Número              : 11973

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:

PARAM EMB NOVO: AUDITORIA

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

Palavras Chave:

LOG AUDITORIA - TRILHA

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

Objetos da nota:

REPS /PWS/MZYCE312F01

REPS /PWS/MZYCE312TOP

REPS /PWS/SAPMZYCE312

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

Modificações efetuadas em REPS /PWS/MZYCE312F01

...

         username       = /pws/zycet312-username

         usernamec      = /pws/zycet312-usernamec

         dtuserc        = /pws/zycet312-dtuserc

         hruserc        = /pws/zycet312-hruserc

         tpcalc         = /pws/zycet312-tpcalc

         rc_manual      = /pws/zycet312-rc_manual

         venc_exp_temp  = /pws/zycet312-venc_exp_temp

         tp_emb_amostra = /pws/zycet312-tp_emb_amostra. "#EC CI_NOWHERE

  IF sy-subrc NE 0.

    INSERT /pws/zycet312 FROM /pws/zycet312.

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

    IF NOT v_log_trilha IS INITIAL.

      v_funcionalidade = '/PWS/SAPMZYCE037'.

      v_identificador = space.

      PERFORM carrega_log USING '/PWS/ZYCET312'

                                'I'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

* << Fim da inclusão

  ENDIF.

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

  ELSE.

    IF NOT v_log_trilha IS INITIAL.

      v_funcionalidade = '/PWS/SAPMZYCE037'.

      v_identificador = space.

      PERFORM carrega_log USING '/PWS/ZYCET312'

                                'U'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  DELETE FROM /pws/zycet316 CLIENT SPECIFIED WHERE mandt = sy-mandt.

  MODIFY /pws/zycet316 FROM TABLE itab_zycet316.

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

  IF NOT v_log_trilha IS INITIAL.

    LOOP AT itab_zycet316.

      v_funcionalidade = '/PWS/SAPMZYCE037'.

      v_identificador = space.

      PERFORM carrega_log USING '/PWS/ZYCET316'

                                'U'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

    ENDLOOP.

  ENDIF.

* << Fim da inclusão

  DELETE FROM /pws/zycet317 CLIENT SPECIFIED WHERE mandt = sy-mandt.

  MODIFY /pws/zycet317 FROM TABLE itab_zycet317.

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

  IF NOT v_log_trilha IS INITIAL.

    LOOP AT itab_zycet317.

      v_funcionalidade = '/PWS/SAPMZYCE037'.

      v_identificador = space.

      PERFORM carrega_log USING '/PWS/ZYCET316'

                                'U'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

    ENDLOOP.

  ENDIF.

* << Fim da inclusão

  COMMIT WORK.

  IF sy-subrc EQ 0.

    /pws/zycet312-username  = v_name.

    /pws/zycet312-usernamec = sy-uname.

    /pws/zycet312-dtuserc   = sy-datum.

    /pws/zycet312-hruserc   = sy-uzeit.

    /pws/zycet037-agrupa_t30 = 'X'.

    MODIFY /pws/zycet037 FROM /pws/zycet037.

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

    IF NOT v_log_trilha IS INITIAL.

      v_funcionalidade = '/PWS/SAPMZYCE037'.

      v_identificador = space.

      PERFORM carrega_log USING '/PWS/ZYCET037'

                                'U'

                                sy-tcode

                                v_funcionalidade

                                v_identificador.

    ENDIF.

* << Fim da inclusão

    COMMIT WORK.

    IF sy-subrc EQ 0.

      MESSAGE i001 WITH text-006.

      v_save = 'X'.

    ENDIF.

  ENDIF.

ENDFORM.

FORM deletar_registro.

  CASE okcode.

    WHEN 'DEL'.

...

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

Modificações efetuadas em REPS /PWS/MZYCE312TOP

...

DATA: wa_zycet312 LIKE /pws/zycet312.

DATA: okcode         LIKE sy-ucomm,

      v_controle     TYPE flag,

      v_tab          LIKE sy-ucomm,

      v_trancar      TYPE flag,

      v_ins          TYPE flag,

      v_del          TYPE flag,

      v_save         TYPE flag,

      e_empresa(4)       TYPE c ,

      e_desc_empresa(25) TYPE c.

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

INCLUDE /pws/mzyce312top.

INCLUDE /pws/mzyce312o01.

INCLUDE /pws/mzyce312i01.

INCLUDE /pws/mzyce312f01.

* >> Início da inclusão:

INCLUDE /PWS/ZYGLLOG.

* << Fim da inclusão