Código Delphi [-] QCaja.Close; QCaja.SQL.Clear; QCaja.SQL.Add('select * from caja where fecha=:inicio and movimiento="EGRESO"'); QCaja.Parameters.ParamByName('inicio').Value :=DateTimePicker2.Date; ShortDateFormat := 'dd/mm/yyyy'; QCaja.ExecSQL; QCaja.Open;
QCaja.Close; QCaja.SQL.Clear; QCaja.SQL.Add('select * from caja where fecha=:inicio and movimiento="EGRESO"'); QCaja.Parameters.ParamByName('inicio').Value :=DateTimePicker2.Date; ShortDateFormat := 'dd/mm/yyyy'; QCaja.ExecSQL; QCaja.Open;