Sintoma

Criar tabela de log para exclusões

Solução

Criação da tabela /PWS/ZYCIT496 para gravar os dados da DI excluída.

Informações Complementares

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

Nota Número 07020 Data: 23/07/2008 Hora: 17:20:40

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

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

Nota Número              : 07020

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00058

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CRIAR TABELA DE LOG PARA EXCLUSÕES

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

Palavras Chave:

TABELA DE LOG - /PWS/ZYCIT496

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

Objetos da nota:

TABL /PWS/ZYCIT496

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

Modificações efetuadas em TABL /PWS/ZYCIT496

CRIAR TABELA TRANSPARENTE: /PWS/ZYCIT496

DESCRIÇÃO BREVE: CI - Log exclusões

CARACTERÍSTICAS

CATEGORIA DA TABELA: Tabela transparente

CLASSE DE ENTREGA:   A Tabela de aplicação (dados mestre e de movimento)

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

CAMPOS:       TP. CAMPO      CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

MANDT    MANDT           X   X    T000

NRSEQ       /PWS/ZYCIL001    X   X

FUNC       /PWS/ZYCIL833    X   X

NRSEQDI       /PWS/ZYCIL230    X   X

NRDI          /PWS/ZYCIL299    X   X

DTUSER       DATUM            X   X

HRUSER       UZEIT            X   X

USERNAME      CDUSERNAME

OPÇÕES TÉCNICAS

TIPO DE DADOS: APPL0   Dados mestre, tabelas transparentes

CATEGOR. TAMANHO: 2    Registros dados esperados: 37.000 Até 150.000

(x) - AR. BUFFER NÃO PERMITIDO

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

Modificações efetuadas em REPS  /PWS/MZYCI023F01

...

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

  READ TABLE itab_it INDEX 1.

  /pws/zycit496-mandt    = /pws/zycie085-mandt  .

  /pws/zycit496-nrseq    = itab_it-nrseq        .

  /pws/zycit496-func     = 'DI'                 .

  /pws/zycit496-nrseqdi  = /pws/zycie085-nrseqdi.

  /pws/zycit496-nrdi     = /pws/zycie085-nrdi   .

  /pws/zycit496-dtuser   = sy-datlo             .

  /pws/zycit496-hruser   = sy-uzeit             .

  /pws/zycit496-username = sy-uname             .

* << Fim da inclusão

  DELETE FROM /pws/zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.

  DELETE FROM /pws/zycit095 WHERE nrseqdi = /pws/zycie085-nrseqdi.

  DELETE FROM /pws/zycit100 WHERE nrseqdi = /pws/zycie085-nrseqdi.

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

  IF sy-subrc EQ 0.

    INSERT /pws/zycit496 FROM /pws/zycit496.

  ENDIF.

* << Fim da inclusão

  IF v_dit = 'N'.

    DELETE FROM /pws/zycit086 WHERE nrseqdi = /pws/zycie085-nrseqdi.

...

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

Modificações efetuadas em REPS  /PWS/MZYCI023X01

...

* >> Início da inclusão:

tables: /pws/zycit496.

* << Fim da inclusão

DATA: BEGIN OF COMMON PART a.

...