CE PLUS - Nota 004698

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 13/09/2007 00:00:00

Data/Hora Última Alteração: 09/03/2010 10:25:48

Descrição da Nota: EXIT PARA CALCULO DE IMPOSTOS NA ANA

Sintoma

 

Abertura de exit para trativa de calculo de impostos

 

Solução

 

Abertura de exit para trativa de calculo de impostos

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 04698 Data: 13/09/2007 Hora: 08:05:28

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

 

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

Nota Número              : 04698

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00015

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

EXIT PARA CALCULO DE IMPOSTOS NA ANA

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

Palavras Chave:

EXIT PARA CALCULO DE IMPOSTOS NA ANA

 

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

Objetos da nota:

PROG /PWS/MZYCI059X01

REPS /PWS/MZYCI059F01

REPS /PWS/MZYCI059F03

REPS /PWS/MZYCI059TOP

REPS /PWS/SAPMZYCI059

 

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

Modificações efetuadas em PROG /PWS/MZYCI059X01

* >> Início da inclusão:

*----------------------------------------------------------------------*

*   INCLUDE /PWS/MZYCI059X01                                           *

*----------------------------------------------------------------------*

*  chamado      data       descrição

 

*----------------------------------------------------------------------*

* Include para declarações de Tabelas e/ou variáveis de exits

* Ao utilizar esse programa é necessário muito cuidado, pois ao alterar

* qq. dado dentro desso include, ira refletir no programa Standard

* automaticamente

 

* Tabelas Utilizadas

TABLES:

  /pws/zycit000,                      " CI - Parâmetros Importação

  /pws/zycit001,

  /pws/zycit085,

  /pws/zycie085,

  /pws/zycie085a,                     " CI - Cab. de Desembaraço - DI

  /pws/zycie100a,                     " CI - Itens da DSI

  /pws/zycie086,                      " CI - Doc. de Instruçao de

  /pws/zycie087,                      " CI - Processo Vinculado

  /pws/zycie088,                      " CI - Volumes de Carga

  /pws/zycit094,

  /pws/zycie095, /pws/zycie095a,      " CI - Pagamentos

  /pws/zycie096,                      " CI - Armazens

  /pws/zycit107,

  /pws/zycie115,

  /pws/zycie126,

  /pws/zycit133,

  /pws/zycie001,

  /pws/zycit041,

  /pws/zycit042,

  /pws/zycie049,

  /pws/zycie080, /pws/zycie080a,

  /pws/zycie013,

  /pws/zycie014,

  /pws/zycie003,

  /pws/zycit039,

  /pws/zycie006,

  /pws/zycit006,

  /pws/zycie403,

  /pws/zycit043,

  t005t,

  t001,

  t604f,

  lfa1, lfbk,

  dd07t,

  t615,

  /pws/zycit031,

  /pws/zycit104,

  /pws/zycet138,

  /pws/zycit174,

  /pws/zycit257,

  /pws/zycbt007,

  ekpo, ekko,

  mepo1319,

  tcurx,

  t615t,

  j_1bbranch,

  adrc,

  /pws/zycie093,

  /pws/zycit078,

  /pws/zycie078,

  /pws/zycit256, /pws/zycie256,

  /pws/zycit274,

  /pws/zyglt204,

  /pws/zycit229,

  /pws/zycet050,

  /pws/zycit029,

  j_1btregc,

  /pws/zycit101,

  bsis.

 

 

DATA: BEGIN OF COMMON PART a.

* Tabelas Internas

*407425 - Inicio

DATA: BEGIN OF itab_zyglt100 OCCURS 10.  "Exits

        INCLUDE STRUCTURE /pws/zyglt100.

DATA: END OF itab_zyglt100.

*407425 - Fim

DATA: BEGIN OF itab_zycit003 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde,       "Saldo no Pedido

      uebto  LIKE ekpo-uebto,            "Tolerancia

      uebtk  LIKE ekpo-uebtk,            "Ilimitada

      noinitial,                         "Flag p/ não inicial.

      mark.                              "Marca reg. na TC

DATA: END   OF itab_zycit003.

 

DATA: itab_zycit003a  LIKE itab_zycit003   OCCURS 0 WITH HEADER LINE.

 

TYPES: BEGIN OF msg_struc,

        tcode LIKE bdcmsgcoll-tcode,

        dyname LIKE bdcmsgcoll-dyname,

        dynumb LIKE bdcmsgcoll-dynumb,

        msgtyp LIKE bdcmsgcoll-msgtyp,

        msgspra LIKE bdcmsgcoll-msgspra,

        msgid LIKE bdcmsgcoll-msgid,

        msgnr LIKE bdcmsgcoll-msgnr,

        msgv1 LIKE balm-msgv1,

        msgv2 LIKE balm-msgv2,

        msgv3 LIKE balm-msgv3,

        msgv4 LIKE balm-msgv4,

        env LIKE bdcmsgcoll-env,

        fldname LIKE bdcmsgcoll-fldname,

       END OF msg_struc.

 

* Variaveis para tratamento do alv na subtela

TYPES: BEGIN OF sufixo,

       ebeln      LIKE /pws/zycit003-ebeln,

       ebelp      LIKE /pws/zycit003-ebelp,

       j_1bnbm    LIKE /pws/zycit003-j_1bnbm,

       mogru      LIKE marc-mogru,

       descr      LIKE /pws/zycit003-descr,

       codigo     LIKE /pws/zycit403-codigo,

       base       LIKE /pws/zycit403-base,

       percentual LIKE /pws/zycit403-percentual,

       valorrec   LIKE /pws/zycit403-valorrec,

       condicoes  LIKE /pws/zycit403-condicoes,

       END OF sufixo.

 

DATA: "itab_adic  TYPE TABLE OF /pws/zycit001,

      itab_adic   TYPE sufixo  OCCURS 0,

      wa_adic  TYPE sufixo,

 

      ls_fieldcatalog  TYPE TABLE OF lvc_s_fcat,

      g_repid LIKE sy-repid,

*      g_max TYPE i VALUE 100,

      gs_layout   TYPE lvc_s_layo,

*      gs_toolbar  TYPE stb_button,

      cont_on_200   TYPE scrfname VALUE 'BCALVC_TOOLBAR_D100_C1',

      grid1  TYPE REF TO cl_gui_alv_grid,

      custom_container1 TYPE REF TO cl_gui_custom_container.

 

DATA: i_sort TYPE lvc_t_sort.

DATA: w_sort TYPE lvc_s_sort.

 

 

DATA BEGIN OF itab_trib OCCURS 0.

DATA: ebeln LIKE ekpo-ebeln,

      ebelp LIKE ekpo-ebelp,

      tpdesp LIKE /pws/zycie049-tpdesp,

      t_ivdesp LIKE /pws/zycie085-vlfob,

      waers LIKE /pws/zycie049-waers.

DATA END OF itab_trib.

 

DATA: itab_zycit001     LIKE /pws/zycit001   OCCURS 0 WITH HEADER LINE,

      itab_zycit001_di  LIKE /pws/zycit001   OCCURS 0 WITH HEADER LINE,

      itab_zycit006     LIKE /pws/zycit006   OCCURS 0 WITH HEADER LINE,

      itab_zycit006a    LIKE /pws/zycit006   OCCURS 0 WITH HEADER LINE,

      itab_zycit013     LIKE /pws/zycie013   OCCURS 0 WITH HEADER LINE,

      itab_zycit014     LIKE /pws/zycie014   OCCURS 0 WITH HEADER LINE,

      itab_zycit042     LIKE /pws/zycit042   OCCURS 0 WITH HEADER LINE,

      itab_zycit019     LIKE /pws/zycit019   OCCURS 0 WITH HEADER LINE,

      itab_zycit029     LIKE /pws/zycit029   OCCURS 0 WITH HEADER LINE,

      itab_zycit020     LIKE /pws/zycit020   OCCURS 0 WITH HEADER LINE,

      itab_zycit031     LIKE /pws/zycit031   OCCURS 0 WITH HEADER LINE,

      itab_zycit036     LIKE /pws/zycit036   OCCURS 0 WITH HEADER LINE,

      itab_zycit039     LIKE /pws/zycit039   OCCURS 0 WITH HEADER LINE,

      itab_zycit041     LIKE /pws/zycit041   OCCURS 0 WITH HEADER LINE,

      itab_zycit049di   LIKE /pws/zycit049   OCCURS 0 WITH HEADER LINE,

      itab_zycit049di2  LIKE /pws/zycit049   OCCURS 0 WITH HEADER LINE,

      itab_zycit055     LIKE /pws/zycit055   OCCURS 0 WITH HEADER LINE,

      itab_zycit078     LIKE /pws/zycie078   OCCURS 0 WITH HEADER LINE,

      itab_zycit079     LIKE /pws/zycie079   OCCURS 0 WITH HEADER LINE,

      itab_zycit085     LIKE /pws/zycie085   OCCURS 0 WITH HEADER LINE,

      itab_zycit085a    LIKE /pws/zycit085   OCCURS 0 WITH HEADER LINE,

      itab_zycit086     LIKE /pws/zycie086   OCCURS 0 WITH HEADER LINE,

      itab_zycit086a    LIKE /pws/zycie086   OCCURS 0 WITH HEADER LINE,

      itab_zycit087     LIKE /pws/zycie087   OCCURS 0 WITH HEADER LINE,

      itab_zycit087a    LIKE /pws/zycie087   OCCURS 0 WITH HEADER LINE,

      itab_zycit094     LIKE /pws/zycie094   OCCURS 0 WITH HEADER LINE,

      itab_zycit095     LIKE /pws/zycie095   OCCURS 0 WITH HEADER LINE,

      itab_zycit095a    LIKE /pws/zycie095   OCCURS 0 WITH HEADER LINE,

      itab_zycit096     LIKE /pws/zycie096   OCCURS 0 WITH HEADER LINE,

      itab_zycit096a    LIKE /pws/zycie096   OCCURS 0 WITH HEADER LINE,

      itab_zycit100     LIKE /pws/zycie100a  OCCURS 0 WITH HEADER LINE,

      itab_zycit100a    LIKE /pws/zycie100a  OCCURS 0 WITH HEADER LINE,

      itab_zycit104     LIKE /pws/zycit104   OCCURS 0 WITH HEADER LINE,

      itab_zycit107     LIKE /pws/zycit107   OCCURS 0 WITH HEADER LINE,

      itab_zycit115     LIKE /pws/zycie115   OCCURS 0 WITH HEADER LINE,

      itab_zycit115a    LIKE /pws/zycie115   OCCURS 0 WITH HEADER LINE,

      itab_zycit115b    LIKE /pws/zycit115   OCCURS 0 WITH HEADER LINE,

      itab_zycit122     LIKE /pws/zycit122   OCCURS 0 WITH HEADER LINE,

      itab_zycit123     LIKE /pws/zycit123   OCCURS 0 WITH HEADER LINE,

      itab_zycit126     LIKE /pws/zycie126   OCCURS 0 WITH HEADER LINE,

      itab_zycit134     LIKE /pws/zycit134   OCCURS 0 WITH HEADER LINE,

      itab_zycit191     LIKE /pws/zycit191   OCCURS 0 WITH HEADER LINE,

      itab_zycit177     LIKE /pws/zycit177   OCCURS 0 WITH HEADER LINE,

      itab_zycit177t    LIKE /pws/zycit177   OCCURS 0 WITH HEADER LINE,

      itab_zycit195     LIKE /pws/zycit195   OCCURS 0 WITH HEADER LINE,

      itab_zycit200     LIKE /pws/zycit200   OCCURS 0 WITH HEADER LINE,

      itab_zycit256     LIKE /pws/zycit256   OCCURS 0 WITH HEADER LINE,

      itab_zycit200a    LIKE /pws/zycit200   OCCURS 0 WITH HEADER LINE,

      itab_zycit200b    LIKE /pws/zycit200   OCCURS 0 WITH HEADER LINE,

      itab_zycit255     LIKE /pws/zycit255   OCCURS 0 WITH HEADER LINE,

      itab_zycit136     LIKE /pws/zycit136   OCCURS 0 WITH HEADER LINE,

      itab_zycit399     LIKE /pws/zycit399   OCCURS 0 WITH HEADER LINE,

      itab_zycit400     LIKE /pws/zycit400   OCCURS 0 WITH HEADER LINE,

      itab_zycit401     LIKE /pws/zycit401   OCCURS 0 WITH HEADER LINE,

      itab_zycit402     LIKE /pws/zycit402   OCCURS 0 WITH HEADER LINE,

      itab_zycit404     LIKE /pws/zycit404   OCCURS 0 WITH HEADER LINE,

      itab_zycit403     LIKE /pws/zycit403   OCCURS 0 WITH HEADER LINE,

      itab_zycit403_i   LIKE /pws/zycit403   OCCURS 0 WITH HEADER LINE,

      itab_zycit403a     LIKE /pws/zycit403   OCCURS 0 WITH HEADER LINE,

*      itab_zycit403t    like /pws/zycit403   occurs 0 with header line,

      itab_zycit404_aux LIKE /pws/zycit404   OCCURS 0 WITH HEADER LINE,

      rtext             LIKE tline           OCCURS 50 WITH HEADER LINE,

      rtextc            LIKE tline           OCCURS 50 WITH HEADER LINE,

      rtexti            LIKE tline           OCCURS 50 WITH HEADER LINE,

      rtexta            LIKE tline           OCCURS 50 WITH HEADER LINE,

      rtexto            LIKE tline           OCCURS 0 WITH HEADER LINE,

      rtextx            LIKE tline           OCCURS 0 WITH HEADER LINE,

      rtextesp          LIKE tline           OCCURS 0 WITH HEADER LINE,

      rtextcompl        LIKE tline           OCCURS 0 WITH HEADER LINE,

      itab_ekpo         LIKE ekpo            OCCURS 0 WITH HEADER LINE,

      itab_bdc          LIKE bdcdata         OCCURS 0 WITH HEADER LINE,

      itab_msg          TYPE msg_struc       OCCURS 5 WITH HEADER LINE,

      itab_stxl         LIKE stxl            OCCURS 0 WITH HEADER LINE,

      itab_makt         LIKE makt            OCCURS 0 WITH HEADER LINE,

      itab_zycit100_temp LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE.

 

* Tabelas internas para gravação do Registro Siscomex na tab. de LI...

DATA: itab_zycit003_t    LIKE /pws/zycit003   OCCURS 0 WITH HEADER LINE,

      itab_zycit078_t    LIKE /pws/zycit078   OCCURS 0 WITH HEADER LINE,

      itab_zycit085_t    LIKE /pws/zycit085   OCCURS 0 WITH HEADER LINE,

      itab_zycit100_t    LIKE /pws/zycit100   OCCURS 0 WITH HEADER LINE.

 

 

 

DATA: BEGIN OF itab_zycit082 OCCURS 0.

DATA:   nrseq   LIKE /pws/zycit082-nrseq,

        ebeln   LIKE /pws/zycit082-ebeln,

        ebelp   LIKE /pws/zycit082-ebelp,

        doc     LIKE /pws/zycit082-doc,

      END OF itab_zycit082.

 

 

DATA: BEGIN OF itab_zycit049 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie049.

DATA:   tipo      LIKE /pws/zycit019-tipo,

        coddesp   LIKE /pws/zycit000-cod_sisc,

        codigo    LIKE /pws/zycit019-codigo,

        baseicms  LIKE /pws/zycit020-baseicms,

        baseii    LIKE /pws/zycit020-baseii,

        reduz     LIKE /pws/zycie122-descricao_reduz,

        vldp_aux  LIKE /pws/zycie049-vldp,

        divabs    LIKE /pws/zycit039-divabs,

        peso      LIKE /pws/zycit039-peso,

        proporplan LIKE /pws/zycit039-proporplan,

      END OF itab_zycit049.

 

* Tabela de export para função de rateio

DATA: BEGIN OF  itab_adicao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie116.

DATA:   flag_vltot,

      END OF itab_adicao.

 

DATA: BEGIN OF itab_NANA OCCURS 1,

        sign(1)   TYPE c,

        option(2) TYPE c,

        low       LIKE /pws/zycie085-nrseqdi,

        high      LIKE /pws/zycie085a-nrseqdi,

      END OF itab_NANA.

 

DATA: BEGIN OF itab_dtreg OCCURS 1,

        sign(1)   TYPE c,

        option(2) TYPE c,

        low       LIKE /pws/zycie085-dtreg,

        high      LIKE /pws/zycie085a-dtreg,

      END OF itab_dtreg.

 

DATA: BEGIN OF it_verbl OCCURS 0,

         nrseq       LIKE /pws/zycie003-nrseq,

         ebeln       LIKE /pws/zycie003-ebeln,

         ebelp       LIKE /pws/zycie003-ebelp,

        qtd_iten    LIKE /pws/zycie003-qtd_iten,

 

      END OF it_verbl.

 

DATA: BEGIN OF itab_zycit403t OCCURS 0,

        codigo     LIKE  /pws/zycie403-codigo,

        base       LIKE  /pws/zycie403-base,

        valorcalc  LIKE  /pws/zycie403-valorcalc,

        valorrec   LIKE  /pws/zycie403-valorrec,

        condicoes  LIKE  /pws/zycie403-condicoes,

      END OF itab_zycit403t.

 

 

 

DATA: BEGIN OF itab_itc OCCURS 0,

         nrseq       LIKE /pws/zycie003-nrseq,

         ebeln       LIKE /pws/zycie003-ebeln,

         ebelp       LIKE /pws/zycie003-ebelp,

         mark,

      END OF itab_itc.

 

DATA: BEGIN OF itab_it OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie100a.

DATA:   descr         LIKE /pws/zycie003-descr,

        j_1bnbm       LIKE /pws/zycie003-j_1bnbm,

        qtd_iten      LIKE /pws/zycie003-qtd_iten,

        qtd_itencacl  LIKE /pws/zycie003-qtd_itencacl,

        menge         LIKE /pws/zycie003-menge,

        meins         LIKE /pws/zycie003-meins,

        ntgew         LIKE /pws/zycie003-ntgew,

        gewei         LIKE /pws/zycie003-gewei,

        mfrpn         LIKE /pws/zycie003-mfrpn,

        vlreal        LIKE /pws/zycie003-vlreal,

        vlreal_aux2   LIKE /pws/zycie003-vlreal,

        netpr         LIKE /pws/zycie003-netpr,

        bednr         LIKE /pws/zycie003-bednr,

        porigem       LIKE /pws/zycie003-porigem,

        waers         LIKE /pws/zycie003-waers,

        fabric        LIKE /pws/zycie003-fabric,

        lifnrfabr     LIKE /pws/zycie003-lifnrfabr,

        aplicacao     LIKE /pws/zycie003-aplicacao,

        condmerc      LIKE /pws/zycie003-condmerc,

        qtdeumest     LIKE /pws/zycie003-qtdeumest,

        meinsest      LIKE /pws/zycie003-meinsest,

        slqtde        LIKE /pws/zycie013-slqtde,

        agente        LIKE /pws/zycie126-agente,

        aliqii        LIKE /pws/zycie003-aliqii,

        advalii       LIKE /pws/zycie003-advalii,

        aliqipi       LIKE /pws/zycie003-aliqipi,

        advalipi      LIKE /pws/zycie003-advalipi,

        aliqicms      LIKE /pws/zycie003-aliqicms,

        advalicms     LIKE /pws/zycie003-advalicms,

        vlfre_fat     LIKE /pws/zycie003-vlfre_fat,

        vlseg_fat     LIKE /pws/zycie003-vlseg_fat,

        lifnr         LIKE lfa1-lifnr,

        extarif_al    LIKE /pws/zycie003-extarif_al,

        tipo_al       LIKE /pws/zycie003-tipo_al,

        orgemiss_al   LIKE /pws/zycie003-orgemiss_al,

        numero_al     LIKE /pws/zycie003-numero_al,

        anoemiss_al   LIKE /pws/zycie003-anoemiss_al,

        ii_extarif    LIKE /pws/zycie003-ii_extarif,

        ii_tipo       LIKE /pws/zycie003-ii_tipo,

        ii_orgemiss   LIKE /pws/zycie003-ii_orgemiss,

        ii_numero     LIKE /pws/zycie003-ii_numero,

        ii_anoemiss   LIKE /pws/zycie003-ii_anoemiss,

        ipi_extarif   LIKE /pws/zycie003-ipi_extarif,

        ipi_tipo      LIKE /pws/zycie003-ipi_tipo,

        ipi_orgemiss  LIKE /pws/zycie003-ipi_orgemiss,

        ipi_numero    LIKE /pws/zycie003-ipi_numero,

        ipi_anoemiss  LIKE /pws/zycie003-ipi_anoemiss,

        ad_extarif    LIKE /pws/zycie003-ad_extarif,

        ad_tipo       LIKE /pws/zycie003-ad_tipo,

        ad_orgemiss   LIKE /pws/zycie003-ad_orgemiss,

        ad_numero     LIKE /pws/zycie003-ad_numero,

        ad_anoemiss   LIKE /pws/zycie003-ad_anoemiss,

        inco1         LIKE /pws/zycie001-inco1,

        naladi        LIKE /pws/zycie003-naladi,

        naladincca    LIKE /pws/zycie003-naladincca,

        zterm         LIKE /pws/zycit006-zterm,

        nrseqfat      LIKE /pws/zycit006-nrseq,

        nrfat         LIKE /pws/zycit006-nrfat,

        vinculo       LIKE /pws/zycit006-vinculo,

        vlfre_me      LIKE /pws/zycie003-vlfre_fat,

        vlseg_me      LIKE /pws/zycie003-vlseg_fat,

        vldiffob      LIKE /pws/zycie003-vlfre_fat,

        seq           LIKE sy-tabix,

        identify(19),

        basred        LIKE /pws/zycie003-basred,  "Teste

        nrli          LIKE /pws/zycie003-nrli,

        nrseqd        LIKE /pws/zycie003-nrseqd,

        nrdrawback    LIKE /pws/zycie003-nrdrawback,

        modalidade    LIKE /pws/zycie003-modalidade,

        frn           LIKE /pws/zycie085-vlfob,

        qtd_itend     LIKE /pws/zycie003-qtd_itend,

        vlreald       LIKE /pws/zycie003-vlreal,

        vlmerc_ad     LIKE /pws/zycie085-vlfob,

        matnr         LIKE /pws/zycie003-matnr,

        idnlf         LIKE mepo1319-idnlf,

        mark,

      END OF itab_it.

 

DATA: BEGIN OF it_status OCCURS 0,

        fcode LIKE rsmpe-func,

      END OF it_status.

 

DATA: BEGIN OF it_words OCCURS 0,

        word(50),

      END OF it_words.

 

DATA: itab_ita       LIKE itab_it       OCCURS 0 WITH HEADER LINE,

      itab_itb       LIKE itab_it       OCCURS 0 WITH HEADER LINE,

      itab_zycit049a LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

      itab_zycit049b LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

      itab_zycit049c LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

      it_words_app   LIKE it_words      OCCURS 0 WITH HEADER LINE,

      it_statu2      LIKE it_status     OCCURS 0 WITH HEADER LINE,

      it_statu3      LIKE it_status     OCCURS 0 WITH HEADER LINE,

      it_statu4      LIKE it_status     OCCURS 0 WITH HEADER LINE,

      itab_zycit229  LIKE /pws/zycit229      OCCURS 0 WITH HEADER LINE,

      itab_zycit263  LIKE /pws/zycit263      OCCURS 0 WITH HEADER LINE,

      it_statu5      LIKE it_status     OCCURS 0 WITH HEADER LINE.

 

 

DATA: BEGIN OF itab_zycit257 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit257.

DATA: END OF itab_zycit257.

 

DATA: BEGIN OF itab_zycit174 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit174.

DATA: END OF itab_zycit174.

 

DATA: BEGIN OF itab_zycit132 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit132.

DATA: END OF itab_zycit132.

 

* Inclusão de verificação de LI.

 

DATA: BEGIN OF itab_gforn OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit235.

DATA: END OF itab_gforn.

 

DATA: BEGIN OF itab_zycit234 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit234.

DATA: END OF itab_zycit234.

 

DATA: BEGIN OF itab_zycit269 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit269.

DATA: END OF itab_zycit269.

 

DATA: BEGIN OF itab_lfa1 OCCURS 0,

      lifnr LIKE lfa1-lifnr,

      ktokk LIKE lfa1-ktokk,

      END OF itab_lfa1.

 

DATA: BEGIN OF itab_ekko OCCURS 0,

      ebeln  LIKE ekko-ebeln,

      bsart LIKE ekko-bsart,

      END OF itab_ekko.

 

 

DATA: BEGIN OF itab_t604f OCCURS 0,

      steuc LIKE t604f-steuc,

      obrigli LIKE t604f-/pws/obrigli,

      END OF itab_t604f.

 

DATA: BEGIN OF itab_gped OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit236.

DATA: END OF itab_gped.

 

DATA: BEGIN OF itab_li OCCURS 0,

     nrseqli  LIKE /pws/zycit079-nrseqli,

     ebeln    LIKE /pws/zycit079-ebeln,

     ebelp    LIKE /pws/zycit079-ebelp,

     steuc1   LIKE /pws/zycit078-steuc1,

     dtdef    LIKE /pws/zycit078-dtdef,

     dtvencto LIKE /pws/zycit078-dtvencto,

     nrseqdi  LIKE /pws/zycit078-nrseqdi,

     menge    LIKE /pws/zycit079-menge,

     END OF itab_li.

 

* Fim inclusão

 

DATA: BEGIN OF itab_cta OCCURS 0.

        INCLUDE STRUCTURE /pws/zygle316.

DATA: END OF itab_cta.

 

DATA: BEGIN OF it_zycit270 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit270.

DATA: END OF it_zycit270.

 

DATA: BEGIN OF itab_desp_funcao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie353.

DATA: END OF itab_desp_funcao.

 

DATA: BEGIN OF itab_report_cliente OCCURS 20.

        INCLUDE STRUCTURE /pws/zycet079.

DATA: END OF itab_report_cliente.

DATA: it_zycit255     LIKE /pws/zycit255      OCCURS 0 WITH HEADER LINE,

      it_zycit100     LIKE /pws/zycit100      OCCURS 0 WITH HEADER LINE,

      it_zycit085     LIKE /pws/zycit085      OCCURS 0 WITH HEADER LINE,

      it_zycit085_aux LIKE /pws/zycit085      OCCURS 0 WITH HEADER LINE,

      it_zycit001     LIKE /pws/zycit001      OCCURS 0 WITH HEADER LINE.

 

 

* Work Areas

DATA:

  wa_zycit085   LIKE /pws/zycie085,

  wa_zycie085   LIKE /pws/zycie085,

  wa_zycit1223  LIKE /pws/zycit122,

  wa_zycit100   LIKE /pws/zycit100,

  wa_zycit104   LIKE /pws/zycit104,

  wa_zycit136   LIKE /pws/zycit136,

  wa_zycit078   LIKE /pws/zycit078,

  wa_it         LIKE itab_it,

  wa_itb        LIKE itab_it,

  wa_lfa1       LIKE lfa1,

  wa_adrc       LIKE adrc,

  wa_zycbt007   LIKE /pws/zycbt007,

  wa_it000      LIKE /pws/zycit000,

  wa_it122      LIKE itab_zycit049,

  wa_it123      LIKE itab_zycit049,

  xthead        LIKE thead,

  xtheadc       LIKE thead,

  xtheadi       LIKE thead,

  xtheada       LIKE thead,

  xtheado       LIKE thead,

  xtheadx       LIKE thead,

  wa_j_1bbranch LIKE j_1bbranch,

  wa_t001w      LIKE t001w,

  wa_zycet050   LIKE /pws/zycet050,

  wa_zycit375   LIKE /pws/zycit375.

 

DATA: BEGIN OF wa_ender.

DATA: stras LIKE t001w-spras,

      ort01 LIKE t001w-ort01,

      regio LIKE t001w-regio.

DATA: END OF wa_ender.

 

* Variáveis

DATA:

* Campos da Tela de Seleção

  i_desc(20),

* Campos das Telas de DI

  s_ometv,

  s_oregt,

  s_oregp,

  s_ofund,

  s_oacor,

  s_oalad,

  s_oexm,

  s_oexii,

  s_oexipi,

  s_oexad,

  s_cnpj(18) TYPE c,

  s_agen(18) TYPE c,

  s_msg1(40),

  s_fbsn(3),

  s_mmod(3),

  s_tr3(3),

  s_opf(3),

  s_doct(18),

  s_opcb(18),

  s_cont(16),

  s_conu(23),

  s_tpa(15),

  s_mod(34),

  v_adics,

  s_setor(35),

  stxt_id(17),

  stxt_embloc(17),

  stxt_embdat(16),

  s_iddes(120),

  s_pgban(3),

  s_pgage(13),

  s_pgcc(19),

  s_pgrec(120),

  s_len      TYPE i,

  s_pgag1    TYPE i,

  s_pgag2    TYPE i,

  s_ekadd    LIKE ekpo-adrnr,

  s_ekaed    LIKE ekpo-aedat,

  s_pglif    LIKE lfbk-lifnr,

  s_pgbks    LIKE lfbk-banks,

  s_pgbkl    LIKE lfbk-bankl,

  s_pgbkn    LIKE lfbk-bankn,

  s_pgnom    LIKE lfbk-koinh,

  s_inco1_ci LIKE /pws/zycit031-inco1_ci,

  s_inco1    LIKE /pws/zycit031-inco1,

  s_inco_ok,

  s_tax      LIKE /pws/zycie085-ukursfob,

  s_local    LIKE t001w-werks,

  s_regdescr LIKE /pws/zycit024-descricao,

  s_urf      LIKE /pws/zycet132-descdesp,

  s_trans    LIKE /pws/zycit054-bezei,

  s_pais     LIKE t005t-landx,

  s_ppais    LIKE t005-/pws/codpa,

  s_pdesc    LIKE t005t-landx,

  s_urfe     LIKE /pws/zycet132-descdesp,

  s_fbcm     LIKE tcurc-/pws/codmo,

  s_frcm     LIKE tcurc-/pws/codmo,

  s_stcm     LIKE tcurc-/pws/codmo,

  s_fbdesc   LIKE tcurt-ltext,

  s_frdesc   LIKE tcurt-ltext,

  s_stdesc   LIKE tcurt-ltext,

  s_umped    LIKE t006a-msehl,

  s_umestt   LIKE t006a-msehl,

  s_umad     LIKE t006a-msehl,

  s_recalf   LIKE /pws/zycet138-descrec,

  s_advl     LIKE /pws/zycie100a-vlantid,

  s_adbs     LIKE /pws/zycie100a-baseantid,

  s_fbvr     LIKE /pws/zycit085-vlfob,

  s_fbvr2    LIKE /pws/zycit006-vlmerc,

  s_fbvr_s_d LIKE s_fbvr,              "Valor sem a despesa!

  s_frvr     LIKE s_fbvr,

  s_frvr_aux LIKE s_fbvr,

  s_frvr_aux1 LIKE s_fbvr,

  s_stvr     LIKE s_fbvr,

  s_stvr_aux LIKE s_fbvr,

  s_stvr_aux1 LIKE s_fbvr,

  s_vldpr    LIKE s_fbvr,

  s_wiicalc  LIKE s_fbvr,

  s_wiiredu  LIKE s_fbvr,

  s_wiidevi  LIKE s_fbvr,

  s_wiireco  LIKE s_fbvr,

  s_wipicalc LIKE s_fbvr,

  s_wipiredu LIKE s_fbvr,

  s_wipidevi LIKE s_fbvr,

  s_wipireco LIKE s_fbvr,

  s_wicdevi  LIKE s_fbvr,

  s_wicreco  LIKE s_fbvr,

  s_wsisco   LIKE s_fbvr,

  s_waddevi  LIKE s_fbvr,

  s_wadreco  LIKE s_fbvr,

  s_icon     TYPE icons-text,

  s_icon2(30),

*PWS198132 - Inicio

   v_modsegm(1) TYPE c VALUE 0,

*PWS198132 - Fim

* Campos das Telas de DSI

  t_tsp(120),

  t_impnat(65),

  t_imptip(53),

  t_sncou(3),

  t_clades(3),

  t_espec(72),

  t_pnome  LIKE /pws/zycit133-nome,

  t_blid   LIKE /pws/zycie093-identify,

  t_icmsbs LIKE /pws/zycie085-vlfob,

  t_icms   LIKE /pws/zycie085-vlfob,

  t_icmsx  LIKE /pws/zycie085-vlfob,

  t_tot    LIKE /pws/zycie006-vlmerc,

  t_embarc LIKE /pws/zycie001-embarca,

  t_regdes LIKE /pws/zycit167-descricao,

  t_regde2 LIKE t_regdes,

  t_motdes LIKE /pws/zycit169-descricao,

  t_ncmdes(35),

  t_uest   LIKE t604n-text1,

  t_ucom   LIKE t604n-text1,

  t_msis   LIKE tcurc-/pws/codmo,

  t_mdes   LIKE tcurt-ltext,

  t_ppais  LIKE t005-/pws/codpa,

  t_zzum   LIKE t604f-/pws/zum,

  t_zcom   LIKE t604f-/pws/zum,

  t_vmle   LIKE /pws/zycie085-vlfob,

  t_vmle2   LIKE /pws/zycie085-vlfob,

  t_vmle3  LIKE /pws/zycie085-vlfob,

  v_tot_plan LIKE /pws/zycit003-netpr, "Variável p/ rateio das Despesas

  v_it_plan LIKE /pws/zycit003-netpr,  "Variável p/ rateio das Despesas

  v_fr_seg_ad LIKE /pws/zycie085-vlfob,

  t_fundes LIKE /pws/zycit177-descr,

  t_vlii   LIKE /pws/zycie006-vlmerc,

  t_vlipi  LIKE /pws/zycie006-vlmerc,

  t_vlicms LIKE /pws/zycie006-vlmerc,

  t_ivdesp LIKE t_icms,

  t_ivdes2 LIKE t_icms,

  t_ivdes3 LIKE t_icms,

  t_ivmle  LIKE t_icms,

  t_ivmle2  LIKE t_icms,

  t_ivfre  LIKE t_icms,

  t_ivseg  LIKE t_icms,

  v_tot_seg LIKE t_icms,

  t_ivadu  LIKE t_icms,

  t_iibas  LIKE t_icms,

  t_iirec  LIKE t_icms,

  t_ipibas LIKE t_icms,

  t_ipirec LIKE t_icms,

* Campos das Telas de Adição

  a_opgan,

  a_opgav,

  a_oparc,

  a_otxjr,

  a_mdnac1,

  a_mdnac2,

  a_radio1,

  a_ucomm1,

  a_check1,

  a_check2,

  a_check3,

  a_pgban(3),

  a_pgage(13),

  a_espec(72),

  a_espe2(72),

  a_inco1(30),

  a_ifina(120),

  a_motiv(120),

  a_txjur(120),

  a_espde(120),

  a_modpa(35),

  a_checked  TYPE i,

  a_uqtde    TYPE i,

  a_ucomm2   LIKE sy-ucomm,

  a_ip       LIKE sy-tabix,

  a_lfa      LIKE lfa1-name1,

  a_aladi    LIKE /pws/zycet168-descricao,

  a_metv     LIKE /pws/zycit173-descricao,

  a_pais     LIKE t005t-landx,

  a_pais1    LIKE t005t-landx,

  a_pais2    LIKE t005t-landx,

  a_spais    LIKE t005-/pws/codpa,

  a_spais1   LIKE t005-/pws/codpa,

  a_spais2   LIKE t005-/pws/codpa,

  a_qtdeest  LIKE /pws/zycie003-qtdeumest,

  a_tribipi  LIKE /pws/zycie100a-tribipi,

  a_adbase   LIKE /pws/zycie100a-baseantid,

  a_baseii   LIKE /pws/zycie116-baseii,

  a_baseipi  LIKE /pws/zycie116-baseii,

  a_baseicms LIKE /pws/zycie116-baseii,

  a_itval    LIKE t_icms,

  a_vmler    LIKE t_icms,

  a_icdevi   LIKE t_icms,

  a_icreco   LIKE t_icms,

  a_itfre    LIKE t_icms,

  a_itseg    LIKE t_icms,

  a_iiacor   LIKE t_icms,

  a_iicalc   LIKE t_icms,

  a_iiredu   LIKE t_icms,

  a_iidevi   LIKE t_icms,

  a_iitcalc  LIKE t_icms,

  a_iitredu  LIKE t_icms,

  a_iitdevi  LIKE t_icms,

  a_iitreco  LIKE t_icms,

  a_ipicalc  LIKE t_icms,

  a_ipiredu  LIKE t_icms,

  a_ipidevi  LIKE t_icms,

  a_ipitdevi LIKE t_icms,

  a_ipitreco LIKE t_icms,

  a_addevi   LIKE t_icms,

  a_adreco   LIKE t_icms,

  a_vlrtot   LIKE t_icms,

  a_1codtxjuros LIKE /pws/zycie116-codtxjuros,

  a_1taxarate   LIKE /pws/zycie116-taxarate,

  a_1parcnum    LIKE /pws/zycie116-parcnum,

  a_1periodic   LIKE /pws/zycie116-periodic,

  a_1indice     LIKE /pws/zycie116-indice,

  a_1valtot     LIKE /pws/zycie116-valtot,

  a_2codtxjuros LIKE /pws/zycie116-codtxjuros,

  a_2taxarate   LIKE /pws/zycie116-taxarate,

  a_2parcnum    LIKE /pws/zycie116-parcnum,

  a_2periodic   LIKE /pws/zycie116-periodic,

  a_2indice     LIKE /pws/zycie116-indice,

  a_2valtot     LIKE /pws/zycie116-valtot,

  a_3codtxjuros LIKE /pws/zycie116-codtxjuros,

  a_3taxarate   LIKE /pws/zycie116-taxarate,

  a_3parcnum    LIKE /pws/zycie116-parcnum,

  a_3periodic   LIKE /pws/zycie116-periodic,

  a_3indice     LIKE /pws/zycie116-indice,

  a_3valtot     LIKE /pws/zycie116-valtot,

* Parameters

  rimc1      LIKE indx-srtfd VALUE 'NRSEQDI',

  rimc2      LIKE indx-srtfd VALUE 'NRBL',

  rimc4      LIKE indx-srtfd VALUE 'WA085',

* Globais

  ok_code       LIKE sy-ucomm,

  v_nrseq_ant LIKE /pws/zycie085-nrseqdi,

  v_nrbl     LIKE /pws/zycie093-nrseqce,

*--Ch.373877-22.05.2007-I:drilldown Pedido

*  v_ebeln(10)  type n,"like ekko-ebeln,

  v_ebeln    LIKE ekko-ebeln,

*--Ch.373877-22.05.2007-F:drilldown Pedido

  v_waers    LIKE /pws/zycie003-waers,

  v_nrseqdi  LIKE /pws/zycie085-nrseqdi,

  v_line     TYPE i,

  v_lin_191  TYPE i,

  v_lin_177  TYPE i,

  v_icodr1   LIKE /pws/zycie100a-codregtri,

  v_icodr2   LIKE /pws/zycie100a-codregtriipi,

  v_comm     LIKE ok_code,

  v_fretc    LIKE /pws/zycie093-collect,

  v_c        LIKE /pws/zycie093-tpconh,

  v_l        LIKE /pws/zycie100a-codregtri,

  v_m        LIKE /pws/zycie006-codcambial,

  v_n        LIKE /pws/zycie100a-motivo,

  v_o        LIKE /pws/zycie085-ntimp,

  v_p        LIKE /pws/zycie100a-codfunleg,

  v_t        LIKE /pws/zycie093-meiotransp,

  v_tipo     LIKE /pws/zycit087-tipo,

  v_tipo_a   LIKE v_tipo,

  v_txtkey   LIKE thead-tdname,

  v_txtki    LIKE thead-tdname,

  v_txtcom   LIKE thead-tdname,

  v_tntgew   LIKE /pws/zycie003-ntgew,

  v_tval     LIKE t_icms,

  v_tvaln    LIKE t_icms,

  v_tval2    LIKE t_icms,

  v_tval3    LIKE t_icms,

  v_tval4 LIKE /pws/zycie006-vlmerc,

  v_tfrefat  LIKE t_icms,

  v_tfre     LIKE t_icms,

  v_tseg     LIKE t_icms,

  v_tsegfat  LIKE t_icms,

  v_rfrefat  LIKE t_icms,

  v_rsegfat  LIKE t_icms,

  v_tmle     LIKE t_icms,

  v_ini      LIKE t_icms,

  v_ini2     LIKE t_icms,

  v_bltofat  LIKE t_icms,

  v_sgtofat  LIKE t_icms,

  v_tdif     LIKE t_icms,

  v_dif_frn LIKE t_icms,

  v_tdif_aux LIKE t_icms,

  t_vldif    LIKE t_icms,

  v_linha    TYPE i,                       " Nº da linha do reg na tc

  v_pos      TYPE i,                       " Nº da linha do reg na tc

  v_nolin    TYPE i,

  v_lena     TYPE i,

  v_ncm01    TYPE i,

  v_ncm02    LIKE /pws/zycit003-j_1bnbm,

  v_werks    LIKE ekpo-werks,

  v_name1    LIKE t001w-name1,

  v_petroleo,

  v_bl,

  v_changed,

  v_resposta,

  v_erro,

  v_acto,

  v_txtdisplay,

  v_txtsave,

  v_input,

  v_valor(30),                           " Pega valor do campo de tela

  v_conteudo(20),

  v_textstat(20)   TYPE c                     ,

  v_txta(100)      TYPE c                     ,

  v_propoe         TYPE c                     ,

  v_trecho         TYPE c                     ,

  v_calci          TYPE c                     ,

  v_valid          TYPE c                     ,

  v_aux_rateio     LIKE t_icms         , "Aux no rateio valor FOB da 100

  v_comprador      LIKE /pws/zycit121-comprador,

  v_ip             LIKE sy-tabix              ,

  v_ipt            LIKE sy-tabix              ,

  v_ipa            LIKE sy-tabix              ,

  v_idx            LIKE sy-tabix              ,

  v_idxa           LIKE sy-tabix              ,

  v_sub            LIKE sy-subrc              ,

*  v_adic           type i                     ,

*  v_adics          type i                     ,

*  v_adic2          type i                     ,

  v_status_s       VALUE 1                    ,"Inf status exib./inib.

  v_aini           TYPE c                     ,

  v_nt1            TYPE c                     ,

  v_msg1           TYPE c                     ,

  v_icms_especial  TYPE c                     ,

  v_base_esp LIKE  /pws/zycit062-base         ,

  v_icms_regio     LIKE t001w-regio           ,

  v_pg01           TYPE i                     ,

  v_10p            LIKE t_icms VALUE '0.1'    ,

  v_name           LIKE thead-tdname          ,

  v_texto(255)     TYPE c                     ,

  encont           TYPE i                     ,

  v_cur            TYPE i                     ,

  v_s_idioma(15)   TYPE c                     , " Idioma dos Documentos

  v_repid          LIKE /pws/zycet067-repid   ,

  v_nratoc         LIKE /pws/zycie244-nratoc  ,

  v_perseg_vez     TYPE c                     ,

  v_param(550)     TYPE c VALUE space         ,

  v_tpdoc          LIKE /pws/zycit136-tp_doc  ,

  v_string_ex(250) TYPE c VALUE space         ,

  v_subrc          TYPE c                     ,

  v_sisco1         LIKE s_fbvr                ,

  v_sisco2         LIKE s_fbvr                ,

  v_sisco3         LIKE s_fbvr                ,

  v_nr_itens       LIKE s_fbvr                ,

  v_desp           LIKE s_fbvr                ,

  v_cfr            LIKE t_icms                ,

  v_tcfr           LIKE t_icms                ,

  v_custo          LIKE t_icms                ,

  v_frete          LIKE t_icms                ,

  v_medida         LIKE /pws/zycie003-meinsest,

  v_tabix          LIKE sy-tabix              ,

  vsaldo           LIKE /pws/zycie263-qtd_iten,

  v_espec          TYPE c                     ,

  v_msg            TYPE c                     ,

  v_propoe_sisc    TYPE c                     ,

  v_per_seg        LIKE /pws/zycie085-per_seg ,

*  v_cols           TYPE cxtab_column          ,

  v_nf041(1)       TYPE c                     ,

  v_modo           TYPE c                     ,

  v_doc            LIKE /pws/zycit085-belnr_0 ,

  v_taxa           LIKE /pws/zycie085-ukursfob,

  v_resp           TYPE c,

  v_visualiza      TYPE c,

  v_report         TYPE c,

  v_txini          TYPE c,

  v_msgfre         TYPE c,

  v_region LIKE adrc-region,

  v_canal LIKE /pws/zycit397-canal,

  v_totalusdp       TYPE p DECIMALS 2,

  v_totalusdg       TYPE p DECIMALS 2,

  v_totalusda       TYPE p DECIMALS 2,

  v_totalusdtp      TYPE p DECIMALS 2,

  v_totalusdtg      TYPE p DECIMALS 2,

  v_totalusdta      TYPE p DECIMALS 2,

*Chamado 403040 - Inicio

*  v_mudou VALUE 'X',

  v_mudou ,

*Chamado 403040 - Fim

  v_valtot LIKE /pws/zycie085-vlfob,

  v_ate TYPE i  ,

  v_usd    LIKE /pws/zycie085-ukursfob.

 

 

DATA wa_zycit403 LIKE /pws/zycit403.

DATA v_index LIKE sy-tabix.

 

 

* Variáveis especiais de 2 decimais para exibição da DSI

DATA: s_frvr_d2   LIKE /pws/zycie006-vlmerc,

      s_stvr_d2   LIKE /pws/zycie006-vlmerc,

      v_tmle_d2   LIKE /pws/zycie006-vlmerc,

      t_vmle_d2   LIKE /pws/zycie006-vlmerc,

      v_tot_fre   LIKE t_icms,

      v_frete_nm  LIKE t_icms,

      t_ivmle_d2  LIKE /pws/zycie006-vlmerc,

      s_vluni_d2  LIKE /pws/zycie006-vlmerc,

      t_icmsbs_d2 LIKE /pws/zycie006-vlmerc,

      t_icms_d2   LIKE /pws/zycie006-vlmerc.

 

* Declarações reclassificação IA

DATA: BEGIN OF itab_matuse OCCURS 0.

DATA: ebeln      LIKE ekpo-ebeln,

      ebelp      LIKE ekpo-ebelp,

      matnr      LIKE ekpo-matnr,               " FT

      bwtar      LIKE ekpo-bwtar,

      j_1bmatuse LIKE ekpo-j_1bmatuse,

      knttp      LIKE ekpo-knttp,               " FT

      werks      LIKE t001w-werks,

      bwkey      LIKE mbew-bwkey.

DATA: END OF itab_matuse .

 

DATA: BEGIN OF itab_matuse_aux OCCURS 0.

DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,

      hkont      LIKE bsis-hkont     .

DATA: END OF itab_matuse_aux .

 

DATA: BEGIN OF itab_matuse_aux2 OCCURS 0.

DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,

      hkont      LIKE bsis-hkont     .

DATA: END OF itab_matuse_aux2 .

 

DATA: BEGIN OF itab_di OCCURS 0.

DATA: hkont      LIKE bsis-hkont,

      vlseg      LIKE /pws/zycit100-vlseg,

      vlfre      LIKE /pws/zycit100-vlfre,

      vlfob      LIKE /pws/zycie085-vlfre,

      vldi       LIKE /pws/zycit100-vlfob.

DATA: END OF itab_di .

 

DATA: BEGIN OF itab_bsis OCCURS 10.

DATA: hkont    LIKE bsis-hkont       ,

      dmbtr    LIKE bsis-dmbtr       ,

      wrbtr    LIKE bsis-wrbtr       ,

      belnr    LIKE bsis-belnr       ,

      tpfatura LIKE /pws/zycit006-tpfatura.

DATA: END OF itab_bsis.

 

DATA: BEGIN OF itab_bsis_aux OCCURS 10.

DATA: hkont    LIKE bsis-hkont       ,

      dmbtr    LIKE bsis-dmbtr       ,

      wrbtr    LIKE bsis-wrbtr       ,

      tpfatura LIKE /pws/zycit006-tpfatura.

DATA: END OF itab_bsis_aux.

 

DATA: BEGIN OF itab_matuse_aux1 OCCURS 0,

        matuse  LIKE ekpo-j_1bmatuse,

        conta_r LIKE /pws/zycbt012-saknr1,

        conta_d LIKE /pws/zycbt012-saknr1,

        conta_c LIKE /pws/zycbt012-saknr1,

        bklas   LIKE /pws/zycit135-bklas,

      END OF itab_matuse_aux1.

 

DATA: wa_matuse_aux LIKE itab_matuse_aux.

 

DATA: BEGIN OF wa_bsis .

DATA: hkont LIKE bsis-hkont,

      dmbtr LIKE bsis-dmbtr,

      wrbtr LIKE bsis-wrbtr,

      belnr LIKE bsis-belnr.

DATA: END OF wa_bsis.

 

* Batch input

DATA: itab_zycbt034  LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,

      itab_zycit034  LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,

      itab_zycbt032  LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,

      itab_zycbe033  LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,

      itab_zycbt036  LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE,

      itab_zycbt013  LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

      itab_zycbt012  LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE.

 

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA: END OF itab_contas.

 

DATA: BEGIN OF itab_contas_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA: END OF itab_contas_aux.

 

***---Modo de execução do BI-----------------------------------------***

DATA: BEGIN OF itab_modo OCCURS 0.

DATA:   modo    LIKE /pws/zycbt039-modo,

        descr   LIKE /pws/zycbt039-descr.

        INCLUDE STRUCTURE spopli.

DATA: END OF itab_modo.

 

DATA wa_zycbt011    LIKE /pws/zycbt011.

DATA:   v_modo_bi                  ,      "Modo Batch-input

        v_belnr     LIKE bkpf-belnr,      "Doc. Contab. para F-51,

        v_totline   TYPE n         ,

        vl_variacao LIKE /pws/zycit085-vlfob,

        v_rec_ia    TYPE i,

        v_rec_ia_1  TYPE i,

        v_text(14)  TYPE c,

        v_datum     LIKE sy-datum,

        v_dele            ,

        v_sgtxt    LIKE bseg-sgtxt,

        v_zuonr    LIKE bseg-zuonr,

        v_xblnr    LIKE bkpf-xblnr,

        v_bktxt    LIKE bkpf-bktxt,

        v_f05_ok,

        v_blart    LIKE /pws/zycbt011-blart,

        v_belnrf05 LIKE itab_zycbt032-belnr,

        v_desp_acr LIKE /pws/zycit049-vldp,

        v_desp_brl LIKE /pws/zycit049-vldp,

        v_evento   LIKE /pws/zyglt321-codeven,

        v_matuse   LIKE /pws/zycbe035-matuse,

        v_salvou  TYPE c.

Data: v_tax_temp type /pws/zycit085-ukursfob.

DATA: END OF COMMON PART.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI059F01

 

...

  encont = 1.

  CONCATENATE text-052 itab_ekko-ebeln text-120 itab_ekpo-ebelp

              text-108 INTO mensagem3 SEPARATED BY space.

  mensagem4 = text-121.

  CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'

       EXPORTING

            titel     = text-112

            textline1 = mensagem3

            textline2 = mensagem4.

ENDFORM.

* >> Início da inclusão:

FORM verifica_exit USING    p_modulo

                            p_func

                            p_exit.

  CLEAR itab_zyglt100.

  REFRESH itab_zyglt100.

  CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

       EXPORTING

            i_codmod                = p_modulo

            i_func                  = p_func

            i_zexit                 = p_exit

       TABLES

            itab_zyglt100           = itab_zyglt100

       EXCEPTIONS

            i_codmod_nao_encontrado = 1

            i_func_nao_encontrado   = 2

            i_zexit_nao_encontrado  = 3

            OTHERS                  = 4.

ENDFORM.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCI059F03

 

...

            ENDIF.

            CLEAR itab_zycit403.

          ENDLOOP.

          DESCRIBE TABLE itab_zycit403 LINES v_first.

        ENDLOOP.

        SORT itab_zycit403 BY codigo.

        LOOP AT itab_zycit403.

          MOVE-CORRESPONDING itab_zycit403 TO itab_zycit403t.

          COLLECT itab_zycit403t.

        ENDLOOP.

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

        PERFORM verifica_exit USING 'D'

                                    '/PWS/SAPMZYCI059'

                                    'ANA001'.

        CLEAR itab_zyglt100 .

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

        IF sy-subrc EQ 0.

          IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

            PERFORM (itab_zyglt100-formulario) IN PROGRAM

                (itab_zyglt100-programa) IF FOUND.

          ENDIF.

        ENDIF.

* << Fim da inclusão

      ELSE.

        SORT itab_zycit403 BY codigo.

        CLEAR itab_zycit403t.

        REFRESH itab_zycit403t.

        LOOP AT itab_zycit403.

          MOVE-CORRESPONDING itab_zycit403 TO itab_zycit403t.

          COLLECT itab_zycit403t.

        ENDLOOP.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI059TOP

 

PROGRAM /pws/sapmzyci059 MESSAGE-ID /pws/zycim.

* >> Início da inclusão:

INCLUDE /PWS/MZYCI059X01.

* << Fim da inclusão

CONTROLS:

  ts_des   TYPE TABSTRIP,

  ts_carga TYPE TABSTRIP,

  ts_sdes  TYPE TABSTRIP,

  ts_scarg TYPE TABSTRIP,

  ts_sbens TYPE TABSTRIP,

  ts_aforn TYPE TABSTRIP,

  ts_amerc TYPE TABSTRIP,

  ts_aval  TYPE TABSTRIP,

  ts_apagt TYPE TABSTRIP,

...

 

...

  tc_tribc TYPE TABLEVIEW USING SCREEN 0133,

  tc_desp  TYPE TABLEVIEW USING SCREEN 0160,

  tc_text  TYPE TABLEVIEW USING SCREEN 0181,

  t269     TYPE TABLEVIEW USING SCREEN 0190,

  tc_svol  TYPE TABLEVIEW USING SCREEN 0221,

  tc_sbens TYPE TABLEVIEW USING SCREEN 0230,

  tc_spag  TYPE TABLEVIEW USING SCREEN 0240,

  tc_idoc  TYPE TABLEVIEW USING SCREEN 0412,

  tc_irep  TYPE TABLEVIEW USING SCREEN 0440,

  tc_doc1  TYPE TABLEVIEW USING SCREEN 0002.

* >> Início da exclusão:

TABLES:

  /pws/zycit000,

  /pws/zycit001,

  /pws/zycit085,

  /pws/zycie085,

  /pws/zycie085a,

  /pws/zycie100a,

  /pws/zycie086,

  /pws/zycie087,

  /pws/zycie088,

  /pws/zycit094,

  /pws/zycie095, /pws/zycie095a,

  /pws/zycie096,

  /pws/zycit107,

  /pws/zycie115,

  /pws/zycie126,

  /pws/zycit133,

  /pws/zycie001,

  /pws/zycit041,

  /pws/zycit042,

  /pws/zycie049,

  /pws/zycie080, /pws/zycie080a,

  /pws/zycie013,

  /pws/zycie014,

  /pws/zycie003,

  /pws/zycit039,

  /pws/zycie006,

  /pws/zycit006,

  /pws/zycie403,

  /pws/zycit043,

  t005t,

  t001,

  t604f,

  lfa1, lfbk,

  dd07t,

  t615,

  /pws/zycit031,

  /pws/zycit104,

  /pws/zycet138,

  /pws/zycit174,

  /pws/zycit257,

  /pws/zycbt007,

  ekpo, ekko,

  mepo1319,

  tcurx,

  t615t,

  j_1bbranch,

  adrc,

  /pws/zycie093,

  /pws/zycit078,

  /pws/zycie078,

  /pws/zycit256, /pws/zycie256,

  /pws/zycit274,

  /pws/zyglt204,

  /pws/zycit229,

  /pws/zycet050,

  /pws/zycit029,

  j_1btregc,

  /pws/zycit101,

  bsis.

DATA: BEGIN OF itab_zycit003 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde,

      uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk,

      noinitial,

      mark.

DATA: END   OF itab_zycit003.

DATA: itab_zycit003a  LIKE itab_zycit003   OCCURS 0 WITH HEADER LINE.

TYPES: BEGIN OF msg_struc,

        tcode LIKE bdcmsgcoll-tcode,

        dyname LIKE bdcmsgcoll-dyname,

        dynumb LIKE bdcmsgcoll-dynumb,

        msgtyp LIKE bdcmsgcoll-msgtyp,

        msgspra LIKE bdcmsgcoll-msgspra,

        msgid LIKE bdcmsgcoll-msgid,

        msgnr LIKE bdcmsgcoll-msgnr,

        msgv1 LIKE balm-msgv1,

        msgv2 LIKE balm-msgv2,

        msgv3 LIKE balm-msgv3,

        msgv4 LIKE balm-msgv4,

        env LIKE bdcmsgcoll-env,

        fldname LIKE bdcmsgcoll-fldname,

       END OF msg_struc.

TYPES: BEGIN OF sufixo,

       ebeln      LIKE /pws/zycit003-ebeln,

       ebelp      LIKE /pws/zycit003-ebelp,

       j_1bnbm    LIKE /pws/zycit003-j_1bnbm,

       mogru      LIKE marc-mogru,

       descr      LIKE /pws/zycit003-descr,

       codigo     LIKE /pws/zycit403-codigo,

       base       LIKE /pws/zycit403-base,

       percentual LIKE /pws/zycit403-percentual,

       valorrec   LIKE /pws/zycit403-valorrec,

       condicoes  LIKE /pws/zycit403-condicoes,

       END OF sufixo.

DATA:

      itab_adic   TYPE sufixo  OCCURS 0,

      wa_adic  TYPE sufixo,

      ls_fieldcatalog  TYPE TABLE OF lvc_s_fcat,

      g_repid LIKE sy-repid,

      gs_layout   TYPE lvc_s_layo,

      cont_on_200   TYPE scrfname VALUE 'BCALVC_TOOLBAR_D100_C1',

      grid1  TYPE REF TO cl_gui_alv_grid,

      custom_container1 TYPE REF TO cl_gui_custom_container.

DATA: i_sort TYPE lvc_t_sort.

DATA: w_sort TYPE lvc_s_sort.

DATA BEGIN OF itab_trib OCCURS 0.

DATA: ebeln LIKE ekpo-ebeln,

      ebelp LIKE ekpo-ebelp,

      tpdesp LIKE /pws/zycie049-tpdesp,

      t_ivdesp LIKE /pws/zycie085-vlfob,

      waers LIKE /pws/zycie049-waers.

DATA END OF itab_trib.

DATA: itab_zycit001     LIKE /pws/zycit001   OCCURS 0 WITH HEADER LINE,

      itab_zycit001_di  LIKE /pws/zycit001   OCCURS 0 WITH HEADER LINE,

      itab_zycit006     LIKE /pws/zycit006   OCCURS 0 WITH HEADER LINE,

      itab_zycit006a    LIKE /pws/zycit006   OCCURS 0 WITH HEADER LINE,

      itab_zycit013     LIKE /pws/zycie013   OCCURS 0 WITH HEADER LINE,

      itab_zycit014     LIKE /pws/zycie014   OCCURS 0 WITH HEADER LINE,

      itab_zycit042     LIKE /pws/zycit042   OCCURS 0 WITH HEADER LINE,

      itab_zycit019     LIKE /pws/zycit019   OCCURS 0 WITH HEADER LINE,

      itab_zycit029     LIKE /pws/zycit029   OCCURS 0 WITH HEADER LINE,

      itab_zycit020     LIKE /pws/zycit020   OCCURS 0 WITH HEADER LINE,

      itab_zycit031     LIKE /pws/zycit031   OCCURS 0 WITH HEADER LINE,

      itab_zycit036     LIKE /pws/zycit036   OCCURS 0 WITH HEADER LINE,

      itab_zycit039     LIKE /pws/zycit039   OCCURS 0 WITH HEADER LINE,

      itab_zycit041     LIKE /pws/zycit041   OCCURS 0 WITH HEADER LINE,

      itab_zycit049di   LIKE /pws/zycit049   OCCURS 0 WITH HEADER LINE,

      itab_zycit049di2  LIKE /pws/zycit049   OCCURS 0 WITH HEADER LINE,

      itab_zycit055     LIKE /pws/zycit055   OCCURS 0 WITH HEADER LINE,

      itab_zycit078     LIKE /pws/zycie078   OCCURS 0 WITH HEADER LINE,

      itab_zycit079     LIKE /pws/zycie079   OCCURS 0 WITH HEADER LINE,

      itab_zycit085     LIKE /pws/zycie085   OCCURS 0 WITH HEADER LINE,

      itab_zycit085a    LIKE /pws/zycit085   OCCURS 0 WITH HEADER LINE,

      itab_zycit086     LIKE /pws/zycie086   OCCURS 0 WITH HEADER LINE,

      itab_zycit086a    LIKE /pws/zycie086   OCCURS 0 WITH HEADER LINE,

      itab_zycit087     LIKE /pws/zycie087   OCCURS 0 WITH HEADER LINE,

      itab_zycit087a    LIKE /pws/zycie087   OCCURS 0 WITH HEADER LINE,

      itab_zycit094     LIKE /pws/zycie094   OCCURS 0 WITH HEADER LINE,

      itab_zycit095     LIKE /pws/zycie095   OCCURS 0 WITH HEADER LINE,

      itab_zycit095a    LIKE /pws/zycie095   OCCURS 0 WITH HEADER LINE,

      itab_zycit096     LIKE /pws/zycie096   OCCURS 0 WITH HEADER LINE,

      itab_zycit096a    LIKE /pws/zycie096   OCCURS 0 WITH HEADER LINE,

      itab_zycit100     LIKE /pws/zycie100a  OCCURS 0 WITH HEADER LINE,

      itab_zycit100a    LIKE /pws/zycie100a  OCCURS 0 WITH HEADER LINE,

      itab_zycit104     LIKE /pws/zycit104   OCCURS 0 WITH HEADER LINE,

      itab_zycit107     LIKE /pws/zycit107   OCCURS 0 WITH HEADER LINE,

      itab_zycit115     LIKE /pws/zycie115   OCCURS 0 WITH HEADER LINE,

      itab_zycit115a    LIKE /pws/zycie115   OCCURS 0 WITH HEADER LINE,

      itab_zycit115b    LIKE /pws/zycit115   OCCURS 0 WITH HEADER LINE,

      itab_zycit122     LIKE /pws/zycit122   OCCURS 0 WITH HEADER LINE,

      itab_zycit123     LIKE /pws/zycit123   OCCURS 0 WITH HEADER LINE,

      itab_zycit126     LIKE /pws/zycie126   OCCURS 0 WITH HEADER LINE,

      itab_zycit134     LIKE /pws/zycit134   OCCURS 0 WITH HEADER LINE,

      itab_zycit191     LIKE /pws/zycit191   OCCURS 0 WITH HEADER LINE,

      itab_zycit177     LIKE /pws/zycit177   OCCURS 0 WITH HEADER LINE,

      itab_zycit177t    LIKE /pws/zycit177   OCCURS 0 WITH HEADER LINE,

      itab_zycit195     LIKE /pws/zycit195   OCCURS 0 WITH HEADER LINE,

      itab_zycit200     LIKE /pws/zycit200   OCCURS 0 WITH HEADER LINE,

      itab_zycit256     LIKE /pws/zycit256   OCCURS 0 WITH HEADER LINE,

      itab_zycit200a    LIKE /pws/zycit200   OCCURS 0 WITH HEADER LINE,

      itab_zycit200b    LIKE /pws/zycit200   OCCURS 0 WITH HEADER LINE,

      itab_zycit255     LIKE /pws/zycit255   OCCURS 0 WITH HEADER LINE,

      itab_zycit136     LIKE /pws/zycit136   OCCURS 0 WITH HEADER LINE,

      itab_zycit399     LIKE /pws/zycit399   OCCURS 0 WITH HEADER LINE,

      itab_zycit400     LIKE /pws/zycit400   OCCURS 0 WITH HEADER LINE,

      itab_zycit401     LIKE /pws/zycit401   OCCURS 0 WITH HEADER LINE,

      itab_zycit402     LIKE /pws/zycit402   OCCURS 0 WITH HEADER LINE,

      itab_zycit404     LIKE /pws/zycit404   OCCURS 0 WITH HEADER LINE,

      itab_zycit403     LIKE /pws/zycit403   OCCURS 0 WITH HEADER LINE,

      itab_zycit403_i   LIKE /pws/zycit403   OCCURS 0 WITH HEADER LINE,

      itab_zycit403a     LIKE /pws/zycit403   OCCURS 0 WITH HEADER LINE,

      itab_zycit404_aux LIKE /pws/zycit404   OCCURS 0 WITH HEADER LINE,

      rtext             LIKE tline           OCCURS 50 WITH HEADER LINE,

      rtextc            LIKE tline           OCCURS 50 WITH HEADER LINE,

      rtexti            LIKE tline           OCCURS 50 WITH HEADER LINE,

      rtexta            LIKE tline           OCCURS 50 WITH HEADER LINE,

      rtexto            LIKE tline           OCCURS 0 WITH HEADER LINE,

      rtextx            LIKE tline           OCCURS 0 WITH HEADER LINE,

      rtextesp          LIKE tline           OCCURS 0 WITH HEADER LINE,

      rtextcompl        LIKE tline           OCCURS 0 WITH HEADER LINE,

      itab_ekpo         LIKE ekpo            OCCURS 0 WITH HEADER LINE,

      itab_bdc          LIKE bdcdata         OCCURS 0 WITH HEADER LINE,

      itab_msg          TYPE msg_struc       OCCURS 5 WITH HEADER LINE,

      itab_stxl         LIKE stxl            OCCURS 0 WITH HEADER LINE,

      itab_makt         LIKE makt            OCCURS 0 WITH HEADER LINE,

      itab_zycit100_temp LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE.

DATA: itab_zycit003_t    LIKE /pws/zycit003   OCCURS 0 WITH HEADER LINE,

      itab_zycit078_t    LIKE /pws/zycit078   OCCURS 0 WITH HEADER LINE,

      itab_zycit085_t    LIKE /pws/zycit085   OCCURS 0 WITH HEADER LINE,

      itab_zycit100_t    LIKE /pws/zycit100   OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycit082 OCCURS 0.

DATA:   nrseq   LIKE /pws/zycit082-nrseq,

        ebeln   LIKE /pws/zycit082-ebeln,

        ebelp   LIKE /pws/zycit082-ebelp,

        doc     LIKE /pws/zycit082-doc,

      END OF itab_zycit082.

DATA: BEGIN OF itab_zycit049 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie049.

DATA:   tipo      LIKE /pws/zycit019-tipo,

        coddesp   LIKE /pws/zycit000-cod_sisc,

        codigo    LIKE /pws/zycit019-codigo,

        baseicms  LIKE /pws/zycit020-baseicms,

        baseii    LIKE /pws/zycit020-baseii,

        reduz     LIKE /pws/zycie122-descricao_reduz,

        vldp_aux  LIKE /pws/zycie049-vldp,

        divabs    LIKE /pws/zycit039-divabs,

        peso      LIKE /pws/zycit039-peso,

        proporplan LIKE /pws/zycit039-proporplan,

      END OF itab_zycit049.

DATA: BEGIN OF  itab_adicao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie116.

DATA:   flag_vltot,

      END OF itab_adicao.

DATA: BEGIN OF itab_NANA OCCURS 1,

        sign(1)   TYPE c,

        option(2) TYPE c,

        low       LIKE /pws/zycie085-nrseqdi,

        high      LIKE /pws/zycie085a-nrseqdi,

      END OF itab_NANA.

DATA: BEGIN OF itab_dtreg OCCURS 1,

        sign(1)   TYPE c,

        option(2) TYPE c,

        low       LIKE /pws/zycie085-dtreg,

        high      LIKE /pws/zycie085a-dtreg,

      END OF itab_dtreg.

DATA: BEGIN OF it_verbl OCCURS 0,

         nrseq       LIKE /pws/zycie003-nrseq,

         ebeln       LIKE /pws/zycie003-ebeln,

         ebelp       LIKE /pws/zycie003-ebelp,

        qtd_iten    LIKE /pws/zycie003-qtd_iten,

      END OF it_verbl.

DATA: BEGIN OF itab_zycit403t OCCURS 0,

        codigo     LIKE  /pws/zycie403-codigo,

        base       LIKE  /pws/zycie403-base,

        valorcalc  LIKE  /pws/zycie403-valorcalc,

        valorrec   LIKE  /pws/zycie403-valorrec,

        condicoes  LIKE  /pws/zycie403-condicoes,

      END OF itab_zycit403t.

DATA: BEGIN OF itab_itc OCCURS 0,

         nrseq       LIKE /pws/zycie003-nrseq,

         ebeln       LIKE /pws/zycie003-ebeln,

         ebelp       LIKE /pws/zycie003-ebelp,

         mark,

      END OF itab_itc.

DATA: BEGIN OF itab_it OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie100a.

DATA:   descr         LIKE /pws/zycie003-descr,

        j_1bnbm       LIKE /pws/zycie003-j_1bnbm,

        qtd_iten      LIKE /pws/zycie003-qtd_iten,

        qtd_itencacl  LIKE /pws/zycie003-qtd_itencacl,

        menge         LIKE /pws/zycie003-menge,

        meins         LIKE /pws/zycie003-meins,

        ntgew         LIKE /pws/zycie003-ntgew,

        gewei         LIKE /pws/zycie003-gewei,

        mfrpn         LIKE /pws/zycie003-mfrpn,

        vlreal        LIKE /pws/zycie003-vlreal,

        vlreal_aux2   LIKE /pws/zycie003-vlreal,

        netpr         LIKE /pws/zycie003-netpr,

        bednr         LIKE /pws/zycie003-bednr,

        porigem       LIKE /pws/zycie003-porigem,

        waers         LIKE /pws/zycie003-waers,

        fabric        LIKE /pws/zycie003-fabric,

        lifnrfabr     LIKE /pws/zycie003-lifnrfabr,

        aplicacao     LIKE /pws/zycie003-aplicacao,

        condmerc      LIKE /pws/zycie003-condmerc,

        qtdeumest     LIKE /pws/zycie003-qtdeumest,

        meinsest      LIKE /pws/zycie003-meinsest,

        slqtde        LIKE /pws/zycie013-slqtde,

        agente        LIKE /pws/zycie126-agente,

        aliqii        LIKE /pws/zycie003-aliqii,

        advalii       LIKE /pws/zycie003-advalii,

        aliqipi       LIKE /pws/zycie003-aliqipi,

        advalipi      LIKE /pws/zycie003-advalipi,

        aliqicms      LIKE /pws/zycie003-aliqicms,

        advalicms     LIKE /pws/zycie003-advalicms,

        vlfre_fat     LIKE /pws/zycie003-vlfre_fat,

        vlseg_fat     LIKE /pws/zycie003-vlseg_fat,

        lifnr         LIKE lfa1-lifnr,

        extarif_al    LIKE /pws/zycie003-extarif_al,

        tipo_al       LIKE /pws/zycie003-tipo_al,

        orgemiss_al   LIKE /pws/zycie003-orgemiss_al,

        numero_al     LIKE /pws/zycie003-numero_al,

        anoemiss_al   LIKE /pws/zycie003-anoemiss_al,

        ii_extarif    LIKE /pws/zycie003-ii_extarif,

        ii_tipo       LIKE /pws/zycie003-ii_tipo,

        ii_orgemiss   LIKE /pws/zycie003-ii_orgemiss,

        ii_numero     LIKE /pws/zycie003-ii_numero,

        ii_anoemiss   LIKE /pws/zycie003-ii_anoemiss,

        ipi_extarif   LIKE /pws/zycie003-ipi_extarif,

        ipi_tipo      LIKE /pws/zycie003-ipi_tipo,

        ipi_orgemiss  LIKE /pws/zycie003-ipi_orgemiss,

        ipi_numero    LIKE /pws/zycie003-ipi_numero,

        ipi_anoemiss  LIKE /pws/zycie003-ipi_anoemiss,

        ad_extarif    LIKE /pws/zycie003-ad_extarif,

        ad_tipo       LIKE /pws/zycie003-ad_tipo,

        ad_orgemiss   LIKE /pws/zycie003-ad_orgemiss,

        ad_numero     LIKE /pws/zycie003-ad_numero,

        ad_anoemiss   LIKE /pws/zycie003-ad_anoemiss,

        inco1         LIKE /pws/zycie001-inco1,

        naladi        LIKE /pws/zycie003-naladi,

        naladincca    LIKE /pws/zycie003-naladincca,

        zterm         LIKE /pws/zycit006-zterm,

        nrseqfat      LIKE /pws/zycit006-nrseq,

        nrfat         LIKE /pws/zycit006-nrfat,

        vinculo       LIKE /pws/zycit006-vinculo,

        vlfre_me      LIKE /pws/zycie003-vlfre_fat,

        vlseg_me      LIKE /pws/zycie003-vlseg_fat,

        vldiffob      LIKE /pws/zycie003-vlfre_fat,

        seq           LIKE sy-tabix,

        identify(19),

        basred        LIKE /pws/zycie003-basred,

        nrli          LIKE /pws/zycie003-nrli,

        nrseqd        LIKE /pws/zycie003-nrseqd,

        nrdrawback    LIKE /pws/zycie003-nrdrawback,

        modalidade    LIKE /pws/zycie003-modalidade,

        frn           LIKE /pws/zycie085-vlfob,

        qtd_itend     LIKE /pws/zycie003-qtd_itend,

        vlreald       LIKE /pws/zycie003-vlreal,

        vlmerc_ad     LIKE /pws/zycie085-vlfob,

        matnr         LIKE /pws/zycie003-matnr,

        idnlf         LIKE mepo1319-idnlf,

        mark,

      END OF itab_it.

DATA: BEGIN OF it_status OCCURS 0,

        fcode LIKE rsmpe-func,

      END OF it_status.

DATA: BEGIN OF it_words OCCURS 0,

        word(50),

      END OF it_words.

DATA: itab_ita       LIKE itab_it       OCCURS 0 WITH HEADER LINE,

      itab_itb       LIKE itab_it       OCCURS 0 WITH HEADER LINE,

      itab_zycit049a LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

      itab_zycit049b LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

      itab_zycit049c LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

      it_words_app   LIKE it_words      OCCURS 0 WITH HEADER LINE,

      it_statu2      LIKE it_status     OCCURS 0 WITH HEADER LINE,

      it_statu3      LIKE it_status     OCCURS 0 WITH HEADER LINE,

      it_statu4      LIKE it_status     OCCURS 0 WITH HEADER LINE,

      itab_zycit229  LIKE /pws/zycit229      OCCURS 0 WITH HEADER LINE,

      itab_zycit263  LIKE /pws/zycit263      OCCURS 0 WITH HEADER LINE,

      it_statu5      LIKE it_status     OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycit257 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit257.

DATA: END OF itab_zycit257.

DATA: BEGIN OF itab_zycit174 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit174.

DATA: END OF itab_zycit174.

DATA: BEGIN OF itab_zycit132 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit132.

DATA: END OF itab_zycit132.

DATA: BEGIN OF itab_gforn OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit235.

DATA: END OF itab_gforn.

DATA: BEGIN OF itab_zycit234 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit234.

DATA: END OF itab_zycit234.

DATA: BEGIN OF itab_zycit269 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit269.

DATA: END OF itab_zycit269.

DATA: BEGIN OF itab_lfa1 OCCURS 0,

      lifnr LIKE lfa1-lifnr,

      ktokk LIKE lfa1-ktokk,

      END OF itab_lfa1.

DATA: BEGIN OF itab_ekko OCCURS 0,

      ebeln  LIKE ekko-ebeln,

      bsart LIKE ekko-bsart,

      END OF itab_ekko.

DATA: BEGIN OF itab_t604f OCCURS 0,

      steuc LIKE t604f-steuc,

      obrigli LIKE t604f-/pws/obrigli,

      END OF itab_t604f.

DATA: BEGIN OF itab_gped OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit236.

DATA: END OF itab_gped.

DATA: BEGIN OF itab_li OCCURS 0,

     nrseqli  LIKE /pws/zycit079-nrseqli,

     ebeln    LIKE /pws/zycit079-ebeln,

     ebelp    LIKE /pws/zycit079-ebelp,

     steuc1   LIKE /pws/zycit078-steuc1,

     dtdef    LIKE /pws/zycit078-dtdef,

     dtvencto LIKE /pws/zycit078-dtvencto,

     nrseqdi  LIKE /pws/zycit078-nrseqdi,

     menge    LIKE /pws/zycit079-menge,

     END OF itab_li.

DATA: BEGIN OF itab_cta OCCURS 0.

        INCLUDE STRUCTURE /pws/zygle316.

DATA: END OF itab_cta.

DATA: BEGIN OF it_zycit270 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit270.

DATA: END OF it_zycit270.

DATA: BEGIN OF itab_desp_funcao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie353.

DATA: END OF itab_desp_funcao.

DATA: BEGIN OF itab_report_cliente OCCURS 20.

        INCLUDE STRUCTURE /pws/zycet079.

DATA: END OF itab_report_cliente.

DATA: it_zycit255     LIKE /pws/zycit255      OCCURS 0 WITH HEADER LINE,

      it_zycit100     LIKE /pws/zycit100      OCCURS 0 WITH HEADER LINE,

      it_zycit085     LIKE /pws/zycit085      OCCURS 0 WITH HEADER LINE,

      it_zycit085_aux LIKE /pws/zycit085      OCCURS 0 WITH HEADER LINE,

      it_zycit001     LIKE /pws/zycit001      OCCURS 0 WITH HEADER LINE.

DATA:

  wa_zycit085   LIKE /pws/zycie085,

  wa_zycie085   LIKE /pws/zycie085,

  wa_zycit1223  LIKE /pws/zycit122,

  wa_zycit100   LIKE /pws/zycit100,

  wa_zycit104   LIKE /pws/zycit104,

  wa_zycit136   LIKE /pws/zycit136,

  wa_zycit078   LIKE /pws/zycit078,

  wa_it         LIKE itab_it,

  wa_itb        LIKE itab_it,

  wa_lfa1       LIKE lfa1,

  wa_adrc       LIKE adrc,

  wa_zycbt007   LIKE /pws/zycbt007,

  wa_it000      LIKE /pws/zycit000,

  wa_it122      LIKE itab_zycit049,

  wa_it123      LIKE itab_zycit049,

  xthead        LIKE thead,

  xtheadc       LIKE thead,

  xtheadi       LIKE thead,

  xtheada       LIKE thead,

  xtheado       LIKE thead,

  xtheadx       LIKE thead,

  wa_j_1bbranch LIKE j_1bbranch,

  wa_t001w      LIKE t001w,

  wa_zycet050   LIKE /pws/zycet050,

  wa_zycit375   LIKE /pws/zycit375.

DATA: BEGIN OF wa_ender.

DATA: stras LIKE t001w-spras,

      ort01 LIKE t001w-ort01,

      regio LIKE t001w-regio.

DATA: END OF wa_ender.

* << Fim da exclusão

DATA:

* >> Início da exclusão:

  i_desc(20),

  s_ometv,

  s_oregt,

  s_oregp,

  s_ofund,

  s_oacor,

  s_oalad,

  s_oexm,

  s_oexii,

  s_oexipi,

  s_oexad,

  s_cnpj(18) TYPE c,

  s_agen(18) TYPE c,

  s_msg1(40),

  s_fbsn(3),

  s_mmod(3),

  s_tr3(3),

  s_opf(3),

  s_doct(18),

  s_opcb(18),

  s_cont(16),

  s_conu(23),

  s_tpa(15),

  s_mod(34),

  v_adics,

  s_setor(35),

  stxt_id(17),

  stxt_embloc(17),

  stxt_embdat(16),

  s_iddes(120),

  s_pgban(3),

  s_pgage(13),

  s_pgcc(19),

  s_pgrec(120),

  s_len      TYPE i,

  s_pgag1    TYPE i,

  s_pgag2    TYPE i,

  s_ekadd    LIKE ekpo-adrnr,

  s_ekaed    LIKE ekpo-aedat,

  s_pglif    LIKE lfbk-lifnr,

  s_pgbks    LIKE lfbk-banks,

  s_pgbkl    LIKE lfbk-bankl,

  s_pgbkn    LIKE lfbk-bankn,

  s_pgnom    LIKE lfbk-koinh,

  s_inco1_ci LIKE /pws/zycit031-inco1_ci,

  s_inco1    LIKE /pws/zycit031-inco1,

  s_inco_ok,

  s_tax      LIKE /pws/zycie085-ukursfob,

  s_local    LIKE t001w-werks,

  s_regdescr LIKE /pws/zycit024-descricao,

  s_urf      LIKE /pws/zycet132-descdesp,

  s_trans    LIKE /pws/zycit054-bezei,

  s_pais     LIKE t005t-landx,

  s_ppais    LIKE t005-/pws/codpa,

  s_pdesc    LIKE t005t-landx,

  s_urfe     LIKE /pws/zycet132-descdesp,

  s_fbcm     LIKE tcurc-/pws/codmo,

  s_frcm     LIKE tcurc-/pws/codmo,

  s_stcm     LIKE tcurc-/pws/codmo,

  s_fbdesc   LIKE tcurt-ltext,

  s_frdesc   LIKE tcurt-ltext,

  s_stdesc   LIKE tcurt-ltext,

  s_umped    LIKE t006a-msehl,

  s_umestt   LIKE t006a-msehl,

  s_umad     LIKE t006a-msehl,

  s_recalf   LIKE /pws/zycet138-descrec,

  s_advl     LIKE /pws/zycie100a-vlantid,

  s_adbs     LIKE /pws/zycie100a-baseantid,

  s_fbvr     LIKE /pws/zycit085-vlfob,

  s_fbvr2    LIKE /pws/zycit006-vlmerc,

  s_fbvr_s_d LIKE s_fbvr,

  s_frvr     LIKE s_fbvr,

  s_frvr_aux LIKE s_fbvr,

  s_frvr_aux1 LIKE s_fbvr,

  s_stvr     LIKE s_fbvr,

  s_stvr_aux LIKE s_fbvr,

  s_stvr_aux1 LIKE s_fbvr,

  s_vldpr    LIKE s_fbvr,

  s_wiicalc  LIKE s_fbvr,

  s_wiiredu  LIKE s_fbvr,

  s_wiidevi  LIKE s_fbvr,

  s_wiireco  LIKE s_fbvr,

  s_wipicalc LIKE s_fbvr,

  s_wipiredu LIKE s_fbvr,

  s_wipidevi LIKE s_fbvr,

  s_wipireco LIKE s_fbvr,

  s_wicdevi  LIKE s_fbvr,

  s_wicreco  LIKE s_fbvr,

  s_wsisco   LIKE s_fbvr,

  s_waddevi  LIKE s_fbvr,

  s_wadreco  LIKE s_fbvr,

  s_icon     TYPE icons-text,

  s_icon2(30),

   v_modsegm(1) TYPE c VALUE 0,

  t_tsp(120),

  t_impnat(65),

  t_imptip(53),

  t_sncou(3),

  t_clades(3),

  t_espec(72),

  t_pnome  LIKE /pws/zycit133-nome,

  t_blid   LIKE /pws/zycie093-identify,

  t_icmsbs LIKE /pws/zycie085-vlfob,

  t_icms   LIKE /pws/zycie085-vlfob,

  t_icmsx  LIKE /pws/zycie085-vlfob,

  t_tot    LIKE /pws/zycie006-vlmerc,

  t_embarc LIKE /pws/zycie001-embarca,

  t_regdes LIKE /pws/zycit167-descricao,

  t_regde2 LIKE t_regdes,

  t_motdes LIKE /pws/zycit169-descricao,

  t_ncmdes(35),

  t_uest   LIKE t604n-text1,

  t_ucom   LIKE t604n-text1,

  t_msis   LIKE tcurc-/pws/codmo,

  t_mdes   LIKE tcurt-ltext,

  t_ppais  LIKE t005-/pws/codpa,

  t_zzum   LIKE t604f-/pws/zum,

  t_zcom   LIKE t604f-/pws/zum,

  t_vmle   LIKE /pws/zycie085-vlfob,

  t_vmle2   LIKE /pws/zycie085-vlfob,

  t_vmle3  LIKE /pws/zycie085-vlfob,

  v_tot_plan LIKE /pws/zycit003-netpr,

  v_it_plan LIKE /pws/zycit003-netpr,

  v_fr_seg_ad LIKE /pws/zycie085-vlfob,

  t_fundes LIKE /pws/zycit177-descr,

  t_vlii   LIKE /pws/zycie006-vlmerc,

  t_vlipi  LIKE /pws/zycie006-vlmerc,

  t_vlicms LIKE /pws/zycie006-vlmerc,

  t_ivdesp LIKE t_icms,

  t_ivdes2 LIKE t_icms,

  t_ivdes3 LIKE t_icms,

  t_ivmle  LIKE t_icms,

  t_ivmle2  LIKE t_icms,

  t_ivfre  LIKE t_icms,

  t_ivseg  LIKE t_icms,

  v_tot_seg LIKE t_icms,

  t_ivadu  LIKE t_icms,

  t_iibas  LIKE t_icms,

  t_iirec  LIKE t_icms,

  t_ipibas LIKE t_icms,

  t_ipirec LIKE t_icms,

  a_opgan,

  a_opgav,

  a_oparc,

  a_otxjr,

  a_mdnac1,

  a_mdnac2,

  a_radio1,

  a_ucomm1,

  a_check1,

  a_check2,

  a_check3,

  a_pgban(3),

  a_pgage(13),

  a_espec(72),

  a_espe2(72),

  a_inco1(30),

  a_ifina(120),

  a_motiv(120),

  a_txjur(120),

  a_espde(120),

  a_modpa(35),

  a_checked  TYPE i,

  a_uqtde    TYPE i,

  a_ucomm2   LIKE sy-ucomm,

  a_ip       LIKE sy-tabix,

  a_lfa      LIKE lfa1-name1,

  a_aladi    LIKE /pws/zycet168-descricao,

  a_metv     LIKE /pws/zycit173-descricao,

  a_pais     LIKE t005t-landx,

  a_pais1    LIKE t005t-landx,

  a_pais2    LIKE t005t-landx,

  a_spais    LIKE t005-/pws/codpa,

  a_spais1   LIKE t005-/pws/codpa,

  a_spais2   LIKE t005-/pws/codpa,

  a_qtdeest  LIKE /pws/zycie003-qtdeumest,

  a_tribipi  LIKE /pws/zycie100a-tribipi,

  a_adbase   LIKE /pws/zycie100a-baseantid,

  a_baseii   LIKE /pws/zycie116-baseii,

  a_baseipi  LIKE /pws/zycie116-baseii,

  a_baseicms LIKE /pws/zycie116-baseii,

  a_itval    LIKE t_icms,

  a_vmler    LIKE t_icms,

  a_icdevi   LIKE t_icms,

  a_icreco   LIKE t_icms,

  a_itfre    LIKE t_icms,

  a_itseg    LIKE t_icms,

  a_iiacor   LIKE t_icms,

  a_iicalc   LIKE t_icms,

  a_iiredu   LIKE t_icms,

  a_iidevi   LIKE t_icms,

  a_iitcalc  LIKE t_icms,

  a_iitredu  LIKE t_icms,

  a_iitdevi  LIKE t_icms,

  a_iitreco  LIKE t_icms,

  a_ipicalc  LIKE t_icms,

  a_ipiredu  LIKE t_icms,

  a_ipidevi  LIKE t_icms,

  a_ipitdevi LIKE t_icms,

  a_ipitreco LIKE t_icms,

  a_addevi   LIKE t_icms,

  a_adreco   LIKE t_icms,

  a_vlrtot   LIKE t_icms,

  a_1codtxjuros LIKE /pws/zycie116-codtxjuros,

  a_1taxarate   LIKE /pws/zycie116-taxarate,

  a_1parcnum    LIKE /pws/zycie116-parcnum,

  a_1periodic   LIKE /pws/zycie116-periodic,

  a_1indice     LIKE /pws/zycie116-indice,

  a_1valtot     LIKE /pws/zycie116-valtot,

  a_2codtxjuros LIKE /pws/zycie116-codtxjuros,

  a_2taxarate   LIKE /pws/zycie116-taxarate,

  a_2parcnum    LIKE /pws/zycie116-parcnum,

  a_2periodic   LIKE /pws/zycie116-periodic,

  a_2indice     LIKE /pws/zycie116-indice,

  a_2valtot     LIKE /pws/zycie116-valtot,

  a_3codtxjuros LIKE /pws/zycie116-codtxjuros,

  a_3taxarate   LIKE /pws/zycie116-taxarate,

  a_3parcnum    LIKE /pws/zycie116-parcnum,

  a_3periodic   LIKE /pws/zycie116-periodic,

  a_3indice     LIKE /pws/zycie116-indice,

  a_3valtot     LIKE /pws/zycie116-valtot,

  rimc1      LIKE indx-srtfd VALUE 'NRSEQDI',

  rimc2      LIKE indx-srtfd VALUE 'NRBL',

  rimc4      LIKE indx-srtfd VALUE 'WA085',

  ok_code       LIKE sy-ucomm,

  v_nrseq_ant LIKE /pws/zycie085-nrseqdi,

  v_nrbl     LIKE /pws/zycie093-nrseqce,

  v_ebeln    LIKE ekko-ebeln,

  v_waers    LIKE /pws/zycie003-waers,

  v_nrseqdi  LIKE /pws/zycie085-nrseqdi,

  v_line     TYPE i,

  v_lin_191  TYPE i,

  v_lin_177  TYPE i,

  v_icodr1   LIKE /pws/zycie100a-codregtri,

  v_icodr2   LIKE /pws/zycie100a-codregtriipi,

  v_comm     LIKE ok_code,

  v_fretc    LIKE /pws/zycie093-collect,

  v_c        LIKE /pws/zycie093-tpconh,

  v_l        LIKE /pws/zycie100a-codregtri,

  v_m        LIKE /pws/zycie006-codcambial,

  v_n        LIKE /pws/zycie100a-motivo,

  v_o        LIKE /pws/zycie085-ntimp,

  v_p        LIKE /pws/zycie100a-codfunleg,

  v_t        LIKE /pws/zycie093-meiotransp,

  v_tipo     LIKE /pws/zycit087-tipo,

  v_tipo_a   LIKE v_tipo,

  v_txtkey   LIKE thead-tdname,

  v_txtki    LIKE thead-tdname,

  v_txtcom   LIKE thead-tdname,

  v_tntgew   LIKE /pws/zycie003-ntgew,

  v_tval     LIKE t_icms,

  v_tvaln    LIKE t_icms,

  v_tval2    LIKE t_icms,

  v_tval3    LIKE t_icms,

  v_tval4 LIKE /pws/zycie006-vlmerc,

  v_tfrefat  LIKE t_icms,

  v_tfre     LIKE t_icms,

  v_tseg     LIKE t_icms,

  v_tsegfat  LIKE t_icms,

  v_rfrefat  LIKE t_icms,

  v_rsegfat  LIKE t_icms,

  v_tmle     LIKE t_icms,

  v_ini      LIKE t_icms,

  v_ini2     LIKE t_icms,

  v_bltofat  LIKE t_icms,

  v_sgtofat  LIKE t_icms,

  v_tdif     LIKE t_icms,

  v_dif_frn LIKE t_icms,

  v_tdif_aux LIKE t_icms,

  t_vldif    LIKE t_icms,

  v_linha    TYPE i,

  v_pos      TYPE i,

  v_nolin    TYPE i,

  v_lena     TYPE i,

  v_ncm01    TYPE i,

  v_ncm02    LIKE /pws/zycit003-j_1bnbm,

  v_werks    LIKE ekpo-werks,

  v_name1    LIKE t001w-name1,

  v_petroleo,

  v_bl,

  v_changed,

  v_resposta,

  v_erro,

  v_acto,

  v_txtdisplay,

  v_txtsave,

  v_input,

  v_valor(30),

  v_conteudo(20),

  v_textstat(20)   TYPE c                     ,

  v_txta(100)      TYPE c                     ,

  v_propoe         TYPE c                     ,

  v_trecho         TYPE c                     ,

  v_calci          TYPE c                     ,

  v_valid          TYPE c                     ,

  v_aux_rateio     LIKE t_icms         ,

  v_comprador      LIKE /pws/zycit121-comprador,

  v_ip             LIKE sy-tabix              ,

  v_ipt            LIKE sy-tabix              ,

  v_ipa            LIKE sy-tabix              ,

  v_idx            LIKE sy-tabix              ,

  v_idxa           LIKE sy-tabix              ,

  v_sub            LIKE sy-subrc              ,

  v_status_s       VALUE 1                    ,

  v_aini           TYPE c                     ,

  v_nt1            TYPE c                     ,

  v_msg1           TYPE c                     ,

  v_icms_especial  TYPE c                     ,

  v_base_esp LIKE  /pws/zycit062-base         ,

  v_icms_regio     LIKE t001w-regio           ,

  v_pg01           TYPE i                     ,

  v_10p            LIKE t_icms VALUE '0.1'    ,

  v_name           LIKE thead-tdname          ,

  v_texto(255)     TYPE c                     ,

  encont           TYPE i                     ,

  v_cur            TYPE i                     ,

  v_s_idioma(15)   TYPE c                     ,

  v_repid          LIKE /pws/zycet067-repid   ,

  v_nratoc         LIKE /pws/zycie244-nratoc  ,

  v_perseg_vez     TYPE c                     ,

  v_param(550)     TYPE c VALUE space         ,

  v_tpdoc          LIKE /pws/zycit136-tp_doc  ,

  v_string_ex(250) TYPE c VALUE space         ,

  v_subrc          TYPE c                     ,

  v_sisco1         LIKE s_fbvr                ,

  v_sisco2         LIKE s_fbvr                ,

  v_sisco3         LIKE s_fbvr                ,

  v_nr_itens       LIKE s_fbvr                ,

  v_desp           LIKE s_fbvr                ,

  v_cfr            LIKE t_icms                ,

  v_tcfr           LIKE t_icms                ,

  v_custo          LIKE t_icms                ,

  v_frete          LIKE t_icms                ,

  v_medida         LIKE /pws/zycie003-meinsest,

  v_tabix          LIKE sy-tabix              ,

  vsaldo           LIKE /pws/zycie263-qtd_iten,

  v_espec          TYPE c                     ,

  v_msg            TYPE c                     ,

  v_propoe_sisc    TYPE c                     ,

  v_per_seg        LIKE /pws/zycie085-per_seg ,

  v_cols           TYPE cxtab_column          ,

  v_nf041(1)       TYPE c                     ,

  v_modo           TYPE c                     ,

  v_doc            LIKE /pws/zycit085-belnr_0 ,

  v_taxa           LIKE /pws/zycie085-ukursfob,

  v_resp           TYPE c,

  v_visualiza      TYPE c,

  v_report         TYPE c,

  v_txini          TYPE c,

  v_msgfre         TYPE c,

  v_region LIKE adrc-region,

  v_canal LIKE /pws/zycit397-canal,

  v_totalusdp       TYPE p DECIMALS 2,

  v_totalusdg       TYPE p DECIMALS 2,

  v_totalusda       TYPE p DECIMALS 2,

  v_totalusdtp      TYPE p DECIMALS 2,

  v_totalusdtg      TYPE p DECIMALS 2,

  v_totalusdta      TYPE p DECIMALS 2,

  v_mudou ,

  v_valtot LIKE /pws/zycie085-vlfob,

  v_ate TYPE i  ,

  v_usd    LIKE /pws/zycie085-ukursfob.

* << Fim da exclusão

* >> Início da inclusão:

  v_cols           TYPE cxtab_column          .

* << Fim da inclusão

* >> Início da exclusão:

DATA wa_zycit403 LIKE /pws/zycit403.

DATA v_index LIKE sy-tabix.

DATA: s_frvr_d2   LIKE /pws/zycie006-vlmerc,

      s_stvr_d2   LIKE /pws/zycie006-vlmerc,

      v_tmle_d2   LIKE /pws/zycie006-vlmerc,

      t_vmle_d2   LIKE /pws/zycie006-vlmerc,

      v_tot_fre   LIKE t_icms,

      v_frete_nm  LIKE t_icms,

      t_ivmle_d2  LIKE /pws/zycie006-vlmerc,

      s_vluni_d2  LIKE /pws/zycie006-vlmerc,

      t_icmsbs_d2 LIKE /pws/zycie006-vlmerc,

      t_icms_d2   LIKE /pws/zycie006-vlmerc.

* << Fim da exclusão

TABLES: t002.

DATA: editor         TYPE REF TO cl_gui_textedit,

      editcontainer  TYPE REF TO cl_gui_custom_container,

      editor2        TYPE REF TO cl_gui_textedit,

      editcontainer2 TYPE REF TO cl_gui_custom_container,

      vrepid         LIKE sy-repid,

      v_tix(4),

      top_editmode   TYPE i.

DATA: BEGIN OF ittxt OCCURS 50,

            line(72),

      END OF ittxt.

DATA: BEGIN OF ittxt1 OCCURS 50,

            line(66),

      END OF ittxt1.

DATA: ittxt2 LIKE ittxt1 OCCURS 0 WITH HEADER LINE.

TABLES: /pws/zycbt012.

* >> Início da exclusão:

DATA: BEGIN OF itab_matuse OCCURS 0.

DATA: ebeln      LIKE ekpo-ebeln,

      ebelp      LIKE ekpo-ebelp,

      matnr      LIKE ekpo-matnr,

      bwtar      LIKE ekpo-bwtar,

      j_1bmatuse LIKE ekpo-j_1bmatuse,

      knttp      LIKE ekpo-knttp,

      werks      LIKE t001w-werks,

      bwkey      LIKE mbew-bwkey.

DATA: END OF itab_matuse .

DATA: BEGIN OF itab_matuse_aux OCCURS 0.

DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,

      hkont      LIKE bsis-hkont     .

DATA: END OF itab_matuse_aux .

DATA: BEGIN OF itab_matuse_aux2 OCCURS 0.

DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,

      hkont      LIKE bsis-hkont     .

DATA: END OF itab_matuse_aux2 .

DATA: BEGIN OF itab_di OCCURS 0.

DATA: hkont      LIKE bsis-hkont,

      vlseg      LIKE /pws/zycit100-vlseg,

      vlfre      LIKE /pws/zycit100-vlfre,

      vlfob      LIKE /pws/zycie085-vlfre,

      vldi       LIKE /pws/zycit100-vlfob.

DATA: END OF itab_di .

DATA: BEGIN OF itab_bsis OCCURS 10.

DATA: hkont    LIKE bsis-hkont       ,

      dmbtr    LIKE bsis-dmbtr       ,

      wrbtr    LIKE bsis-wrbtr       ,

      belnr    LIKE bsis-belnr       ,

      tpfatura LIKE /pws/zycit006-tpfatura.

DATA: END OF itab_bsis.

DATA: BEGIN OF itab_bsis_aux OCCURS 10.

DATA: hkont    LIKE bsis-hkont       ,

      dmbtr    LIKE bsis-dmbtr       ,

      wrbtr    LIKE bsis-wrbtr       ,

      tpfatura LIKE /pws/zycit006-tpfatura.

DATA: END OF itab_bsis_aux.

DATA: BEGIN OF itab_matuse_aux1 OCCURS 0,

        matuse  LIKE ekpo-j_1bmatuse,

        conta_r LIKE /pws/zycbt012-saknr1,

        conta_d LIKE /pws/zycbt012-saknr1,

        conta_c LIKE /pws/zycbt012-saknr1,

        bklas   LIKE /pws/zycit135-bklas,

      END OF itab_matuse_aux1.

DATA: wa_matuse_aux LIKE itab_matuse_aux.

DATA: BEGIN OF wa_bsis .

DATA: hkont LIKE bsis-hkont,

      dmbtr LIKE bsis-dmbtr,

      wrbtr LIKE bsis-wrbtr,

      belnr LIKE bsis-belnr.

DATA: END OF wa_bsis.

DATA: itab_zycbt034  LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,

      itab_zycit034  LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,

      itab_zycbt032  LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,

      itab_zycbe033  LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,

      itab_zycbt036  LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE,

      itab_zycbt013  LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

      itab_zycbt012  LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA: END OF itab_contas.

DATA: BEGIN OF itab_contas_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA: END OF itab_contas_aux.

DATA: BEGIN OF itab_modo OCCURS 0.

DATA:   modo    LIKE /pws/zycbt039-modo,

        descr   LIKE /pws/zycbt039-descr.

        INCLUDE STRUCTURE spopli.

DATA: END OF itab_modo.

DATA wa_zycbt011    LIKE /pws/zycbt011.

DATA:   v_modo_bi                  ,

        v_belnr     LIKE bkpf-belnr,

        v_totline   TYPE n         ,

        vl_variacao LIKE /pws/zycit085-vlfob,

        v_rec_ia    TYPE i,

        v_rec_ia_1  TYPE i,

        v_text(14)  TYPE c,

        v_datum     LIKE sy-datum,

        v_dele            ,

        v_sgtxt    LIKE bseg-sgtxt,

        v_zuonr    LIKE bseg-zuonr,

        v_xblnr    LIKE bkpf-xblnr,

        v_bktxt    LIKE bkpf-bktxt,

        v_f05_ok,

        v_blart    LIKE /pws/zycbt011-blart,

        v_belnrf05 LIKE itab_zycbt032-belnr,

        v_desp_acr LIKE /pws/zycit049-vldp,

        v_desp_brl LIKE /pws/zycit049-vldp,

        v_evento   LIKE /pws/zyglt321-codeven,

        v_matuse   LIKE /pws/zycbe035-matuse,

        v_salvou  TYPE c.

Data: v_tax_temp type /pws/zycit085-ukursfob.

* << Fim da exclusão

 

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

Modificações efetuadas em REPS /PWS/SAPMZYCI059