Sintoma

Programa não aceita alterar regime tributário dos impostos na DI.

Valor do ICMS da carga 3 da DI estava sendo alterado ao clicar em atualizar.

Solução

alterar programa para atualizar regime tributário da DI.

Informações Complementares

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

Nota Número 02472 Data: 17/11/2006 Hora: 15:15:28

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

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

Nota Número              : 02472

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00140

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

Referência às notas relacionadas:

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

02325  - 00001 - 6.0    - 00025  - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO

02413  - 00002 - 6.0    - 00025  - VALORES DE IMPOSTOS AO CARREGAR DI ESTÃO ZERADOS. APÓS REFRESH FI

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

PROGRAMA NÃO ACEITA ALTERAR REGIME TRIBUTÁRIO DOS IMPOSTOS NA DI.

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

Palavras Chave:

REGIME TRIBUTÁRIO - DI - ICMS - II - IPI - PIS E COFINS

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0431

REPS /PWS/MZYCI023I01

REPS /PWS/MZYCI023F01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0431

*Diferenças na lista de elementos

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

*DE:

   /PWS/ZYCIE100A-CODREGTRI

      I/O        2       52      23      25       1     CHAR                   Off

      AC

      Botão EntrsPoss.temp, Drop-down, Caixa listagem

*PARA:

   /PWS/ZYCIE100A-CODREGTRI

      I/O        2       52       1      25       1     CHAR   X               Off

      AC

      Chave externa, Botão EntrsPoss.temp, Drop-down, Caixa listagem

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

  /pws/zycie085-vlfobr = s_fbvr.

ENDFORM.

FORM adic_list.

  CLEAR:   it_adi[], /pws/zycie100a, itab_itb.

  REFRESH: it_adi[].

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

  DATA: BEGIN OF itab_inco OCCURS 0.

  DATA: ebeln LIKE ekko-ebeln,

        inco1 LIKE ekko-inco1.

  DATA END OF itab_inco.

  IF NOT itab_it[] IS INITIAL.

    SELECT ebeln inco1 FROM ekko INTO TABLE itab_inco

    FOR ALL ENTRIES IN itab_it

    WHERE ebeln EQ itab_it-ebeln.

  ENDIF.

* << Fim da exclusão

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

  CLEAR:   itab_it_aux[].

  REFRESH: itab_it_aux[].

* << Fim da inclusão

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

  LOOP AT itab_it.

    READ TABLE itab_inco WITH KEY ebeln = itab_it-ebeln.

    IF sy-subrc EQ 0.

      itab_it-inco_item = itab_inco-inco1.

    ENDIF.

    MODIFY itab_it.

  ENDLOOP.

* << Fim da exclusão

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

 MOVE ITAB_IT[] TO ITAB_IT_AUX[].

* << Fim da inclusão

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

  PERFORM data_sort.

* << Fim da exclusão

  IF itab_zycit001-flag_adicao EQ 'X'.

    v_adic = 0.

  ELSE.

    v_adic = 1.

  ENDIF.

  CLEAR: v_tabix, v_cont.

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

  LOOP AT itab_it.

* << Fim da exclusão

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

  LOOP AT itab_it_aux.

* << Fim da inclusão

    IF sy-tabix = 1.

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

      MOVE-CORRESPONDING itab_it TO itab_itb.

* << Fim da exclusão

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

      MOVE-CORRESPONDING itab_it_aux TO itab_itb.

* << Fim da inclusão

    ENDIF.

    v_tabix = v_tabix + 1.

    CLEAR v_flag_quebra.

    v_cont = v_cont + 1.

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

    IF itab_it-j_1bnbm       NE itab_itb-j_1bnbm       OR

       itab_it-fabric        NE itab_itb-fabric        OR

       itab_it-lifnrfabr     NE itab_itb-lifnrfabr     OR

       itab_it-lifnr         NE itab_itb-lifnr         OR

       itab_it-advalii       NE itab_itb-advalii       OR

       itab_it-advalipi      NE itab_itb-advalipi      OR

       itab_it-naladi        NE itab_itb-naladi        OR

       itab_it-naladincca    NE itab_itb-naladincca    OR

       itab_it-codregtri     NE itab_itb-codregtri     OR

       itab_it-codregtriipi  NE itab_itb-codregtriipi  OR

       itab_it-zterm         NE itab_itb-zterm         OR

       itab_it-meinsest      NE itab_itb-meinsest      OR

       itab_it-pproc         NE itab_itb-pproc         OR

       itab_it-nrseqli       NE itab_itb-nrseqli       OR

       itab_it-aplicacao     NE itab_itb-aplicacao     OR

       itab_it-condmerc      NE itab_itb-condmerc      OR

       itab_it-inco1         NE itab_itb-inco1         OR

       itab_it-codmat        NE itab_itb-codmat        OR

       itab_it-cacl          NE itab_itb-cacl          OR

       itab_it-codfunleg     NE itab_itb-codfunleg     OR

       itab_it-acordo        NE itab_itb-acordo        OR

       itab_it-acordorate    NE itab_itb-acordorate    OR

       itab_it-reduzida      NE itab_itb-reduzida      OR

       itab_it-percreduz     NE itab_itb-percreduz     OR

       itab_it-notatipi      NE itab_itb-notatipi      OR

       itab_it-percreduzpc       NE itab_itb-percreduzpc       OR

       itab_it-codredpiscofi     NE itab_itb-codredpiscofi     OR

       itab_it-codregtripiscofi  NE itab_itb-codregtripiscofi  OR

       itab_it-codfunlegpiscofi  NE itab_itb-codfunlegpiscofi  OR

       itab_it-reduzidaipi   NE itab_itb-reduzidaipi   OR

       itab_it-unit_valor    NE itab_itb-unit_valor    OR

       itab_it-unit_meins    NE itab_itb-unit_meins    OR

       itab_it-unit_reccapac NE itab_itb-unit_reccapac OR

       itab_it-unit_rectipo  NE itab_itb-unit_rectipo  OR

       itab_it-waersbem      NE itab_itb-waersbem      OR

       itab_it-dttaxbem      NE itab_itb-dttaxbem      OR

       itab_it-extarif_al    NE itab_itb-extarif_al    OR

       itab_it-tipo_al       NE itab_itb-tipo_al       OR

       itab_it-orgemiss_al   NE itab_itb-orgemiss_al   OR

       itab_it-numero_al     NE itab_itb-numero_al     OR

       itab_it-anoemiss_al   NE itab_itb-anoemiss_al   OR

       itab_it-ii_extarif    NE itab_itb-ii_extarif    OR

       itab_it-ii_tipo       NE itab_itb-ii_tipo       OR

       itab_it-ii_orgemiss   NE itab_itb-ii_orgemiss   OR

       itab_it-ii_numero     NE itab_itb-ii_numero     OR

       itab_it-ii_anoemiss   NE itab_itb-ii_anoemiss   OR

       itab_it-ipi_extarif   NE itab_itb-ipi_extarif   OR

       itab_it-ipi_tipo      NE itab_itb-ipi_tipo      OR

       itab_it-ipi_orgemiss  NE itab_itb-ipi_orgemiss  OR

       itab_it-ipi_numero    NE itab_itb-ipi_numero    OR

       itab_it-ipi_anoemiss  NE itab_itb-ipi_anoemiss  OR

       itab_it-ad_extarif    NE itab_itb-ad_extarif    OR

       itab_it-ad_tipo       NE itab_itb-ad_tipo       OR

       itab_it-ad_orgemiss   NE itab_itb-ad_orgemiss   OR

       itab_it-ad_numero     NE itab_itb-ad_numero     OR

       itab_it-ad_anoemiss   NE itab_itb-ad_anoemiss   OR

       itab_it-aladi         NE itab_itb-aladi         OR

       itab_it-tribipi       NE itab_itb-tribipi       OR

       itab_it-advalicms     NE itab_itb-advalicms     OR

       itab_it-vlantid       NE itab_itb-vlantid       OR

       itab_it-meinsantid    NE itab_itb-meinsantid    OR

       itab_it-qtdeantid     NE itab_itb-qtdeantid     OR

       itab_it-codcambial    NE itab_itb-codcambial    OR

* << Fim da exclusão

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

    IF itab_it_aux-j_1bnbm       NE itab_itb-j_1bnbm       OR

       itab_it_aux-fabric        NE itab_itb-fabric        OR

       itab_it_aux-lifnrfabr     NE itab_itb-lifnrfabr     OR

       itab_it_aux-lifnr         NE itab_itb-lifnr         OR

       itab_it_aux-advalii       NE itab_itb-advalii       OR

       itab_it_aux-advalipi      NE itab_itb-advalipi      OR

       itab_it_aux-naladi        NE itab_itb-naladi        OR

       itab_it_aux-naladincca    NE itab_itb-naladincca    OR

       itab_it_aux-codregtri     NE itab_itb-codregtri     OR

       itab_it_aux-codregtriipi  NE itab_itb-codregtriipi  OR

       itab_it_aux-zterm         NE itab_itb-zterm         OR

       itab_it_aux-meinsest      NE itab_itb-meinsest      OR

       itab_it_aux-pproc         NE itab_itb-pproc         OR

       itab_it_aux-nrseqli       NE itab_itb-nrseqli       OR

       itab_it_aux-aplicacao     NE itab_itb-aplicacao     OR

       itab_it_aux-condmerc      NE itab_itb-condmerc      OR

       itab_it_aux-inco1         NE itab_itb-inco1         OR

       itab_it_aux-codmat        NE itab_itb-codmat        OR

       itab_it_aux-cacl          NE itab_itb-cacl          OR

       itab_it_aux-codfunleg     NE itab_itb-codfunleg     OR

       itab_it_aux-acordo        NE itab_itb-acordo        OR

       itab_it_aux-acordorate    NE itab_itb-acordorate    OR

       itab_it_aux-reduzida      NE itab_itb-reduzida      OR

       itab_it_aux-percreduz     NE itab_itb-percreduz     OR

       itab_it_aux-notatipi      NE itab_itb-notatipi      OR

       itab_it_aux-percreduzpc       NE itab_itb-percreduzpc       OR

       itab_it_aux-codredpiscofi     NE itab_itb-codredpiscofi     OR

       itab_it_aux-codregtripiscofi  NE itab_itb-codregtripiscofi  OR

       itab_it_aux-codfunlegpiscofi  NE itab_itb-codfunlegpiscofi  OR

       itab_it_aux-reduzidaipi   NE itab_itb-reduzidaipi   OR

       itab_it_aux-unit_valor    NE itab_itb-unit_valor    OR

       itab_it_aux-unit_meins    NE itab_itb-unit_meins    OR

       itab_it_aux-unit_reccapac NE itab_itb-unit_reccapac OR

       itab_it_aux-unit_rectipo  NE itab_itb-unit_rectipo  OR

       itab_it_aux-waersbem      NE itab_itb-waersbem      OR

       itab_it_aux-dttaxbem      NE itab_itb-dttaxbem      OR

       itab_it_aux-extarif_al    NE itab_itb-extarif_al    OR

       itab_it_aux-tipo_al       NE itab_itb-tipo_al       OR

       itab_it_aux-orgemiss_al   NE itab_itb-orgemiss_al   OR

       itab_it_aux-numero_al     NE itab_itb-numero_al     OR

       itab_it_aux-anoemiss_al   NE itab_itb-anoemiss_al   OR

       itab_it_aux-ii_extarif    NE itab_itb-ii_extarif    OR

       itab_it_aux-ii_tipo       NE itab_itb-ii_tipo       OR

       itab_it_aux-ii_orgemiss   NE itab_itb-ii_orgemiss   OR

       itab_it_aux-ii_numero     NE itab_itb-ii_numero     OR

       itab_it_aux-ii_anoemiss   NE itab_itb-ii_anoemiss   OR

       itab_it_aux-ipi_extarif   NE itab_itb-ipi_extarif   OR

       itab_it_aux-ipi_tipo      NE itab_itb-ipi_tipo      OR

       itab_it_aux-ipi_orgemiss  NE itab_itb-ipi_orgemiss  OR

       itab_it_aux-ipi_numero    NE itab_itb-ipi_numero    OR

       itab_it_aux-ipi_anoemiss  NE itab_itb-ipi_anoemiss  OR

       itab_it_aux-ad_extarif    NE itab_itb-ad_extarif    OR

       itab_it_aux-ad_tipo       NE itab_itb-ad_tipo       OR

       itab_it_aux-ad_orgemiss   NE itab_itb-ad_orgemiss   OR

       itab_it_aux-ad_numero     NE itab_itb-ad_numero     OR

       itab_it_aux-ad_anoemiss   NE itab_itb-ad_anoemiss   OR

       itab_it_aux-aladi         NE itab_itb-aladi         OR

       itab_it_aux-tribipi       NE itab_itb-tribipi       OR

       itab_it_aux-advalicms     NE itab_itb-advalicms     OR

       itab_it_aux-vlantid       NE itab_itb-vlantid       OR

       itab_it_aux-meinsantid    NE itab_itb-meinsantid    OR

       itab_it_aux-qtdeantid     NE itab_itb-qtdeantid     OR

       itab_it_aux-codcambial    NE itab_itb-codcambial    OR

* << Fim da inclusão

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

       itab_it-inco_item     NE itab_itb-inco_item   OR

       itab_it-paisfab       NE itab_itb-paisfab.

* << Fim da exclusão

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

       itab_it_aux-inco_item     NE itab_itb-inco_item   OR

       itab_it_aux-paisfab       NE itab_itb-paisfab.

* << Fim da inclusão

      PERFORM adic_next.

    ELSE.

      IF itab_zycit001-flag_adicao EQ 'X'.

        PERFORM adic_next.

      ENDIF.

    ENDIF.

    IF v_flag_quebra IS INITIAL AND v_cont > 80.

      PERFORM adic_next.

    ENDIF.

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

    itab_it-adicao = itab_it_aux-adicao = v_adic.

    MODIFY itab_it TRANSPORTING adicao

           where ebeln eq itab_it_aux-ebeln

           and   ebelp eq itab_it_aux-ebelp.

* << Fim da inclusão

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

    itab_it-adicao = v_adic.

    MODIFY itab_it INDEX sy-tabix TRANSPORTING adicao.

* << Fim da exclusão

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

    MODIFY itab_it_aux INDEX sy-tabix TRANSPORTING adicao.

* << Fim da inclusão

    it_adi-adicao = v_adic.

    it_adi-nrseqdi       = /pws/zycie085-nrseqdi.

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

    it_adi-nrseq         = itab_it-nrseq    .

    it_adi-ebeln         = itab_it-ebeln    .

    it_adi-ebelp         = itab_it-ebelp    .

    it_adi-nrseqli       = itab_it-nrseqli  .

    it_adi-j_1bnbm       = itab_it-j_1bnbm  .

    it_adi-valor         = itab_it-vlreal   .

    it_adi-nrseqd        = itab_it-nrseqd   .

* << Fim da exclusão

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

    it_adi-nrseq         = itab_it_aux-nrseq    .

    it_adi-ebeln         = itab_it_aux-ebeln    .

    it_adi-ebelp         = itab_it_aux-ebelp    .

    it_adi-nrseqli       = itab_it_aux-nrseqli  .

    it_adi-j_1bnbm       = itab_it_aux-j_1bnbm  .

    it_adi-valor         = itab_it_aux-vlreal   .

    it_adi-nrseqd        = itab_it_aux-nrseqd   .

* << Fim da inclusão

    CONCATENATE /pws/zycie085-identify '-' it_adi-adicao

                INTO it_adi-identify.

    APPEND it_adi.

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

    READ TABLE itab_zycit100_temp WITH KEY nrseq = itab_it-nrseq

                                           ebeln = itab_it-ebeln

                                           ebelp = itab_it-ebelp.

* << Fim da exclusão

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

    READ TABLE itab_zycit100_temp WITH KEY nrseq = itab_it_aux-nrseq

                                           ebeln = itab_it_aux-ebeln

                                           ebelp = itab_it_aux-ebelp.

* << Fim da inclusão

    IF sy-subrc = 0.

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

      MOVE itab_it-adicao TO itab_zycit100_temp-adicao.

* << Fim da exclusão

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

      MOVE itab_it_aux-adicao TO itab_zycit100_temp-adicao.

* << Fim da inclusão

      MODIFY itab_zycit100_temp INDEX v_tabix TRANSPORTING adicao.

    ENDIF.

  ENDLOOP.

  MOVE: it_adi[]   TO it_alist[],

        it_adi[]   TO it_adia[].

...

...

  ENDIF.

  DESCRIBE TABLE itab_zycit116 LINES v_ipa.

  PERFORM fill_taxasiscomex USING v_ipa.

ENDFORM.

FORM adic_next.

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

  MOVE itab_it TO itab_itb.

* << Fim da exclusão

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

  MOVE itab_it_aux TO itab_itb.

* << Fim da inclusão

  v_adic = v_adic + 1.

  v_flag_quebra = 'X'.

  v_cont = 1.

ENDFORM.

FORM save_adic.

...

...

FORM fill_itabit.

  DATA: wa_zycit405 LIKE /pws/zycit405 ,

        wa_zycit406 LIKE /pws/zycit406 ,

        wa_zycit407 LIKE /pws/zycit407 .

  DATA: v_matnr LIKE mara-matnr.

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

  DATA: BEGIN OF itab_inco OCCURS 0.

  DATA: ebeln LIKE ekko-ebeln,

        inco1 LIKE ekko-inco1.

  DATA END OF itab_inco.

  IF NOT itab_it[] IS INITIAL.

    SELECT ebeln inco1 FROM ekko INTO TABLE itab_inco

    FOR ALL ENTRIES IN itab_it

    WHERE ebeln EQ itab_it-ebeln.

  ENDIF.

* << Fim da inclusão

  CLEAR  : wa_zycit405, wa_zycit406, wa_zycit407, v_matnr.

  IF NOT itab_zycit003[] IS INITIAL.

    SELECT * FROM /pws/zycit013 INTO TABLE itab_zycit013

             FOR ALL ENTRIES IN itab_zycit003

             WHERE ebeln = itab_zycit003-ebeln AND

...

...

  CLEAR itab_zycit100_temp.

  REFRESH itab_zycit100_temp.

  LOOP AT itab_it.

    MOVE-CORRESPONDING itab_it TO itab_zycit100_temp.

    APPEND itab_zycit100_temp.

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

    READ TABLE itab_inco WITH KEY ebeln = itab_it-ebeln.

    IF sy-subrc EQ 0.

      itab_it-inco_item = itab_inco-inco1.

    ENDIF.

    MODIFY itab_it.

* << Fim da inclusão

  ENDLOOP.

  IF itab_zycit001-regime EQ '16'.

    /pws/zycie085-ukursfre = '1'.

  ENDIF.

ENDFORM.

...

...

    PERFORM fill_taxasiscomex USING v_ipa.

    SORT itab_it BY nrseq ebeln ebelp.

    PERFORM calc_itab.

    IF NOT itab_it[] IS INITIAL.

      PERFORM adic_list.

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

      perform data_sort.

* << Fim da inclusão

      CLEAR v_pos.

      LOOP AT it_alist.

        v_pos = v_pos + 1.

        PERFORM: adic_change,

                 adic_load,

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F02

...

               load_blitens,

               load_reg,

               calc_itab.

      PERFORM concatena_empresa.

      PERFORM atualiza_peso_desemb.

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

      IF v_dit = 'N'.

* << Fim da exclusão

        PERFORM: adic_list,

                 adic_li_data.

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

      ENDIF.

* << Fim da exclusão

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

      PERFORM data_sort.

* << Fim da inclusão

    ELSE.

      MESSAGE i015 WITH text-017 text-018.

    ENDIF.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

                                           ebeln = itab_it-ebeln

                                           ebelp = itab_it-ebelp.

    IF sy-subrc = 0.

      PERFORM adic_list.

    ENDIF.

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

    READ TABLE itab_it WITH KEY nrseq = itab_zycit100_temp-nrseq

                                ebeln = itab_zycit100_temp-ebeln

                                ebelp = itab_zycit100_temp-ebelp.

* << Fim da exclusão

  ENDIF.

  IF NOT /pws/zycit000-flag_txsisc IS INITIAL.

    LOOP AT itab_zycit100_temp WHERE adicao = wa_it-adicao.

      v_nr_itens = v_nr_itens + 1.

    ENDLOOP.

...

...

  ENDIF.

ENDFORM.

FORM comm_adic.

  IF NOT itab_it[] IS INITIAL.

    PERFORM adic_list.

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

    PERFORM data_sort.

* << Fim da inclusão

    DO.

      CALL SCREEN '0170' STARTING AT 5 2.

      IF sy-ucomm = 'ENTE'.

        PERFORM adic_load.

      ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

ENDMODULE.

MODULE load_ppro INPUT.

  PERFORM load_pais USING /pws/zycie100a-pproc CHANGING t_ppais s_pais.

ENDMODULE.

MODULE calc_vii INPUT.

* >> Início da inclusão: MODULE CALC_VII

 itab_it-codregtri  = /PWS/ZYCIE100A-CODREGTRI .

* << Fim da inclusão

  PERFORM calcula_impostos USING 'T'.

  wa_it-baseii   = itab_it-baseii.

  wa_it-vlii     = itab_it-vlii.

  wa_it-baseipi  = itab_it-baseipi.

  wa_it-vlipi    = itab_it-vlipi.

...

...

      ENDIF.

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE calc_vipi INPUT.

* >> Início da inclusão: MODULE CALC_VIPI

 ITAB_IT-CODREGTRIIPI = /PWS/ZYCIE100A-CODREGTRIIPI.

* << Fim da inclusão

  PERFORM calcula_impostos USING 'T'.

  wa_it-baseipi  = itab_it-baseipi.

  wa_it-vlipi    = itab_it-vlipi.

  wa_it-baseicms = itab_it-baseicms.

  wa_it-vlicms   = itab_it-vlicms.

...

...

  itab_it-codredpiscofi    = /pws/zycie100a-codredpiscofi   .

  itab_it-percreduzpc      = /pws/zycie100a-percreduzpc     .

  itab_it-nrseqd = /pws/zycie003-nrseqd.

  itab_it-modalidade = /pws/zycie003-modalidade .

  itab_it-icms_dif   = /pws/zycie100a-icms_dif.

* >> Início da inclusão: MODULE CALC_VICMS

  itab_it-codregtriicms   = /pws/zycie100a-codregtriicms .

* << Fim da inclusão

  PERFORM set_codregtri.

  PERFORM: load_regt USING    /pws/zycie100a-codregtriicms

 /pws/zycie085-ntimp '4'    CHANGING t_regde3.

  PERFORM load_fun_icms.

  IF /pws/zycie003-advalicms >= '100'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

      noinitial,

      mark.

DATA: END   OF itab_zycit003.

DATA: itab_zycit100_temp LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE,

      itab_itb       LIKE itab_it       OCCURS 0 WITH HEADER LINE.

* >> Início da inclusão:

data: itab_it_AUX    LIKE itab_it       OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

DATA: BEGIN OF  itab_adicao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie116.

DATA: nr_itens TYPE i,

      flag_vltot,

     END OF itab_adicao.

...