CE PLUS - Nota 012138

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Recebimento

Data/Hora da Publicação: 24/02/2014 16:50:13

Data/Hora Última Alteração: 24/02/2014 16:50:13

Descrição da Nota: RECEBIMENTO DE REMESSA NÃO ESTÁ LANÇANDO VALOR INTEGRAL DE PIS E COFINS

Sintoma

Ao receber a primeira remessa é realizada a contabilização dos impostos da nota fiscal global porém

os valores de PIS e COFINS lançados corresponde apenas aos itens existentes na nota de remessa.

O sistema está considerando o valor apenas da NF que está sendo recebida e não o valor total do

imposto.

 

 

Solução

Ajustado programa para selecionar o registro na tabela ao não encontrar os dados na tabela interna.

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

CRÉDITO PARCIAL DE COFINS

Informações Complementares

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

Nota Número 12138 Data: 25/04/2012 Hora: 09:22:23

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

 

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

Nota Número              : 12138

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00011

Agrupamento              : 00113

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

Referência às notas relacionadas:

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

 

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

RECEBIMENTO DE REMESSA NÃO ESTÁ LANÇANDO VALOR INTEGRAL DE PIS E COFINS

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

Palavras Chave:

RECEBIMENTO - NOTA- FISCAL - REMESSA - VALOR - PIS - COFINS - PARCIAL

/PWS/SAPMZYCI017

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

Objetos da nota:

REPS /PWS/MZYCI017F02

 

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

 

...

      IF sy-subrc EQ 0.

        itab_zycbt035_aux-lei102 = itab_zycit398-lei102.

        itab_zycbt035_aux-imposto = 'PIS'.

        itab_zycbt035_aux-debcred = itab_zycit398-creditar.

        CLEAR itab_zycit036.

        READ TABLE itab_zycit036 WITH KEY nrseq  = itab_global-nrseq

                                          ebeln  = itab_global-ebeln

                                          ebelp  = itab_global-ebelp

                                          codigo = 'PIS'

                                          origem = 'NF'.

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

        IF sy-subrc NE 0 .

          SELECT SINGLE * FROM /pws/zycit036

          INTO itab_zycit036

            WHERE nrseq  = itab_global-nrseq

              AND ebeln  = itab_global-ebeln

              AND ebelp  = itab_global-ebelp

              AND codigo = 'PIS'

              AND origem = 'NF'.

        ENDIF.

* << Fim da inclusão

        itab_zycbt035_aux-wrbtr = itab_zycit036-vlreal.

        itab_zycbt035_aux-bschl   = '40'.

        APPEND itab_zycbt035_aux.

        itab_zycbt035_aux-bschl   = '50'.

        APPEND itab_zycbt035_aux.

      ELSE.

        CLEAR: okcode.

        MESSAGE e015 WITH text-117.

      ENDIF.

    ENDIF.

...

 

...

      IF sy-subrc EQ 0.

        itab_zycbt035_aux-lei102 = itab_zycit398-lei102.

        itab_zycbt035_aux-debcred = itab_zycit398-creditar.

        itab_zycbt035_aux-imposto = 'COFI'.

        CLEAR itab_zycit036.

        READ TABLE itab_zycit036 WITH KEY nrseq  = itab_global-nrseq

                                          ebeln  = itab_global-ebeln

                                          ebelp  = itab_global-ebelp

                                          codigo = 'COFINS'

                                          origem = 'NF'.

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

        IF sy-subrc NE 0 .

          SELECT SINGLE * FROM /pws/zycit036

          INTO itab_zycit036

            WHERE nrseq  = itab_global-nrseq

              AND ebeln  = itab_global-ebeln

              AND ebelp  = itab_global-ebelp

              AND codigo = 'COFINS'

              AND origem = 'NF'.

        ENDIF.

* << Fim da inclusão

        itab_zycbt035_aux-wrbtr = itab_zycit036-vlreal.

        itab_zycbt035_aux-bschl   = '40'.

        APPEND itab_zycbt035_aux.

        itab_zycbt035_aux-bschl   = '50'.

        APPEND itab_zycbt035_aux.

...