TableToCreate:=TDBISAMTable.Create(Application);
try
   try
    with TableToCreate do
      begin
      DatabaseName:=dbpath;
      tabletocreate.TableName:= 'events';
      active := false;
      Exclusive:=True;
      restructureFieldDefs.update;
      restructureFieldDefs.add('GOTNOTES',ftBoolean,0,False,'false','','',
'',
                               fcNoChange,restructureFieldDefs.count+1);
      restructureFieldDefs.add('MASTERCONFIRMNO',ftFloat,0,False,'','','',
'',
                               fcNoChange,restructureFieldDefs.count+1);
      restructureIndexDefs.update;
      RestructureTable(0,0,1,0,False,'','',512,-1,True);
      end;
  except
    result := false;
    showmessage('Version 1.36 Error adding GETNOTES AND MASTERCONFIRMNO '+
                'to sysbojs');
    exit;
  end;
finally
  tabletocreate.free;
end;

---

 Comments and Workarounds

---

The RestructureIndexDefs' Update method was re-setting the RestructureFieldDefs. The workaround to this is to call RestructureIndexDefs.Update *first* before updating and modifying the RestructureFieldDefs objects.

---

 Resolution

---

Fixed Problem on 12/8/2000 in version 2.06 build 1