Sintoma

Na DSI relativa a um processo de Admissão Temporaria (Regime 09 ) verificou-se que na Adição, Pasta

Cálculo, deveria aparecer os valores calculados e devidos. E somente o recolhido que deveria estar

zerado. Mas todos os campos estão zerados. Esta situação ocorre quando no Embarque na Pasta

"Admissão Temporária" na Subpasta "Saldo T.R." o campo "Permanencia" esta igual 0, não foi informado

nenhum valor.

Solução

Verificar corretamente o Regime Tributário para exibir os valores nos campos Devido

Informações Complementares

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

Nota Número 08650 Data: 08/07/2009 Hora: 08:05:30

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

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

Nota Número              : 08650

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00104

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DSI NÃO ESTA APRESENTANDO OS VALORES DEVIDOS APRESENTA TUDO ZERADO

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

Palavras Chave:

DSI- DEVIDO - ADMISSÃO - TEMPORARIA - NÃO - APRESENTA

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

Objetos da nota:

REPS /PWS/MZYCI058F01

REPS /PWS/MZYCI058F03

REPS /PWS/MZYCI058F04

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

...

  v_tmle_d2 = v_tmle_d2 + t_ivmle2  .

ENDFORM.

FORM load_iii USING p_tipo.

  CLEAR:  t_iirec, a_iiredu, a_iiacor, a_iidevi, a_iicalc.

  IF /pws/zycie093-meiotransp = 'PS' AND /pws/zycie085-tpdi EQ 'S'.

    /pws/zycie003-advalii = '60'.

    CLEAR: /pws/zycie003-advalipi.

  ENDIF.

  t_iibas = t_ivadu.

  a_iicalc  = ( ( /pws/zycie003-advalii  / 100 ) * t_iibas ).

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

  IF itab_zycit001-regime EQ '09'.

* << Fim da exclusão

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

  IF itab_zycit001-regime EQ '09' AND

  NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

    READ TABLE itab_zycit374 WITH KEY

           nrseq = itab_it-nrseq

           ebeln = itab_it-ebeln

           ebelp = itab_it-ebelp.

    v_iiadm = a_iicalc  = ( a_iicalc * ( 1 / 100 ) ) *

    itab_zycit374-tp_perman.

  ENDIF.

  CASE /pws/zycie100a-codregtri.

    WHEN '1' OR '3' OR '4' OR '5' OR '7' OR '8'.

      IF NOT a_iiredu IS INITIAL.

...

...

    CLEAR: t_iirec.

  ENDIF.

ENDFORM.

FORM load_iipi USING p_tipo.

  IF '56' CA itab_it-codregtri .

    t_ipibas  = ( t_ivadu + itab_it-ii_calculado ).

  ELSE.

    t_ipibas  = ( t_ivadu + t_iirec ).

  ENDIF.

  a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ).

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

  IF itab_zycit001-regime EQ '05' OR

     itab_zycit001-regime EQ '12'.

* << Fim da exclusão

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

  IF ( itab_zycit001-regime EQ '05' OR

     itab_zycit001-regime EQ '12' ) AND

     NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

    v_ipiadm = a_ipidevi = ( a_ipidevi * ( 1 / 100 ) ) *

           itab_zycit374-tp_perman .

  ENDIF.

  itab_it-vlipi   = a_ipidevi.

  CLEAR t_ipirec.

  IF  '3256'  NA /pws/zycie100a-codregtri.

    t_ipirec = a_ipidevi.

    s_wipidevi = s_wipidevi + a_ipidevi.

  ELSEIF ' 35' NA /pws/zycie100a-codregtri AND

        /pws/zycie085-ntimp NE '09'       AND

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

  IF NOT /pws/zycit062-flag_icms IS INITIAL AND

     /pws/zycie100a-icms_dif NE 'X'.

    IF /pws/zycit062-base IS INITIAL AND

       NOT /pws/zycie003-basred EQ '100' .

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

    ELSE.

      t_icmsx = (  1 - v_advicms )  .

    ENDIF.

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

                             ( t_icmsbs / t_icmsx ).

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

    IF /pws/zycie001-regime EQ '09' .

* << Fim da exclusão

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

    IF /pws/zycie001-regime EQ '09' AND

         NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

      t_icms_d2 = t_icms =  ( t_icms * ( 1 / 100 ) ) *

           itab_zycit374-tp_perman .

    ENDIF.

    itab_it-vlicms   = t_icms.

    IF '6' NA /pws/zycie100a-codregtriicms .

      IF NOT /pws/zycie003-basred IS INITIAL AND

         NOT /pws/zycie003-basred EQ '100'.

        t_icmsbs = ( t_icmsbs / t_icmsx ).

      ELSE.

        t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.

...

...

          t_icmsbs_d2 = t_icmsbs =

          t_icmsbs - t_icms.

        ENDIF.

      ENDIF.

    ENDIF.

  ELSEIF NOT /pws/zycit062-flag_icms IS INITIAL.

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

      t_icmsx =  1 -  ( /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 /pws/zycie001-regime EQ '09' .

* << Fim da exclusão

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

      IF /pws/zycie001-regime EQ '09' AND

           NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

        t_icms_d2 = t_icms =  ( t_icms * ( 1 / 100 ) ) *

             itab_zycit374-tp_perman .

      ENDIF.

      t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.

    ELSE.

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

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

      IF /pws/zycie001-regime EQ '09' .

* << Fim da exclusão

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

      IF /pws/zycie001-regime EQ '09' AND

           NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

        t_icms_d2 = t_icms =  ( t_icms * ( 1 / 100 ) ) *

             itab_zycit374-tp_perman .

      ENDIF.

    ENDIF.

    IF /pws/zycit062-susp_nf EQ 'S' AND

       NOT /pws/zycit062-flag_icms IS INITIAL.

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - t_icms.

      ENDIF.

    ENDIF.

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

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - t_icms.

    ENDIF.

  ELSE.

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

                         ( t_icmsbs ) .

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

    IF /pws/zycie001-regime EQ '09' .

* << Fim da exclusão

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

    IF /pws/zycie001-regime EQ '09' and

         not itab_zycit374-tp_perman is initial.

* << Fim da inclusão

      t_icms_d2 = t_icms =  ( t_icms * ( 1 / 100 ) ) *

           itab_zycit374-tp_perman .

    ENDIF.

    t_icmsbs_d2 = t_icmsbs .

  ENDIF.

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

    CLEAR: t_icmsx, t_icms_d2, t_icms, t_icms_d2, t_vlicms.

  ENDIF.

  itab_it-vlicms   = t_icms.

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

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F04

...

      ENDIF.

      IF /pws/zycie100a-aliqcof IS INITIAL.

        t_cof_dev = t_cof_calc =

           ( ( /pws/zycie100a-advalcofins  / 100 )

                    * /pws/zycie100a-basecofins ) .

      ELSE.

        t_cof_dev = t_cof_calc =

        ( ( /pws/zycie100a-aliqcof  / 100 )

                    * /pws/zycie100a-basecofins ) .

      ENDIF.

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

      IF /pws/zycie001-regime EQ '09'.

* << Fim da exclusão

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

      IF /pws/zycie001-regime EQ '09' AND

      NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

        t_pis_dev = t_pis_calc = ( t_pis_calc * ( 1 / 100 ) ) *

          itab_zycit374-tp_perman.

        t_cof_dev = t_cof_calc = ( t_cof_calc * ( 1 / 100 ) ) *

          itab_zycit374-tp_perman.

      ENDIF.

      CLEAR : t_pis,  t_cofins .

    WHEN '4'.

      IF /pws/zycie100a-basredpis IS INITIAL.

        IF /pws/zycie100a-aliqpis IS INITIAL.

          t_pis_calc = ( ( /pws/zycie100a-advalpis  / 100 )

...

...

                    * /pws/zycie100a-basecofins ) .

        ELSE.

          t_cof_calc = ( ( /pws/zycie100a-aliqcof / 100 )

                    * /pws/zycie100a-basecofins ) .

        ENDIF.

      ELSE.

        t_cofins = t_cof_dev = t_cof_calc =

            ( ( /pws/zycie100a-basredcof  / 100 )

                      * /pws/zycie100a-basecofins ) .

      ENDIF.

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

      IF /pws/zycie001-regime EQ '09'.

* << Fim da exclusão

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

      IF /pws/zycie001-regime EQ '09' AND

      NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

        t_pis = t_pis_dev = ( t_pis_dev * ( 1 / 100 ) ) *

         itab_zycit374-tp_perman.

        t_cofins =  t_cof_dev = ( t_cof_dev * ( 1 / 100  ) ) *

           itab_zycit374-tp_perman.

        t_cof_calc = ( t_cof_calc * ( 1 / 100 ) ) *

         itab_zycit374-tp_perman.

        t_pis_calc = ( t_pis_calc * ( 1 / 100 ) ) *

         itab_zycit374-tp_perman.

      ENDIF.

    WHEN OTHERS.

...

...

      ENDIF.

      IF /pws/zycie100a-aliqcof IS INITIAL.

        t_cofins = t_cof_dev = t_cof_calc =

           ( ( /pws/zycie100a-advalcofins  / 100 )

                    * /pws/zycie100a-basecofins ) .

      ELSE.

        t_cofins =  t_cof_dev = t_cof_calc =

        ( ( /pws/zycie100a-aliqcof  / 100 )

                    * /pws/zycie100a-basecofins ) .

      ENDIF.

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

      IF /pws/zycie001-regime EQ '09'.

* << Fim da exclusão

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

      IF /pws/zycie001-regime EQ '09' AND

           NOT itab_zycit374-tp_perman IS INITIAL.

* << Fim da inclusão

        t_pis = t_pis_dev = t_pis_calc =

        ( t_pis_calc * ( 1 / 100 ) ) *

         itab_zycit374-tp_perman.

        t_cofins =  t_cof_dev = t_cof_calc =

        ( t_cof_calc * ( 1 / 100 ) ) *

           itab_zycit374-tp_perman.

      ENDIF.

  ENDCASE.

  itab_it-pis_calc  = t_pis_calc.

  itab_it-pis_dev   = t_pis_dev .

...