PW.TP - Nota 003105

Módulo: GERAL

Funcionalidade: Deleção Dados Tabelas TP

Data/Hora da Publicação: 15/02/2007 00:00:00

Data/Hora Última Alteração: 16/02/2011 09:53:04

Descrição da Nota: DELEÇÃO DADOS TABELAS TP

Sintoma

Incluir a tabela Formação dos Métodos na Deleção Dados Tabelas TP.

 

 

Solução

Incluir a tabela Formação dos Métodos na Deleção Dados Tabelas TP.

 

Versões Tratadas

Não Usar - 2.00.0000


Pré-Requisitos

Produto:

Nota

Descrição

DELEÇÃO DE DADOS

Informações Complementares

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

Nota Número 03105 Data: 15/02/2007 Hora: 12:17:21

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

 

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

Nota Número              : 03105

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.TP             : 2.0

Pacote                   : 00024

Agrupamento              : 00007

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

Referência às notas relacionadas:

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

 

02940  - 00001 - 2.0    - 00024  - DELEÇÃO DE DADOS

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

DELEÇÃO DADOS TABELAS TP

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

Palavras Chave:

DELEÇÃO DADOS TABELAS TP

 

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

Objetos da nota:

REPS /PWS/ZYTPR802

REPT /PWS/ZYTPR802

 

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

Modificações efetuadas em REPS /PWS/ZYTPR802

 

...

        /pws/zytpt905,

        /pws/zytpt906,

        /pws/zytpt906m,

        /pws/zytpt907,

        /pws/zytpt021,

        /pws/zytpt908,

        /pws/zytpt910,

        /pws/zytpt911,

        /pws/zytpt903l,

        /pws/zytpt002,

* >> Início da inclusão:

        /pws/zytpt059,

* << Fim da inclusão

        cf987.

DATA: w_cont   TYPE i.

DATA: w_cont2  TYPE i.

DATA: w_cont3  TYPE i.

DATA: w_cont4  TYPE i.

DATA: w_cont5  TYPE i.

DATA: w_cont6  TYPE i.

DATA: w_cont7  TYPE i.

DATA: w_cont8  TYPE i.

DATA: w_cont9  TYPE i.

...

 

...

SELECTION-SCREEN COMMENT (24) text-t03 FOR FIELD p_zt0060.

SELECTION-SCREEN END OF LINE.

PARAMETERS: p_zt006m AS CHECKBOX.

PARAMETERS: p_zt007 AS CHECKBOX.

PARAMETERS: p_cf987 AS CHECKBOX.

PARAMETERS: p_ztp003 AS CHECKBOX.

PARAMETERS: p_ztp910 AS CHECKBOX.

PARAMETERS: p_ztp911 AS CHECKBOX.

PARAMETERS: p_ztp915 AS CHECKBOX.

PARAMETERS: p_ztp002 AS CHECKBOX.

* >> Início da inclusão:

PARAMETERS  p_ztp059 AS CHECKBOX.

* << Fim da inclusão

SELECTION-SCREEN END OF BLOCK b2.

DATA: t_zytpt901 LIKE /pws/zytpt901 OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt902 LIKE /pws/zytpt902 OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt903 LIKE /pws/zytpt903 OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt904 LIKE /pws/zytpt904 OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt905 LIKE /pws/zytpt905 OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt906 LIKE /pws/zytpt906 OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt906m LIKE /pws/zytpt906m OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt907 LIKE /pws/zytpt907 OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt908 LIKE /pws/zytpt908 OCCURS 10000 WITH HEADER LINE.

...

 

...

  IF p_ztp002 EQ 'X'.

    DELETE FROM /pws/zytpt002 CLIENT SPECIFIED

      WHERE mandt IN r_mandt

        AND bukrs_g = p_bukrsg

        AND matnr IN s_matnr

        AND ano   IN r_ano

        AND mes   IN r_mes.

    WRITE: / text-026 , sy-dbcnt,

           / sy-uline.

  ENDIF.

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

  IF p_ztp059 EQ 'X'.

    DELETE FROM /pws/zytpt059 CLIENT SPECIFIED

      WHERE mandt IN r_mandt

        AND bukrs_g = p_bukrsg

        AND matnr IN s_matnr

        AND ano   IN r_ano

        AND mes   IN r_mes.

    WRITE: / text-033 , sy-dbcnt,

           / sy-uline.

  ENDIF.

* << Fim da inclusão

  s_matnr[] = r_matnr[].

ENDFORM.

FORM trata_autorizacao.

  DATA: message(255). RANGES r_bukrs FOR t001-bukrs.

  CLEAR message.

  PERFORM f_trata_autorizacao(/pws/zytpx001)

          TABLES r_bukrs

           USING p_bukrsg

        CHANGING message   IF FOUND.

  IF NOT message IS INITIAL.

...

 

 

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

Modificações efetuadas em REPT /PWS/ZYTPR802

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 033

 

Texto: (44 caracteres)

"Nº Itens eliminados da Tabela /PWS/ZYTPT059:"

 

Comprimento máximo: 100

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 034

 

Texto: (37 caracteres)

"Tabelas /PWS/ZYTPT910 e /PWS/ZYTPT059"

 

Comprimento máximo: 40

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): P_ZTP059

 

Texto: (21 caracteres)

"/PWS/ZYTPT059"

 

Referência ao Dictionary: NÃO