CE PLUS - Nota 003745
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 23/05/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:41:40
Descrição da Nota: AO UTILIZAR BASE DE ICMS REDUZIDA NA DI, VALOR A RECOLHER FICA INCORRETO
Sintoma
Favor ajustar a DI para verificar a coluna regsusp.NF da tabela /PWS/ZYCIT062 quando for não
incidência, assim como suspensão.
Solução
verificar a coluna regsusp.NF da tabela zycit062 quando for não incidência, para tratar valores de
impostos
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03745 Data: 23/05/2007 Hora: 15:57:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03745
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00167
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02325 - 00001 - 6.0 - 00025 - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO
03113 - 00002 - 6.0 - 00026 - EM DI VINCULADA COM DRAWBACK LEVA O VALOR A RECOLHER DO ICMS PARA
03158 - 00003 - 6.0 - 00026 - DI E DA COM PARAMETRO DA 062
03303 - 00004 - 7.0 - 00001 - VERIFICAR A TABELA ZYCIT062 PARA TRATAR NÃO INCIDÊNCIA NA DI
03397 - 00005 - 7.0 - 00001 - QUANDO ICMS É DIFERIDO, NÃO PERMITE FAZER A BASE CHEIA.
----------------------------------------------------------------------------------------------------
AO UTILIZAR BASE DE ICMS REDUZIDA NA DI, VALOR A RECOLHER FICA INCORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
BASE DE ICMS REDUZIDA - DI - VALOR A RECOLHER
PERCENTUAL DE REDUÇÃO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
t_icmsbs_d2 = t_icmsbs = ( t_ivadu + v_vliirec + v_vlipirec +
t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *
( /pws/zycie003-basred / 100 ).
ELSE.
t_icmsbs_d2 = t_icmsbs = ( t_ivadu + v_vliirec + v_vlipirec +
v_sisco3 + t_ivdesp + v_vlpisrec + v_vlcofrec ) *
( /pws/zycie003-basred / 100 ).
ENDIF.
IF NOT /pws/zycit062-flag_icms IS INITIAL AND
/pws/zycie100a-icms_dif NE 'X'.
* >> Início da exclusão: FORM LOAD_IICMS
t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 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 = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ) .
itab_it-vlicms = t_icms.
* >> Início da inclusão: FORM LOAD_IICMS
IF NOT /pws/zycie003-basred IS INITIAL and
NOT /pws/zycie003-basred EQ '100'.
t_icmsbs = ( t_icmsbs / t_icmsx ).
ELSE.
* << Fim da inclusão
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
* >> Início da inclusão: FORM LOAD_IICMS
endif.
* << Fim da inclusão
itab_it-vlicms = t_icms.
IF /pws/zycit062-susp_nf EQ 'S'.
IF '56' CA /pws/zycie100a-codregtri .
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - a_iicalc.
ENDIF.
IF '56' CA /pws/zycie100a-codregtriipi .
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - a_ipidevi.
ENDIF.
...
...
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 - /pws/zycie003-advalicms ) / 100.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
t_icmsx = ( 100 - v_advicms ) / 100.
t_icms_d2 = t_icms = v_advicms *
* << Fim da inclusão
( t_icmsbs / t_icmsx ) .
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
ELSE.
* >> Início da exclusão: FORM LOAD_IICMS
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
t_icmsbs.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
t_icms_d2 = t_icms = v_advicms * t_icmsbs.
* << Fim da inclusão
ENDIF.
IF '356' CA /pws/zycie100a-codregtriicms .
CLEAR: t_icmsx, t_icms_d2, t_icms.
ENDIF.
ENDIF.
IF p_tipo = 'I' OR p_tipo = 'T' .
s_wicdevi = s_wicdevi + t_icms .
s_wpisreco = s_wpisreco + t_pis .
s_wcofreco = s_wcofreco + t_cofins.
IF NOT /pws/zycie003-nrseqd IS INITIAL OR
...