ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/udr/testsuite/Test03.pas
(Generate patch)
# Line 69 | Line 69
69      Results: IProcedureResults;
70   begin
71    UDRPlugin.Attachment := Attachment;
72 <  MyTestProc := UDRPlugin.GetExternalProcedure('MYSELECTPROC','','fbudrtests!select_proc');
72 >  MyTestProc := UDRPlugin.makeProcedure('MYSELECTPROC','','fbudrtests!select_proc');
73    try
74      writeln(OutFile,'List Employees, salaries and accumulated salary');
75      Transaction := Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit);
# Line 92 | Line 92
92      Results: IProcedureResults;
93   begin
94    UDRPlugin.Attachment := Attachment;
95 <  MyReadText := UDRPlugin.GetExternalProcedure('MYREADTEXT','','fbudrtests!read_txt');
95 >  MyReadText := UDRPlugin.makeProcedure('MYREADTEXT','','fbudrtests!read_txt');
96    try
97      MyReadText.InputParams[0].AsString := 'testsuite.conf';
98      writeln(OutFile,'Dump text file - testsuite.conf');

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines