ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBStoredProc.pas

Comparing ibx/trunk/runtime/IBStoredProc.pas (file contents):
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC vs.
Revision 23 by tony, Fri Mar 13 10:26:52 2015 UTC

#	Line 235 | Line 235 | var
235		Query : TIBSQL;
236		input : string;
237		begin
238	+	input := '';
239		if FProcName = '' then
240		IBError(ibxeNoStoredProcName,[nil]);
241		ActivateConnection;
#	Line 302 | Line 303 | begin
303		else
304		DataType := ftFloat;
305		SQL_DOUBLE, SQL_FLOAT, SQL_D_FLOAT: DataType := ftFloat;
306	+	SQL_BOOLEAN:
307	+	DataType := ftBoolean;
308		SQL_TEXT: DataType := ftString;
309		SQL_VARYING:
310		if ((QSelect.Fields[i].AsXSQLVar)^.sqllen < 1024) then
#	Line 336 | Line 339 | begin
339		DataType := ftBCD
340		else DataType := ftFloat;
341		SQL_DOUBLE, SQL_FLOAT, SQL_D_FLOAT: DataType := ftFloat;
342	+	SQL_BOOLEAN:
343	+	DataType := ftBoolean;
344		SQL_TEXT: DataType := ftString;
345		SQL_VARYING:
346		if ((QSelect.Params[i].AsXSQLVar)^.sqllen < 1024) then
#	Line 467 | Line 472 | begin
472		case Params[j].DataType of
473		ftString:
474		SQLParams[i].AsString := Params[j].AsString;
475	<	ftBoolean, ftSmallint, ftWord:
475	>	ftSmallint, ftWord:
476		SQLParams[i].AsShort := Params[j].AsSmallInt;
477	+	ftBoolean:
478	+	SQLParams[i].AsBoolean := Params[j].AsBoolean;
479		ftInteger:
480		SQLParams[i].AsLong := Params[j].AsInteger;
481		ftLargeInt:
#	Line 556 | Line 563 | begin
563		Reader.ReadCollection(Params);
564		end;
565
566	<	end.
566	>	end.

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines