Sintoma

Aumento da quantidade de casas decimais utilizadas na explosão da llista técnica.

Solução

Aumento da quantidade de casas decimais utilizadas na explosão da llista técnica.

Informações Complementares

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

Nota Número 02732 Data: 20/12/2006 Hora: 14:04:26

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

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

Nota Número              : 02732

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00145

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AUMENTO DE CASAS DECIMAIS NA EXPLOSÃO DA LISTA TÉCNICA

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

Palavras Chave:

EXPLOSÃO - LISTA - TÉCNICA - CASAS - DECIMAIS

/PWS/ZYCIT106

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

Objetos da nota:

REPS /PWS/MZYCI040TOP2

REPS /PWS/MZYCI063TOP

REPS /PWS/MZYCI064TOP3

REPS /PWS/ZYCIR070

REPS /PWS/ZYCIR106

REPS /PWS/ZYCIR106TOP

REPS /PWS/ZYCIR115

REPS /PWS/ZYCIR143

REPS /PWS/ZYCIR217

REPS /PWS/ZYCIR254

REPS /PWS/ZYCIR325

REPS /PWS/ZYCIR343

REPS /PWS/ZYCRSTDLT

TABD /PWS/ZYCIE261

TABD /PWS/ZYCIT261

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

Modificações efetuadas em REPS /PWS/MZYCI040TOP2

...

      stlan LIKE stpox-stlan,

      stlnr LIKE stpo-stlnr,

      stlal LIKE stpox-stlal,

      capid LIKE tc04-capid.

DATA: END OF it_materiais.

DATA: BEGIN OF i_final OCCURS 0,

      insumo  LIKE mara-matnr,

      produto LIKE stpox-idnrk,

      centro  LIKE stpox-werks,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtunit  TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      meins   LIKE stpox-meins.

DATA: END OF i_final.

DATA : BEGIN OF itab_lista OCCURS 0  .

DATA : matexp    LIKE   mara-matnr  ,

       matimp    LIKE   mara-matnr  ,

       usagem    LIKE   /pws/zycit245-qtd_iten  .

DATA : END OF itab_lista      .

DATA : BEGIN OF itab_vbfa OCCURS 0  .

DATA : vbelv     LIKE   vbfa-vbelv  ,

       vbeln     LIKE   vbfa-vbeln  ,

...

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

Modificações efetuadas em REPS /PWS/MZYCI063TOP

...

      stlan LIKE stpox-stlan,

      stlnr LIKE stpo-stlnr,

      stlal LIKE stpox-stlal,

      capid LIKE tc04-capid.

DATA: END OF it_materiais.

DATA: BEGIN OF i_final OCCURS 0,

      insumo  LIKE mara-matnr,

      produto LIKE stpox-idnrk,

      centro  LIKE stpox-werks,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtunit  TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      meins   LIKE stpox-meins.

DATA: END OF i_final.

DATA: BEGIN OF itab_zycit475 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit475.

DATA: END OF itab_zycit475.

DATA: itab_zycit407 LIKE /pws/zycit407 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zyglt100 OCCURS 10.

        INCLUDE STRUCTURE /pws/zyglt100.

DATA: END OF itab_zyglt100.

DATA:   e_subrc  VALUE '0'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI064TOP3

...

      stlan LIKE stpox-stlan,

      stlnr LIKE stpo-stlnr,

      stlal LIKE stpox-stlal,

      capid LIKE tc04-capid.

DATA: END OF it_materiais.

DATA: BEGIN OF i_final OCCURS 0,

      insumo  LIKE mara-matnr,

      produto LIKE stpox-idnrk,

      centro  LIKE stpox-werks,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtunit  TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      meins   LIKE stpox-meins.

DATA: END OF i_final.

DATA: itab_zycit472 TYPE /pws/zycit472 OCCURS 0 WITH HEADER LINE,

      itab_zycit473 TYPE /pws/zycit473 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_sel_vbfa OCCURS 0.

DATA: vbeln TYPE vbfa-vbeln,

      posnn TYPE vbfa-posnn.

DATA: END OF itab_sel_vbfa.

DATA : BEGIN OF itab_nota_c OCCURS 0  .

DATA : docnum     TYPE  j_1bnfdoc-docnum  ,

...

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

Modificações efetuadas em REPS /PWS/ZYCIR070

...

      stlan LIKE stpox-stlan,

      stlnr LIKE stpo-stlnr,

      stlal LIKE stpox-stlal,

      capid LIKE tc04-capid.

DATA: END OF it_materiais.

DATA: BEGIN OF i_final OCCURS 0,

      insumo  LIKE mara-matnr,

      produto LIKE stpox-idnrk,

      centro  LIKE stpox-werks,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtunit TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      meins   LIKE stpox-meins.

DATA: END OF i_final.

DATA: BEGIN OF itab_lista OCCURS 0,

      matnr   LIKE mara-matnr,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      usagem  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      usagem TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      qtd     LIKE /pws/zycit282-qtd_mimp,

      meins   LIKE stpox-meins,

      perc(10)                 .

DATA: END OF itab_lista.

DATA: itab_lista_aux LIKE itab_lista OCCURS 0 WITH HEADER LINE.

DATA: itab_zycit439 LIKE /pws/zycit439 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF it_vbap OCCURS 0,

        vbeln LIKE vbap-vbeln,

        netpr LIKE vbap-netpr,

      END OF it_vbap.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR106

...

      werks  LIKE marc-werks ,

      stlan  LIKE stpox-stlan,

      stlnr  LIKE stpo-stlnr ,

      stlal  LIKE stpox-stlal,

      capid  LIKE tc04-capid .

DATA: END OF it_materiais.

DATA : BEGIN OF i_mat OCCURS 0,

       matnr  LIKE mara-matnr,

       werks  LIKE marc-werks,

       mtart  LIKE mara-mtart,

* >> Início da exclusão:

       qtde   TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

       qtde   type /pws/zycit245-qtd_iten,

* << Fim da inclusão

       meins  LIKE mara-meins,

       postp  LIKE stpo-postp.

DATA : END OF i_mat.

DATA : BEGIN OF i_final OCCURS 0,

         insumo  LIKE mara-matnr,

         produto   LIKE stpox-idnrk,

         centro    LIKE stpox-werks,

         ncm       LIKE marc-steuc,

* >> Início da exclusão:

         qtunit    TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

         qtunit    type /pws/zycit245-qtd_iten,

* << Fim da inclusão

         meins     LIKE stpox-meins.

DATA : END OF i_final.

DATA: BEGIN OF i_mara OCCURS 0,

        matnr LIKE mara-matnr,

        mtart LIKE mara-mtart,

      END OF i_mara.

DATA: BEGIN OF itab_zycit322 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit322.

DATA: END OF itab_zycit322.

DATA: wa_mara     LIKE mara    ,

...

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

Modificações efetuadas em REPS /PWS/ZYCIR106TOP

...

       matnr  like mara-matnr,

       mtart  like mara-mtart,

       qtde   type p decimals 5,

       meins  like mara-meins,

       postp  like stpo-postp.

data : end of i_material.

data : begin of i_lista occurs 0,

       material  like mara-matnr,

       produto   like stpox-idnrk,

       centro    like stpox-werks,

* >> Início da exclusão:

       qtunit    type p decimals 5,

* << Fim da exclusão

* >> Início da inclusão:

       qtunit    type /pws/zycit245-qtd_iten,

* << Fim da inclusão

       meins     like stpox-meins.

data : end of i_lista.

data : begin of i_centro occurs 0,

        werks like stpox-werks.

data : end of i_centro.

data : begin of i_stb occurs 0.

        include structure stpox.

data : end of i_stb.

data : v_mtart     like mara-mtart,

       v_bmeng     like stko-bmeng,

* >> Início da exclusão:

       v_quant     type p decimals 5,

* << Fim da exclusão

* >> Início da inclusão:

       v_quant     type /pws/zycit245-qtd_iten,

* << Fim da inclusão

       v_ewahr     like stpo-ewahr,

       v_selpool   like cstmat,

       v_dstst_flg like csdata-xfeld,

       v_dtval     like stko-datuv,

       v_erro(1)   type c,

* >> Início da exclusão:

       v_qtdeaux   type p decimals 5,

       v_qtdeaux2  type p decimals 5,

       v_ins_fabr  type p decimals 5,

       v_ins_compr type p decimals 5,

       v_pccomp    type p decimals 5,

       v_vlcomp    type p decimals 2.

* << Fim da exclusão

* >> Início da inclusão:

       v_qtdeaux   type /pws/zycit245-qtd_iten,

       v_qtdeaux2  type /pws/zycit245-qtd_iten,

       v_ins_fabr  type /pws/zycit245-qtd_iten,

       v_ins_compr type /pws/zycit245-qtd_iten,

       v_pccomp    type /pws/zycit245-qtd_iten,

       v_vlcomp    type /pws/zycit245-qtd_iten.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/ZYCIR115

...

      stlan LIKE stpox-stlan,

      stlnr LIKE stpo-stlnr,

      stlal LIKE stpox-stlal,

      capid LIKE tc04-capid.

DATA: END OF it_materiais.

DATA: BEGIN OF i_final OCCURS 0,

      insumo  LIKE mara-matnr,

      produto LIKE stpox-idnrk,

      centro  LIKE stpox-werks,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtunit  TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      meins   LIKE stpox-meins.

DATA: END OF i_final.

DATA: BEGIN OF it_apropriar OCCURS 0,

      matnr    LIKE mara-matnr  ,

      werks    LIKE marc-werks  ,

      ncm      LIKE marc-steuc  ,

      meins    LIKE stpox-meins ,

* >> Início da exclusão:

      qtd_iten TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtd_iten TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      qtd_totr TYPE p DECIMALS 3,

      perc(10)                  .

DATA: END OF it_apropriar.

DATA: BEGIN OF it_apropriar_fmi OCCURS 0,

      matnr    LIKE mara-matnr  ,

      werks    LIKE marc-werks  ,

      ncm      LIKE marc-steuc  ,

      meins    LIKE stpox-meins ,

* >> Início da exclusão:

      qtd_iten TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtd_iten TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      qtd_totr TYPE p DECIMALS 3,

      perc(10)                 .

DATA: END OF it_apropriar_fmi.

DATA: BEGIN OF it_insumo_forn OCCURS 0,

      matnr  LIKE mara-matnr     ,

      ncm    LIKE marc-steuc     ,

      lifnr  LIKE lfa1-lifnr     ,

      nrseqd LIKE /pws/zycie244-nrseqd.

DATA: END OF it_insumo_forn.

DATA: BEGIN OF it_zycit279 OCCURS 0.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR143

...

          usagem   LIKE /pws/zycit327-usagem ,

          meins    LIKE /pws/zycit327-meins  ,

          descins  LIKE makt-maktx,

          descpro  LIKE makt-maktx,

          stlan(2)                   .

DATA:     selk    TYPE c.

DATA: END OF itab_itens.

DATA: BEGIN OF itab_itens1 OCCURS 1,

          insumo   LIKE /pws/zycit327-insumo ,

          produto  LIKE /pws/zycit327-produto,

* >> Início da exclusão:

          usagem   LIKE /pws/zycit327-usagem ,

* << Fim da exclusão

* >> Início da inclusão:

          usagem   TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

          meins    LIKE /pws/zycit327-meins  ,

          descins  LIKE makt-maktx,

          descpro  LIKE makt-maktx,

          stlan(2)                    .

DATA:     selk    TYPE c.

DATA: END OF itab_itens1.

DATA: BEGIN OF itab_header OCCURS 1   ,

        data             TYPE d       ,

        f                TYPE c       ,

        h                TYPE c       ,

...

...

        stlan LIKE stpox-stlan,

        stlnr LIKE stpo-stlnr,

        stlal LIKE stpox-stlal,

        capid LIKE tc04-capid.

  DATA: END OF it_materiais.

  DATA: BEGIN OF i_final OCCURS 0,

        insumo  LIKE mara-matnr,

        produto LIKE stpox-idnrk,

        centro  LIKE stpox-werks,

        ncm     LIKE marc-steuc,

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

        qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

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

        qtunit TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

        meins   LIKE stpox-meins.

  DATA: END OF i_final.

  DATA: BEGIN OF ltb OCCURS 0.

          INCLUDE STRUCTURE stpov.

  DATA: END OF ltb.

  DATA: BEGIN OF equicat  OCCURS 0.

          INCLUDE STRUCTURE cscequi.

  DATA: END OF equicat .

  DATA: BEGIN OF kndcat   OCCURS 0.

          INCLUDE STRUCTURE cscknd.

...

...

  afield-ref_fieldname = 'DSTAL'.

  afield-ref_tabname   = 'STPOV_ALV'.

  afield-outputlen     = 5.

  afield-key           = ' '.

  afield-sp_group      = 'A'.

  afield-just          = 'C'.

  APPEND afield TO i_fieldcat.

  CLEAR afield.

  v_inteiro            = v_inteiro + 1.

  afield-fieldname     = 'USAGEM'.

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

  afield-ref_fieldname = 'USAGEM'.

  afield-ref_tabname   = '/PWS/ZYCIT327'.

* << Fim da exclusão

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

  afield-ref_fieldname = 'QTD_ITEN'.

  afield-ref_tabname   = '/PWS/ZYCIT245'.

* << Fim da inclusão

  afield-outputlen     = 20.

  afield-seltext_s     = text-008.

  afield-seltext_m     = text-008.

  afield-seltext_l     = text-008.

  afield-reptext_ddic  = text-008.

  afield-key           = ' '.

  afield-sp_group      = 'A'.

  afield-just          = 'C'.

  APPEND afield TO i_fieldcat.

  CLEAR afield.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR217

...

DATA: END OF it_zycit283_des.

DATA: BEGIN OF it_zycit283_est OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit283.

DATA: END OF it_zycit283_est.

DATA: BEGIN OF itab_zycet117 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet117.

DATA: END OF itab_zycet117.

DATA: BEGIN OF itab_lista OCCURS 0,

      matnr   LIKE mara-matnr,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      usagem  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      usagem TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      qtd     LIKE /pws/zycit282-qtd_mimp,

      meins   LIKE stpox-meins,

      perc(10)                 .

DATA: END OF itab_lista.

DATA: itab_lista_aux LIKE itab_lista OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF it_agrup OCCURS 0.

        INCLUDE STRUCTURE mvke.

DATA: END OF it_agrup.

DATA: BEGIN OF it_zycit422 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit422.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR254

...

      stlan LIKE stpox-stlan,

      stlnr LIKE stpo-stlnr,

      stlal LIKE stpox-stlal,

      capid LIKE tc04-capid.

DATA: END OF it_materiais.

DATA: BEGIN OF i_final OCCURS 0,

      insumo  LIKE mara-matnr,

      produto LIKE stpox-idnrk,

      centro  LIKE stpox-werks,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtunit  TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      meins   LIKE stpox-meins.

DATA: END OF i_final.

DATA: BEGIN OF itab_lista OCCURS 0,

      matnr   LIKE mara-matnr,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      usagem  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      usagem  TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      qtd     LIKE /pws/zycit282-qtd_mimp,

      meins   LIKE stpox-meins,

      perc(10)                 .

DATA: END OF itab_lista.

DATA: itab_lista_aux LIKE itab_lista OCCURS 0 WITH HEADER LINE.

DATA: itab_lista_f LIKE itab_lista OCCURS 0 WITH HEADER LINE.

DATA: itab_zycit439 LIKE /pws/zycit439 OCCURS 0 WITH HEADER LINE.

DATA: itab_zycit282_aux TYPE /pws/zycit282 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zyglt100 OCCURS 10.

        INCLUDE STRUCTURE /pws/zyglt100.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR325

...

DATA: BEGIN OF itab_imp_tela OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit282.

DATA: descr LIKE stpox-ojtxp.

DATA: END OF itab_imp_tela.

DATA: BEGIN OF itab_logs OCCURS 0.

DATA:   erro(135) TYPE c.

DATA: END OF itab_logs.

DATA: BEGIN OF itab_lista OCCURS 0.

DATA: matnr   LIKE stpox-idnrk,

      descr   LIKE stpox-ojtxp,

* >> Início da exclusão:

      menge   type p decimals 5,

* << Fim da exclusão

* >> Início da inclusão:

      menge TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      qtd_tot LIKE stpox-mngko,

      aprtot                  .

DATA: END OF itab_lista.

DATA : BEGIN OF itab_vbfa OCCURS 0  .

DATA : vbelv     LIKE   vbfa-vbelv  ,

       vbeln     LIKE   vbfa-vbeln  ,

       posnn     LIKE   vbfa-posnn  ,

       posnv     LIKE   vbfa-posnv  ,

       vbtyp_v   LIKE   vbfa-vbtyp_v,

       vbtyp_n   LIKE   vbfa-vbtyp_n.

...

...

      stlan LIKE stpox-stlan,

      stlnr LIKE stpo-stlnr,

      stlal LIKE stpox-stlal,

      capid LIKE tc04-capid.

DATA: END OF it_materiais.

DATA: BEGIN OF i_final OCCURS 0,

      insumo  LIKE mara-matnr,

      produto LIKE stpox-idnrk,

      centro  LIKE stpox-werks,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtunit TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      meins   LIKE stpox-meins.

DATA: END OF i_final.

DATA: BEGIN OF itab_zycit327 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit327.

DATA: END OF itab_zycit327.

  DATA: BEGIN OF itab_lista_aux OCCURS 0,

        matnr   LIKE mara-matnr,

        ncm     LIKE marc-steuc,

        qtd     like /pws/zycit282-qtd_mimp,

        meins   LIKE stpox-meins,

...

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

Modificações efetuadas em REPS /PWS/ZYCIR343

...

      matnr  LIKE mara-matnr,

      meins  LIKE mara-meins,

      ntgew  LIKE mara-ntgew,

      gewei  LIKE mara-gewei,

      END OF itab_mara_aux.

DATA: BEGIN OF i_final OCCURS 0,

      insumo  LIKE mara-matnr,

      produto LIKE stpox-idnrk,

      centro  LIKE stpox-werks,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtunit TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      meins   LIKE stpox-meins.

DATA: END OF i_final.

DATA:  BEGIN OF itab_zycit244 OCCURS 0,

       werks   LIKE  /pws/zycit244-werks,

       bukrs   LIKE  /pws/zycit244-bukrs,

       nrseqd  LIKE  /pws/zycit244-nrseqd,

       nratoc  LIKE  /pws/zycit244-nratoc,

       modalidade LIKE /pws/zycit244-modalidade,

       END OF itab_zycit244.

DATA: BEGIN OF itab_cabec OCCURS 0,

        codprod  TYPE mara-matnr,

        descprod TYPE makt-maktx,

      END OF itab_cabec.

DATA: BEGIN OF itab_dados OCCURS 0,

        codmate  TYPE mara-matnr,

        codins   TYPE mara-matnr,

        descins  TYPE makt-maktx,

        descinsg TYPE makt-maktx,

        unid     TYPE /pws/zycit433-meins,

* >> Início da exclusão:

        quant    TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

        quant    TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

        dtini    TYPE /pws/zycit433-dtde,

        dtfim    TYPE /pws/zycit433-dtate,

      END OF itab_dados.

DATA: BEGIN OF itab_texto OCCURS 0,

        produ(20) TYPE c,

        desc(25)  TYPE c,

        descg(25) TYPE c,

        unid(5)   TYPE c,

        qtd(5)    TYPE c,

        dtini(10) TYPE c,

...

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

Modificações efetuadas em REPS /PWS/ZYCRSTDLT

...

       nrseqd  LIKE  /pws/zycit247-nrseqd,

       codmat  LIKE  /pws/zycit247-codmat,

       werks   LIKE  /pws/zycit247-werks,

       j_1bnbm LIKE  /pws/zycit247-j_1bnbm,

       END OF itab_zycit247.

DATA: BEGIN OF i_final OCCURS 0,

      insumo  LIKE mara-matnr,

      produto LIKE stpox-idnrk,

      centro  LIKE stpox-werks,

      ncm     LIKE marc-steuc,

* >> Início da exclusão:

      qtunit  TYPE p DECIMALS 5,

* << Fim da exclusão

* >> Início da inclusão:

      qtunit  TYPE /pws/zycit245-qtd_iten,

* << Fim da inclusão

      meins   LIKE stpox-meins.

DATA: END OF i_final.

DATA: BEGIN OF it_materiais OCCURS 0,

      matnr LIKE mara-matnr,

      werks LIKE marc-werks,

      stlan LIKE stpox-stlan,

      stlnr LIKE stpo-stlnr,

      stlal LIKE stpox-stlal,

      capid LIKE tc04-capid.

DATA: END OF it_materiais.

...

...

      v_data(40)          TYPE c,

      v_i01               LIKE /pws/zycit327-usagem,

      v_ltx(20)           TYPE c,

      v_butxt(50)         TYPE c,

      v_ponto             TYPE c VALUE '.',

      v_cod(40)           TYPE c,

      v_somai4            LIKE mara-ntgew,

      v_somar             LIKE mara-ntgew,

      v_somar1(15)        TYPE c,

      p_nrseq             LIKE /pws/zycet001-nrseq,

* >> Início da exclusão:

      v_usagem(15)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

      v_usagem(30)        TYPE c,

* << Fim da inclusão

      v_cont              TYPE i,

      v_sub(4)            TYPE c VALUE '1',

      idmemory            LIKE indx-srtfd VALUE 'SEQD',

      v_prod1             LIKE /pws/zycit327-produto,

      v_prod2             LIKE /pws/zycit327-produto,

      d_30(50)            TYPE c,

      v_crea              LIKE /pws/zycrt004-crea,

      v_index             TYPE i.

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

PARAMETERS: p_nrseqd LIKE /pws/zycie244-nrseqd,

...

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

Modificações efetuadas em TABD /PWS/ZYCIE261

Nome campo  Elem.dados    Tab.verif. N CtDt Comp. Casas dec. Grupo

*Campos alterados :

*DE.

QTD_ITEN    /PWS/ZYCIL473              QUAN    23          5

*Para.

QTD_ITEN    /PWS/ZYCIL813              QUAN    23         12

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

Modificações efetuadas em TABD /PWS/ZYCIT261

Nome campo Chv Elem.dados    Tab.verif. N CtDt Comp. Casas dec. Grupo

*Campos alterados :

*DE.

QTD_ITEN       /PWS/ZYCIL473              QUAN    23          5

*Para.

QTD_ITEN       /PWS/ZYCIL813              QUAN    23         12