Sintoma

Novas tabelas para inclusão, não há descrições das tabelas e necessidade de novo tratamento de

autorização.

Solução

Novo tratamento com inclusão de tabelas, exibição das descrições das tabelas e tratamento de

autorização.

Informações Complementares

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

Nota Número 04414 Data: 14/08/2007 Hora: 14:05:31

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

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

Nota Número              : 04414

Categoria                : Melhoria

Prioridade               : Média

Versão PW.TP             : 2.0

Pacote                   : 00026

Agrupamento              : 00010

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

Referência às notas relacionadas:

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

03105  - 00001 - 2.0    - 00024  - DELEÇÃO DADOS TABELAS TP

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

DELEÇÃO DE TABELAS-INCLUSÃO DE TABELAS E AJUSTE DE DESCRIÇÕES

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

Palavras Chave:

DELEÇÃO DE TABELAS-INCLUSÃO DE TABELAS E AJUSTE DE DESCRIÇÕES

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

Objetos da nota:

REPS /PWS/ZYTPR802

REPT /PWS/ZYTPR802

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

Modificações efetuadas em REPS /PWS/ZYTPR802

REPORT /pws/zytpr802 MESSAGE-ID /pws/zytpm.

* >> Início da exclusão:

TABLES: /pws/zytpt901,

        /pws/zytpt902,

        /pws/zytpt903,

        /pws/zytpt904,

        /pws/zytpt905,

        /pws/zytpt906,

        /pws/zytpt906m,

        /pws/zytpt907,

* << Fim da exclusão

* >> Início da inclusão:

TABLES: /pws/zytpt901.

* << Fim da inclusão

* >> Início da exclusão:

        /pws/zytpt021,

        /pws/zytpt908,

        /pws/zytpt910,

        /pws/zytpt911,

        /pws/zytpt903l,

        /pws/zytpt002,

        /pws/zytpt059,

        cf987.

* << Fim da exclusão

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.

DATA: w_cont10 TYPE i.

DATA: w_cont11 TYPE i,

      w_cont15 TYPE i.

DATA: w_cont16 TYPE i.

DATA: w_ano_ant(4) TYPE n.

* >> Início da inclusão:

DATA: w_cont17 TYPE i,

      w_cont18 TYPE i,

      w_cont19 TYPE i,

      w_cont20 TYPE i,

      w_cont22 TYPE i,

      w_cont23 TYPE i.

DATA:   t_021   TYPE TABLE OF /pws/zytpt021,

        t_025   TYPE TABLE OF /pws/zytpt025 WITH HEADER LINE,

        t_901   TYPE TABLE OF /pws/zytpt901,

        v_tcode TYPE sy-tcode,

        v_repid TYPE sy-repid,

        v_subrc TYPE sy-subrc,

        v_zexit TYPE /pws/zytpt025-zexit.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-tb1.

PARAMETERS: p_bukrsg LIKE /pws/zytpt021-bukrs_g OBLIGATORY.

SELECT-OPTIONS: s_budat FOR sy-datum NO-EXTENSION OBLIGATORY.

PARAMETERS: p_sysid LIKE /pws/zytpt901-sysid OBLIGATORY.

SELECT-OPTIONS: s_matnr FOR /pws/zytpt901-matnr.

SELECT-OPTIONS: s_grupo FOR /pws/zytpt901-grupo.

SELECTION-SCREEN END   OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-tb2.

* >> Início da inclusão:

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_zt001 AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d01 FOR FIELD p_zt001.

SELECTION-SCREEN END OF LINE.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: p_zt002 AS CHECKBOX.

* >> Início da exclusão:

SELECTION-SCREEN COMMENT 5(32) text-t02 FOR FIELD p_zt002.

* << Fim da exclusão

* >> Início da inclusão:

SELECTION-SCREEN COMMENT (54) text-d02 FOR FIELD p_zt002.

* << Fim da inclusão

PARAMETERS: p_zt0020 AS CHECKBOX.

* >> Início da exclusão:

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

* << Fim da exclusão

* >> Início da inclusão:

SELECTION-SCREEN COMMENT (23) text-t03 FOR FIELD p_zt0020.

* << Fim da inclusão

SELECTION-SCREEN END OF LINE.

* >> Início da inclusão:

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_zt003 AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d03 FOR FIELD p_zt003.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: p_ztp003 AS CHECKBOX.

SELECTION-SCREEN COMMENT 5(60) text-d3l FOR FIELD p_ztp003.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_zt004 AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d04 FOR FIELD p_zt004.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_zt005 AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d05 FOR FIELD p_zt005.

SELECTION-SCREEN END OF LINE.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: p_zt006 AS CHECKBOX.

* >> Início da exclusão:

SELECTION-SCREEN COMMENT 5(32) text-t04 FOR FIELD p_zt006.

* << Fim da exclusão

* >> Início da inclusão:

SELECTION-SCREEN COMMENT (54) text-d06 FOR FIELD p_zt006.

* << Fim da inclusão

PARAMETERS: p_zt0060 AS CHECKBOX.

* >> Início da exclusão:

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

* << Fim da exclusão

* >> Início da inclusão:

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

* << Fim da inclusão

SELECTION-SCREEN END OF LINE.

* >> Início da inclusão:

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_zt006m AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d6m FOR FIELD p_zt006m.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_zt007 AS CHECKBOX.

* >> Início da exclusão:

PARAMETERS: p_cf987 AS CHECKBOX.

PARAMETERS: p_ztp003 AS CHECKBOX.

* << Fim da exclusão

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d07 FOR FIELD p_zt007.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_ztp910 AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d10 FOR FIELD p_ztp910.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_ztp911 AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d11 FOR FIELD p_ztp911.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_ztp915 AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d15 FOR FIELD p_ztp915.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS  p_ztp917 AS CHECKBOX.

SELECTION-SCREEN COMMENT 5(60) text-d17 FOR FIELD p_ztp917.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS  p_ztp918 AS CHECKBOX.

SELECTION-SCREEN COMMENT 5(60) text-d18 FOR FIELD p_ztp918.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS  p_ztp919 AS CHECKBOX.

SELECTION-SCREEN COMMENT 5(60) text-d19 FOR FIELD p_ztp919.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS  p_ztp920 AS CHECKBOX.

SELECTION-SCREEN COMMENT 5(60) text-d20 FOR FIELD p_ztp920.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS  p_ztp922 AS CHECKBOX.

SELECTION-SCREEN COMMENT 5(60) text-d22 FOR FIELD p_ztp922.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS  p_ztp923 AS CHECKBOX.

SELECTION-SCREEN COMMENT 5(60) text-d23 FOR FIELD p_ztp923.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS: p_ztp002 AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-dz2 FOR FIELD p_ztp002.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

* << Fim da inclusão

PARAMETERS  p_ztp059 AS CHECKBOX.

* >> Início da inclusão:

SELECTION-SCREEN COMMENT 5(60) text-d59 FOR FIELD p_ztp059.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: p_cf987 AS CHECKBOX.

SELECTION-SCREEN COMMENT 5(60) text-d87 FOR FIELD p_cf987.

SELECTION-SCREEN END OF LINE.

* << Fim da inclusão

SELECTION-SCREEN END OF BLOCK b2.

* >> Início da exclusão:

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.

* << Fim da exclusão

DATA: t_zytpt021 LIKE /pws/zytpt021 OCCURS 1000 WITH HEADER LINE.

* >> Início da exclusão:

DATA: t_cf987 LIKE cf987 OCCURS 1000 WITH HEADER LINE.

DATA: t_zytpt903l LIKE /pws/zytpt903l OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt910 LIKE /pws/zytpt910 OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt911 LIKE /pws/zytpt911 OCCURS 10000 WITH HEADER LINE.

DATA: t_zytpt915 LIKE /pws/zytpt915 OCCURS 10000 WITH HEADER LINE.

* << Fim da exclusão

DATA: t_zytpt029 LIKE /pws/zytpt029 OCCURS 15 WITH HEADER LINE.

DATA: w_mandt LIKE sy-mandt.

RANGES: r_mandt FOR sy-mandt.

* >> Início da inclusão:

INITIALIZATION.

  PERFORM trans_autorizacao.

AT SELECTION-SCREEN.

  PERFORM org_autorizacao.

* << Fim da inclusão

IF s_budat-low(4) <> s_budat-high(4).

* >> Início da exclusão:

  MESSAGE i398(00) WITH text-e02.

* << Fim da exclusão

* >> Início da inclusão:

    MESSAGE i208(00) WITH text-e02.

* << Fim da inclusão

  STOP.

ENDIF.

START-OF-SELECTION.

  IF ( p_ztp910 = 'X' OR p_ztp911 = 'X' ) AND

     ( NOT s_matnr[] IS INITIAL OR NOT s_grupo[] IS INITIAL ).

    MESSAGE s079(/pws/zytpm) WITH text-029 text-030.

    STOP.

  ENDIF.

  PERFORM trata_autorizacao.

* >> Início da inclusão:

  PERFORM mta_autorizacao.

* << Fim da inclusão

  PERFORM f_seleciona_dados.

  PERFORM f_processamento.

END-OF-SELECTION.

FORM f_seleciona_dados.

  REFRESH r_mandt. CLEAR r_mandt.

  r_mandt-sign = 'I'.

  r_mandt-option = 'EQ'.

  r_mandt-low = sy-mandt.

  APPEND r_mandt.

  CLEAR w_mandt.

...

...

  IF p_zt002 = 'X'.

    IF p_zt003 = 'X'.

    ENDIF.

    IF p_ztp003 = 'X'.

    ENDIF.

    IF p_zt004 = 'X'.

    ENDIF.

    IF p_zt005 = 'X'.

    ENDIF.

    IF p_zt006 = 'X'.

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

      DESCRIBE TABLE t_zytpt906 LINES w_cont6.

* << Fim da exclusão

    ENDIF.

    IF p_zt007 = 'X'.

    ENDIF.

    IF p_ztp910 = 'X'.

    ENDIF.

    IF p_ztp911 = 'X'.

    ENDIF.

    IF p_cf987 = 'X'.

    ENDIF.

    SELECT *

        INTO TABLE t_zytpt021

        FROM /pws/zytpt021

        CLIENT SPECIFIED

        WHERE mandt IN r_mandt AND

              bukrs_g = p_bukrsg .

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

    LOOP AT t_zytpt021.

      SELECT *

          INTO TABLE t_zytpt908

          FROM /pws/zytpt908

          CLIENT SPECIFIED

          WHERE mandt IN r_mandt

             AND bukrs   EQ t_zytpt021-bukrs

             AND branch  EQ t_zytpt021-branch

             AND ( sysid EQ p_sysid OR sysid EQ '' )

             AND pstdat IN s_budat.

    ENDLOOP.

* << Fim da exclusão

  ENDIF.

ENDFORM.

FORM f_processamento.

  PERFORM f_deleta_itens.

ENDFORM.

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

FORM f_exibe_itens.

  IF p_zt001 = 'X'.

    IF NOT t_zytpt901[] IS INITIAL.

      WRITE: / text-013 , w_cont,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_zt002 = 'X'.

    IF NOT t_zytpt902[] IS INITIAL.

      WRITE: / text-008 , w_cont2,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_zt003 = 'X'.

    IF NOT t_zytpt903[] IS INITIAL.

      WRITE: / text-009 , w_cont3,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_zt004 = 'X'.

    IF NOT t_zytpt904[] IS INITIAL.

      WRITE: / text-010 , w_cont4,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_zt005 = 'X'.

    IF NOT t_zytpt905[] IS INITIAL.

      WRITE: / text-011 , w_cont5,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_zt006 = 'X'.

    IF NOT t_zytpt906[] IS INITIAL.

      WRITE: / text-012 , w_cont6,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_zt006m = 'X'.

    IF NOT t_zytpt906m[] IS INITIAL.

      WRITE: / text-027, w_cont16,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_zt007 = 'X'.

    IF NOT t_zytpt907[] IS INITIAL.

      WRITE: / text-015 , w_cont7,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_cf987 = 'X'.

    IF NOT t_cf987[] IS INITIAL.

      WRITE: / text-017 , w_cont8,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_ztp003 = 'X'.

    IF NOT t_zytpt903l[] IS INITIAL.

      WRITE: / text-019 , w_cont9,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_ztp910 = 'X'.

    IF NOT t_zytpt910[] IS INITIAL.

      WRITE: / text-021, w_cont10,

             / sy-uline.

    ENDIF.

  ENDIF.

  IF p_ztp911 = 'X'.

    IF NOT t_zytpt911[] IS INITIAL.

      WRITE: / text-022, w_cont11,

             / sy-uline.

    ENDIF.

  ENDIF.

ENDFORM.

* << Fim da exclusão

FORM f_deleta_itens.

  RANGES: r_ano FOR /pws/zytpt902-ano,

          r_mes FOR /pws/zytpt902-mes.

  READ TABLE s_budat INDEX 1.

  r_ano-sign = 'I'.

  r_ano-option = 'EQ'.

  r_ano-low = s_budat-low(4).

  COLLECT r_ano.

  r_mes-sign = s_budat-sign.

  r_mes-option = s_budat-option.

...

...

           / sy-uline.

  ENDIF.

  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,

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

           / sy-uline.

  ENDIF.

  IF p_ztp917 = 'X'.

    DELETE FROM /pws/zytpt917 CLIENT SPECIFIED

            WHERE mandt IN r_mandt

              AND bukrs_g EQ p_bukrsg

              AND ano_periodo IN r_ano

              AND mes_periodo IN r_mes.

    w_cont17 = sy-dbcnt.

    WRITE: / text-035 , w_cont17,

* << Fim da inclusão

           / sy-uline.

  ENDIF.

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

  IF p_ztp918 = 'X'.

    DELETE FROM /pws/zytpt918 CLIENT SPECIFIED

            WHERE mandt IN r_mandt

              AND bukrs_g EQ p_bukrsg

              AND ano_periodo IN r_ano

              AND mes_periodo IN r_mes.

    w_cont18 = sy-dbcnt.

    WRITE: / text-036 , w_cont18,

           / sy-uline.

  ENDIF.

  IF p_ztp919 = 'X'.

    DELETE FROM /pws/zytpt919 CLIENT SPECIFIED

            WHERE mandt   IN r_mandt

              AND bukrs_g EQ p_bukrsg

              AND ano     IN r_ano

              AND mes     IN r_mes

              AND asnum   IN s_matnr.

    w_cont19 = sy-dbcnt.

    WRITE: / text-037 , w_cont19,

           / sy-uline.

  ENDIF.

  IF p_ztp920 = 'X'.

    DELETE FROM /pws/zytpt920 CLIENT SPECIFIED

            WHERE mandt   IN r_mandt

              AND bukrs_g EQ p_bukrsg

              AND ( sysid EQ p_sysid OR sysid EQ '' )

              AND ano     IN r_ano

              AND mes     IN r_mes

              AND asnum   IN s_matnr.

    w_cont20 = sy-dbcnt.

    WRITE: / text-038, w_cont20,

           / sy-uline.

  ENDIF.

  IF p_ztp922 = 'X'.

    DELETE FROM /pws/zytpt922 CLIENT SPECIFIED

            WHERE mandt IN r_mandt

              AND bukrs_g EQ p_bukrsg

              AND ano_periodo IN r_ano

              AND mes_periodo IN r_mes.

    w_cont22 = sy-dbcnt.

    WRITE: / text-039 , w_cont22,

           / sy-uline.

  ENDIF.

  IF p_ztp923 = 'X'.

    DELETE FROM /pws/zytpt923 CLIENT SPECIFIED

            WHERE mandt IN r_mandt

              AND bukrs_g EQ p_bukrsg

              AND ( sysid EQ p_sysid OR sysid EQ '' )

              AND ano     IN r_ano

              AND asnum   IN s_matnr.

    w_cont23 = sy-dbcnt.

    WRITE: / text-040 , w_cont23,

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

    MESSAGE i079(/pws/zytpm) WITH message(50)

                      message+50(50)

                      message+100(50)

                      message+150(50).

    STOP.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM trans_autorizacao.

  DATA v_tamanho TYPE i.

  MOVE sy-tcode TO v_tcode.

  MOVE sy-repid TO v_repid.

  v_tamanho = strlen( v_repid ).

  SUBTRACT 4 FROM v_tamanho.

  CONCATENATE v_repid+v_tamanho(4) 'EXIT01' INTO v_zexit.

  CLEAR v_subrc.

  SELECT SINGLE * INTO t_025

    FROM /pws/zytpt025

    WHERE cd_holding EQ space

      AND bukrs_g    EQ space

      AND sysid      EQ sy-sysid

      AND zexit      EQ v_zexit

      AND ativo      EQ 'X'.

  IF sy-subrc EQ 0 AND

    NOT t_025-programa IS INITIAL AND

    NOT t_025-form IS INITIAL.

    PERFORM (t_025-form) IN PROGRAM (t_025-programa)

      USING    v_tcode

               v_repid

               v_zexit

      CHANGING v_subrc.

  ELSE.

    AUTHORITY-CHECK OBJECT 'S_TCODE'

             ID 'TCD' FIELD v_tcode.

    v_subrc = sy-subrc.

  ENDIF.

  IF v_subrc NE 0.

    MESSAGE e079(/pws/zytpm)

      WITH text-tco

           v_tcode

           space

           space.

  ENDIF.

ENDFORM.

FORM org_autorizacao.

  DATA v_tamanho TYPE i.

  MOVE sy-tcode TO v_tcode.

  MOVE sy-repid TO v_repid.

  v_tamanho = strlen( v_repid ).

  SUBTRACT 4 FROM v_tamanho.

  CONCATENATE v_repid+v_tamanho(4) 'EXIT02' INTO v_zexit.

  CLEAR v_subrc.

  SELECT SINGLE * INTO t_025

    FROM /pws/zytpt025

    WHERE cd_holding EQ space

      AND bukrs_g    EQ space

      AND sysid      EQ sy-sysid

      AND zexit      EQ v_zexit

      AND ativo      EQ 'X'.

  IF sy-subrc EQ 0 AND

    NOT t_025-programa IS INITIAL AND

    NOT t_025-form IS INITIAL.

    SELECT * INTO TABLE t_021

      FROM /pws/zytpt021

      WHERE bukrs_g EQ p_bukrsg

        AND sysid   EQ sy-sysid.

    PERFORM (t_025-form) IN PROGRAM (t_025-programa)

      USING    v_tcode

               v_repid

               v_zexit

               t_021[]

      CHANGING v_subrc.

  ENDIF.

  IF v_subrc NE 0.

    MESSAGE e079(/pws/zytpm)

      WITH text-org

           space

           space

           space.

  ENDIF.

ENDFORM.

FORM mta_autorizacao.

  DATA v_tamanho TYPE i.

  MOVE sy-tcode TO v_tcode.

  MOVE sy-repid TO v_repid.

  v_tamanho = strlen( v_repid ).

  SUBTRACT 4 FROM v_tamanho.

  CONCATENATE v_repid+v_tamanho(4) 'EXIT03' INTO v_zexit.

  CLEAR v_subrc.

  SELECT SINGLE * INTO t_025

    FROM /pws/zytpt025

    WHERE cd_holding EQ space

      AND bukrs_g    EQ space

      AND sysid      EQ sy-sysid

      AND zexit      EQ v_zexit

      AND ativo      EQ 'X'.

  IF sy-subrc EQ 0 AND

    NOT t_025-programa IS INITIAL AND

    NOT t_025-form IS INITIAL.

    SELECT * INTO TABLE t_901

      FROM /pws/zytpt901

      WHERE sysid   EQ sy-sysid

        AND bukrs_g EQ p_bukrsg

        AND matnr   IN s_matnr

        AND ano >= s_budat-low(4)

        AND ano <= s_budat-high(4).

    PERFORM (t_025-form) IN PROGRAM (t_025-programa)

      USING    v_tcode

               v_repid

               v_zexit

               t_901[]

      CHANGING v_subrc.

  ENDIF.

  IF v_subrc NE 0.

    MESSAGE e079(/pws/zytpm)

      WITH text-mta

           space

           space

           space.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/ZYTPR802

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 002

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 003

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 004

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 005

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 006

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 007

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 016

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 018

Texto: (36 caracteres)

"Nº Itens eliminados da Tabela CF987:"

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 020

Texto: (45 caracteres)

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

Comprimento máximo: 45

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 023

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 024

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 025

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 026

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 028

Texto: (45 caracteres)

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

Comprimento máximo: 45

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 033

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 035

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 036

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 037

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 038

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 039

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 040

Texto: (44 caracteres)

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

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D01

Texto: (36 caracteres)

"/PWS/ZYTPT901 - Planilha de Controle"

Comprimento máximo: 41

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D02

Texto: (45 caracteres)

"/PWS/ZYTPT902 - Consolidada das Notas Fiscais"

Comprimento máximo: 52

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D03

Texto: (41 caracteres)

"/PWS/ZYTPT903 - Detalhe das Notas Fiscais"

Comprimento máximo: 46

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D04

Texto: (48 caracteres)

"/PWS/ZYTPT904 - Lista Técnica - Dados de Consumo"

Comprimento máximo: 60

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D05

Texto: (41 caracteres)

"/PWS/ZYTPT905 - Lista Técnica - Estrutura"

Comprimento máximo: 60

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D06

Texto: (54 caracteres)

"/PWS/ZYTPT906 - Custo e Equação de Estoque do Material"

Comprimento máximo: 54

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D07

Texto: (45 caracteres)

"/PWS/ZYTPT907 - Materiais Vendidos no Período"

Comprimento máximo: 60

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D10

Texto: (44 caracteres)

"/PWS/ZYTPT910 - Dados do Comex  - Exportação"

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D11

Texto: (43 caracteres)

"/PWS/ZYTPT911 - Dados do Comex - Importação"

Comprimento máximo: 60

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D15

Texto: (35 caracteres)

"/PWS/ZYTPT915 - Comissão de Agentes"

Comprimento máximo: 60

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D17

Texto: (47 caracteres)

"/PWS/ZYTPT917 - Tabela Dados DIPJ - Consolidado"

Comprimento máximo: 60

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D18

Texto: (45 caracteres)

"/PWS/ZYTPT918 - Tabela Dados DIPJ - Parceiros"

Comprimento máximo: 48

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D19

Texto: (39 caracteres)

"/PWS/ZYTPT919 - Consolidada de Serviços"

Comprimento máximo: 52

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D20

Texto: (35 caracteres)

"/PWS/ZYTPT920 - Detalhe de Serviços"

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D22

Texto: (42 caracteres)

"/PWS/ZYTPT922 - Tabela Dados DIPJ - Resumo"

Comprimento máximo: 47

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D23

Texto: (48 caracteres)

"/PWS/ZYTPT923 - Planilha de Controle de Serviços"

Comprimento máximo: 53

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D3L

Texto: (49 caracteres)

"/PWS/ZYTPT903L - Detalhe das Notas Fiscais - SATI"

Comprimento máximo: 54

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D59

Texto: (36 caracteres)

"/PWS/ZYTPT059 - Formação dos Métodos"

Comprimento máximo: 60

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D6M

Texto: (52 caracteres)

"/PWS/ZYTPT906M - Movimentação de Estoque do Material"

Comprimento máximo: 57

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: D87

Texto: (24 caracteres)

"CF987 - Transfer Pricing"

Comprimento máximo: 24

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: DX1

Texto: (0 caracteres)

Comprimento máximo: 1

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: DZ2

Texto: (24 caracteres)

"/PWS/ZYTPT002 - Invoices"

Comprimento máximo: 29

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: MTA

Texto: (47 caracteres)

"Sem autorização para tipo de material informado"

Comprimento máximo: 47

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: ORG

Texto: (51 caracteres)

"Sem autorização para grupo organizacional informado"

Comprimento máximo: 51

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: T03

Texto: (22 caracteres)

"Elimina período 00/99?"

Comprimento máximo: 30

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: TCO

Texto: (30 caracteres)

"Sem autorização para transação"

Comprimento máximo: 30

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

Modificado texto de seleção:

Idioma: PT

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

Texto: (21 caracteres)

"/PWS/ZYTPT901"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (21 caracteres)

"/PWS/ZYTPT917"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (21 caracteres)

"/PWS/ZYTPT918"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (21 caracteres)

"/PWS/ZYTPT919"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (21 caracteres)

"/PWS/ZYTPT920"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (21 caracteres)

"/PWS/ZYTPT922"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (21 caracteres)

"/PWS/ZYTPT923"

Referência ao Dictionary: NÃO