AsCurrency Problem with latest ODAC Version 8.2
Posted: Wed 04 Jul 2012 11:23
Hello!
I have upgraded to the latest version of ODAC 8.2 and now I am getting an error with the following code:
The .AsCurrency assignment leads to an assertion in
TOraParamDesc.AllocBuffer "Assert(False, SUnknownDataType)"
The datatype at that point is dtCurrency but is unknown?!?
At the moment I fixed it for myself by changing the following code:
procedure TOraParamDesc.AllocBuffer;
Row 4562: from "dtFloat:" to "dtFloat, dtCurrency:"
procedure TOraParamDesc.SetItemAsVariant(Index: integer; const Value: variant);
Row5660: from "dtFloat" to "dtFloat, dtCurrency:"
Could you change the code or if I am wrong could you tell me what's wrong.
Regards
Horst
I have upgraded to the latest version of ODAC 8.2 and now I am getting an error with the following code:
Code: Select all
LargeIntPrecision := 19;
lORASession := TOraSession.Create(NIL);
try
lORASession.Server := 'BMDBMDNTCS';
lORASession.Username := STDUSER;
lORASession.Password := STDPWD;
lORASession.Connected := TRUE;
lORASession.Options.EnableLargeint := True;
lORASession.Options.EnableIntegers := True;
lORASession.Options.EnableNumbers := True;
lORASession.Options.EnableBCD := True;
lORASession.Options.EnableFMTBCD := True;
if lORASession.Connected then begin
lQuery := TOraQuery.Create(NIL);
try
lQuery.Connection := lOraSession;
lQuery.UniDirectional := TRUE;
lQuery.FetchAll := FALSE;
lQuery.SQL.Text := <XXXX>
[b] lQuery.Params.FindParam('BUD_SALDO01').AsCurrency := 257.111;[/b]TOraParamDesc.AllocBuffer "Assert(False, SUnknownDataType)"
The datatype at that point is dtCurrency but is unknown?!?
At the moment I fixed it for myself by changing the following code:
procedure TOraParamDesc.AllocBuffer;
Row 4562: from "dtFloat:" to "dtFloat, dtCurrency:"
procedure TOraParamDesc.SetItemAsVariant(Index: integer; const Value: variant);
Row5660: from "dtFloat" to "dtFloat, dtCurrency:"
Could you change the code or if I am wrong could you tell me what's wrong.
Regards
Horst