CE PLUS - Nota 003931
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 14/06/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:42:26
Descrição da Nota: DI - ICMS DIFERIDO - BASE CHEIA
Sintoma
A DI não está respeitando o parâmetro de base cheia da tabela /pws/ZYCIT062, para icm diferido.
Solução
Atualização do programa da DI para que nos casos de ICMS Diferido o sistema respeite o flegue da
tabela ZYCIT062 no momento de efetuar o cálculo da Base de ICMS.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03931 Data: 14/06/2007 Hora: 16:37:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03931
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03113 - 00001 - 6.0 - 00026 - EM DI VINCULADA COM DRAWBACK LEVA O VALOR A RECOLHER DO ICMS PARA
03397 - 00002 - 7.0 - 00001 - QUANDO ICMS É DIFERIDO, NÃO PERMITE FAZER A BASE CHEIA.
03745 - 00003 - 7.0 - 00001 - AO UTILIZAR BASE DE ICMS REDUZIDA NA DI, VALOR A RECOLHER FICA IN
----------------------------------------------------------------------------------------------------
DI - ICMS DIFERIDO - BASE CHEIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
ENDIF.
IF /pws/zycie100a-baseicms LT 0.
CLEAR itab_zycit100-baseicms.
ENDIF.
ENDIF.
IF '356' CA /pws/zycie100a-codregtriicms .
CLEAR: t_icmsx, t_icms_d2, t_icms.
ENDIF.
ELSE.
IF /pws/zycit062-bs_cheia_dif EQ 'X'.
* >> Início da exclusão: FORM LOAD_IICMS
t_icmsx = ( 100 - v_advicms ) / 100.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
t_icmsx = 1 - v_advicms .
* << Fim da inclusão
t_icms_d2 = t_icms = v_advicms *
( t_icmsbs / t_icmsx ) .
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
ELSE.
t_icms_d2 = t_icms = v_advicms * t_icmsbs.
ENDIF.
IF '356' CA /pws/zycie100a-codregtriicms .
CLEAR: t_icmsx, t_icms_d2, t_icms.
ENDIF.
ENDIF.
...