Sintoma

OS IMPOSTOS NA DI QUANDO SUSPENSOS, VOLTAM PARA REGIME INTEGRAL, PARA O ITEM ALTERADO.

O BOTÃO DE REPLIQUE NAO REPLICA AS SUSPENSÕES.

O PIS E COFINS ESTÁ CALCULANDO VLS A PAGAR QDO ESCOLHIDO SUSPENSÃO, ISENÇÃO E NAO INCIDENTE E NAO

CALCULA QUANDO ESCOLHEMOS RECOLHIMENTO INTEGRAL

Solução

Corrigir programa para tratar admissão temporária

Informações Complementares

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

Nota Número 09613 Data: 22/12/2009 Hora: 16:59:17

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

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

Nota Número              : 09613

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

08569  - 00001 - 7.0    - 00010  - AO CRIAR DI REGIME 12, NÃO DEVERÁ FECHAR CAMPOS COM SUSPENSÃO.

08624  - 00002 - 7.0    - 00010  - ERRO EM CALCULO DE ADMISSÃO TEMPORÁRIO REGIME 12.

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

PROGRAMA NÃO TRATA CORRETAMENTE ADMISSÃO TEMPORÁRIA.

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

Palavras Chave:

DI - ADMISSÃO TEMPORÁRIA - IMPOSTOS.

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

Objetos da nota:

REPS /PWS/MZYCI023F04

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

      IF

         /pws/zycie100a-basredcof GT '100'.

        t_cofins = a_cofredu = a_cofdevi =

        ( /pws/zycie100a-advalcofins / 100 ) *

      /pws/zycie100a-basecofins.

      ELSE.

        t_cofins = a_cofredu = a_cofdevi =

        ( /pws/zycie100a-basredcof / 100 ) *

       /pws/zycie100a-basecofins.

      ENDIF.

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

      IF itab_zycit001-regime EQ '05' OR

       itab_zycit001-regime EQ '12'.

* << Fim da exclusão

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

      IF ( itab_zycit001-regime EQ '05' OR

       itab_zycit001-regime EQ '12' ) AND

       NOT itab_zycit374-tp_perman IS INITIAL.

        t_pis = a_pisdevi = a_pisredu =

         ( a_pisdevi * ( 1 / 100 ) ) * itab_zycit374-tp_perman.

* << Fim da inclusão

        v_cofadm = a_cofredu = a_cofdevi =

         ( a_cofdevi * ( 1 / 100 ) ) * itab_zycit374-tp_perman.

      ENDIF.

      v_advpis = /pws/zycie100a-advalpis / 100 .

      v_advcof = /pws/zycie100a-advalcofins / 100 .

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

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

                                                ( 1 - v_advicms ) ) ) ).

      a_piscalc =   v_advpis *  v_calcpc .

      a_cofcalc  =  v_advcof * v_calcpc.

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

      IF itab_zycit001-regime EQ '05'.

        CLEAR: t_pis, t_cofins.

      ELSEIF itab_zycit001-regime EQ '12'.

        t_pis = a_pisdevi  .

        t_cofins = a_cofdevi .

      ENDIF.

* << Fim da inclusão

    WHEN '2' .

      CLEAR: a_piscalc, a_pisredu, a_pisdevi, a_pisrec,

             a_cofcalc, a_cofredu, a_cofdevi, a_cofrec,

             t_pis, t_cofins .

    WHEN OTHERS.

      a_piscalc =  ( /pws/zycie100a-advalpis  / 100 ) *

                     /pws/zycie100a-basepis  .

      a_cofcalc =  ( /pws/zycie100a-advalcofins  / 100 )

                    * /pws/zycie100a-basecofins .

      IF /pws/zycie100a-aliqpis IS INITIAL.

        t_pis =  a_pisdevi =

          ( ( /pws/zycie100a-advalpis  / 100 )

                    * /pws/zycie100a-basepis ) .

      ELSE.

        t_pis =   a_pisdevi =

         ( ( /pws/zycie100a-aliqpis  / 100 )

                    * /pws/zycie100a-basepis ) .

      ENDIF.

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

      IF itab_zycit001-regime EQ '05' OR

         itab_zycit001-regime EQ '12'.

        v_pisadm = a_pisdevi =

         ( a_pisdevi * ( 1 / 100 ) ) * itab_zycit374-tp_perman.

      ENDIF.

* << Fim da exclusão

      IF /pws/zycie100a-aliqcof IS INITIAL.

        t_cofins =  a_cofdevi =

           ( ( /pws/zycie100a-advalcofins  / 100 )

                    * /pws/zycie100a-basecofins ) .

      ELSE.

        t_cofins =  a_cofdevi =

        ( ( /pws/zycie100a-aliqcof  / 100 )

                    * /pws/zycie100a-basecofins ) .

      ENDIF.

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

      IF itab_zycit001-regime EQ '05' OR

         itab_zycit001-regime EQ '12'.

* << Fim da exclusão

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

      IF ( itab_zycit001-regime EQ '05' OR

       itab_zycit001-regime EQ '12' ) AND

       NOT itab_zycit374-tp_perman IS INITIAL.

        v_pisadm = a_pisdevi =

         ( a_pisdevi * ( 1 / 100 ) ) * itab_zycit374-tp_perman.

* << Fim da inclusão

        a_cofdevi =

        ( a_cofdevi * ( 1 / 100 ) ) * itab_zycit374-tp_perman.

      ENDIF.

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

  ENDCASE.

* << Fim da exclusão

  IF itab_zycit001-regime EQ '05'.

    CLEAR: t_pis, t_cofins.

  ELSEIF itab_zycit001-regime EQ '12'.

    t_pis = a_pisdevi  .

    t_cofins = a_cofdevi .

  ENDIF.

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

  ENDCASE.

* << Fim da inclusão

  itab_it-pis_calculado = a_piscalc.

  itab_it-pis_reduzido  = a_pisredu.

  itab_it-pis_devido    = a_pisdevi.

  itab_it-pis_recolher  = t_pis.

  itab_it-cof_calculado = a_cofcalc.

  itab_it-cof_reduzido  = a_cofredu.

  itab_it-cof_devido    = a_cofdevi.

  itab_it-cof_recolher  = t_cofins.

ENDFORM.

...