Sintoma

Ajustes em vários pontos da DI.

Solução

Ajustes efetuados conforme solicitados.

Atualizado a DI com relação a regime tributário, fundamento legal, valor a recolher, acrescimo e

Variação Cambial.

Incluido os ajuste dos chamados 314572 e 313595.

Informações Complementares

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

Nota Número 01602 Data: 16/06/2006 Hora: 17:21:51

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

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

Nota Número              : 01602

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00117

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

Referência às notas relacionadas:

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

00431  - 00001 - 6.0    - 00021  - ESTÁ OCORRENDO DEDUÇÃO DO FRETE RODOVIÁRIO (LANÇADO NO B/L), NO C

01520  - 00002 - 6.0    - 00023  - INCLUSÃO DA NOVA TELA PIS/COFINS NA DI

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

AJUSTES HOMOLOGAÇÃO DI - CÁLCULOS, DESPESAS, REGIMES

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

Palavras Chave:

CÁLCULOS, DESPESAS, REGIME - DI

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023F04

REPS /PWS/MZYCI023I01

REPS /PWS/MZYCI023O01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

                         ( itab_it-vlseg / /pws/zycie085-ukursseg ).

            ENDIF.

          ENDIF.

        ENDIF.

      ELSE.

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

       if not v_tval3 is initial.

* << Fim da inclusão

        itab_it-vlfob = ( ( itab_it-qtd_iten * itab_it-vlreal )

                      / v_tval3 ) * v_tval.

      ENDIF.

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

      ENDIF.

* << Fim da inclusão

      v_aux_rateio = v_aux_rateio + itab_it-vlfob.

    ENDIF.

    MOVE itab_it TO wa_it.

    MOVE-CORRESPONDING: itab_it TO /pws/zycie100a,

                        itab_it TO /pws/zycie003.

...

...

           itab_zycit118b, itab_zycit121b, itab_zycit121c,

           itab_zycit124b, itab_zycit049b, itab_zycit049c,

           itab_zycit195,  itab_zycit200b,

           a_vlrtot,       a_qtdeest,      a_uqtde,

           a_vmler,        a_adbase,       rtextx,

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

           a_vladu  .

* << Fim da exclusão

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

           a_vladu  ,

           v_ttad_plan, v_itad_plan.

* << Fim da inclusão

  REFRESH: itab_itb,       itab_zycit114b, itab_zycit115b,

           itab_zycit118b, itab_zycit121b, itab_zycit121c,

           itab_zycit124b, itab_zycit049b, itab_zycit049c,

           itab_zycit195,  itab_zycit200b,

           rtextx.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

    v_advicms = ( /pws/zycie003-advalicms / 100 ).

  ENDIF.

ELSE.

  v_advicms = ( /pws/zycie003-advalicms / 100 ).

ENDIF.

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

v_advpis  = ( itab_it-advalpis / 100 ).

v_advcof  = ( itab_it-advalcofins / 100 ).

* << Fim da exclusão

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

  v_advpis  = ( /pws/zycie100a-advalpis / 100 ).

  v_advcof  = ( /pws/zycie100a-advalcofins / 100 ).

* << Fim da inclusão

IF /pws/zycit000-pis_cof EQ 'X'.

  IF NOT itab_zycit438[] IS INITIAL.

    IF NOT /pws/zycie085-dtreg IS INITIAL.

      READ TABLE itab_zycit438 WITH KEY lei = 'MP252'.

      IF sy-subrc EQ 0.

...

...

  ENDIF.

ENDIF.

v_divisor =  ( 1 - v_advicms - v_advpis - v_advcof ).

IF /pws/zycie003-nrseqd IS INITIAL AND

   v_nratoc IS INITIAL.

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

  IF itab_it-codregtri EQ '5'.

* << Fim da exclusão

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

    IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da inclusão

    CLEAR:  t_pis, t_cofins.

  ELSE.

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

   case itab_it-codregtripiscofi.

* << Fim da exclusão

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

      CASE /pws/zycie100a-codregtripiscofi.

* << Fim da inclusão

   when '4'.

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

     if itab_it-basredpis is initial.

       t_pis = ( itab_it-basepis * ( itab_it-advalpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          IF /pws/zycie100a-basredpis IS INITIAL.

        t_pis = ( itab_it-basepis * ( /pws/zycie100a-advalpis / 100 ) ).

* << Fim da inclusão

     else.

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

       t_pis = ( itab_it-basepis * ( itab_it-basredpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

       t_pis = ( itab_it-basepis * ( /pws/zycie100a-basredpis / 100 ) ).

* << Fim da inclusão

     endif.

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

     if itab_it-basredcof is initial.

       t_cofins = ( itab_it-basecofins * ( itab_it-advalcofins / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          IF /pws/zycie100a-basredcof IS INITIAL.

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-advalcofins / 100 ) ).

* << Fim da inclusão

       else.

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

       t_cofins = ( itab_it-basecofins * ( itab_it-basredcof / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-basredcof / 100 ) ).

* << Fim da inclusão

     endif.

   when '1' or '3' or '5'.

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

     if itab_it-aliqpis is initial.

       t_pis = ( itab_it-basepis * ( itab_it-advalpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          IF /pws/zycie100a-aliqpis IS INITIAL.

            t_pis = ( /pws/zycie100a-basepis *

                 ( /pws/zycie100a-advalpis / 100 ) ).

* << Fim da inclusão

     else.

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

       t_pis = ( itab_it-basepis * ( itab_it-aliqpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

            t_pis = ( /pws/zycie100a-basepis *

              ( /pws/zycie100a-aliqpis / 100 ) ).

* << Fim da inclusão

     endif.

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

     if itab_it-aliqcof is initial.

       t_cofins = ( itab_it-basecofins * ( itab_it-advalcofins / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          IF /pws/zycie100a-aliqcof IS INITIAL.

            t_cofins = ( /pws/zycie100a-basecofins *

           ( /pws/zycie100a-advalcofins / 100 ) ).

* << Fim da inclusão

      else.

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

       t_cofins = ( itab_it-basecofins * ( itab_it-aliqcof / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-aliqcof / 100 ) ).

* << Fim da inclusão

     endif.

    when others.

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

       t_pis = ( itab_it-basecofins * ( itab_it-advalpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

       t_cofins = ( itab_it-basecofins * ( itab_it-advalcofins / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          t_pis = ( /pws/zycie100a-basecofins *

                  ( /pws/zycie100a-advalpis / 100 ) ).

          t_cofins = ( /pws/zycie100a-basecofins *

                 ( /pws/zycie100a-advalcofins / 100 ) ).

* << Fim da inclusão

    endcase.

  ENDIF.

ELSE.

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

  IF itab_it-codregtri EQ '5'.

* << Fim da exclusão

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

    IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da inclusão

    CLEAR:  t_pis, t_cofins.

  ELSE.

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

   case itab_it-codregtripiscofi.

* << Fim da exclusão

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

      CASE /pws/zycie100a-codregtripiscofi.

* << Fim da inclusão

   when '4'.

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

     if itab_it-basredpis is initial.

       t_pis = ( itab_it-basepis * ( itab_it-advalpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          IF /pws/zycie100a-basredpis IS INITIAL.

            t_pis = ( /pws/zycie100a-basepis *

             ( /pws/zycie100a-advalpis / 100 ) ).

* << Fim da inclusão

     else.

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

       t_pis = ( itab_it-basepis * ( itab_it-basredpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

            t_pis = ( /pws/zycie100a-basepis *

                    ( /pws/zycie100a-basredpis / 100 ) ).

* << Fim da inclusão

     endif.

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

     if itab_it-basredcof is initial.

       t_cofins = ( itab_it-basecofins * ( itab_it-advalcofins / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          IF /pws/zycie100a-basredcof IS INITIAL.

            t_cofins = ( /pws/zycie100a-basecofins *

                    ( /pws/zycie100a-advalcofins / 100 ) ).

* << Fim da inclusão

       else.

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

       t_cofins = ( itab_it-basecofins * ( itab_it-basredcof / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-basredcof / 100 ) ).

* << Fim da inclusão

     endif.

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

        WHEN '1' OR '3' OR '5'.

* << Fim da inclusão

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

   when '1' or '3' or '5'.

     if itab_it-aliqpis is initial.

       t_pis = ( itab_it-basepis * ( itab_it-advalpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          IF /pws/zycie100a-aliqpis IS INITIAL.

            t_pis = ( /pws/zycie100a-basepis *

                    ( /pws/zycie100a-advalpis / 100 ) ).

* << Fim da inclusão

     else.

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

       t_pis = ( itab_it-basepis * ( itab_it-aliqpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

            t_pis = ( /pws/zycie100a-basepis *

                    ( /pws/zycie100a-aliqpis / 100 ) ).

* << Fim da inclusão

     endif.

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

     if itab_it-aliqcof is initial.

       t_cofins = ( itab_it-basecofins * ( itab_it-advalcofins / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          IF /pws/zycie100a-aliqcof IS INITIAL.

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-advalcofins / 100 ) ).

* << Fim da inclusão

      else.

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

       t_cofins = ( itab_it-basecofins * ( itab_it-aliqcof / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-aliqcof / 100 ) ).

* << Fim da inclusão

     endif.

    when others.

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

       t_pis = ( itab_it-basecofins * ( itab_it-advalpis / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

       t_cofins = ( itab_it-basecofins * ( itab_it-advalcofins / 100 ) )

                     *  ( itab_it-percreduzpc / 100 ) .

* << Fim da exclusão

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

          t_pis = ( /pws/zycie100a-basecofins *

                  ( /pws/zycie100a-advalpis / 100 ) ).

          t_cofins = ( /pws/zycie100a-basecofins *

                     ( /pws/zycie100a-advalcofins / 100 ) ).

* << Fim da inclusão

    endcase.

  ENDIF.

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

    /pws/zycie100a-codfunlegpiscofi  = '16'.

* << Fim da inclusão

ENDIF.

IF '5' CA /pws/zycie100a-codregtri.

  v_vliirec = a_iidevi.

ELSE.

  v_vliirec = t_iirec.

...

...

  IF itab_it-nrseqd IS INITIAL AND

    v_nratoc IS INITIAL.

    t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.

    t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                               ( t_icmsbs / t_icmsx ) .

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

    IF itab_it-codregtri EQ '5'.

* << Fim da exclusão

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

      IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da inclusão

      CLEAR: t_icmsx, t_icms_d2, t_icms, t_pis, t_cofins.

    ENDIF.

  ELSE.

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

    IF itab_it-codregtri EQ '5'.

* << Fim da exclusão

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

      IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da inclusão

      CLEAR: t_icmsx, t_icms_d2, t_icms, t_pis, t_cofins.

    ELSE.

      t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.

      t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                                 ( t_icmsbs / t_icmsx ) .

...

...

ELSE.

  IF itab_it-nrseqd IS INITIAL

     AND  v_nratoc IS INITIAL.

    t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                                 t_icmsbs.

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

    IF itab_it-codregtri EQ '5'.

* << Fim da exclusão

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

      IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da inclusão

      CLEAR: t_icmsx, t_icms_d2, t_icms, t_pis, t_cofins.

    ENDIF.

  ELSE.

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

    IF itab_it-codregtri EQ '5'.

* << Fim da exclusão

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

      IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da inclusão

      CLEAR t_icms.

    ELSE.

      t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                              t_icmsbs.

    ENDIF.

  ENDIF.

ENDIF.

IF NOT /pws/zycie003-nrseqd IS INITIAL OR

   NOT v_nratoc IS INITIAL.

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

  IF itab_it-codregtri EQ '3'.

* << Fim da exclusão

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

    IF /pws/zycie100a-codregtri EQ '3'.

* << Fim da inclusão

    CLEAR:  t_pis, t_cofins .

  ENDIF.

ENDIF.

IF p_tipo = 'I' OR p_tipo = 'T'     .

  s_wicdevi = s_wicdevi + t_icms    .

  s_wicreco = s_wicdevi             .

  s_wpisreco = s_wpisreco + t_pis   .

  s_wcofreco = s_wcofreco + t_cofins.

  IF NOT /pws/zycie003-nrseqd IS INITIAL OR

     NOT v_nratoc IS INITIAL.

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

    IF itab_it-codregtri EQ '5'.

* << Fim da exclusão

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

      IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da inclusão

      CLEAR: t_icms, t_pis, t_cofins .

      screen-input = '0'.

    ELSE.

      s_wicreco = s_wicdevi.

    ENDIF.

...

...

      PERFORM get_parameters_f_51_variacao USING '001VS'.

      READ TABLE itab_zycbt012 WITH KEY

                        codaux = itab_matuse_aux2-j_1bmatuse.

      vl_variacao = itab_di-vlseg - itab_bsis_aux-dmbtr.

      IF itab_zycbe033-tcode = 'F-51'.

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

        PERFORM move_lanctos USING itab_di-vlfre.

* << Fim da exclusão

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

        PERFORM move_lanctos USING itab_di-vlseg.

* << Fim da inclusão

      ELSEIF itab_zycbe033-tcode = 'F-05'.

        PERFORM move_lanctos_f05.

      ENDIF.

    ENDIF.

  ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

  data: v_pisred like t_icms,

        v_cofred like t_icms,

        v_calcpc like itab_it-basepis.

   clear: itab_it-basecofins ,

          itab_it-basepis    .

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

   IF itab_it-codregtri eq '4'.

* << Fim da exclusão

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

   IF /pws/zycie100a-codregtri eq '4'.

* << Fim da inclusão

      v_advii =  /pws/zycie100a-reduzida / 100 .

      if  /pws/zycie100a-reduzida is initial.

          v_advii = /pws/zycie003-ADVALII / 100 .

      endif.

   endif.

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

   IF itab_it-codregtriipi eq '2'.

* << Fim da exclusão

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

   IF /pws/zycie100a-codregtriipi eq '2'.

* << Fim da inclusão

      v_advipi =  /pws/zycie100a-reduzidaipi / 100.

      if /pws/zycie100a-reduzidaipi is initial.

        v_advipi =  /pws/zycie003-advalipi / 100.

      endif.

   endif.

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

   case itab_it-codregtripiscofi.

* << Fim da exclusão

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

   case /pws/zycie100a-codregtripiscofi.

* << Fim da inclusão

   when '4'.

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

            if itab_it-basredpis is initial.

                v_pisred  = ( itab_it-advalpis / 100 ).

* << Fim da exclusão

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

            if /pws/zycie100a-basredpis is initial.

                v_pisred  = ( /pws/zycie100a-advalpis / 100 ).

* << Fim da inclusão

              else.

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

                v_pisred  = ( itab_it-basredpis / 100 ).

* << Fim da exclusão

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

                v_pisred  = ( /pws/zycie100a-basredpis / 100 ).

* << Fim da inclusão

            endif.

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

            if itab_it-basredcof is initial.

                v_cofred  = ( itab_it-advalcofins / 100 ).

* << Fim da exclusão

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

            if /pws/zycie100a-basredcof is initial.

                v_cofred  = ( /pws/zycie100a-advalcofins / 100 ).

* << Fim da inclusão

              else.

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

                v_cofred  = ( itab_it-basredcof / 100 ).

* << Fim da exclusão

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

                v_cofred  = ( /pws/zycie100a-basredcof / 100 ).

* << Fim da inclusão

            endif.

    when '1' or '3' or '5'.

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

            if itab_it-aliqpis is initial.

                v_pisred  = ( itab_it-advalpis / 100 ).

* << Fim da exclusão

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

            if /pws/zycie100a-aliqpis is initial.

                v_pisred  = ( /pws/zycie100a-advalpis / 100 ).

* << Fim da inclusão

              else.

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

                v_pisred  = ( itab_it-aliqpis / 100 ).

* << Fim da exclusão

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

                v_pisred  = ( /pws/zycie100a-aliqpis / 100 ).

* << Fim da inclusão

            endif.

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

            if itab_it-aliqcof is initial.

                v_cofred  = ( itab_it-advalcofins / 100 ).

* << Fim da exclusão

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

            if /pws/zycie100a-aliqcof is initial.

                v_cofred  = ( /pws/zycie100a-advalcofins / 100 ).

* << Fim da inclusão

              else.

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

                v_cofred  = ( itab_it-aliqcof / 100 ).

* << Fim da exclusão

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

                v_cofred  = ( /pws/zycie100a-aliqcof / 100 ).

* << Fim da inclusão

            endif.

    endcase.

   if ( not v_pisred is initial ) or ( not v_cofred is initial ) .

          v_advpis = v_pisred.

          v_advcof = v_cofred.

   endif.

    v_calcpc = ( t_ivadu * ( (  1 + v_advicms *  ( v_advii + v_advipi *

               ( 1 + v_advii ) ) ) / ( ( 1 - v_advpis - v_advcof ) *

               ( 1 - v_advicms ) ) ) ).

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

    IF NOT itab_it-percreduzpc IS INITIAL.

* << Fim da exclusão

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

    IF NOT /pws/zycie100a-percreduzpc IS INITIAL.

* << Fim da inclusão

      v_calcpc =  v_calcpc - ( v_calcpc *

            ( ( 100 - /pws/zycie100a-percreduzpc ) / 100 ) ).

    endif.

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

    itab_it-basecofins = itab_it-basepis =

    /pws/zycie100a-basecofins  = /pws/zycie100a-basepis = v_calcpc.

* << Fim da inclusão

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

    itab_it-basecofins  = itab_it-basepis = v_calcpc.

* << Fim da exclusão

ENDFORM.

FORM vigencia_mp.

  IF NOT /pws/zycie085-dtreg IS INITIAL .

    IF NOT itab_zycit438-vigencia_ate IS INITIAL.

      IF itab_zycit438-vigencia     <= /pws/zycie085-dtreg AND

...

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

                ENDLOOP.

              ENDIF.

            ENDLOOP.

            LEAVE TO SCREEN 0.

          ENDIF.

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

        when 'BACK'.

           LEAVE TO SCREEN 0.

* << Fim da inclusão

      ENDCASE.

    WHEN '0440'.

      CASE sy-ucomm.

        WHEN 'CHECK'.

          s_ometv      = s_oregt = s_oregp     = s_ofund    =

...

...

      LEAVE TO SCREEN 0.

  ENDCASE.

  CLEAR: sy-ucomm.

ENDMODULE.

MODULE modi_data049 INPUT.

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

  IF /pws/zycie049-waers  NE wa_zycbt007-waersb.

     PERFORM retorna_decimais USING /pws/zycie049-waers

                                  /pws/zycie049-vldp.

  endif.

* << Fim da inclusão

  itab_zycit049-tpdesp = /pws/zycie049-tpdesp.

  itab_zycit049-descr  = /pws/zycie049-descr.

  itab_zycit049-vldp   = /pws/zycie049-vldp.

  itab_zycit049-waers  = /pws/zycie049-waers.

  IF NOT itab_zycit049-vldp   IS INITIAL.

    IF itab_zycit049-waers  NE wa_zycbt007-waersb.

      PERFORM taxa_converte USING    /pws/zycie049-waers

 /pws/zycie085-dttax

                            CHANGING s_tax.

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

      if itab_zycit049-vlreal is initial.

* << Fim da inclusão

      itab_zycit049-vlreal = itab_zycit049-vldp * s_tax.

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

       endif.

* << Fim da inclusão

    ELSE.

...

...

               v_valor = '/PWS/ZYCIE085-BELNR_1' OR

               v_valor = '/PWS/ZYCIE085-BELNR_2' OR

               v_valor = '/PWS/ZYCIE085-BELNR_3' ) AND

               NOT v_conteudo IS INITIAL.

            SET PARAMETER ID 'BLN' FIELD v_conteudo.

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

            SET PARAMETER ID 'BUK' FIELD /PWS/ZYCIE085-BUKRS.

* << Fim da inclusão

            AUTHORITY-CHECK OBJECT 'S_TCODE'

              ID 'TCD'  FIELD 'FB03'.

            IF sy-subrc = 0.

              CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

            ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

...

  DATA: v_ntgew_adic      LIKE /pws/zycie006-ntgew ,

        v_wa_it122-vldp   LIKE wa_it122-vldp  ,

        v_wa_it122-vlreal LIKE wa_it122-vlreal.

  CLEAR: itab_zycit049b-vldp  , itab_zycit049b-vlreal,

         v_wa_it122-vldp      , v_wa_it122-vlreal    ,

* >> Início da exclusão: MODULE FILL_STRUCT049B

         V_ITAD_PLAN , V_TTAD_PLAN .

* << Fim da exclusão

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

         V_TTAD_PLAN .

* << Fim da inclusão

LOOP AT ITAB_IT.

   IF ITAB_IT-QTD_ITEND IS INITIAL.

       V_TTAD_PLAN = V_TTAD_PLAN + ITAB_IT-NETPR * ITAB_IT-QTD_ITEN.

   ELSE.

       V_TTAD_PLAN = V_TTAD_PLAN + ITAB_IT-NETPR * ITAB_IT-QTD_ITEND.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

   DATA: v_xa   LIKE t_icms,

         v_xb   LIKE t_icms,

         v_xc   LIKE t_icms,

         v_fatx TYPE p DECIMALS 8,

         v_faty TYPE p DECIMALS 8,

         v_tot_real LIKE /pws/zycie003-vlreal,

         v_fatpc LIKE t_icms,

         v_nova,

* >> Início da inclusão:

         V_ITAD_PLAN LIKE /PWS/ZYCIT003-NETPR,

         V_TTAD_PLAN LIKE /PWS/ZYCIT003-NETPR       .

* << Fim da inclusão

 * Work Áreas

 data:  wa_it000      LIKE /pws/zycit000,

        wa_zycit078   like /pws/zycit078.

 data: end of common part.