[gilberto_1126]

Código Delphi [-]
ADOTable50.Close;
      ADOTable50.Filter:='MotherId=' + IntToStr(numero);
      ADOTable50.Filtered:=true;
      ADOTable50.Open;
      ADOTable50.First;
      if ADOTable50.IsEmpty then
      else
      begin
        while not ADOTable50.Eof do
        begin
          ADOTable50.Edit;
          ADOTable50MotherId.Value:=ADOTable50MotherId.Value + 1509949440;
          ADOTable50.Post;
          ADOTable50.Next;
        end;
      end;