CE PLUS - Nota 013948

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 23/05/2014 09:56:47

Data/Hora Última Alteração: 23/05/2014 09:56:47

Descrição da Nota: AO NAO ENCONTRAR ALIQUOTAS NO PARÂMETRO, NÃO FAZ A BUSCA SEM REGIME.

Sintoma

Ao nao encontrar aliquotas no parâmetro, não faz a busca sem regime.

 

 

Solução

Corrigir o preenchimento do campo.

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

NA CRIAÇÃO, NÃO GRAVA ALIQUOTA DE PIS E COFINS ALTERADA

TABELAS DE ALIQUOTA DE PIS E COFINS NÃO VERIFICA VIGENCIA NA DI

ATUALIZAR ALÍQUOTAS NA DI - DESENVOLVIMENTO ADICIONAL

Informações Complementares

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

Nota Número 13948 Data: 22/05/2014 Hora: 10:21:52

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

 

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

Nota Número              : 13948

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

 

13076  - 00001 - 9.0    - 00005  - ATUALIZAR ALÍQUOTAS NA DI - DESENVOLVIMENTO ADICIONAL

13226  - 00002 - 9.0    - 00006  - TABELAS DE ALIQUOTA DE PIS E COFINS NÃO VERIFICA VIGENCIA NA DI

13435  - 00003 - 9.0    - 00006  - NA CRIAÇÃO, NÃO GRAVA ALIQUOTA DE PIS E COFINS ALTERADA

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

AO NAO ENCONTRAR ALIQUOTAS NO PARÂMETRO, NÃO FAZ A BUSCA SEM REGIME.

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

Palavras Chave:

ALIQUOTAS - PARAMETRO - PIS - COFINS - DI

 

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

Objetos da nota:

REPS /PWS/MZYCI023F05

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F05

 

...

            itab_it-pis_alorig =

            itab_it-advalpis  = itab_zycit405-aliquotas.

          ELSE.

            READ TABLE itab_zycit407

                        WITH KEY tributos = 'PIS'

                                 regime   = itab_zycit001-regime.

            IF sy-subrc EQ 0.

              itab_it-basredpis = itab_zycit407-basred.

              itab_it-pis_alorig =

              itab_it-advalpis  = itab_zycit407-aliquotas.

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

            ELSE.

              itab_it-basredpis = itab_it-advalpis.

              CLEAR : itab_it-advalpis,

                      itab_it-vlpis   .

* << Fim da exclusão

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

      IF itab_it-basredpis IS INITIAL.

        READ TABLE itab_zycit406 WITH KEY matnr = itab_it-matnr

                                       tributos = 'PIS'.

        IF sy-subrc EQ 0

          AND itab_zycit406-vigencia LE /pws/zycie085-dttax

          AND NOT itab_zycit406-vigencia IS INITIAL .

...

 

...

            itab_it-cof_alorig =

            itab_it-advalcofins  = itab_zycit405-aliquotas.

          ELSE.

            READ TABLE itab_zycit407

                        WITH KEY tributos = 'COFINS'

                                 regime   = itab_zycit001-regime.

            IF sy-subrc EQ 0.

              itab_it-basredcof = itab_zycit407-basred.

              itab_it-cof_alorig =

              itab_it-advalcofins  = itab_zycit407-aliquotas.

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

            ELSE.

              itab_it-basredcof = itab_it-advalcofins.

              CLEAR : itab_it-advalcofins,

                      itab_it-vlcofins   .

* << Fim da exclusão

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

      IF itab_it-basredcof IS INITIAL.

        READ TABLE itab_zycit406 WITH KEY matnr = itab_it-matnr

                                       tributos = 'COFINS'.

        IF sy-subrc EQ 0

          AND itab_zycit406-vigencia LE /pws/zycie085-dttax.

          itab_it-basredcof = itab_zycit406-basred.

...

 

...

            itab_it-pis_alorig =

            itab_it-advalpis  = itab_zycit405-aliquotas.

          ELSE.

            READ TABLE itab_zycit407

                        WITH KEY tributos = 'PIS'

                                 regime   = itab_zycit001-regime.

            IF sy-subrc EQ 0.

              itab_it-basredpis = itab_zycit407-basred   .

              itab_it-pis_alorig =

              itab_it-advalpis  = itab_zycit407-aliquotas.

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

            ELSE.

              itab_it-basredpis = itab_it-advalpis.

              CLEAR : itab_it-advalpis,

                      itab_it-vlpis   .

* << Fim da exclusão

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

      IF itab_it-basredpis IS INITIAL.

       READ TABLE itab_zycit406 WITH KEY matnr    = itab_zycit003-matnr

                                                       tributos = 'PIS'.

        IF sy-subrc EQ 0 AND

        itab_zycit406-vigencia LE /pws/zycie085-dttax.

          itab_it-basredpis = itab_zycit406-basred   .

...

 

...

            itab_it-cof_alorig =

            itab_it-advalcofins  = itab_zycit405-aliquotas.

          ELSE.

            READ TABLE itab_zycit407

                        WITH KEY tributos = 'COFINS'

                                 regime   = itab_zycit001-regime.

            IF sy-subrc EQ 0.

              itab_it-basredcof = itab_zycit407-basred   .

              itab_it-cof_alorig =

              itab_it-advalcofins  = itab_zycit407-aliquotas.

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

            ELSE.

              itab_it-basredcof = itab_it-advalcofins.

              CLEAR : itab_it-advalcofins,

                      itab_it-vlcofins   .

* << Fim da exclusão

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

      IF itab_it-basredcof IS INITIAL.

       READ TABLE itab_zycit406 WITH KEY matnr    = itab_zycit003-matnr

                                                    tributos = 'COFINS'.

        IF sy-subrc EQ 0 AND

        itab_zycit406-vigencia LE /pws/zycie085-dttax.

          itab_it-basredcof = itab_zycit406-basred   .

...