Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 4.22 » View Incident Report |
Serious |
Reported By: Bernd Kuhlmann Reported On: 3/5/2006 For: Version 4.22 Build 6 |
procedure TForm1.DoVorgangLfs(id: Integer); var tb: Tdbisamtable; s: String; begin tb:=TdbisamTable.Create(nil); tb.tablename:='vorgang'; tb.open; if tb.FindKey([id]) then begin tb.edit; tb.FieldByName('Status').asString:='L'; tb.FieldByName('Status_Liefer_Nr').asInteger:=200; s:=tb.FieldByName('TXT_Oben').asstring; if tb.FieldByName('Status').asString<>'L' then begin // this should never happen memo1.lines.add('error wrong field value:'+ tb.FieldByName('Status').asString+ ' vid: '+inttostr(id)); end; tb.post; if tb.FieldByName('Status').asString<>'L' then begin // this should never happen memo1.lines.add('error record not saved:'+ tb.FieldByName('Status').asString+ ' vid: '+inttostr(id)); end; end else begin memo1.lines.add('vorgang not found:'+inttostr(id)); end; tb.close; tb.free; end;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |