VALOR PENSAOFERRESC;
 
PENSAOFERRESC = BC(XXX) * VALVAR(0)/100;
VCALC = PENSAOFERRESC; 
VINF = VALVAR(0);