CE PLUS - Nota 002423
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 10/11/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:29:18
Descrição da Nota: AJUSTE NOTA FISCAL REMESSA VALOR DO ICMS REDUZIDO
Sintoma
Na nota fiscal de Remessa o valor do ICMS está calculado sobre a base cheia,
enquanto na nota fiscal Global está calculado sobre a base Reduzida conf. DI. O valor das Despesas
também está divergindo do valor destacado na nota fiscal Global.
Solução
Atualizado o programa para utilizar a base reduzida.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02423 Data: 10/11/2006 Hora: 17:16:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02423
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00139
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02112 - 00001 - 6.0 - 00024 - NA CRIAÇÃO DA NF DE REMESSA, O IPI NÃO OBDECE PARÂMETRO DA /PWS/Z
02340 - 00002 - 6.0 - 00025 - TRATAR SUSPENSÃO DE REGIME TRIBUTÁRIO NAS NOTAS FISCAIS.
----------------------------------------------------------------------------------------------------
AJUSTE NOTA FISCAL REMESSA VALOR DO ICMS REDUZIDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ICMS - NF - REMESSA - REDUÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
itab_zycit044-menge * itab_zycit044-qtd_item.
ELSEIF itab_zycit036-codigo = 'IPI'.
v_ipi = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
ELSEIF itab_zycit036-codigo = 'ICMS'.
* >> Início da exclusão: FORM VALORES_R
v_icms = ( ( itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item )
* 100 ) / itab_zycit003-basred.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_R
v_icms = ( itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item ).
* << Fim da inclusão
ENDIF.
ENDLOOP.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
...
...
CLEAR v_total .
ENDIF.
ENDIF.
CASE itab_zycit033-tribicms.
WHEN 1.
* >> Início da exclusão: FORM ITENS_NFRNEW
IF /pws/zycit062-flag_icms = 'X' .
IF /pws/zycit062-susp_nf EQ 'S' and
itab_zycit100-codregtri EQ '5'.
it_zycee007-base = v_total .
else.
it_zycee007-base = ( v_total - v_icms ) /
( ( 100 - itab_zycit003-advalicms ) / 100 ).
endif.
ELSE.
* << Fim da exclusão
it_zycee007-base = v_total.
* >> Início da exclusão: FORM ITENS_NFRNEW
ENDIF.
* << Fim da exclusão
it_zycee007-base =
...
...
v_base_dif = v_base_dif + v_total.
ELSE.
it_zycee007-taxval = v_icms.
ENDIF.
WHEN 3.
* >> Início da exclusão: FORM ITENS_NFRNEW
IF /pws/zycit062-flag_icms = 'X'.
IF /pws/zycit062-susp_nf EQ 'S' and
itab_zycit100-codregtri EQ '5'.
it_zycee007-othbas = v_total.
else.
it_zycee007-othbas = ( v_total - v_icms ) /
( ( 100 - itab_zycit003-advalicms ) / 100 ).
endif.
ELSE.
* << Fim da exclusão
it_zycee007-othbas = v_total.
* >> Início da exclusão: FORM ITENS_NFRNEW
ENDIF.
* << Fim da exclusão
IF itab_zycit003-basred NE 100.
...
...
...
...