Sintoma

Abertura da Exit COI005.

Solução

Abertura da Exit COI005.

Informações Complementares

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

Nota Número 07106 Data: 07/08/2008 Hora: 17:08:05

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

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

Nota Número              : 07106

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00059

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

Referência às notas relacionadas:

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

04159  - 00001 - 7.0    - 00002  - DISPONIBILIZAR OS DADOS DA TELA DE SELEÇÃO

06880  - 00002 - 7.0    - 00006  - DESCRIÇÃO DO MATERIAL VENDIDO NO MERCADO INTERNO

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

EXIT COI005

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

Palavras Chave:

COMPOSIÇÃO DE ISENÇÃO EXIT COI005.

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

Objetos da nota:

REPS /PWS/MZYCI064F03

REPS /PWS/MZYCI064TOP2

REPS /PWS/MZYCI064X01

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

           itab_zycit042,

           itab_zycit041,

           itab_zycit043,

           itab_insumo_di.

  DATA: BEGIN OF itab_sel_di OCCURS 0 .

  DATA: nrseqdi TYPE /pws/zycit100-nrseqdi,

        nrseq   TYPE /pws/zycit100-nrseq,

        ebeln   TYPE /pws/zycit100-ebeln,

        ebelp   TYPE /pws/zycit100-ebelp.

  DATA: END OF itab_sel_di.

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

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI064'

                              'COI005'.

  e_subrc = 0.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'COI005'  BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa)

                       CHANGING e_subrc

                                        IF FOUND     .

      IF e_subrc EQ '8'.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  v_pct = 50.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = v_fixo

            text       = text-297.

  LOOP AT itab_comp_vinc_final.

    IF /pws/zycit321-it_ge EQ 'X'.

      LOOP AT itab_zycit433 WHERE

                            grupo EQ itab_comp_vinc_final-grupo.

        READ TABLE itab_insumo_di WITH KEY

...

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

Modificações efetuadas em REPS /PWS/MZYCI064TOP2

* >> Início da exclusão:

TABLES: ekko     ,

        t001     ,

        /pws/zycet003 ,

        /pws/zycie244 ,

        /pws/zycit321 ,

        /pws/zycit421 .

DATA: ok_code2           LIKE sy-ucomm                   ,

      v_ilinhas2         TYPE i                          ,

      v_tabix2           LIKE sy-tabix                   ,

      rimc1              LIKE indx-srtfd VALUE 'NRSEQDI' ,

      idmemory            LIKE indx-srtfd VALUE 'SEQD'   ,

      v_perc_vinc TYPE p DECIMALS 14,

      v_xa   LIKE /pws/zycie085-vlfob,

      v_xb   LIKE /pws/zycie085-vlfob,

      v_fatx TYPE p DECIMALS 8,

      v_faty TYPE p DECIMALS 8,

      v_advii   LIKE /pws/zycie085-vlfob,

      v_advipi  LIKE /pws/zycie085-vlfob,

      v_advicms LIKE /pws/zycie085-vlfob,

      v_advpis  LIKE /pws/zycie085-vlfob,

      v_advcof  LIKE /pws/zycie085-vlfob.

DATA: BEGIN OF itab_matchcode OCCURS 0.

DATA: tipo TYPE c,

      END OF itab_matchcode.

DATA: BEGIN OF it_vals OCCURS 200,

       imps(90) TYPE c,

       END OF it_vals.

DATA: BEGIN OF itab_zycit085 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit085     .

DATA: END OF itab_zycit085           .

DATA: BEGIN OF itab_zycit100 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit100     .

DATA: END OF itab_zycit100           .

DATA: BEGIN OF itab_zycit003 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit003     .

DATA: END OF itab_zycit003           .

DATA: BEGIN OF itab_zycit001 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit001     .

DATA: END OF itab_zycit001           .

DATA: BEGIN OF itab_zycit041 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit041     .

DATA: END OF itab_zycit041           .

DATA: BEGIN OF itab_zycit042 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit042     .

DATA: END OF itab_zycit042           .

DATA: BEGIN OF itab_zycit043 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit043     .

DATA: END OF itab_zycit043           .

DATA: BEGIN OF itab_zycit044 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit044     .

DATA: END OF itab_zycit044           .

DATA: BEGIN OF itab_ekpo OCCURS 0.

        INCLUDE STRUCTURE ekpo     .

DATA: END OF itab_ekpo           .

DATA: BEGIN OF itab_zycit279 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit279.

data: grupo type /pws/zycit433-grupo.

DATA: END OF itab_zycit279.

DATA: BEGIN OF itab_zycit223 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit223     .

DATA: END OF itab_zycit223           .

DATA : BEGIN OF itab_vbfa OCCURS 0  .

DATA : vbelv     LIKE   vbfa-vbelv  ,

       vbeln     LIKE   vbfa-vbeln  ,

       posnn     LIKE   vbfa-posnn  ,

       posnv     LIKE   vbfa-posnv  ,

       vbtyp_v   LIKE   vbfa-vbtyp_v,

       vbtyp_n   LIKE   vbfa-vbtyp_n.

DATA : END OF itab_vbfa      .

* << Fim da exclusão

INCLUDE /pws/mzyci064pres.

INCLUDE /pws/mzyci064text.

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

Modificações efetuadas em REPS /PWS/MZYCI064X01

...

        /pws/zycie373 ,

        /pws/zycie432 ,

        /pws/zycie434 ,

        /pws/zycit434 ,

        /pws/zycie261c,

        /pws/zycit261 ,

        /pws/zycit281 ,

        /pws/zycee085 ,

        /pws/zycet130 ,

        /pws/zycit036 ,

* >> Início da inclusão:

        ekko          ,

        t001          ,

        /pws/zycet003 ,

        /pws/zycie244 ,

        /pws/zycit321 ,

        /pws/zycit421 ,

* << Fim da inclusão

        /pws/zycie371,

        mara.

DATA: BEGIN OF COMMON PART a.

DATA: BEGIN OF itab_zycit495 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit495.

DATA: mark.

DATA: END OF itab_zycit495.

DATA: BEGIN OF itab_zycit495t OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit495.

DATA: mark.

...

...

                                    OCCURS 0 WITH HEADER LINE.

DATA: wa_zycit258      LIKE /pws/zycie258     ,

      wa_itab_det_exp  LIKE itab_det_exp ,

      wa_itab_di_final LIKE itab_di_final.

DATA: BEGIN OF t_matnr OCCURS 0.

DATA: sign      TYPE c,

      option(2) TYPE c,

      low       TYPE mara-matnr,

      high      TYPE mara-matnr.

DATA: END OF t_matnr .

* >> Início da inclusão:

DATA: ok_code2           LIKE sy-ucomm                   ,

      v_ilinhas2         TYPE i                          ,

      v_tabix2           LIKE sy-tabix                   ,

      rimc1              LIKE indx-srtfd VALUE 'NRSEQDI' ,

      idmemory            LIKE indx-srtfd VALUE 'SEQD'   ,

      v_perc_vinc TYPE p DECIMALS 14,

      v_xa   LIKE /pws/zycie085-vlfob,

      v_xb   LIKE /pws/zycie085-vlfob,

      v_fatx TYPE p DECIMALS 8,

      v_faty TYPE p DECIMALS 8,

      v_advii   LIKE /pws/zycie085-vlfob,

      v_advipi  LIKE /pws/zycie085-vlfob,

      v_advicms LIKE /pws/zycie085-vlfob,

      v_advpis  LIKE /pws/zycie085-vlfob,

      v_advcof  LIKE /pws/zycie085-vlfob.

DATA: BEGIN OF itab_matchcode OCCURS 0.

DATA: tipo TYPE c,

      END OF itab_matchcode.

DATA: BEGIN OF it_vals OCCURS 200,

       imps(90) TYPE c,

       END OF it_vals.

DATA: BEGIN OF itab_zycit085 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit085     .

DATA: END OF itab_zycit085           .

DATA: BEGIN OF itab_zycit100 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit100     .

DATA: END OF itab_zycit100           .

DATA: BEGIN OF itab_zycit003 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit003     .

DATA: END OF itab_zycit003           .

DATA: BEGIN OF itab_zycit001 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit001     .

DATA: END OF itab_zycit001           .

DATA: BEGIN OF itab_zycit041 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit041     .

DATA: END OF itab_zycit041           .

DATA: BEGIN OF itab_zycit042 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit042     .

DATA: END OF itab_zycit042           .

DATA: BEGIN OF itab_zycit043 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit043     .

DATA: END OF itab_zycit043           .

DATA: BEGIN OF itab_zycit044 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit044     .

DATA: END OF itab_zycit044           .

DATA: BEGIN OF itab_ekpo OCCURS 0.

        INCLUDE STRUCTURE ekpo     .

DATA: END OF itab_ekpo           .

DATA: BEGIN OF itab_zycit279 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit279.

data: grupo type /pws/zycit433-grupo.

DATA: END OF itab_zycit279.

DATA: BEGIN OF itab_zycit223 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit223     .

DATA: END OF itab_zycit223           .

DATA : BEGIN OF itab_vbfa OCCURS 0  .

DATA : vbelv     LIKE   vbfa-vbelv  ,

       vbeln     LIKE   vbfa-vbeln  ,

       posnn     LIKE   vbfa-posnn  ,

       posnv     LIKE   vbfa-posnv  ,

       vbtyp_v   LIKE   vbfa-vbtyp_v,

       vbtyp_n   LIKE   vbfa-vbtyp_n.

DATA : END OF itab_vbfa      .

* << Fim da inclusão

DATA: END OF COMMON PART.

SELECTION-SCREEN BEGIN OF SCREEN 0312 AS WINDOW TITLE text-098.

SELECT-OPTIONS p_matnr FOR mara-matnr OBLIGATORY.

PARAMETERS: p_dtexp1 LIKE /pws/zycee116-dtincl,

            p_dtexp2 LIKE /pws/zycee116-dtincl.

SELECTION-SCREEN END OF SCREEN 0312.

SELECTION-SCREEN BEGIN OF SCREEN 0326 AS WINDOW TITLE text-098.

SELECT-OPTIONS: s_prodt FOR /pws/zycie495-codigo OBLIGATORY,

                s_data  FOR sy-datum.

SELECTION-SCREEN END OF SCREEN 0326.