ViewVC Help

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

root/public/ibx/branches/udr/client/IBUtils.pas

Comparing ibx/branches/udr/client/IBUtils.pas (file contents):
Revision 371 by tony, Wed Jan 5 15:21:22 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:

Comparing ibx/branches/udr/client/IBUtils.pas (property svn:eol-style):
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 394 by tony, Sat Feb 12 23:26:48 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

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