Hello Helen,

> 4.3A + 4.3Aa?

First I unzipped 4.3A, then 4.3Aa und finally 4.3ab_test.
I renamed the "IB_Constants-ger.pas" to
"IB_Constants.pas".

> How did you get *W*.bpl files on D7 Prof?

I opened in the IDE the projekt file "IBO40_D7.bpg", and then
I deleted the the bpl-items from the projekt manager and the rest (14
items) I tried to compile one after the other.

But by compiling the first item: "IBO40CRT_D7.BPL", I got the
described, following errors:

> Where are these errors occurring?

> >Now i get the following errors:
> >Component.pas -> unknown: IB_MODIFIABLE

Here:
procedure TIB_Statement.GetColumnIsReadOnly( AColumn: TIB_Column;
var AReadOnly: boolean );
var
tmpR,
tmpS: string;
begin
if not AReadOnly and AColumn.IsCalculated then
AReadOnly := not AColumn.IsAttributeSet[IB_MODIFIABLE];
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



if not AReadOnly and not AColumn.Computed then
begin
tmpS := SysKeyRelation;
if tmpS = '' then
AReadOnly := true
else
begin
tmpR := AColumn.RelName;
if Pos( '"', tmpS ) = 0 then
tmpS := '"' + tmpS + '"';
if Pos( '"', tmpR ) = 0 then
tmpR := '"' + tmpR + '"';
AReadOnly := ( tmpR <> tmpS );
end;
end;
end;

> >Component.pas -> unknown: IB_KEYROWNUM

And here:
procedure TIB_Dataset.SysDescribeVARList( ARow: TIB_Row );
var
ii: smallint;
tmpCol: TIB_Column;
begin
with ARow, FPSQLDA^ do
if RowType = rtKey then
begin
if KeyLinksExist then
for ii := 0 to sqln - 1 do
begin
if CursorFields.GetByName( KeyLinks.IndexNames[ii],
tmpCol ) then
begin
sqlvar[ii] := tmpCol.PSQLVAR^;
sqlvar[ii].SQLInd := nil;
sqlvar[ii].SQLData := nil;
if sqlvar[ii].SQLName = IB_DB_KEY then
begin
sqlvar[ii].SQLName := IB_RDB + IB_DB_KEY;
sqlvar[ii].SQLName_length := Length( IB_RDB +
IB_DB_KEY );
end;
end
else
raise EIB_Error.Create( Format( E_Invalid_KeyLinks,
[ KeyLinks[ ii ]] ));
end
else
if sqln = 1 then
begin
sqlvar[0].SQLScale := 0;
sqlvar[0].SQLType := SQL_LONG;
sqlvar[0].SQLLen := 4;
sqlvar[0].SQLInd := nil;
sqlvar[0].SQLData := nil;
FillChar( sqlvar[0].ownname, 32, #0 );
FillChar( sqlvar[0].relname, 32, #0 );
FillChar( sqlvar[0].sqlname, 32, #0 );
FillChar( sqlvar[0].aliasname, 32, #0 );
sqlvar[0].aliasname := IB_KEYROWNUM;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


sqlvar[0].ownname_length := -1;
sqlvar[0].relname_length := -1;
sqlvar[0].sqlname_length := -1;
sqlvar[0].aliasname_length := Length( IB_KEYROWNUM );
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
end
else
raise EIB_Error.Create( Format( E_Invalid_KeyLinks,
['<BLANK>'] ));
end
else
inherited SysDescribeVARList( ARow );
end;

> Can't tell what the problem is, yet...

I hope my informations are now better.

Thanks, Olaf