CE PLUS - Nota 008899
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 27/08/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:20:19
Descrição da Nota: DIFERENÇA ENTRE BASE DE ICMS E O TOTAL DA NOTA FISCAL
Sintoma
Na criação da nota fiscal está ocorrendo diferença entre o valor base de ICMS e o total da nota
fiscal mesmo utilizando o parametro para tratamento de arredondamento de base.
Solução
Ajustado rateio das despesas base de ICMS realizado pela nota fiscal.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08899 Data: 27/08/2009 Hora: 11:13:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08899
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00111
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05481 - 00001 - 7.0 - 00003 - AJUST. DO RATEIO DAS DESPESAS NA NF E A GRAVAÇÃO DO FRETE NA DSI
08497 - 00002 - 7.0 - 00009 - ERRO EM RATEIO DE DESPESAS POR VALOR PLANEJADO QUANDO EMBARQUE É
----------------------------------------------------------------------------------------------------
DIFERENÇA ENTRE BASE DE ICMS E O TOTAL DA NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
DIFERENÇA - BASE - ICMS - TOTAL - NF - PARAMETRO - ARREDONDAMENTO
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
CLEAR: itab_zycit039, itab_zycit020.
READ TABLE itab_zycit019 WITH KEY
tpdesp = itab_zycit049_aux_r-tpdesp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit020 WITH KEY codigo = itab_zycit019-codigo
regio = itab_zycit019-regio.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit019-codigo.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM MENSAGENS_NF
IF v_idx EQ v_lines.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
IF v_idx EQ v_lines AND /pws/zycit062-arbase NE 'X'.
* << Fim da inclusão
v_vldp = v_vldp + ( v_vldp_aux - v_vldp ) .
ELSE.
IF itab_zycit039-divabs = 'X'.
v_vldp = v_vldp + v_vldp_aux / v_lines.
ELSEIF itab_zycit039-peso = 'X'.
v_vldp = v_vldp +
v_vldp_aux * itab_zycit003_mark-ntgew /
v_tot_ntgew.
ELSEIF itab_zycit039-proporplan = 'X'.
v_vldp = v_vldp + v_vldp_aux *
...
...
IF itab_zycit049-waers NE /pws/zycbt007-waersb.
PERFORM trata_decimais USING itab_zycit049-waers
CHANGING itab_zycit049-vldp.
PERFORM taxa_converte USING itab_zycit049-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
itab_zycit049-vldp = itab_zycit049-vldp *
v_taxa_desp.
itab_zycit049-waers = /pws/zycbt007-waersb.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
IF v_lines = v_tabix.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF v_lines = v_tabix AND /pws/zycit062-arbase NE 'X'.
* << Fim da inclusão
v_vldp = itab_zycit049-vldp - v_tot_vldp.
itab_zycit042-vldp = itab_zycit042-vldp + v_vldp.
CLEAR v_vldp.
ELSE.
IF itab_zycit039-divabs = 'X'.
v_vldp = itab_zycit049-vldp / v_lines.
ELSEIF itab_zycit039-peso = 'X'.
IF NOT v_tot_ntgew IS INITIAL.
IF NOT itab_zycit003-ntgewd IS INITIAL.
v_vldp = itab_zycit049-vldp * itab_zycit003-ntgewd /
...