CE PLUS - Nota 011198
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 02/06/2011 00:00:00
Data/Hora Última Alteração: 02/06/2011 10:55:45
Descrição da Nota: ARREDONDAMENTO NO LANÇAMENTO DE PIS E COFINS
Sintoma
O lançamento de PIS e COFINS está com diferença de centavos com o valor informado na nota fiscal.
Solução
Ajustada contabilização dos impostos no recebimento para efetuar o lançamento de PIS e COFINS
conforme informado na nota fiscal.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11198 Data: 02/06/2011 Hora: 10:07:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11198
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02939 - 00001 - 6.0 - 00026 - VALORES DE PIS E COFINS CONTABILIZADOS ERRADOS NO RECEBIMENTO
10961 - 00002 - 8.0 - 00006 - ALTERAR MENSAGEM NO RECEBIMENTO (F-02)
----------------------------------------------------------------------------------------------------
ARREDONDAMENTO NO LANÇAMENTO DE PIS E COFINS
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO - CONTABILIZAÇÃO - PIS - COFINS - DIFERENÇA - NOTA - FISCAL
/PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
itab_zycbt035_aux-werks = itab_zycit003-werks.
itab_zycbt035_aux-d_gsber = itab_zycit003-gsber.
IF NOT itab_zycit100-vlpis IS INITIAL.
CLEAR itab_zycit398.
READ TABLE itab_zycit398 WITH KEY tpnf = itab_global-tpnf
tributos = 'PIS'.
IF sy-subrc EQ 0.
itab_zycbt035_aux-lei102 = itab_zycit398-lei102.
itab_zycbt035_aux-imposto = 'PIS'.
itab_zycbt035_aux-debcred = itab_zycit398-creditar.
* >> Início da exclusão: FORM ADICIONA_OUTROS_IMPOSTOS
vl_pis_5 = vl_pis_5 + ABS( itab_zycit100-vlpis ).
IF v_tabix EQ v_cont.
itab_zycbt035_aux-wrbtr = vl_pis_5 - vl_pis_2.
ELSE.
itab_zycbt035_aux-wrbtr = abs( itab_zycit100-vlpis ).
vl_pis_2 = vl_pis_2 + ABS( itab_zycit100-vlpis ).
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
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'.
itab_zycbt035_aux-wrbtr = itab_zycit036-vlreal.
* << Fim da inclusão
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 NOT itab_zycit100-vlcofins IS INITIAL.
CLEAR itab_zycit398.
READ TABLE itab_zycit398 WITH KEY tpnf = itab_global-tpnf
tributos = 'COFINS'.
IF sy-subrc EQ 0.
itab_zycbt035_aux-lei102 = itab_zycit398-lei102.
itab_zycbt035_aux-imposto = 'COFI'.
itab_zycbt035_aux-debcred = itab_zycit398-creditar.
* >> Início da exclusão: FORM ADICIONA_OUTROS_IMPOSTOS
vl_cofins_5 = vl_cofins_5 + ABS( itab_zycit100-vlcofins ).
IF v_tabix EQ v_cont.
itab_zycbt035_aux-wrbtr = vl_cofins_5 - vl_cofins_2.
ELSE.
itab_zycbt035_aux-wrbtr = abs( itab_zycit100-vlcofins ).
vl_cofins_2 = vl_cofins_2 + ABS( itab_zycit100-vlcofins ).
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
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'.
itab_zycbt035_aux-wrbtr = itab_zycit036-vlreal.
* << Fim da inclusão
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.
CLEAR: itab_zycbt035_aux-lei102.
...