Sintoma

Tratamento para Base Cheia de Admissão Temporária

Solução

Criado parametro na zycit062 para indicar se os valores do impostos na base do icms são integrais ou

proporcionais.

Informações Complementares

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

Nota Número 12335 Data: 29/06/2012 Hora: 14:38:04

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

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

Nota Número              : 12335

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00001

Agrupamento              : 00118

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

Referência às notas relacionadas:

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

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

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

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

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

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

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

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

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

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

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

TRATAMENTO PARA BASE CHEIA DE ADMISSÃO TEMPORÁRIA

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

Palavras Chave:

BASE CHEIA - ADMISSÃO TEMPORÁRIA - DI - ZYCIT374

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

Objetos da nota:

DOCT /PWS/ZYCIL894

DTEL /PWS/ZYCIL894

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F04

REPS /PWS/MZYCI023F05

TABD /PWS/ZYCIT062

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

Modificações efetuadas em DTEL /PWS/ZYCIL894

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

Elemento de dados incluído: /PWS/ZYCIL894

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (25 caracteres), idioma: EN

"CI - Full temporary basis"

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

"CI - Base Cheia Adm Temporária"

Descrição breve incluída: (26 caracteres), idioma: ES

"CI - Bases llenas Temporal"

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 (9 caracteres), idioma: EN

"Full base"

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

"Bs.Adm.Tem"

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

"Base llena"

Comprimento máximo do denominador médio: 20

Denominador médio incluído (20 caracteres), idioma: EN

"Full temporary basis"

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

"Base Cheia Adm.Temp."

Denominador médio incluído (12 caracteres), idioma: ES

"Bases llenas"

Comprimento máximo do denominador longo: 25

Denominador longo incluído (20 caracteres), idioma: EN

"Full temporary basis"

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

"Base Cheia Adm Temporária"

Denominador longo incluído (21 caracteres), idioma: ES

"Bases llenas Temporal"

Comprimento máximo do título: 25

Título incluído (20 caracteres), idioma: EN

"Full temporary basis"

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

"Base Cheia Adm Temporária"

Título incluído (21 caracteres), idioma: ES

"Bases llenas Temporal"

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

Modificações efetuadas em DOCT /PWS/ZYCIL894

*Fazer documentação do elemento de dados

Editando o elemento de dados /PWS/ZYCIL894, clicar em Documentação.

Indicar nome da modificação /PWS/ZYCIL894 - texto original

Quando o campo estiver marcado os valores dos impostos que compõem a

base de ICMS serão integrais

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

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 inclusão: FORM LOAD_III

  IF /pws/zycit062-bs_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.

    IF itab_it-codregtri EQ '1' .

      d_admtemp: a_iidevi,

                 a_iicalc,

                 t_iirec .

    ENDIF.

  ENDIF.

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

  ENDIF.

* << Fim da inclusão

  s_wiireco = s_wiireco + t_iirec.

  s_wiicalc = s_wiicalc + a_iicalc.

  s_wiiredu = s_wiiredu + a_iiredu.

  s_wiidevi = s_wiidevi + a_iidevi.

  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 inclusão: FORM LOAD_IIPI

        IF /pws/zycit062-bs_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.

          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.

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

          s_wipireco = s_wipireco + t_ipirec.

        ELSE.

          CLEAR t_ipirec.

        ENDIF.

        s_wipidevi = s_wipidevi + a_ipidevi.

      ENDIF.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

      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 inclusão: FORM CALC_PISCOFINS

      IF /pws/zycit062-bs_admtemp IS INITIAL.

        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.

              d_admtemp:  a_piscalc,

                          a_pisredu,

                          a_pisdevi,

                          a_cofcalc,

                          a_cofredu,

                          a_cofdevi,

                          t_pis,

                          t_cofins.

              ENDIF.

          ENDIF.

      ENDIF.

*   << Fim da inclusão

  ENDCASE.

...

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

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

* << Fim da inclusão

    d_admtemp: itab_it-vlipi        ,

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

                 itab_it-vlii         .

    ELSE.

      d_admtemp: itab_it-vlipi        ,

* << Fim da inclusão

               itab_it-ipi_recolher ,

               itab_it-vlii         ,

               itab_it-ii_reduzido  ,

               itab_it-ii_recolher  ,

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

                 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_pis                ,

                 t_cofins             ,

* << Fim da inclusão

               v_vlipirec           ,

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

               v_vliirec            .

* << Fim da exclusão

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

                 v_vliirec            ,

                 v_vlpisrec           ,

                 v_vlcofrec           .

    ENDIF.

* << Fim da inclusão

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

      d_admtemp :  t_icmsbs_d2,

                   t_icmsbs   ,

                   t_icms     .

    ENDIF .

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em TABD /PWS/ZYCIT062

*Acrescentar o campo BS_ADMTEMP

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

...

*<<Inicio Inclusao

 BS_ADMTEMP           /PWS/ZYCIL894              CHAR     1

*<< Fim inclusão

 USERNAMEC            SYUNAME                    CHAR    12

 DTUSERC              SYDATUM                    DATS     8

*Gerar a visão de atualização de tabela novamente

*Gerar a visão de atualização de tabela novamente

*Gerar a visão de atualização de tabela novamente

*Gerar a visão de atualização de tabela novamente

*Gerar a visão de atualização de tabela novamente

*Gerar a visão de atualização de tabela novamente