|
Incrementar las llaves primarias con zeos
saludos
tengo una duda de los componentes zeos para hacer incrementos en los ID, me da un error, lo que hice es poner otro Zquery para ser llamado desde otro Zquery, y escribir este codigo en onNewrecord de ZQdepartamentos
var ultimo:integer;
ZIncrementos.close;
ZIncrementos.ClearFields;
ZIncrementos.SQL.Add('select Max(ID_DEP) from Departamentos');
ZIncrementos.Open;
with ZIncrementos.Fields[0] do
if isnull then
ultimo:=1
else
ultimo:=ASINTEGER+1;
ZQDeptosID_DEP.Value:=ULTIMO;
ZQDeptos.Post;
muchas gracias.
|