Cita:
Empezado por oscarac
gracias Aleca
tendras un ejemplo?
la demo que esta ahi, le verdad no la entiendo bien
|
Código Delphi
[-]
...
var
args: Array of extended;
cVariables: TStringList;
begin
if DBEdtFormula.Field.IsNull then
DBEdtCANT_AL_IN.Field.AsFloat := DBEdtCant_AL_RE.Field.AsFloat
else
begin
CalcExpress1.Formula := DBEdtFormula.Field.AsString;
cVariables := TStringList.Create;
cVariables.Add('CA');
CalcExpress1.Variables := cVariables;
SetLength( args, 1);
args[0] := DSceBases.DataSet.FieldByName('CANT_REMI').AsFloat;
DSceBases.DataSet.FieldByName('CANT_ING').AsFloat := CalcExpress1.calc(args);
end;
en el ej. lo usa para poder ingresar el remito del proveedor de materias primas que pueden entregar con dif. unidades de medida.
Por ej. la empresa lleva el stock en gramos y el proveedor entrega x Kg, la formula realiza la conversion, en este caso tengo una sola variable 'CA'. Una formula puede ser asi: CA * 1000.
