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: