	string ls_error
	ls_error = "Error during " + ls_msg + "~r~n~r~n"
	ls_error = ls_error + "Transaction Error Code : " + String ( %%transaction_object%%.SqlCode) 	+ "~r~n"
	ls_error = ls_error + "Database Error Code    : " + String ( %%transaction_object%%.SqldbCode)	+ "~r~n"
	ls_error = ls_error + "DBMS                   : " + %%transaction_object%%.DBMS						+ "~r~n"
	ls_error = ls_error + "Database               : " + %%transaction_object%%.DataBase					+ "~r~n"
	ls_error = ls_error + "User ID                : " + %%transaction_object%%.UserId					+ "~r~n"
	ls_error = ls_error + "DBParm                 : " + %%transaction_object%%.dbParm					+ "~r~n"
	ls_error = ls_error + "Login ID               : " + %%transaction_object%%.LogId						+ "~r~n"
	ls_error = ls_error + "ServerName             : " + %%transaction_object%%.ServerName				+ "~r~n"
	IF %%transaction_object%%.AutoCommit THEN
		ls_error = ls_error + "AutoCommit             :True~r~n"
	ELSE
		ls_error = ls_error + "AutoCommit             :False~r~n"
	END IF
	ls_error = ls_error + "Database Error Message : " + %%transaction_object%%.SqlErrText + "~r~n"

	Messagebox ( Parent.title, ls_error )