Subject | RE: [IBO] possible problem fix for IBO4.7.Beta 5 |
---|---|
Author | Jason Wharton |
Post date | 2006-11-27T10:06:58Z |
This issue was resolved in the Beta 6 or Beta 7 versions.
What you did here isn't a solution but it does confirm that I have provided
a proper fix.
Please get the Beta 8 version I recently release and give it a whirl.
Jason
What you did here isn't a solution but it does confirm that I have provided
a proper fix.
Please get the Beta 8 version I recently release and give it a whirl.
Jason
> -----Original Message-----
> From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com]On
> Behalf Of Hans
> Sent: Sunday, November 26, 2006 9:25 PM
> To: IBObjects@yahoogroups.com
> Subject: [IBO] possible problem fix for IBO4.7.Beta 5
>
>
>
> Hello Jason,
>
> Found a working fix for IB_Components.pas, which solved the
> problem of
> preventing
> re-editing of existing table information in FB2.0.0.
> GetCanDoSearchedSQL
> works fine
> on FB1.5.3. This fix may not be acceptable, but it shows what
> the difference
> is when
> GetCanDoSearchedSQL works on a FB2.0.0 database.
>
> Best Regards
> Hans
>
> ==========================================================
>
>
> function TIB_Dataset.GetCanDoSearchedSQL: boolean;
> var
> ii: integer;
> tmpRelN,
> tmpRelA,
> tmpSKR: string;
> begin
> if SysKeyRelation = '' then
> Result := false
> else
> begin
> Result := true;
> for ii := 0 to KeyFields.ColumnCount - 1 do
> begin
> //hans aded next 2 lines .. alike : GetFullFieldName
> (only required
> if a FB2.0.0 is used)
> if KeyFields[ ii ].FRelAliasName = '' then
> KeyFields[ ii ].FRelAliasName := KeyFields[ ii ].RelName;
>
> if ii = 0 then
> begin
> tmpRelN := KeyFields[ ii ].RelName;
> tmpRelA := KeyFields[ ii ].RelAliasName;
> end