Earlier you can call:
Code: Select all
ExecSQLEx( ' begin :result := GetSysFilter(:p_ClassID, :p_UserID); end;',
[ 'p_ClassID', p_ClassID,
'p_UserID', p_UserID
]
);
I check your sources and find out that it's can be easily fixed by simply changing 2 lines of code, from:
Code: Select all
varByte, varWord, varLongWord, varShortInt, varSmallint, varInteger:
FCommand.Params[i].AsInteger := Params[i * 2 + 1];
else
FCommand.Params[i].Value := Params[i * 2 + 1];
Code: Select all
varByte, varWord, varLongWord, varShortInt, varSmallint, varInteger:
FCommand.ParamByName(PName).AsInteger := Params[i * 2 + 1];
else
FCommand.ParamByName(PName).Value := Params[i * 2 + 1];
P.S. Changing of my sources it's very hard task, because it's using as base for uses scripts with thousands lines of code.