Fórum ApplyUpdates(0) #157246

Você colocou algum tipo de gerador de chave primária?
Se for isto retorne que eu te digo como clocar.

Sim coloquei segue abaixo:

function Tdatm_CadastroApartamentos.GetMaxSeqApartamento(NApto : integer): integer;
begin

SQL_Work.Close;
SQL_Work.SQL.Clear;
SQL_Work.SQL.Add(´Select Max(LI_SEQNUMEROAPTO) As NSeqApto´);
SQL_Work.SQL.Add(´From Apartamentos´);
SQL_Work.SQL.Add(´Where LI_NUMEROAPTO =´+IntToStr(NApto));
SQL_Work.Open;

Result := SQL_Work.FieldByName(´NSeqApto´).AsInteger;

end;


procedure Tdatm_CadastroApartamentos.CDS_ApartamentosBeforePost(
DataSet: TDataSet);
begin
inherited;

if CDS_Apartamentos.State in [dsInsert] then begin
CDS_Apartamentos.FieldByName(´LI_SEQNUMEROAPTO´).AsInteger := GetMaxSeqApartamento(CDS_Apartamentos.FieldByName(´LI_NUMEROAPTO´).AsInteger)+1;

end;

end;