Hello, I have a Problem using as dsql for multiple Inserts with
Params. In the second time I prepare the Statement there is a
runtime error EAccessviolation in rtl70.bpl.

The Problem is in procedure TIB_Statement.SysRestoreParamValueLinks,
especially in the Code:

if IsCurrencyDataType then
tmpStr[Length( tmpStr ) + SQLScale] := DecimalSeparator;
AsString := tmpStr;

With my Domain Definition the IsCurrencyDataType returns True, but
tmpstr ist only the letter 1, Length=1. With SQLSCALE=-2 then string
becomes corrupt and the assignment to AsString generates the
Exception.
The Domain is like the following, D7, IBO 4.3.Aa

CREATE DOMAIN BELEGANZAHL_D NUMERIC( 8, 2 )
default 1.00
NOT NULL

Any idea or fix?
Thank You Dieter Tremel