Sintoma

Está proporcionalizando impostos e base de impostos.

Solução

Ajustado cálculo de imposto de admissão temporária de acordo com /PWS/ZYCIT062-IMP_ADMTEMP

Informações Complementares

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

Nota Número 12549 Data: 24/09/2012 Hora: 11:23:35

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

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

Nota Número              : 12549

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

02325  - 00001 - 6.0    - 00025  - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO

08356  - 00002 - 7.0    - 00009  - ADMISSÃO TEMPORÁRIA ARTIGO 373

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

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

08691  - 00005 - 7.0    - 00010  - BUSCAR EXERCÍCIO PRESTAÇÃO DE CONTAS

09613  - 00007 - 8.0    - 00002  - PROGRAMA NÃO TRATA CORRETAMENTE ADMISSÃO TEMPORÁRIA.

10034  - 00008 - 8.0    - 00003  - DESEMBARAÇO DI NÃO ESTA RESPEITANDO O PARÂMETRO TEMPO DE PERMANEN

10212  - 00009 - 8.0    - 00003  - O VALOR DOS IMPOSTOS ESTÁ ERRADO PARA PROCESSOS DE ADMISSÃO TEMPO

11727  - 00010 - 8.0    - 00009  - NÃO CALCULAR IMPOSTO DE ICMS PROPORCIONAL NA ADMISSÃO TEMPORARIA

11915  - 00011 - 8.0    - 00010  - TRATAMENTO DE ADMISSÃO TEMPORÁRIA POR REGIÃO

11992  - 00012 - 8.0    - 00010  - ALTERAÇÕES EM CÁLCULOS DE ADMISSÃO TEMPORÁRIA

12335  - 00013 - 9.0    - 00001  - TRATAMENTO PARA BASE CHEIA DE ADMISSÃO TEMPORÁRIA

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

ESTÁ PROPORCIONALIZANDO IMPOSTOS E BASE DE IMPOSTOS.ESTÁ PROPORCIONALIZA

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

Palavras Chave:

ZYCIT062 - DI - ADMISSÃO TEMPORÁRIA - ICMS - BASE DE IMPOSTOS

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

Objetos da nota:

DTEL /PWS/ZYCIL895

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023F04

REPS /PWS/MZYCI023F05

TABD /PWS/ZYCIT062

TOBJ /PWS/ZYCIT062S

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

Modificações efetuadas em DTEL /PWS/ZYCIL895

*Criar elemento de dados

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

Elemento de dados incluído: /PWS/ZYCIL895

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (40 caracteres), idioma: PT

"CI - Imposto Proporcional Adm Temporária"

Categoria de dados: Domínio

Domínio: XFELD

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (10 caracteres), idioma: PT

"Imp.AdmTem"

Comprimento máximo do denominador médio: 15

Denominador médio incluído (13 caracteres), idioma: PT

"Imp.Adm.Temp."

Comprimento máximo do denominador longo: 20

Denominador longo incluído (13 caracteres), idioma: PT

"Imp.Adm.Temp."

Comprimento máximo do título: 35

Título incluído (35 caracteres), idioma: PT

"Imposto Proporcional Adm Temporária"

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

Modificações efetuadas em TABD /PWS/ZYCIT062

*Ao final da tabelas /PWS/ZYCIT062 criar o campo abaixo e Gerar a visão de atualização da tabela

*novamente (transação SE54)

Nome de campo    Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

...

*>>Inicio Inclusão

IMP_ADMTEMP          /PWS/ZYCIL895              CHAR     1

*>>Fim Inclusão

USERNAMEC            SYUNAME                    CHAR    12

DTUSERC              SYDATUM                    DATS     8

HRUSERC              SYSTTIMLO                  TIMS     6

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

      ENDIF.

  ENDCASE.

  itab_it-vlii   = t_iirec.

  IF ( /pws/zycie100a-codregtri CA '35' ) OR

  ( itab_zycit001-regime EQ '05' AND

     /pws/zycie100a-codregtri = '3' OR

     /pws/zycie100a-codregtri = '5' OR

     /pws/zycie100a-codregtri = '6' ).

    CLEAR: t_iirec.

  ENDIF.

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

  IF /pws/zycit062-bs_admtemp IS INITIAL.

* << Fim da exclusão

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

  IF  /pws/zycit062-imp_admtemp IS INITIAL.

* << Fim da inclusão

    READ TABLE itab_zycit374 WITH KEY

           nrseq = itab_it-nrseq

           ebeln = itab_it-ebeln

           ebelp = itab_it-ebelp.

    IF sy-subrc EQ 0 AND

       ( itab_zycit001-regime EQ '05' OR

       itab_zycit001-regime EQ '12' ) AND

       NOT itab_zycit374-tp_perman IS INITIAL.

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

      IF /pws/zycit062-bs_admtemp IS INITIAL.

* << Fim da inclusão

      IF itab_it-codregtri EQ '1' .

        d_admtemp: a_iidevi,

                   a_iicalc,

                   t_iirec .

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

        ENDIF.

* << Fim da inclusão

      ENDIF.

    ENDIF.

  ENDIF.

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

  s_wiireco = s_wiireco + t_iirec.

  s_wiicalc = s_wiicalc + a_iicalc.

  s_wiiredu = s_wiiredu + a_iiredu.

  s_wiidevi = s_wiidevi + a_iidevi.

* << Fim da exclusão

  itab_it-baseii       = t_iibas.

  itab_it-ii_calculado = a_iicalc.

  itab_it-ii_reduzido  = a_iiredu.

  itab_it-ii_devido    = a_iidevi.

  itab_it-ii_recolher  = t_iirec .

ENDFORM.

...

...

  IF v_dit = 'N'.

    IF

       '26'  NA /pws/zycie100a-codregtri.

      t_ipirec = a_ipidevi.

      IF p_tipo = 'A'.

        IF ' 15' NA /pws/zycie100a-codregtriipi .

        ELSE.

          CLEAR t_ipirec.

        ENDIF.

      ELSE.

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

        IF /pws/zycit062-bs_admtemp IS INITIAL.

* << Fim da exclusão

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

        IF  /pws/zycit062-imp_admtemp IS INITIAL.

* << Fim da inclusão

          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_perman IS INITIAL.

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

            IF /pws/zycit062-bs_admtemp IS INITIAL.

* << Fim da inclusão

            IF itab_it-codregtriipi EQ '3' .

              d_admtemp: a_ipidevi,

                         t_ipirec .

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

              ENDIF.

* << Fim da inclusão

            ENDIF.

          ENDIF.

        ENDIF.

        IF ' 15' NA /pws/zycie100a-codregtriipi .

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

          s_wipireco = s_wipireco + t_ipirec.

* << Fim da exclusão

        ELSE.

          CLEAR t_ipirec.

        ENDIF.

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

        s_wipidevi = s_wipidevi + a_ipidevi.

* << Fim da exclusão

      ENDIF.

    ENDIF.

  ELSE.

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

       /pws/zycie085-ntimp NE '09'       AND

       /pws/zycie085-ntimp NE '11'.

      t_ipirec = a_ipidevi.

    ENDIF.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

    ENDIF.

  ENDIF.

  IF itab_zycit001-regime EQ '05' OR

     itab_zycit001-regime EQ '12' .

    PERFORM calcula_admtemp .

  ENDIF.

  itab_it-vlicms   = t_icms.

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

    CLEAR: t_icmsx, t_icms_d2, t_icms.

  ENDIF.

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

  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.

* << Fim da inclusão

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

    s_wicdevi = s_wicdevi + t_icms    .

    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.

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

        CLEAR: t_icms.

        screen-input = '0'.

      ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

      ENDIF.

      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 /pws/zycit062-bs_admtemp IS INITIAL.

* << Fim da exclusão

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

      IF  /pws/zycit062-imp_admtemp IS INITIAL.

* << Fim da inclusão

        IF /pws/zycie100a-codregtripiscofi EQ '1' AND

          ( itab_zycit001-regime EQ '05' OR

             itab_zycit001-regime EQ '12' ).

          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_perman IS INITIAL.

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

            IF /pws/zycit062-bs_admtemp IS INITIAL.

* << Fim da inclusão

            d_admtemp:  a_piscalc,

                        a_pisredu,

                        a_pisdevi,

                        a_cofcalc,

                        a_cofredu,

                        a_cofdevi,

                        t_pis,

                        t_cofins.

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

            ENDIF.

* << Fim da inclusão

          ENDIF.

        ENDIF.

      ENDIF.

  ENDCASE.

  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.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F05

...

form calcula_admtemp.

  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_perman is initial.

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

    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 ,

                 itab_it-cof_calculado,

                 itab_it-cof_reduzido ,

                 itab_it-cof_devido   ,

                 itab_it-cof_recolher ,

                 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' .

        d_admtemp :  t_icmsbs_d2,

                     t_icmsbs   ,

                     t_icms     .

      ENDIF .

      EXIT.

    ENDIF.

* << Fim da inclusão

    if /pws/zycit062-bs_admtemp is initial.

      d_admtemp: itab_it-vlipi        ,

                 itab_it-vlii         .

    else.

      d_admtemp: itab_it-vlipi        ,

                 itab_it-ipi_recolher ,

                 itab_it-vlii         ,

                 itab_it-ii_reduzido  ,

                 itab_it-ii_recolher  ,

                 itab_it-pis_calculado,

...