|
Inserto y guardo con un dbnavigator pero en los eventos tengo esto, espero te srva:
procedure TDM.TApzBeforeInsert(DataSet: TDataSet);
begin
TApz.IndexName:='emp_num';
TApz.Last;
a:=DM.TApz.Fields[0].AsInteger;
end;
procedure TDM.TApzAfterPost(DataSet: TDataSet);
begin
TApz.FlushBuffers;
end;
procedure TDM.TApzAfterInsert(DataSet: TDataSet);
begin
DM.TApz.Fields[0].AsInteger:=a+1;
end;
|