sexta-feira, 4 de setembro de 2009

Base substituicao icm- larimar - 04 09 09 09:01





nfm:perc_icm_subs_m=0
nfm:base_subs=0
nfm:perc_subst=0
nfm:base_subs_1=0
nfm:valor_subs=0
if cli:uf='PR' OR CLI:UF='RS'! !-- 3595 28 79 -
if mat:pedidos=0 ! mat:perc_substiucao para esses estados ==> base Red. Rs/Sc/P
else
if mat:cor=0 ! or cli:uf<>'RS' ! mat:cor=aliquota_icm
est:aliquota=0
est:uf=cli:uf
get(estado,est:por_estado)
if ~errorcode()
nfm:perc_icm_subs=est:aliquota
nfm:perc_icm_subs_m=est:aliquota
.
else
nfm:perc_icm_subs=mat:cor
nfm:perc_icm_subs_m=mat:cor
.
nfm:base_subs=nfm:prod
nfm:perc_subst=mat:pedidos

nfm:base_subs_1=(nfm:base_subs+(nfm:base_subs*nfm:perc_subst)/100)
nfm:valor_icm1=(nfm:base_subs_1*nfm:perc_icm_subs_m)/100


Nfm:valor_icm2=(nfm:base_subs*nfm:perc_icm_subs)/100
nfm:valor_subs=nfm:valor_icm1-nfm:valor_icm2

end
end

! mat:valor_cruz = base reduzida icm

PRODUTO=76 SHAMPPOOL
DENTRO DO PRODUTO TEM : BASE RED. RS/SC/P = 35.73 PARA CLIENTES PR OU RS
MAT:BASE_REDUZIDA_ICM_P - tps
MAT:PROMOCAO_PRECO - base substituicao tributaria :
MAT:ICM_P tps
Colocar Amarelo
DENTRO DO PRODUTO TEM : ALIQUOTA ICM = 25%
QUANTI 3
VALOR UNI 10.32
A=30.96 BASE SUBST.RS/PR
B=35.73 % SUSTITUICAO
C=42.02 BASE SUBST. (A * B) ( 30.96 * 35.73 )
D= 25 % ICM
E=25 % ICM EST.
F=10.50 VALOR ICM ( C * D %) (42.02 * % ICM 25% )
G=7.74 VALOR ICM (A * E% ) ( 30.96*25%)
F-G=2.76 ( F - G ) ( 10.50 - 7.74 )

IF mat:promocao_preco<>0 ! larimar - % substituicao tributaria
Nfi:PERC_BASE_REDUZIDA=mat:promocao_preco
ELSE
IF MAT:BASE_REDUZIDA_ICM_P<>0
Nfi:PERC_BASE_REDUZIDA=MAT:BASE_REDUZIDA_ICM_P
ELSE
IF Nfi:PERC_BASE_REDUZIDA=0
Nfi:PERC_BASE_REDUZIDA=OPE:REDUCAO_ICMS
END
END
end 07154106000199

% icm substituicao = Nfi:Livre1
base icm substituicao = Nfi:ISENTAS_ICM
% aliquita substituicao = Nfi:Livre2
valor substituicao = Nfi:OUTRAS_ICM

Calcular Base Icm * % Substituicao e o Resultado x % Icm - Base Icm * % Icm = OPE:INCIDE
OPE:PERCENTUAL_IPI = Percentual Icm Substituição: