Sintoma

Compartilhamento de variáveis para uso em exit específica na LI.

Solução

Compartilhar variáveis declarando no include /PWS/MZYCI020X01

Informações Complementares

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

Nota Número 06421 Data: 18/04/2008 Hora: 14:08:39

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

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

Nota Número              : 06421

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00043

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPARTILHAMENTO DE VARIÁVEIS PARA USO EM EXIT ESPECÍFICA.

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

Palavras Chave:

VARIÁVEIS - EXIT - ESPECÍFICO - PROGRAMA ESPECÍFICO

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

Objetos da nota:

REPS /PWS/MZYCI020TOP

REPS /PWS/MZYCI020X01

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

Modificações efetuadas em REPS /PWS/MZYCI020TOP

 ...

* >> Início da exclusão:

TABLES:

        lfa1,

        adrc,

        t005,

        t001,

        t002,

        t002t,

        t005t,

        t615t,

        t604f,

        tcurc,

        tcurt,

        ekko,

        ekpo,

        dd07t,

        indx,

        tcurx.

DATA: ok_code LIKE sy-ucomm               ,

      v_answer                             ,

      text(100)                            ,

      nextline    TYPE i                   ,

      v_posi(40)                           ,

      v_copy      TYPE c                   .

* << Fim da exclusão

...

...

DATA: wa_cols  TYPE cxtab_column.

* >> Início da exclusão:

DATA: wa_zycit079  LIKE it_zycit079.

DATA  wa_zycit078 LIKE /pws/zycie078.

DATA wa_zycit078_aux2 LIKE /pws/zycie078.

DATA : wa_zycit079a LIKE /pws/zycie079a,

       wa_zycit079a_ncm LIKE /pws/zycie079a.

DATA  wa_zycit080 LIKE /pws/zycie080.

DATA wa_lfa1 LIKE adrc.

DATA wa_lfa12 LIKE adrc.

DATA wa_zycit080_aux LIKE /pws/zycit080.

DATA: wa_zycit080_aux2 LIKE /pws/zycie080a,

      wa_zycit080_aux3 LIKE /pws/zycie080,

      wa_zycit080_aux4 LIKE /pws/zycie080,

      wa_zycit080_ncm   LIKE /pws/zycie080 ,

      wa_zycit080a_ncm  LIKE /pws/zycie080 ,

      wa_zycit080b_ncm  LIKE /pws/zycie080 ,

      wa_zycit080c_ncm  LIKE /pws/zycie080 .

DATA: wa_zycit100 LIKE /pws/zycit100 ,

      wa_zycit000  LIKE /pws/zycit000,

      wa_ekpo      LIKE ekpo         .

DATA: wa_thead LIKE thead,

      wa_thead2 LIKE thead.

DATA: wa_t001w LIKE t001w.

DATA: wa_zycit136   LIKE /pws/zycit136.

DATA wa_zycit001 LIKE /pws/zycit001.

DATA wa_zycit104 LIKE /pws/zycit104.

DATA: wa_zycit197 LIKE /pws/zycit197.

DATA: BEGIN OF wa_ender.

DATA: stras LIKE t001w-spras,

    ort01 LIKE t001w-ort01,

    regio LIKE t001w-regio.

DATA: END OF wa_ender.

DATA: BEGIN OF wa_impress.

DATA: ebeln    LIKE ekpo-ebeln,

      ebelp    LIKE ekpo-ebelp,

      matnr    LIKE ekpo-matnr,

      txz01    LIKE ekpo-txz01,

      quant    LIKE ekpo-menge,

      saldo    LIKE ekpo-menge,

      dtrem    LIKE ekko-bedat,

      ncm      LIKE ekpo-j_1bnbm,

      lifnr    LIKE ekko-lifnr,

      name1    LIKE lfa1-name1,

      regio    LIKE lfa1-regio,

      nrseqli  LIKE /pws/zycit078-nrseqli,

      dtdef    LIKE /pws/zycit078-dtdef,

      dtvencto LIKE /pws/zycit078-dtvencto,

      END OF wa_impress.

DATA: wa_zycet050 LIKE /pws/zycet050.

DATA: v_descr      LIKE /pws/zycet132-descdesp,

      v_descr2     LIKE /pws/zycet132-descdesp,

      v_descr3     LIKE t005t-landx,

      v_descr4     LIKE t005t-landx,

      v_descr5     LIKE t005t-landx,

      v_descr6     LIKE /pws/zycit194-descricao,

      v_descr7     LIKE dd07t-ddtext,

      v_descr8     LIKE /pws/zycit177-descr,

      v_descr9     LIKE /pws/zycit193-descricao,

      v_descr10    LIKE /pws/zycit169-descricao,

      v_descr11    LIKE /pws/zycit172-descricao,

      v_descr12    LIKE /pws/zycit170-descricao,

      v_descr13    LIKE /pws/zycet168-descricao,

      v_descr14    LIKE dd07t-ddtext,

      v_descr15    LIKE dd07t-ddtext,

      v_descr16    LIKE dd07t-ddtext,

      v_descr17    LIKE dd07t-ddtext,

      v_descr18    LIKE dd07t-ddtext,

      v_descr19    LIKE dd07t-ddtext,

      v_descr20(2),

      v_descr21(120),

      v_descr22    LIKE t005t-landx,

      v_descr23    LIKE tcurc-/pws/codmo,

      v_descr24    LIKE tcurt-ktext,

      v_descr25    LIKE j_1bbranch-name,

      v_descr26    LIKE t006-msehi,

      v_descr27(120),

      v_descr28    LIKE tcurc-/pws/codmo,

      v_descr29    LIKE tcurt-ltext,

      v_descr30    LIKE t005-/pws/codpa,

      v_descr31    LIKE t005-/pws/codpa,

      v_descnrseq(17)  TYPE c,

      v_descrpais  LIKE t005t-landx,

      v_descrpais2 LIKE t005t-landx,

      v_desculdesp LIKE /pws/zycet132-descdesp,

      v_descfabric LIKE dd07t-ddtext,

      v_desctipimp LIKE dd07t-ddtext,

      v_descregtri LIKE /pws/zycit167-descricao,

      v_descfunleg LIKE /pws/zycit177-descr,

      v_descmotivo LIKE /pws/zycit169-descricao,

      v_descmotivofunleg LIKE /pws/zycit141-descricao,

      v_descrnaladi LIKE /pws/zycet142-descnala,

      okcode       LIKE sy-ucomm              ,

      mark                                    ,

      v_indice     LIKE sy-tabix              ,

      v_kposn_fob  LIKE komv-kposn            ,

      v_cod_pais   LIKE t005-/pws/codpa,

      v_cod_pais2   LIKE t005-/pws/codpa,

      v_codpaisori LIKE t005-/pws/codpa,

      v_codpaispro LIKE t005-/pws/codpa,

      v_cnpj(18)   TYPE c,

      v_cgc        LIKE j_1bwfield-cgc_number,

      v_total      LIKE /pws/zycit079-qtd_iten,

      v_esp(254)    TYPE c,

      v_esp2(132)   TYPE c,

      v_esp3(132)   TYPE c,

      v_esp4(132)   TYPE c,

      v_esp5(132)   TYPE c,

      v_esp6(132)   TYPE c,

      v_txtkey     LIKE thead-tdname,

      v_txtkey2    LIKE thead-tdname,

      v_vlfobli    LIKE /pws/zycit078-vltot,

      v_field(30),

      v_tcode      LIKE sy-tcode,

      v_tcode2     LIKE sy-tcode,

      v_classific(5),

      v_flag,

      v_flag2,

      v_flag3,

      v_resp_save  TYPE c,

      v_resp TYPE c,

      v_campo(20),

      v_valor(20),

      v_cont TYPE i,

      i_ebeln      LIKE ekko-ebeln,

      v_resp2 TYPE c,

      v_forn       LIKE /pws/zycie080-lifnr,

      v_forn2      LIKE /pws/zycie080-lifnr,

      v_matnr      LIKE ekpo-matnr,

      v_mfrpn      LIKE mara-mfrpn,

      v_ip         LIKE sy-tabix,

      v_line       TYPE i,

      v_nrcomp(16),

      v_nrdrawback(16),

      v_descrlog(100),

      v_adicao_adi(03)                     ,

      v_nrseqdi_adi LIKE /pws/zycit100-nrseqdi  ,

      v_ebeln_adi   LIKE /pws/zycit100-ebeln    ,

      v_ebelp_adi   LIKE /pws/zycit100-ebelp    ,

      v_descr_adi   LIKE /pws/zycit003-descr    ,

      v_nrseq_adi   LIKE /pws/zycit003-nrseq    ,

      v_marc_adi                           ,

      v_linha       TYPE i                 ,

      v_linhas      TYPE i                 ,

      v_linha2      TYPE i                 ,

      v_contador    TYPE i                 ,

      v_resposta                           ,

      v_nrseq_vin     LIKE /pws/zycit001-nrseq    ,

      v_ebeln_vin     LIKE /pws/zycit079-ebeln    ,

      v_ebelp_vin     LIKE /pws/zycit079-ebelp    ,

      v_descr_vin     LIKE /pws/zycit079-descr    ,

      v_nrseqd_vin    LIKE /pws/zycit244-nrseqd   ,

      v_nratoc_vin    LIKE /pws/zycit244-nratoc   ,

      v_dtatoc_vin    LIKE /pws/zycit244-dtatoc   ,

      v_sdocomp_t_vin LIKE /pws/zycit245-sdocomp_t,

      v_qtd_iten_vin  LIKE /pws/zycit079-qtd_iten ,

      v_modal_vin     LIKE /pws/zycit244-desc_modal,

      v_tpdraw_vin    LIKE /pws/zycit244-desctipo_ac,

      v_sdofob_vin    LIKE /pws/zycit244-s_realfob ,

      v_fobli_vin     LIKE /pws/zycit078-vltot     ,

      v_retorno(30)                                ,

      v_chk_vin                                  ,

      v_icon_vin     LIKE icons-text             ,

      v_pos          TYPE i                      ,

      v_nrseq_pos    LIKE /pws/zycit001-nrseq    ,

      v_ebeln_pos    LIKE /pws/zycit079-ebeln    ,

      v_ebelp_pos    LIKE /pws/zycit079-ebelp    ,

      v_txtcom       LIKE thead-tdname      ,

      v_erro_pexpam                        ,

      v_erro_drawback                      ,

      v_dcompl       TYPE i                 ,

      v_tspace      TYPE i                 ,

      v_descrativ   LIKE /pws/zycit204-descricao,

      v_status800                          ,

      v_name        LIKE thead-tdname      ,

      v_texto(255)                         ,

      v_werks       LIKE ekpo-werks        ,

      v_txtki    LIKE thead-tdname         ,

      v_fat                                ,

      v_di                                 ,

      v_nvinc                              ,

      v_ncmdf                              ,

      v_ncm   LIKE /pws/zycit245-j_1bnbm   ,

      v_bl                                 ,

      v_param(550)   TYPE c VALUE space    ,

      v_tabix        LIKE sy-tabix         ,

      v_tpdoc        LIKE /pws/zycit136-tp_doc  ,

      v_lisubst                            ,

      v_string_ex    LIKE rlgrap-filename VALUE space,

      v_key(70)                                 ,

      v_flagcan                            ,

      v_repid        LIKE /pws/zycet067-repid   ,

      v_respcan                            ,

      v_flagsub                            ,

      v_s_idioma(15)                       ,

      v_cur          TYPE i                ,

      v_flag_compl                         ,

      v_descr_ncm   LIKE /pws/zycit181-descricao,

      v_lin_191      TYPE i                ,

      v_lin_177      TYPE i                ,

      v_campanali(60) TYPE c               ,

      v_statuscam(50) TYPE c               ,

      v_icon(5)       TYPE c               ,

      v_tpni         LIKE /pws/zycit078-tpni    ,

      v_codsufra     LIKE dd07t-ddtext     ,

      v_codregtri    LIKE /pws/zycit078-codregtri,

      v_nrseqd       LIKE /pws/zycit078-nrseqd   ,

      v_ppb          LIKE /pws/zycit219-descricao,

      v_exit(01)                            ,

      v_valinic(1)   TYPE c,

      v_peditem(6) TYPE c VALUE 'PEDIDO',

      v_pliorig     LIKE /pws/zycit078-nrseqli  ,

      v_compl(1)      TYPE c               ,

      v_saili TYPE c                       ,

      v_trans TYPE c                       ,

      v_transm(1)                          ,

      v_exit_vlmerc(1)                     ,

      v_bezei       LIKE t005u-bezei       ,

      v_land1       LIKE lfa1-land1        ,

      v_matnrd      LIKE mara-matnr        ,

      v_salvo,

      v_salvo_drawback,

      v_verficado,

      v_steuc2 LIKE /pws/zycit078-steuc2,

      v_steuc_temp1(8),

      v_steuc_temp2(8) ,

      v_steuc_temp3(8),

      v_executou,

      v_incentivo,

      s_opcb(18),

      v_cnpj_findap(18) TYPE c,

      v_desc_findap TYPE lfa1-name1,

      v_emp         LIKE /pws/zycbt007-bukrs.

DATA  v_novo_item.

DATA: v_qtdtot TYPE /pws/zycit079-qtd_iten.

* << Fim da exclusão

SELECTION-SCREEN BEGIN OF SCREEN 0300.

PARAMETERS:    pa_bukrs LIKE /pws/zycie078-bukrs  DEFAULT

/pws/zycie078-bukrs.

SELECT-OPTIONS:

                so_ncm   FOR /pws/zycie078-steuc1

                  NO-EXTENSION  NO INTERVALS,

                so_waers FOR /pws/zycie078-waers

                  NO-EXTENSION  NO INTERVALS,

                so_inco1 FOR /pws/zycie078-inco1

                  NO-EXTENSION NO INTERVALS,

...

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

Modificações efetuadas em REPS /PWS/MZYCI020X01

...

* >> Início da inclusão:

        /pws/zycie085,

          lfa1,

          adrc,

          t005,

          t001,

          t002,

          t002t,

          t005t,

          t615t,

          t604f,

          tcurc,

          tcurt,

          ekko,

          ekpo,

          dd07t,

          indx,

          tcurx.

* << Fim da inclusão

DATA: BEGIN OF COMMON PART a.

...

...

* >> Início da inclusão:

DATA: wa_zycit079  LIKE it_zycit079.

DATA  wa_zycit078 LIKE /pws/zycie078.

DATA wa_zycit078_aux2 LIKE /pws/zycie078.

DATA : wa_zycit079a LIKE /pws/zycie079a,

       wa_zycit079a_ncm LIKE /pws/zycie079a.

DATA  wa_zycit080 LIKE /pws/zycie080.

DATA wa_lfa1 LIKE adrc.

DATA wa_lfa12 LIKE adrc.

DATA wa_zycit080_aux LIKE /pws/zycit080.

DATA: wa_zycit080_aux2 LIKE /pws/zycie080a,

      wa_zycit080_aux3 LIKE /pws/zycie080,

      wa_zycit080_aux4 LIKE /pws/zycie080,

      wa_zycit080_ncm   LIKE /pws/zycie080 ,

      wa_zycit080a_ncm  LIKE /pws/zycie080 ,

      wa_zycit080b_ncm  LIKE /pws/zycie080 ,

      wa_zycit080c_ncm  LIKE /pws/zycie080 .

DATA: wa_zycit100 LIKE /pws/zycit100 ,

      wa_zycit000  LIKE /pws/zycit000,

      wa_ekpo      LIKE ekpo         .

DATA: wa_thead LIKE thead,

      wa_thead2 LIKE thead.

DATA: wa_t001w LIKE t001w.

DATA: wa_zycit136   LIKE /pws/zycit136.

DATA wa_zycit001 LIKE /pws/zycit001.

DATA wa_zycit104 LIKE /pws/zycit104.

DATA: wa_zycit197 LIKE /pws/zycit197.

DATA: BEGIN OF wa_ender.

DATA: stras LIKE t001w-spras,

    ort01 LIKE t001w-ort01,

    regio LIKE t001w-regio.

DATA: END OF wa_ender.

DATA: BEGIN OF wa_impress.

DATA: ebeln    LIKE ekpo-ebeln,

      ebelp    LIKE ekpo-ebelp,

      matnr    LIKE ekpo-matnr,

      txz01    LIKE ekpo-txz01,

      quant    LIKE ekpo-menge,

      saldo    LIKE ekpo-menge,

      dtrem    LIKE ekko-bedat,

      ncm      LIKE ekpo-j_1bnbm,

      lifnr    LIKE ekko-lifnr,

      name1    LIKE lfa1-name1,

      regio    LIKE lfa1-regio,

      nrseqli  LIKE /pws/zycit078-nrseqli,

      dtdef    LIKE /pws/zycit078-dtdef,

      dtvencto LIKE /pws/zycit078-dtvencto,

      END OF wa_impress.

DATA: wa_zycet050 LIKE /pws/zycet050.

DATA: ok_code LIKE sy-ucomm               ,

      v_answer                             ,

      text(100)                            ,

      nextline    TYPE i                   ,

      v_posi(40)                           ,

      v_copy      TYPE c                   .

DATA: v_descr      LIKE /pws/zycet132-descdesp,

      v_descr2     LIKE /pws/zycet132-descdesp,

      v_descr3     LIKE t005t-landx,

      v_descr4     LIKE t005t-landx,

      v_descr5     LIKE t005t-landx,

      v_descr6     LIKE /pws/zycit194-descricao,

      v_descr7     LIKE dd07t-ddtext,

      v_descr8     LIKE /pws/zycit177-descr,

      v_descr9     LIKE /pws/zycit193-descricao,

      v_descr10    LIKE /pws/zycit169-descricao,

      v_descr11    LIKE /pws/zycit172-descricao,

      v_descr12    LIKE /pws/zycit170-descricao,

      v_descr13    LIKE /pws/zycet168-descricao,

      v_descr14    LIKE dd07t-ddtext,

      v_descr15    LIKE dd07t-ddtext,

      v_descr16    LIKE dd07t-ddtext,

      v_descr17    LIKE dd07t-ddtext,

      v_descr18    LIKE dd07t-ddtext,

      v_descr19    LIKE dd07t-ddtext,

      v_descr20(2),

      v_descr21(120),

      v_descr22    LIKE t005t-landx,

      v_descr23    LIKE tcurc-/pws/codmo,

      v_descr24    LIKE tcurt-ktext,

      v_descr25    LIKE j_1bbranch-name,

      v_descr26    LIKE t006-msehi,

      v_descr27(120),

      v_descr28    LIKE tcurc-/pws/codmo,

      v_descr29    LIKE tcurt-ltext,

      v_descr30    LIKE t005-/pws/codpa,

      v_descr31    LIKE t005-/pws/codpa,

      v_descnrseq(17)  TYPE c,

      v_descrpais  LIKE t005t-landx,

      v_descrpais2 LIKE t005t-landx,

      v_desculdesp LIKE /pws/zycet132-descdesp,

      v_descfabric LIKE dd07t-ddtext,

      v_desctipimp LIKE dd07t-ddtext,

      v_descregtri LIKE /pws/zycit167-descricao,

      v_descfunleg LIKE /pws/zycit177-descr,

      v_descmotivo LIKE /pws/zycit169-descricao,

      v_descmotivofunleg LIKE /pws/zycit141-descricao,

      v_descrnaladi LIKE /pws/zycet142-descnala,

      okcode       LIKE sy-ucomm              ,

      mark                                    ,

      v_indice     LIKE sy-tabix              ,

      v_kposn_fob  LIKE komv-kposn            ,

      v_cod_pais   LIKE t005-/pws/codpa,

      v_cod_pais2   LIKE t005-/pws/codpa,

      v_codpaisori LIKE t005-/pws/codpa,

      v_codpaispro LIKE t005-/pws/codpa,

      v_cnpj(18)   TYPE c,

      v_cgc        LIKE j_1bwfield-cgc_number,

      v_total      LIKE /pws/zycit079-qtd_iten,

      v_esp(254)    TYPE c,

      v_esp2(132)   TYPE c,

      v_esp3(132)   TYPE c,

      v_esp4(132)   TYPE c,

      v_esp5(132)   TYPE c,

      v_esp6(132)   TYPE c,

      v_txtkey     LIKE thead-tdname,

      v_txtkey2    LIKE thead-tdname,

      v_vlfobli    LIKE /pws/zycit078-vltot,

      v_field(30),

      v_tcode      LIKE sy-tcode,

      v_tcode2     LIKE sy-tcode,

      v_classific(5),

      v_flag,

      v_flag2,

      v_flag3,

      v_resp_save  TYPE c,

      v_resp TYPE c,

      v_campo(20),

      v_valor(20),

      v_cont TYPE i,

      i_ebeln      LIKE ekko-ebeln,

      v_resp2 TYPE c,

      v_forn       LIKE /pws/zycie080-lifnr,

      v_forn2      LIKE /pws/zycie080-lifnr,

      v_matnr      LIKE ekpo-matnr,

      v_mfrpn      LIKE mara-mfrpn,

      v_ip         LIKE sy-tabix,

      v_line       TYPE i,

      v_nrcomp(16),

      v_nrdrawback(16),

      v_descrlog(100),

      v_adicao_adi(03)                     ,

      v_nrseqdi_adi LIKE /pws/zycit100-nrseqdi  ,

      v_ebeln_adi   LIKE /pws/zycit100-ebeln    ,

      v_ebelp_adi   LIKE /pws/zycit100-ebelp    ,

      v_descr_adi   LIKE /pws/zycit003-descr    ,

      v_nrseq_adi   LIKE /pws/zycit003-nrseq    ,

      v_marc_adi                           ,

      v_linha       TYPE i                 ,

      v_linhas      TYPE i                 ,

      v_linha2      TYPE i                 ,

      v_contador    TYPE i                 ,

      v_resposta                           ,

      v_nrseq_vin     LIKE /pws/zycit001-nrseq    ,

      v_ebeln_vin     LIKE /pws/zycit079-ebeln    ,

      v_ebelp_vin     LIKE /pws/zycit079-ebelp    ,

      v_descr_vin     LIKE /pws/zycit079-descr    ,

      v_nrseqd_vin    LIKE /pws/zycit244-nrseqd   ,

      v_nratoc_vin    LIKE /pws/zycit244-nratoc   ,

      v_dtatoc_vin    LIKE /pws/zycit244-dtatoc   ,

      v_sdocomp_t_vin LIKE /pws/zycit245-sdocomp_t,

      v_qtd_iten_vin  LIKE /pws/zycit079-qtd_iten ,

      v_modal_vin     LIKE /pws/zycit244-desc_modal,

      v_tpdraw_vin    LIKE /pws/zycit244-desctipo_ac,

      v_sdofob_vin    LIKE /pws/zycit244-s_realfob ,

      v_fobli_vin     LIKE /pws/zycit078-vltot     ,

      v_retorno(30)                                ,

      v_chk_vin                                  ,

      v_icon_vin     LIKE icons-text             ,

      v_pos          TYPE i                      ,

      v_nrseq_pos    LIKE /pws/zycit001-nrseq    ,

      v_ebeln_pos    LIKE /pws/zycit079-ebeln    ,

      v_ebelp_pos    LIKE /pws/zycit079-ebelp    ,

      v_txtcom       LIKE thead-tdname      ,

      v_erro_pexpam                        ,

      v_erro_drawback                      ,

      v_dcompl       TYPE i                 ,

      v_tspace      TYPE i                 ,

      v_descrativ   LIKE /pws/zycit204-descricao,

      v_status800                          ,

      v_name        LIKE thead-tdname      ,

      v_texto(255)                         ,

      v_werks       LIKE ekpo-werks        ,

      v_txtki    LIKE thead-tdname         ,

      v_fat                                ,

      v_di                                 ,

      v_nvinc                              ,

      v_ncmdf                              ,

      v_ncm   LIKE /pws/zycit245-j_1bnbm   ,

      v_bl                                 ,

      v_param(550)   TYPE c VALUE space    ,

      v_tabix        LIKE sy-tabix         ,

      v_tpdoc        LIKE /pws/zycit136-tp_doc  ,

      v_lisubst                            ,

      v_string_ex    LIKE rlgrap-filename VALUE space,

      v_key(70)                                 ,

      v_flagcan                            ,

      v_repid        LIKE /pws/zycet067-repid   ,

      v_respcan                            ,

      v_flagsub                            ,

      v_s_idioma(15)                       ,

      v_cur          TYPE i                ,

      v_flag_compl                         ,

      v_descr_ncm   LIKE /pws/zycit181-descricao,

      v_lin_191      TYPE i                ,

      v_lin_177      TYPE i                ,

      v_campanali(60) TYPE c               ,

      v_statuscam(50) TYPE c               ,

      v_icon(5)       TYPE c               ,

      v_tpni         LIKE /pws/zycit078-tpni    ,

      v_codsufra     LIKE dd07t-ddtext     ,

      v_codregtri    LIKE /pws/zycit078-codregtri,

      v_nrseqd       LIKE /pws/zycit078-nrseqd   ,

      v_ppb          LIKE /pws/zycit219-descricao,

      v_exit(01)                            ,

      v_valinic(1)   TYPE c,

      v_peditem(6) TYPE c VALUE 'PEDIDO',

      v_pliorig     LIKE /pws/zycit078-nrseqli  ,

      v_compl(1)      TYPE c               ,

      v_saili TYPE c                       ,

      v_trans TYPE c                       ,

      v_transm(1)                          ,

      v_exit_vlmerc(1)                     ,

      v_bezei       LIKE t005u-bezei       ,

      v_land1       LIKE lfa1-land1        ,

      v_matnrd      LIKE mara-matnr        ,

      v_salvo,

      v_salvo_drawback,

      v_verficado,

      v_steuc2 LIKE /pws/zycit078-steuc2,

      v_steuc_temp1(8),

      v_steuc_temp2(8) ,

      v_steuc_temp3(8),

      v_executou,

      v_incentivo,

      s_opcb(18),

      v_cnpj_findap(18) TYPE c,

      v_desc_findap TYPE lfa1-name1,

      v_emp         LIKE /pws/zycbt007-bukrs.

DATA  v_novo_item.

DATA: v_qtdtot TYPE /pws/zycit079-qtd_iten.

* << Fim da inclusão

DATA: END OF COMMON PART.