calcular porcentaje

[ecfisa]

Hola Lucas.

Proba de este modo:

Código Delphi [-]
 ...
 with QuickReport1.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select tablaA.ta_fecha,');
    SQL.Add('tablaA.ta_total-(tablaA.ta_total * TablaB.Dcto/100) as descuento ');
    SQL.Add('from tablaA, tablaB ');
    SQL.Add('where tablaA.ta_descuento = tablaB.ID');
    SQL.Add('and ta_fecha between :DESDE and :HASTA');
    Parameters.ParamByName('DESDE').Value:= DateTimePicker1.Date;
    Parameters.ParamByName('HASTA').Value:=DateTimePicker2.Date;
    Open;
  end;
  QuickReport1.QRDBText1.DataSet:= ADOQuery1;
  QuickReport1.QRDBText1.DataField:= 'descuento';
  ...

Saludos.