Well, it seems nobody can help me. So it's impossible for me to
upgrade to new version of IBO. I will be forced to use old 4.2.

I'd like to be refunded for the payment i did for the upgrade, if
you don't mind.

--- In IBObjects@yahoogroups.com, "fabiano_bonin" <fabiano@p...>
wrote:

> > I don't know what your story is. It's a long time since I used
> BCD fields
> > but, AFAIR, you always had this error if the scale of the stored
> numeric or
> > decimal was smaller than the BCD precision setting.
>
> I think my story isn't different from others. I just use 'add all
> fields' within TIBOQuery and it adds the BCD fields. I don't know

a

> way (or why) of don't use BCD fields.
>
> Ok, i did a simple test case that maybe help somebody to identify
> what is causing the problem.
>
> First of all, i created this table:
>
> create table bcd_test (
> field1 numeric(5,2) );
>
> Then, i created a new project in Delphi, added a TIBODatabase and

a

> TIBOQuery in the form.
> After setup the TIBODatabase, i changed the SQL property of the
> TIBOQuery to 'select * from bcd_test'.
> So i double-clicked the TIBOQuery, right-clicked the fields editor
> and selected 'Add all fields'.
>
> I did the same step above with both 4.2Gc and 4.3Aa.
>
> Below are 3 DFM's:
> A) generated with IBO 4.2Gc
> B) generated with IBO 4.3Ga
> C) same as A), but after the project was opened with IBO 4.3Ga
> (nothing changed)
>
> As you can note, the field generated with IBO 4.2Gc is a
> TIBOBCDField, while the field generated with IBO 4.3Ga is a
> TBCDField. Is it a known behavior change?
>
> A) generated with IBO 4.2Gc
>
> object Form1: TForm1
> Left = 192
> Top = 114
> Width = 696
> Height = 480
> Caption = 'Form1'
> Color = clBtnFace
> Font.Charset = DEFAULT_CHARSET
> Font.Color = clWindowText
> Font.Height = -11
> Font.Name = 'MS Sans Serif'
> Font.Style = []
> OldCreateOrder = False
> PixelsPerInch = 96
> TextHeight = 13
> object IBODatabase1: TIBODatabase
> SQLDialect = 3
> Params.Strings = (
> 'PATH=teste'
> 'USER NAME=SYSDBA'
> 'SQL DIALECT=3'
> 'SERVER=interbase.leonilda.com.br'
> 'PROTOCOL=TCP/IP')
> Left = 8
> Top = 8
> end
> object IBOQuery1: TIBOQuery
> Params = <>
> DatabaseName = 'interbase.leonilda.com.br:teste'
> IB_Connection = IBODatabase1
> RecordCountAccurate = True
> SQL.Strings = (
> 'select * from bcd_test')
> FieldOptions = []
> Left = 40
> Top = 8
> object IBOQuery1FIELD1: TIBOBCDField
> FieldName = 'FIELD1'
> end
> end
> end
>
>
> B) generated with IBO 4.3Ga
>
> object Form1: TForm1
> Left = 192
> Top = 114
> Width = 696
> Height = 480
> Caption = 'Form1'
> Color = clBtnFace
> Font.Charset = DEFAULT_CHARSET
> Font.Color = clWindowText
> Font.Height = -11
> Font.Name = 'MS Sans Serif'
> Font.Style = []
> OldCreateOrder = False
> PixelsPerInch = 96
> TextHeight = 13
> object IBODatabase1: TIBODatabase
> SQLDialect = 3
> Params.Strings = (
> 'SERVER=interbase.leonilda.com.br'
> 'PATH=teste'
> 'PROTOCOL=TCP/IP'
> 'USER NAME=SYSDBA'
> 'SQL DIALECT=3')
> Left = 8
> Top = 8
> end
> object IBOQuery1: TIBOQuery
> Params = <>
> DatabaseName = 'interbase.leonilda.com.br:teste'
> IB_Connection = IBODatabase1
> RecordCountAccurate = True
> SQL.Strings = (
> 'select * from bcd_test')
> FieldOptions = []
> Left = 40
> Top = 8
> object IBOQuery1FIELD1: TBCDField
> FieldName = 'FIELD1'
> Precision = 9
> Size = 2
> end
> end
> end
>
>
> C) same as A), but after the project was opened with IBO 4.3Ga
> (nothing changed)
>
> object Form1: TForm1
> Left = 192
> Top = 114
> Width = 696
> Height = 480
> Caption = 'Form1'
> Color = clBtnFace
> Font.Charset = DEFAULT_CHARSET
> Font.Color = clWindowText
> Font.Height = -11
> Font.Name = 'MS Sans Serif'
> Font.Style = []
> OldCreateOrder = False
> PixelsPerInch = 96
> TextHeight = 13
> object IBODatabase1: TIBODatabase
> SQLDialect = 3
> Params.Strings = (
> 'PATH=teste'
> 'USER NAME=SYSDBA'
> 'SQL DIALECT=3'
> 'SERVER=interbase.leonilda.com.br'
> 'PROTOCOL=TCP/IP')
> Left = 8
> Top = 8
> end
> object IBOQuery1: TIBOQuery
> Params = <>
> DatabaseName = 'interbase.leonilda.com.br:teste'
> IB_Connection = IBODatabase1
> RecordCountAccurate = True
> SQL.Strings = (
> 'select * from bcd_test')
> FieldOptions = []
> Left = 40
> Top = 8
> object IBOQuery1FIELD1: TIBOBCDField
> FieldName = 'FIELD1'
> end
> end
> end