Cita:
fQRCorte.qRecibos.Close;
fQRCorte.qRecibos.ParamByName('FECHA').AsDate := DateEdit1.Date;
fQRCorte.qRecibos.ParamByName('CAJA').AsInteger := StrToInt(ComboEdit1.Text);
fQRCorte.qRecibos.Open;
|
re-leyendo tu pregunta y fijandome en esta sentencia...no se si no la pusistes, pero te falta información...
que corresponde precisamente a
Código Delphi
[-]
qRecibos.Close;
qRecibos.Sql.Clear;
qRecibos.Sql.Add('Select status, count(fol_pag) as recibos, sum(total) as total');
qRecibos.Sql.Add('from pagos');
qRecibos.Sql.Add('where fec_pag = :fecha and num_caj = :caja');
qRecibos.Sql.Add('and status='AC' group by status');
qRecibos.Parameter[0].AsDate := DateEdit1.Date;
qRecibos.Paremeter[1].AsInteger := StrToInt(ComboEdit1.Text);
qRecibos.Open;
