Sintoma

O Processo de Admissão temporária o sistema não está reduzindo as aliquotas PIS/COFINS

proporcionalmente conforme inciso I e II

Solução

Reduzir as aliquotas de PIS/COFINS no Processo de Admissão temporária proporcionalmente conforme

inciso I e II

Informações Complementares

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

Nota Número 05518 Data: 26/12/2007 Hora: 09:38:34

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

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

Nota Número              : 05518

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

ADMISSÃO TEMPORÁRIA O SISTEMA NÃO ESTÁ REDUZINDO AS ALIQUOTAS PIS/COFINS

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

Palavras Chave:

EMBARQUE - ADMISSÃO TEMPORÁRIA - PIS/COFINS

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

Objetos da nota:

REPS /PWS/MZYCI001I01

REPS /PWS/MZYCI023F01

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

Modificações efetuadas em REPS /PWS/MZYCI001I01

...

      EXIT.

    ENDIF.

    itab_zycit003-advalii = itab_zycit003-aliqii *

           ( 1 - ( ( 12 * /pws/zycie374-tp_vida_util -

                   /pws/zycie374-tp_perman )

                     / ( 12 * /pws/zycie374-tp_vida_util ) ) ).

    itab_zycit003-advalipi = itab_zycit003-aliqipi *

           ( 1 - ( ( 12 * /pws/zycie374-tp_vida_util -

                   /pws/zycie374-tp_perman )

                     / ( 12 * /pws/zycie374-tp_vida_util ) ) ).

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

    itab_zycit003-advalicms = itab_zycit003-aliqicms *

           ( 1 - ( ( 12 * /pws/zycie374-tp_vida_util -

                   /pws/zycie374-tp_perman )

                     / ( 12 * /pws/zycie374-tp_vida_util ) ) ).

* << Fim da inclusão

  ELSE.

    SELECT SINGLE nrseq FROM /pws/zycit100              "#EC CI_NOFIRST

      INTO itab_zycit003-nrseq

      WHERE nrseq EQ /pws/zycie001-nrseq.

    IF sy-subrc EQ 0.

      EXIT.

    ENDIF.

    CLEAR: itab_zycit003.

  ENDIF.

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

  MODIFY itab_zycit003 TRANSPORTING advalii advalipi

* << Fim da exclusão

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

  MODIFY itab_zycit003 TRANSPORTING advalii advalipi advalicms

* << Fim da inclusão

              WHERE ebeln = /pws/zycie374-ebeln

                AND ebelp = /pws/zycie374-ebelp.

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

      MOVE   it_alist TO it_adir.

      APPEND it_adir.

    ENDLOOP.

    IF sy-dynnr EQ '0050' AND sy-ucomm EQ 'ENTE'.

      CLEAR: sy-ucomm.

      CALL SCREEN '0300'.

    ENDIF.

  ENDIF.

ENDFORM.

FORM fill_itabit.

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

  DATA: BEGIN OF itab_zycit374 OCCURS 0.

          INCLUDE STRUCTURE /pws/zycit374.

  DATA END OF itab_zycit374.

* << Fim da inclusão

  DATA: wa_zycit405 LIKE /pws/zycit405 ,

        wa_zycit406 LIKE /pws/zycit406 ,

        wa_zycit407 LIKE /pws/zycit407 .

  DATA: v_matnr LIKE mara-matnr.

  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_zycit003

             WHERE land1 = itab_zycit003-porigem.

  ENDIF.

  SELECT * FROM /pws/zycit122 INTO TABLE itab_zycit122.

  SELECT * FROM /pws/zycit123 INTO TABLE itab_zycit123.

  IF NOT itab_zycit003[] IS INITIAL.

    SELECT * FROM ekpo INTO TABLE itab_ekpo

             FOR ALL ENTRIES IN itab_zycit003

             WHERE ebeln = itab_zycit003-ebeln

               AND ebelp = itab_zycit003-ebelp.

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

    SELECT * FROM /pws/zycit374

    INTO TABLE itab_zycit374

               FOR ALL ENTRIES IN itab_zycit003

               WHERE nrseq = itab_zycit003-nrseq.

* << Fim da inclusão

  ENDIF.

  SELECT * FROM /pws/zycit229 INTO TABLE itab_zycit229

           WHERE codeven = 'DI'.

  IF itab_zycit086[] IS INITIAL.

    PERFORM fill_instdesp.

  ENDIF.

  /pws/zycie085-mdadicao = 'S'.

  CLEAR: v_tntgew, v_tval, v_tmle, v_waers, v_tsegfat.

  LOOP AT itab_zycit003.

    READ TABLE itab_zycit013 WITH KEY

...

...

            SELECT SINGLE * FROM /pws/zycit407 INTO wa_zycit407

              WHERE pais EQ 'BR'

              AND   tributos EQ 'PIS'.

            IF sy-subrc EQ 0.

              itab_it-basredpis = wa_zycit407-basred   .

              itab_it-advalpis  = wa_zycit407-aliquotas.

            ELSE.

              itab_it-basredpis = itab_it-advalpis.

              CLEAR : itab_it-advalpis,

                      itab_it-vlpis   .

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

            ENDIF.

* << Fim da inclusão

            ENDIF.

          ENDIF.

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

      ENDIF.

      IF itab_zycit001-regime EQ '05' .

        READ TABLE itab_zycit374 WITH KEY

               nrseq = itab_it-nrseq

               ebeln = itab_it-ebeln

               ebelp = itab_it-ebelp.

        IF sy-subrc EQ 0

          AND NOT itab_zycit374-tp_vida_util IS INITIAL.

          itab_it-advalpis = itab_it-advalpis *

            ( 1 - ( ( 12 * itab_zycit374-tp_vida_util -

                    itab_zycit374-tp_perman )

                      / ( 12 * itab_zycit374-tp_vida_util ) ) ).

* << Fim da inclusão

        ENDIF.

      ENDIF.

      IF itab_it-basredcof IS INITIAL.

        SELECT SINGLE *  FROM /pws/zycit406 INTO wa_zycit406

          WHERE pais EQ 'BR'

          AND   matnr EQ v_matnr

          AND   tributos EQ 'COFINS'

          AND   regime EQ itab_zycit001-regime.

        IF sy-subrc EQ 0.

          itab_it-basredcof    = wa_zycit406-basred   .

...

...

            SELECT SINGLE * FROM /pws/zycit407 INTO wa_zycit407

              WHERE pais EQ 'BR'

              AND   tributos EQ 'COFINS'.

            IF sy-subrc EQ 0.

              itab_it-basredcof    = wa_zycit407-basred   .

              itab_it-advalcofins  = wa_zycit407-aliquotas.

            ELSE.

              itab_it-basredcof = itab_it-advalcofins.

              CLEAR : itab_it-advalcofins,

                      itab_it-vlcofins   .

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

            ENDIF.

          ENDIF.

* << Fim da inclusão

            ENDIF.

          ENDIF.

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

      IF itab_zycit001-regime EQ '05' .

        READ TABLE itab_zycit374 WITH KEY

               nrseq = itab_it-nrseq

               ebeln = itab_it-ebeln

               ebelp = itab_it-ebelp.

        IF sy-subrc EQ 0

          AND NOT itab_zycit374-tp_vida_util IS INITIAL.

          itab_it-advalcofins = itab_it-advalcofins *

            ( 1 - ( ( 12 * itab_zycit374-tp_vida_util -

                    itab_zycit374-tp_perman )

                      / ( 12 * itab_zycit374-tp_vida_util ) ) ).

* << Fim da inclusão

        ENDIF.

      ENDIF.

    ENDIF.

    READ TABLE itab_zycit078 WITH KEY

        nrseqli = itab_zycit003-nrseqli.

    IF sy-subrc EQ 0.

      itab_it-codfunleg = itab_zycit078-codfunleg .

      itab_it-codregtri = itab_zycit078-codregtri .

    ENDIF.

    IF sy-tcode = '/PWS/ZYCI023_C'.

...