![]() | Products |
| Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 4.22 » View Incident Report |
| 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 Sunday, February 22, 2026 at 11:19 PM | Privacy Policy © 2026 Elevate Software, Inc. All Rights Reserved Questions or comments ? |

