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); |
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'); |