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 387 by tony, Wed Jan 19 13:34:42 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, jeTransEnd, 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 2897 | Line 2899 | begin
2899		Result := jeTransEnd;
2900		'Q':
2901		Result := jeQuery;
2902	+	'F':
2903	+	Result := jeTransCommitFail;
2904	+	'f':
2905	+	Result := jeTransRollbackFail;
2906		end;
2907		end;
2908
#	Line 2907 | Line 2913 | begin
2913		Result := 'Transaction Start';
2914		jeTransCommit:
2915		Result := 'Commit';
2916	+	jeTransCommitFail:
2917	+	Result := 'Commit (Failed)';
2918		jeTransCommitRet:
2919		Result := 'Commit Retaining';
2920		jeTransRollback:
2921		Result := 'Rollback';
2922	+	jeTransRollbackFail:
2923	+	Result := 'Rollback (Failed)';
2924		jeTransRollbackRet:
2925		Result := 'Rollback Retaining';
2926		jeTransEnd:

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 387 by tony, Wed Jan 19 13:34:42 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

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