CE PLUS - Nota 001345
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Complementar
Data/Hora da Publicação: 15/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:29:27
Descrição da Nota: AJUSTES PARA BASE DE ICMS REDUZIDA NA NF COMPLEMENTAR
Sintoma
Cálculo do valor de icms reduzida está incorreta.
Solução
Atualização do programa de nota fiscal complementar para efetuar o cálculo de icms reduzido
corretamente.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01345 Data: 15/05/2006 Hora: 15:58:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01345
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00113
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00680 - 00001 - 6.0 - 00022 - REDUÇÃO DA BASE DE CÁLCULO DE ICMS NA NF COMPLEMENTAR
01043 - 00002 - 6.0 - 00022 - BASE DE CÁLCULO E VALOR FISCAL PARA OUTRO MONTANTE BASE ESTÁ INCO
----------------------------------------------------------------------------------------------------
AJUSTES PARA BASE DE ICMS REDUZIDA NA NF COMPLEMENTAR
----------------------------------------------------------------------------------------------------
Palavras Chave:
BASE ICMS - REDUZIDA - COMPLEMENTAR.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
it_zycee007-taxval = ( itab_zycit265_c2-vldp_dif_icms +
itab_zycit265_c2-vldp_pis + itab_zycit265_c2-vldp_cofins )
/ ( ( 100 - itab_zycit003-advalicms ) / 100 ) .
ENDIF.
IF NOT /pws/zycit062-bcnfc IS INITIAL AND
* >> Início da exclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL OR
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL and
* << Fim da inclusão
NOT itab_zycit003-basred EQ '100' ).
it_zycee007-base = it_zycee007-taxval *
( itab_zycit003-basred / 100 ) .
it_zycee007-taxval = it_zycee007-base *
( itab_zycit003-advalicms / 100 ).
...
...
it_zycee007-c_excbas = itab_zycit265_c2-vldp_dif -
itab_zycit265_c2-vldp_dif_icms.
ENDIF.
ELSE.
IF NOT /pws/zycit062-bcnfc IS INITIAL AND
* >> Início da exclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL OR
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL and
* << Fim da inclusão
NOT itab_zycit003-basred EQ '100' ).
it_zycee007-base = ( itab_zycit265_c2-vldp_dif_icms +
itab_zycit265_c2-vldp_pis + itab_zycit265_c2-vldp_cofins )
* ( itab_zycit003-basred / 100 ) .
it_zycee007-taxval = it_zycee007-base *
...
...
itab_zycit265_c2-vldp_dif_icms.
ENDIF.
ENDIF.
WHEN 2.
IF NOT /pws/zycit062-bcnfc IS INITIAL AND
* >> Início da exclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL OR
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL and
* << Fim da inclusão
NOT itab_zycit003-basred EQ '100' ).
it_zycee007-c_excbas = itab_zycit265_c2-vldp_dif -
( ( itab_zycit265_c2-vldp_dif_icms +
itab_zycit265_c2-vldp_pis + itab_zycit265_c2-vldp_cofins )
* ( itab_zycit003-basred / 100 ) ) .
...
...
it_zycee007-taxval = ( itab_zycit265_c2-vldp_dif_icms +
itab_zycit265_c2-vldp_pis + itab_zycit265_c2-vldp_cofins )
/ ( ( 100 - itab_zycit003-advalicms ) / 100 ) .
ENDIF.
IF NOT /pws/zycit062-bcnfc IS INITIAL AND
* >> Início da exclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL OR
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL and
* << Fim da inclusão
NOT itab_zycit003-basred EQ '100' ).
it_zycee007-taxval = ( it_zycee007-taxval *
( itab_zycit003-basred / 100 ) ) *
( itab_zycit003-advalicms / 100 ).
it_zycee007-othbas = ( itab_zycit265_c2-vldp_dif_icms +
...
...
( itab_zycit003-advalicms / 100 ).
ENDIF.
ELSE.
IF itab_zycit100-icms_dif NE 'X'.
IF NOT /pws/zycit062-bcnfc IS INITIAL AND
* >> Início da exclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL OR
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFC
( NOT itab_zycit003-basred IS INITIAL and
* << Fim da inclusão
NOT itab_zycit003-basred EQ '100' ).
it_zycee007-taxval = ( ( itab_zycit265_c2-vldp_dif_icms +
itab_zycit265_c2-vldp_pis + itab_zycit265_c2-vldp_cofins )
* ( itab_zycit003-basred / 100 ) )
* ( itab_zycit003-advalicms / 100 ) .
...