CE PLUS - Nota 000941
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 23/02/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:15:54
Descrição da Nota: VALOR DE ``BASE DE CÁLCULO DO ICMS`` INCORRETO PARA
Sintoma
Na Nota Fiscal Global, quando temos ICMS diferido, o sistema está levando o
valor de ``Base de Cálculo do ICMS`` incorreto para as mensagens da
Nota Fiscal Global.
Solução
Estabelecido nova rotina pro cálculo.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00941 Data: 23/02/2006 Hora: 15:33:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00941
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00101
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VALOR DE ``BASE DE CÁLCULO DO ICMS`` INCORRETO PARA
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGENS ``BASE DE CÁLCULO DO ICMS``
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
v_montante1 = itab_zycit100-baseicms.
v_base = v_montante1.
v_excbas = ( v_montante1 / v_basred * 100 ) - v_base.
IF itab_zycit100-icms_dif = 'X'.
IF /pws/zycit062-flag_icms = 'X'.
* >> Início da inclusão: FORM ITENS_NFNEW
data: v_base2 like j_1bdytax-base.
clear v_base2.
v_base2 = v_base2 + v_base.
* << Fim da inclusão
v_base = v_base - itab_zycit100-vlicms.
ENDIF.
* >> Início da exclusão: FORM ITENS_NFNEW
v_base_dif = v_base_dif + v_base.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
v_base_dif = v_base_dif + v_base2.
* << Fim da inclusão
ENDIF.
it_zycee007-base = v_base.
it_zycee007-c_excbas = v_excbas .
WHEN 2.
PERFORM verifica_montante.
...