UniStoredProc Component bug?

ibdac1pro · Post by **ibdac1pro** » Mon 29 Nov 2010 09:25

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.

Dimon · Post by **Dimon** » Tue 30 Nov 2010 08:39

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.

ibdac2pro · Post by **ibdac2pro** » Wed 01 Dec 2010 02:52

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.

AlexP · Post by **AlexP** » Wed 01 Dec 2010 11:39

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

AlexP · Post by **AlexP** » Wed 01 Dec 2010 12:39

Hello,

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

ibdac1pro · Post by **ibdac1pro** » Thu 02 Dec 2010 00:45

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.

ibdac2pro · Post by **ibdac2pro** » Sun 05 Dec 2010 23:12

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.

AlexP · Post by **AlexP** » Mon 06 Dec 2010 12:07

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.

ibdac2pro · Post by **ibdac2pro** » Sun 12 Dec 2010 23:30

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?

AlexP · Post by **AlexP** » Mon 13 Dec 2010 09:25

Hello,

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

bork · Post by **bork** » Tue 14 Dec 2010 10:35

Hello

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

ibdac2pro · Post by **ibdac2pro** » Tue 14 Dec 2010 23:29

bork wrote:Hello

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

Thanks.