Devart Forums

Hi.

There is TUniStoredProc component problem.

// source code...
Debug := True;
with UniStoredProc1 do
begin
DisableControls;
Close;

ParamByName('ThisMonth').AsString := ThisMonth;
ParamByName('Items').AsString := WhereText;
ParamByName('pToDay').AsString := FormatDateTime('YYYYMMDD', ToDay.Date);
ParamByName('FromDate').AsString := FormatDateTime('YYYYMMDD', FromDate.Date);
ParamByName('ToDate').AsString := FormatDateTime('YYYYMMDD', ToDay.Date);
ParamByName('StartDay').AsString := FormatDateTime('YYYYMMDD', StartOfTheMonth(ToDay.Date));
ParamByName('Seq').AsInteger := DeptInfo.DeptSeq;

Open;
.........
end;


When the first time execution is NULL value.

{:RETURN_VALUE = CALL CHOA_GetCustCount (:ThisMonth, :Items, :pToDay, :StartDay, :FromDate, :ToDate, :Seq)}

:RETURN_VALUE(Integer,RESULT)=
:ThisMonth(String[0],IN)=
:Items(String[0],IN)=
:pToDay(String[0],IN)=
:StartDay(String[0],IN)=
:FromDate(String[0],IN)=
:ToDate(String[0],IN)=
:Seq(Integer,IN)=

But when the second time execution is normal.
{:RETURN_VALUE = CALL CHOA_GetCustCount (:ThisMonth, :Items, :pToDay, :StartDay, :FromDate, :ToDate, :Seq)}

:RETURN_VALUE(Integer,RESULT)=0
:ThisMonth(WideString[8],IN)='20070115'
:Items(WideString[6],IN)='DHE023'
:pToDay(WideString[8],IN)='20070115'
:StartDay(WideString[8],IN)='20070101'
:FromDate(WideString[8],IN)='20070101'
:ToDate(WideString[8],IN)='20070115'
:Seq(Integer,IN)=0

TMSStoredProc component is no problem!

Please test and reply.


MS Sqlserver 2008 sp2
Delphi 2010
TUniStoredProc 3.50.0.13
TMSStoredProc 5.00.0.2

Thanks.

I could not reproduce the problem. Please send me a complete small sample to dmitryg*devart*com to demonstrate it, including script to create database objects.

Dimon wrote:I could not reproduce the problem. Please send me a complete small sample to dmitryg*devart*com to demonstrate it, including script to create database objects.

Send UniStoredProc Component sample test file.
([email protected]) => send fail.

Re-send at the 'contact us' menu.

Test and reply.

Hello,

Unfortunately we we didn't receive your e-mail, please resend it to alexp*devart*com, if you can't send your letter to this email address, please send it from our site http://www.devart.com/company/contact.html

Hello,

Please send the source code of your project including a script to create a stored function.

AlexP wrote:Hello,

Please send the source code of your project including a script to create a stored function.

Send test file => http://www.devart.com/company/contact.html.

Inclued source, exe, sp script.

ibdac1pro wrote:

AlexP wrote:Hello,

Please send the source code of your project including a script to create a stored function.

Send test file => http://www.devart.com/company/contact.html.

Inclued source, exe, sp script.

Result test?

We are urgent.

Please reply.

Hello,

Thank you for the information.
I have received your mail and reproduced the problem.
I will notify you as soon as I have any results.
Now you can use the following workaround: before calling the Open method you should call the Prepare method of the TUniStoredProc component.

AlexP wrote:Hello,

Thank you for the information.
I have received your mail and reproduced the problem.
I will notify you as soon as I have any results.
Now you can use the following workaround: before calling the Open method you should call the Prepare method of the TUniStoredProc component.

Solved at the latest version that above UniStoredProc.Open problem?

Hello,

We are still working on this problem.
We will notify you as soon as I have any results.

Hello

We have fixed this issue. This fix will be included in the next UniDAC build.

bork wrote:Hello

We have fixed this issue. This fix will be included in the next UniDAC build.

Thanks.