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

Comparing ibx/branches/udr/client/IBUtils.pas (file contents):
Revision 379 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 394 by tony, Sat Feb 12 23:26:48 2022 UTC

# Line 720 | Line 720 | type
720      property OnProgressEvent: TOnProgressEvent read FOnProgressEvent write FOnProgressEvent; {Progress Bar Support}
721   end;
722  
723 < TJnlEntryType = (jeTransStart, jeTransCommit, jeTransCommitRet, jeTransRollback,
724 <                   jeTransRollbackRet, jeTransEnd, jeQuery,jeUnknown);
723 > TJnlEntryType = (jeTransStart, jeTransCommit, jeTransCommitFail, jeTransCommitRet, jeTransRollback,
724 >                   jeTransRollbackFail, jeTransRollbackRet, jeQuery,jeUnknown);
725  
726   TJnlEntry = record
727     JnlEntryType: TJnlEntryType;
# Line 2815 | Line 2815 | begin
2815       lsGotSessionID:
2816         begin
2817           TransactionID := StrToInt(TokenText);
2818 <         if JnlEntryType in [jeTransCommit, jeTransRollback] then
2818 >         if JnlEntryType in [jeTransCommit, jeTransCommitFail, jeTransRollback, jeTransRollbackFail] then
2819           begin
2820             if assigned(FOnNextJournalEntry) then
2821               OnNextJournalEntry(JnlEntry);
# Line 2841 | Line 2841 | begin
2841             end;
2842  
2843           jeTransCommitRet,
2844 +         jeTransCommitFail,
2845 +         jeTransRollbackFail,
2846           jeTransRollbackRet:
2847             begin
2848               OldTransactionID := StrToInt(TokenText);
# Line 2893 | Line 2895 | begin
2895      Result := jeTransRollback;
2896    'r':
2897      Result := jeTransRollbackRet;
2896 –  'E':
2897 –    Result := jeTransEnd;
2898    'Q':
2899      Result := jeQuery;
2900 +  'F':
2901 +    Result := jeTransCommitFail;
2902 +  'f':
2903 +    Result := jeTransRollbackFail;
2904    end;
2905   end;
2906  
# Line 2907 | Line 2911 | begin
2911      Result := 'Transaction Start';
2912    jeTransCommit:
2913      Result := 'Commit';
2914 +  jeTransCommitFail:
2915 +    Result := 'Commit (Failed)';
2916    jeTransCommitRet:
2917      Result := 'Commit Retaining';
2918    jeTransRollback:
2919      Result := 'Rollback';
2920 +  jeTransRollbackFail:
2921 +    Result := 'Rollback (Failed)';
2922    jeTransRollbackRet:
2923      Result := 'Rollback Retaining';
2916 –  jeTransEnd:
2917 –    Result := 'Transaction End';
2924    jeQuery:
2925      Result := 'Query';
2926    jeUnknown:

Diff Legend

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