CE PLUS - Nota 002261
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 16/10/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:56:58
Descrição da Nota: A NF GLOBAL E COMPLEMENTAR NÃO ESTÁ TRATANDO ICMS DIFERIDO E SUSPENSÃO.
Sintoma
Quando temos ICMS diferido a nota complementar esta lançando um valor da base do ICMS maior que o
valor total da nota. Quando é suspensão, está levando ICMS a recolher para a Nota global e
Complementar.
Solução
Atualização do programa de Nota Fiscal para tratar na NF Global e Complementar quando o ICMS é
suspenso ou diferido.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02261 Data: 16/10/2006 Hora: 16:06:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02261
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00135
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00941 - 00001 - 6.0 - 00022 - VALOR DE ``BASE DE CÁLCULO DO ICMS`` INCORRETO PARA
01599 - 00002 - 6.0 - 00023 - ERRO NA MENSAGEM DA NFG
----------------------------------------------------------------------------------------------------
A NF GLOBAL E COMPLEMENTAR NÃO ESTÁ TRATANDO ICMS DIFERIDO E SUSPENSÃO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF GLOBAL - NF COMPLEMENTAR - ICMS DIFERIDO - ICMS SUSPENSO - SUSPENSÃO
REGIME TRIBUTÁRIO - ICMS A RECOLHER
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023X01
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da exclusão: FORM MENSAGENS_NF
IF itab_zycit019-tipo = 'A'.
* << Fim da exclusão
IF itab_zycit020-baseicms = 'X'.
MOVE : itab_zycit049_aux_r-descr TO v_descr,
v_vldp TO v_vldp_x.
CONCATENATE v_descr v_tamanho INTO v_descr.
CONCATENATE v_descr v_vldp_x INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
v_ind = v_ind + 1.
CLEAR v_vldp.
ENDIF.
* >> Início da exclusão: FORM MENSAGENS_NF
ENDIF.
* << Fim da exclusão
ENDLOOP.
CLEAR: v_vlpis, v_vlcofins.
LOOP AT itab_zycit042_mark.
READ TABLE itab_zycit100 WITH KEY
nrseq = itab_zycit042_mark-nrseq
...
...
IF itab_zycit100-icms_dif = 'X'.
IF /pws/zycit062-flag_icms = 'X'.
DATA: v_base2 LIKE j_1bdytax-base.
CLEAR v_base2.
v_base2 = v_base2 + v_base.
* >> Início da exclusão: FORM ITENS_NFNEW
v_base = v_base - itab_zycit100-vlicms.
* << Fim da exclusão
ENDIF.
v_base_dif = v_base_dif + v_base2.
ENDIF.
it_zycee007-base = v_base.
it_zycee007-c_excbas = v_excbas .
...
...
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseicms.
it_zycee007-c_excbas = v_montante1.
CLEAR: it_zycee007-taxval.
IF itab_zycit100-icms_dif = 'X'.
* >> Início da exclusão: FORM ITENS_NFNEW
IF /pws/zycit062-flag_icms = 'X'.
it_zycee007-c_excbas = it_zycee007-c_excbas
- itab_zycit100-vlicms.
ENDIF.
* << Fim da exclusão
v_base_dif = v_base_dif + itab_zycit100-baseicms.
ENDIF.
IF /pws/zycit001-meioemba = 'PS'.
v_base_ps = it_zycee007-c_excbas.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF '5' CA /pws/zycie100a-codregtriipi .
v_vlipirec = a_ipidevi.
ELSE.
v_vlipirec = t_ipirec.
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
clear: v_vlpisrec , v_vlcofrec.
IF '5' CA /pws/zycie100a-codregtripiscofi.
v_vlpisrec = a_pisdevi.
v_vlcofrec = a_cofdevi.
ELSE.
v_vlpisrec = t_pis .
v_vlcofrec = t_cofins.
ENDIF.
* << Fim da inclusão
IF v_nr_itens GT 1.
t_icmsbs_d2 = t_icmsbs = ( t_ivadu + v_vliirec + v_vlipirec +
* >> Início da exclusão: FORM LOAD_IICMS
t_ivdesp + v_desp + t_pis + t_cofins ) *
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *
* << Fim da inclusão
( /pws/zycie003-basred / 100 ).
ELSE.
t_icmsbs_d2 = t_icmsbs = ( t_ivadu + v_vliirec + v_vlipirec +
* >> Início da exclusão: FORM LOAD_IICMS
v_sisco3 + t_ivdesp + t_pis + t_cofins ) *
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
v_sisco3 + t_ivdesp + v_vlpisrec + v_vlcofrec ) *
* << Fim da inclusão
( /pws/zycie003-basred / 100 ).
ENDIF.
IF NOT /pws/zycit062-flag_icms IS INITIAL AND
/pws/zycie100a-icms_dif NE 'X'.
IF itab_it-nrseqd IS INITIAL AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
v_adics TYPE i ,
v_adic2 TYPE i ,
v_propoe_sisc TYPE c ,
v_vliirec LIKE t_icms,
v_vlipirec LIKE t_icms ,
* >> Início da inclusão:
v_vlpisrec LIKE t_icms,
v_vlcofrec LIKE t_icms,
* << Fim da inclusão
v_tabix LIKE sy-tabix,
v_line TYPE i,
v_linha TYPE i,
v_difora ,
v_flag_quebra(1) TYPE c ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
it_zycee007-othbas = itab_zycit265_c2-vldp_dif_icms.
ENDIF.
ENDIF.
ENDIF.
ENDCASE.
* >> Início da inclusão: FORM ITENS_NFC
if itab_zycit100-codregtri = '3' or
itab_zycit100-codregtri = '5'.
clear it_zycee007-taxval.
endif.
* << Fim da inclusão
CASE itab_zycit033-tribipi.
WHEN 1.
it_zycee007-base2 = itab_zycit265_c2-vldp_dif.
IF /pws/zycit062-flag_icms = 'X' AND
itab_zycit100-icms_dif NE 'X'.
...