caja.close;
caja.SQL.clear;
caja.SQL.ADD('select * from caja');
caja.SQL.ADD('where fecha_cierre= "2000-01-01"');
caja.Open;
if not Caja.IsEmpty then
begin
showmessage('Ya existe una caja abierta');
end else
begin
fApertura.Showmodal
end;
Caja.Insert;
Caja['fecha_apertura']:= fecha['fecha'];
Caja['hora_apertura']:= fecha['hora'];
Caja['fecha_cierre']:= '2000-01-01';
Caja['hora_cierre']:= '00:00:00';
Caja['monto_inicio']:= Edit1.Text;
Caja['monto_cierre']:='0';
Caja['total']:= Caja['total'] +Edit1.Text;
Caja.Post
caja.close;
caja.SQL.clear;
caja.SQL.ADD('select * from caja');
caja.SQL.ADD('where fecha_cierre= "2000-01-01"');
caja.Open;
if not Caja.IsEmpty then
begin
fCierre.Showmodal;
end else
begin
showmessage('No existe una caja abierta');
end;
Begin
Caja.Sql.Add('update into caja(monto_cierre,fecha_cierre,hora_cierre') values (:monto,:fecha,:hora)):
Caja.ParamByName('monto').Value:= Edit1.Text;
Caja.ParamByName('fecha').Value:= fecha['fecha'];
Caja.ParamByName('hora').Value:= fecha['hora'];
Caja.ExecSQL;
end;
//cuando usas esta forma
query.insert;
query['campo1'] := valor;
query['campo 2'] := valor;
query.post;
//y cuando usas esto
query.Sql.Add('update tabla set campo1 = :valor1, campo2 = :valor2'):
query.ParamByName('valor1').Value:= valor1;
query.ParamByName('valor2').Value:= valor2;
query.ExecSQL;
Caja.Edit;
Caja['fecha_cierre']:= fecha['fecha'];
Caja['hora_cierre']:= fecha['hora'];
Caja['monto_cierre']:=Edit1.Text;
Caja.Post
Begin
Caja.Sql.Add('update caja set monto_cierre = :monto, fecha_cierre = :fecha, hora_cierre=:hora');
Caja.Sql.Add('where id_corte = :idCorte');
Caja.ParamByName('monto').Value:= Edit1.Text;
Caja.ParamByName('fecha').Value:= fecha['fecha'];
Caja.ParamByName('hora').Value:= fecha['hora'];
Caja.ParamByName('idCorte').Value:= idCorte;//Aqui hay que definir una clausula where, porque si no defines esto
//se va a modificar tu tabla completa, para esto te recomiendo que agregues un campo autoincremental,
//y cuando busques tu cierre tienes que obtener tu id almacenarlo en una variable y usarlo en el codigo de arriba
Caja.ExecSQL;
end;
Caja.Edit;
Caja['fecha_cierre']:= fecha['fecha'];
Caja['hora_cierre']:= fecha['hora'];
Caja['monto_cierre']:=Edit1.Text;
Caja.Post