Fórum Gerar Código Automaticamente no DBx #131081

Ola,

Esse é o código que estou utilizando para fazer geração de códigos automaticamente:

function SeqNum(wtipcam:string):integer;
begin
   DM000.CD_Arq999.Active := true;

   DM000.CD_Arq999.Close;
   DM000.Arq999.CommandText := 'Select * from ARQ999 where tipcam = :wtipcam';
   DM000.ARQ999.parambyname('wtipcam').AsString := wtipcam;
   DM000.CD_ARQ999.Open;

   if DM000.CD_ARQ999.IsEmpty then
      begin
      wseqnum := 1;
      DM000.CD_Arq999.Insert;
      DM000.CD_Arq999tipcam.asstring := wtipcam;
      DM000.CD_Arq999seqnum.asinteger := wseqnum;
      DM000.CD_Arq999.Post;
      DM000.CD_Arq999.ApplyUpdates(-1);
      end
   else
      begin
       wseqnum := DM000.CD_Arq999Seqnum.asinteger + 1;
      DM000.CD_Arq999.Edit;
      DM000.CD_Arq999tipcam.asstring := wtipcam;
      DM000.CD_Arq999Seqnum.asinteger := wseqnum;
      DM000.CD_Arq999.Post;
      DM000.CD_Arq999.ApplyUpdates(-1);
      end;

   result := wseqnum;
end;

  A Inserção no banco de dados do código esta funcionando corretamente, o problema é que no update ou seja edit, não esta gravando no banco de dados.

Alguem pode me ajudar nessa dificuldade.

observação:
DM000 é um data modulo
Arq999 é um DataSet, liguei o dataset num DataProvider logo liguei o data provider no clientdataset e um datasource onde liguei o cliente data set.