Código Delphi [-] qCaja.FieldByName('estado_caja').AsInteger:=1
qCaja.FieldByName('estado_caja').AsInteger:=1
Código Delphi [-] qCaja.Post;
qCaja.Post;