Sintoma

Valores de PIS e cofins ficam incorretos na NF de adm.temporária

Solução

Retirar consistência que reduz novamente

Informações Complementares

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

Nota Número 12559 Data: 27/09/2012 Hora: 15:14:57

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

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

Nota Número              : 12559

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00002

Agrupamento              : 00130

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

Referência às notas relacionadas:

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

04669  - 00001 - 7.0    - 00003  - DATA DE LANÇAMENTO DO ESTORNO DA NF

04673  - 00002 - 7.0    - 00003  - NA NF NÃO LEVA VALOR DE ICMS, DIFERENÇA NA LINHA DO IPI

05498  - 00003 - 7.0    - 00004  - NÃO CARREGA BOTÃO FUNDAP

12549  - 00004 - 9.0    - 00002  - ESTÁ PROPORCIONALIZANDO IMPOSTOS E BASE DE IMPOSTOS.ESTÁ PROPORCI

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

VALORES DE PIS E COFINS FICAM INCORRETOS NA NF DE ADM.TEMPORÁRIA

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

Palavras Chave:

PIS - COFINS - ADMISSÃO TEMPORÁRIA - NF - ZYCIT062

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

Objetos da nota:

REPS /PWS/MZYCI023F05

REPS /PWS/MZYCI016F02

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI023F03

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

Modificações efetuadas em REPS /PWS/MZYCI023F05

...

    IF not /pws/zycit062-imp_admtemp IS INITIAL.

      d_admtemp: itab_it-vlipi        ,

                 itab_it-ipi_recolher ,

                 itab_it-vlii         ,

                 itab_it-ii_reduzido  ,

                 itab_it-ii_recolher  ,

                 itab_it-pis_calculado,

                 itab_it-pis_reduzido ,

                 itab_it-pis_devido   ,

                 itab_it-pis_recolher ,

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

                 itab_it-vlpis        ,

* << Fim da inclusão

                 itab_it-cof_calculado,

                 itab_it-cof_reduzido ,

                 itab_it-cof_devido   ,

                 itab_it-cof_recolher ,

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

                 itab_it-vlcofins     ,

                 v_vlipirec           ,

                 v_vliirec            ,

                 v_vlpisrec           ,

                 v_vlcofrec           ,

* << Fim da inclusão

                 t_iirec ,

                 a_iicalc,

                 a_iiredu,

                 a_iidevi,

                 t_ipirec,

                 a_ipidevi,

                 t_icms   ,

                 t_pis    ,

                 t_cofins .

      IF /pws/zycit062-icms_proporc EQ 'X' .

...

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

Modificações efetuadas em REPS /PWS/MZYCI016F02

...

  READ TABLE itab_zycit374 WITH KEY

        nrseq = itab_zycit100-nrseq

        ebeln = itab_zycit100-ebeln

        ebelp = itab_zycit100-ebelp.

  IF sy-subrc EQ 0 AND

   NOT itab_zycit374-tp_perman IS INITIAL.

    itab_zycit100m[]    = itab_zycit100[].

    itab_zycit036m[]    = itab_zycit036[].

    itab_zycit036_dim[] = itab_zycit036_di[].

    IF NOT itab_zycit100-vlicms IS INITIAL.

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

      IF /pws/zycit062-imp_admtemp IS INITIAL.

* << Fim da inclusão

      itab_zycit036_di-vlreal = itab_zycit036-vlreal =

      itab_zycit100-vlicms = itab_zycit100-baseicms *

                             ( itab_zycit003-advalicms / 100 ).

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

      ELSE.

        itab_zycit036_di-vlreal = itab_zycit036-vlreal =

        itab_zycit100-vlicms .

      ENDIF.

* << Fim da inclusão

      MODIFY itab_zycit036 TRANSPORTING vlreal

...

...

            AND ebeln  = itab_zycit042-ebeln

            AND ebelp  = itab_zycit042-ebelp

            AND codigo = 'ICMS'.

      MODIFY itab_zycit036_di TRANSPORTING vlreal

          WHERE nrseq  = itab_zycit042-nrseq

            AND ebeln  = itab_zycit042-ebeln

            AND ebelp  = itab_zycit042-ebelp

            AND codigo = 'ICMS'.

    ENDIF.

    IF itab_zycit100-codregtripiscofi NA '356' .

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

      IF /pws/zycit062-imp_admtemp IS INITIAL.

* << Fim da inclusão

      itab_zycit036_di-vlreal = itab_zycit036-vlreal =

      itab_zycit100-vlpis = itab_zycit100-basepis *

                              ( itab_zycit100-advalpis / 100 ).

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

      ELSE.

        itab_zycit036_di-vlreal = itab_zycit036-vlreal =

        itab_zycit100-vlpis.

      ENDIF.

* << Fim da inclusão

      MODIFY itab_zycit036 TRANSPORTING vlreal

          WHERE nrseq  = itab_zycit042-nrseq

            AND ebeln  = itab_zycit042-ebeln

            AND ebelp  = itab_zycit042-ebelp

            AND codigo = 'PIS'.

      MODIFY itab_zycit036_di TRANSPORTING vlreal

          WHERE nrseq  = itab_zycit042-nrseq

            AND ebeln  = itab_zycit042-ebeln

            AND ebelp  = itab_zycit042-ebelp

            AND codigo = 'PIS'.

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

      IF /pws/zycit062-imp_admtemp IS INITIAL.

* << Fim da inclusão

      itab_zycit036_di-vlreal = itab_zycit036-vlreal =

      itab_zycit100-vlcofins = itab_zycit100-basecofins *

                           ( itab_zycit100-advalcofins / 100 ).

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

      ELSE.

        itab_zycit036_di-vlreal = itab_zycit036-vlreal =

        itab_zycit100-vlcofins.

      ENDIF.

* << Fim da inclusão

      MODIFY itab_zycit036 TRANSPORTING vlreal

...

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

           itab_zycit042-vldp + v_impostos.

        WHEN 3.

          IF /pws/zycit001-meioemba = 'PS'.

            it_zycee007-othbas2 = it_zycee007-othbas2 .

            it_zycee007-p_excbas = it_zycee007-p_excbas +

                              itab_zycit042-vldp + v_impostos.

          ENDIF.

      ENDCASE.

    ENDIF.

  ENDIF .

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

  IF /pws/zycie001-regime EQ '05' OR

     /pws/zycie001-regime EQ '12' .

    READ TABLE itab_zycit374 WITH KEY

          nrseq = itab_zycit100-nrseq

          ebeln = itab_zycit100-ebeln

          ebelp = itab_zycit100-ebelp.

    IF sy-subrc EQ 0 AND

     NOT itab_zycit374-tp_perman IS INITIAL.

      itab_zycit100[]    = itab_zycit100m[].

      itab_zycit036[]    = itab_zycit036m[].

      itab_zycit036_di[] = itab_zycit036_dim[].

      it_zycee007-taxval_pis = it_zycee007-taxval_pis

                      * ( itab_zycit374-tp_perman / 100 ).

      it_zycee007-taxval_cof = it_zycee007-taxval_cof

                      * ( itab_zycit374-tp_perman / 100 ).

    ENDIF.

  ENDIF.

* << Fim da exclusão

  CLEAR /pws/zycit036.

  it_zycee007-mfrpn         = itab_zycit003-mfrpn.

  CONCATENATE itab_zycit042-ebeln '/' itab_zycit042-ebelp

         INTO it_zycee007-msg1.

  REFRESH itab_zyglt100.

  PERFORM verifica_exit USING 'D'

                      '/PWS/SAPMZYCI016'

                      ' '.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

      t_icmsbs_d2 = t_icmsbs .

    ENDIF.

    IF NOT /pws/zycie100a-aliqicmsr IS INITIAL.

      /pws/zycie003-advalicms = v_advalicms.

    ENDIF.

  ENDIF.

  IF itab_zycit001-regime EQ '05' OR

     itab_zycit001-regime EQ '12' .

    PERFORM calcula_admtemp .

  ENDIF.

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

  itab_it-vlicms   = t_icms.

* << Fim da exclusão

  IF '356' CA /pws/zycie100a-codregtriicms .

    CLEAR: t_icmsx, t_icms_d2, t_icms.

  ENDIF.

  s_wiireco = s_wiireco + t_iirec.

  s_wiicalc = s_wiicalc + a_iicalc.

  s_wiiredu = s_wiiredu + a_iiredu.

  s_wiidevi = s_wiidevi + a_iidevi.

  s_wipireco = s_wipireco + t_ipirec.

  s_wipidevi = s_wipidevi + a_ipidevi.

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

...

...

    IF NOT itab_it-icms_dif EQ 'X'.

      s_wicreco = s_wicreco + t_icms  .

    ENDIF.

  ELSEIF p_tipo = 'A'.

    a_icdevi  = a_icdevi  + t_icms.

    a_icreco  = a_icreco + a_icdevi.

  ENDIF.

  itab_it-baseicms = t_icmsbs.

  itab_it-vlpis    = v_vlpisrec  .

  itab_it-vlcofins = v_vlcofrec.

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

  itab_it-vlicms   = t_icms.

* << Fim da inclusão

  t_pisbs = itab_it-basepis.

  t_cofinsbs = itab_it-basecofins.

  v_vlpisrec   = t_pis   .

  v_vlcofrec   = t_cofins.

  READ TABLE itab_it WITH KEY

               ebeln     = itab_it-ebeln

               ebelp     = itab_it-ebelp

                TRANSPORTING adicao.

  itab_memoria-ebeln     = itab_it-ebeln   .

  itab_memoria-ebelp     = itab_it-ebelp   .

...