ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/client/2.5/FB25Statement.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/2.5/FB25Statement.pas (file contents):
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 502 | Line 502 | begin
502        FXSQLVAR^.sqlind := nil;
503      end;
504    end;
505 +  Changed;
506   end;
507  
508   procedure TIBXSQLVAR.SetSQLData(AValue: PByte; len: cardinal);
# Line 511 | Line 512 | begin
512    FXSQLVAR^.sqldata := AValue;
513    FXSQLVAR^.sqllen := len;
514    FOwnsSQLData := false;
515 +  Changed;
516   end;
517  
518   procedure TIBXSQLVAR.SetScale(aValue: integer);
519   begin
520    FXSQLVAR^.sqlscale := aValue;
521 +  Changed;
522   end;
523  
524   procedure TIBXSQLVAR.SetDataLength(len: cardinal);
# Line 526 | Line 529 | begin
529    with FirebirdClientAPI do
530      IBAlloc(FXSQLVAR^.sqldata, 0, FXSQLVAR^.sqllen);
531    FOwnsSQLData := true;
532 +  Changed;
533   end;
534  
535   procedure TIBXSQLVAR.SetSQLType(aValue: cardinal);
536   begin
537    FXSQLVAR^.sqltype := aValue or (FXSQLVAR^.sqltype and 1);
538 +  Changed;
539   end;
540  
541   procedure TIBXSQLVAR.SetCharSetID(aValue: cardinal);
542   begin
543    if aValue <> GetCharSetID then
544 <  case SQLType of
545 <  SQL_VARYING, SQL_TEXT:
546 <      FXSQLVAR^.sqlsubtype := (aValue and $FF) or (FXSQLVAR^.sqlsubtype and not $FF);
547 <
548 <  SQL_BLOB,
549 <  SQL_ARRAY:
550 <    IBError(ibxeInvalidDataConversion,[nil]);
544 >  begin
545 >    case SQLType of
546 >    SQL_VARYING, SQL_TEXT:
547 >        FXSQLVAR^.sqlsubtype := (aValue and $FF) or (FXSQLVAR^.sqlsubtype and not $FF);
548 >
549 >    SQL_BLOB,
550 >    SQL_ARRAY:
551 >      IBError(ibxeInvalidDataConversion,[nil]);
552 >    end;
553 >  Changed;
554    end;
555   end;
556  
# Line 1038 | Line 1046 | begin
1046         RemoveMonitor(aTransaction as TFB25Transaction);
1047    end;
1048    FExecTransactionIntf := aTransaction;
1049 +  FSQLRecord.FTransaction := aTransaction as TFB25Transaction;
1050 +  FSQLRecord.FTransactionSeqNo := FSQLRecord.FTransaction.TransactionSeqNo;
1051    Inc(FChangeSeqNo);
1052   end;
1053  
# Line 1209 | Line 1219 | begin
1219        FBOF := false;
1220        result := true;
1221      end;
1222 +    if FCollectStatistics then
1223 +    begin
1224 +      GetPerfCounters(FAfterStats);
1225 +      FStatisticsAvailable := true;
1226 +    end;
1227    end;
1228    FSQLRecord.RowChange;
1229    if FEOF then

Diff Legend

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