ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBStoredProc.pas
(Generate patch)

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