private static SUserRow LoadUser(String AUserID, out TPetraIdentity APetraIdentity, TDBTransaction ATransaction)
{
SUserRow ReturnValue;
SUserTable UserDT = null;
SUserRow UserDR;
DateTime LastLoginDateTime;
DateTime FailedLoginDateTime;
// Check if user exists in s_user DB Table
if (!SUserAccess.Exists(AUserID, ATransaction))
{
throw new EUserNotExistantException(StrInvalidUserIDPassword);
}
// User exists, so load User record
UserDT = SUserAccess.LoadByPrimaryKey(AUserID, ATransaction);
UserDR = UserDT[0];
if (!UserDR.IsFailedLoginDateNull())
{
FailedLoginDateTime = UserDR.FailedLoginDate.Value;
FailedLoginDateTime = FailedLoginDateTime.AddSeconds(Convert.ToDouble(UserDR.FailedLoginTime));
}
else
{
FailedLoginDateTime = DateTime.MinValue;
}
if (!UserDR.IsLastLoginDateNull())
{
LastLoginDateTime = UserDR.LastLoginDate.Value;
LastLoginDateTime = LastLoginDateTime.AddSeconds(Convert.ToDouble(UserDR.LastLoginTime));
}
else
{
LastLoginDateTime = DateTime.MinValue;
}
Int64 PartnerKey;
if (!UserDR.IsPartnerKeyNull())
{
PartnerKey = UserDR.PartnerKey;
}
else
{
// to make it not match PartnerKey 0, which might be stored in the DB or in a variable
PartnerKey = -1;
}
// Create PetraIdentity
APetraIdentity = new Ict.Petra.Shared.Security.TPetraIdentity(
AUserID.ToUpper(), UserDR.LastName, UserDR.FirstName, UserDR.LanguageCode, UserDR.AcquisitionCode, DateTime.MinValue,
LastLoginDateTime, FailedLoginDateTime, UserDR.FailedLogins, PartnerKey, UserDR.DefaultLedgerNumber, UserDR.AccountLocked,
UserDR.Retired, UserDR.CanModify);
ReturnValue = UserDR;
return(ReturnValue);
}
/// <summary>
/// AddUser
/// </summary>
public override bool AddUser(string AUserID, string APassword = "")
{
// we need a GUserInfo object for submitting the changes to the database later on
TPetraIdentity PetraIdentity = new TPetraIdentity(
"SYSADMIN", "", "", "", "", DateTime.MinValue,
DateTime.MinValue, DateTime.MinValue, 0, -1, -1, false,
false);
UserInfo.GUserInfo = new TPetraPrincipal(PetraIdentity, null);
return FUserManager.AddUser(AUserID, APassword);
}
public static SUserRow LoadUser(String AUserID, out TPetraIdentity APetraIdentity)
{
SUserRow ReturnValue;
TDBTransaction ReadTransaction = null;
SUserTable UserDT = null;
SUserRow UserDR;
DateTime LastLoginDateTime;
DateTime FailedLoginDateTime;
DBAccess.GDBAccessObj.GetNewOrExistingAutoReadTransaction(
IsolationLevel.Serializable, TEnforceIsolationLevel.eilMinimum, ref ReadTransaction,
delegate
{
// Check if user exists in s_user DB Table
if (!SUserAccess.Exists(AUserID, ReadTransaction))
{
throw new EUserNotExistantException(StrInvalidUserIDPassword);
}
// User exists, so load User record
UserDT = SUserAccess.LoadByPrimaryKey(AUserID, ReadTransaction);
});
UserDR = UserDT[0];
if (!UserDR.IsFailedLoginDateNull())
{
FailedLoginDateTime = UserDR.FailedLoginDate.Value;
FailedLoginDateTime = FailedLoginDateTime.AddSeconds(Convert.ToDouble(UserDR.FailedLoginTime));
}
else
{
FailedLoginDateTime = DateTime.MinValue;
}
if (!UserDR.IsLastLoginDateNull())
{
LastLoginDateTime = UserDR.LastLoginDate.Value;
LastLoginDateTime = LastLoginDateTime.AddSeconds(Convert.ToDouble(UserDR.LastLoginTime));
}
else
{
LastLoginDateTime = DateTime.MinValue;
}
Int64 PartnerKey;
if (!UserDR.IsPartnerKeyNull())
{
PartnerKey = UserDR.PartnerKey;
}
else
{
// to make it not match PartnerKey 0, which might be stored in the DB or in a variable
PartnerKey = -1;
}
// Create PetraIdentity
APetraIdentity = new Ict.Petra.Shared.Security.TPetraIdentity(
AUserID.ToUpper(), UserDR.LastName, UserDR.FirstName, UserDR.LanguageCode, UserDR.AcquisitionCode, DateTime.MinValue,
LastLoginDateTime, FailedLoginDateTime, UserDR.FailedLogins, PartnerKey, UserDR.DefaultLedgerNumber, UserDR.Retired,
UserDR.CanModify);
ReturnValue = UserDR;
return ReturnValue;
}
/// <summary>
/// processes the delegate
/// </summary>
private static void GenericProcessor(object ADelegateName, bool ARunManually)
{
if (!FProcessDelegates.ContainsKey((string)ADelegateName))
{
return;
}
TDataBase db = EstablishDBConnection();
TPetraIdentity PetraIdentity = new TPetraIdentity(
"SYSADMIN", "", "", "", "", DateTime.MinValue,
DateTime.MinValue, DateTime.MinValue, 0, -1, -1, false,
false);
UserInfo.GUserInfo = new TPetraPrincipal(PetraIdentity, null);
TProcessDelegate TypedDelegate = FProcessDelegates[(string)ADelegateName];
TypedDelegate(db, ARunManually);
CloseDBConnection(db);
if (TLogging.DebugLevel >= 9)
{
TLogging.Log("delegate " + ADelegateName + " has run.");
}
}
public static SUserRow LoadUser(String AUserID, out TPetraIdentity APetraIdentity)
{
SUserRow ReturnValue;
TDBTransaction ReadWriteTransaction;
Boolean NewTransaction;
SUserTable UserDT;
SUserRow UserDR;
Boolean UserExists;
DateTime LastLoginDateTime;
DateTime FailedLoginDateTime;
ReadWriteTransaction = DBAccess.GDBAccessObj.GetNewOrExistingTransaction(IsolationLevel.Serializable,
TEnforceIsolationLevel.eilMinimum,
out NewTransaction);
// Check if user exists in s_user DB Table
try
{
UserExists = SUserAccess.Exists(AUserID, ReadWriteTransaction);
}
catch
{
if (NewTransaction)
{
DBAccess.GDBAccessObj.CommitTransaction();
TLogging.LogAtLevel(7, "TUserManager.LoadUser: committed own transaction.");
}
throw;
}
if (!UserExists)
{
throw new EUserNotExistantException(StrInvalidUserIDPassword);
}
else
{
try
{
// Load User record
UserDT = SUserAccess.LoadByPrimaryKey(AUserID, ReadWriteTransaction);
}
catch (Exception Exp)
{
if (NewTransaction)
{
DBAccess.GDBAccessObj.CommitTransaction();
TLogging.LogAtLevel(7, "TUserManager.LoadUser: committed own transaction.");
}
TLogging.LogAtLevel(8, "Exception occured while loading a s_user record: " + Exp.ToString());
throw;
}
if (NewTransaction)
{
DBAccess.GDBAccessObj.CommitTransaction();
TLogging.LogAtLevel(7, "TUserManager.LoadUser: committed own transaction.");
}
UserDR = UserDT[0];
if (!UserDR.IsFailedLoginDateNull())
{
FailedLoginDateTime = UserDR.FailedLoginDate.Value;
FailedLoginDateTime = FailedLoginDateTime.AddSeconds(Convert.ToDouble(UserDR.FailedLoginTime));
}
else
{
FailedLoginDateTime = DateTime.MinValue;
}
if (!UserDR.IsLastLoginDateNull())
{
LastLoginDateTime = UserDR.LastLoginDate.Value;
LastLoginDateTime = LastLoginDateTime.AddSeconds(Convert.ToDouble(UserDR.LastLoginTime));
}
else
{
LastLoginDateTime = DateTime.MinValue;
}
Int64 PartnerKey;
if (!UserDR.IsPartnerKeyNull())
{
PartnerKey = UserDR.PartnerKey;
}
else
{
// to make it not match PartnerKey 0, which might be stored in the DB or in a variable
PartnerKey = -1;
}
// Create PetraIdentity
APetraIdentity = new Ict.Petra.Shared.Security.TPetraIdentity(
AUserID.ToUpper(), UserDR.LastName, UserDR.FirstName, UserDR.LanguageCode, UserDR.AcquisitionCode, DateTime.MinValue,
LastLoginDateTime, FailedLoginDateTime, UserDR.FailedLogins, PartnerKey, UserDR.DefaultLedgerNumber, UserDR.Retired,
UserDR.CanModify);
ReturnValue = UserDR;
}
return ReturnValue;
}
/// <summary>
/// Gets called in regular intervals from a Timer in Class TTimedProcessing.
/// </summary>
/// <param name="ADBAccessObj">Already instatiated DB Access object with opened DB connection.</param>
/// <param name="ARunManually">this is true if the process was called manually from the server admin console</param>
public static void Process(TDataBase ADBAccessObj, bool ARunManually)
{
TDBTransaction ReadWriteTransaction;
bool NewTransaction;
bool LastReminderDateAcquired;
DateTime LastReminderDate;
DataSet ReminderResultsDS;
SSystemDefaultsRow SystemDefaultsDR;
PPartnerReminderTable PartnerReminderDT;
int ReminderFreqency;
TDataBase DBAccessObj;
if (TLogging.DebugLevel >= 6)
{
TLogging.Log("Entering TProcessPartnerReminders.Process...");
}
// TODO: it is quite ipossible at the moment to use ADBAccessObj instead of DBAccess.GDBAccessObj due to SubmitChanges etc
//DBAccessObj = ADBAccessObj;
DBAccessObj = DBAccess.GDBAccessObj;
// SubmitChanges references a user
TPetraIdentity PetraIdentity = new TPetraIdentity(
"SYSADMIN", "", "", "", "", DateTime.MinValue,
DateTime.MinValue, DateTime.MinValue, 0, -1, -1, false,
false);
UserInfo.GUserInfo = new TPetraPrincipal(PetraIdentity, null);
ReadWriteTransaction = DBAccessObj.GetNewOrExistingTransaction(IsolationLevel.ReadCommitted,
out NewTransaction);
/*
* This whole process must either succeed or fail, therefore the whole thing is in a try-catch.
*/
try
{
/*
* Obtain date when PartnerReminders last ran. This is stored in a SystemDefault. If it doesn't exist already,
* a new SystemDefault with an ancient date is created for us.
*/
LastReminderDateAcquired = GetLastReminderDate(out LastReminderDate, out SystemDefaultsDR, ReadWriteTransaction);
if (!LastReminderDateAcquired)
{
TLogging.Log(
TTimedProcessing.StrAutomaticProcessing + StrRemindersProcessing +
": Could not send Partner Reminders because Petra couldn't create the required SystemDefault setting for the Last Reminder Date!");
DBAccessObj.RollbackTransaction();
return;
}
TSmtpSender Sender = new TSmtpSender();
if (!Sender.FInitOk)
{
TLogging.Log(
TTimedProcessing.StrAutomaticProcessing + StrRemindersProcessing +
": Could not send Partner Reminders because SMTP server didn't initialise.");
DBAccessObj.RollbackTransaction();
return;
}
// Retrieve all PartnerReminders we need to process.
ReminderResultsDS = GetRemindersToProcess(LastReminderDate, out PartnerReminderDT,
DBAccessObj, ReadWriteTransaction);
/*
* We now have a Typed DataTable with the PartnerReminders that we need to process.
* Iterate through the PartnerReminders, update data, and send an email for each PartnerReminder.
*/
if (TLogging.DebugLevel >= 6)
{
TLogging.Log("_---------------------------------_");
TLogging.Log("PartnerReminders data before we start processing all PartnerReminders....");
TLogging.Log(ReminderResultsDS.GetXml().ToString());
}
foreach (PPartnerReminderRow PartnerReminderDR in PartnerReminderDT.Rows)
{
if (TLogging.DebugLevel >= 4)
{
TLogging.Log(String.Format(TTimedProcessing.StrAutomaticProcessing + StrRemindersProcessing +
": Processing Reminder ID {0} for Partner {1}.", PartnerReminderDR.ReminderId, PartnerReminderDR.PartnerKey));
}
ReminderFreqency = (PartnerReminderDR.IsReminderFrequencyNull()) ? 0 : PartnerReminderDR.ReminderFrequency;
PartnerReminderDR.BeginEdit();
PartnerReminderDR.LastReminderSent = DateTime.Now.Date;
PartnerReminderDR.NextReminderDate = DateTime.Now.Date.AddDays(ReminderFreqency);
if (!PartnerReminderDR.IsEventDateNull()) // Reminder has an Event Date
{
if (PartnerReminderDR.NextReminderDate > PartnerReminderDR.EventDate)
{
if (TLogging.DebugLevel >= 5)
{
TLogging.Log(String.Format(TTimedProcessing.StrAutomaticProcessing + StrRemindersProcessing +
": Deactivating Reminder ID {0} for Partner {1} as its Event Date is in the past.",
PartnerReminderDR.ReminderId, PartnerReminderDR.PartnerKey));
}
PartnerReminderDR.ReminderActive = false;
}
}
if (TLogging.DebugLevel >= 4)
{
TLogging.Log(String.Format(TTimedProcessing.StrAutomaticProcessing + StrRemindersProcessing +
": Sending email for Reminder ID {0} for Partner {1}.", PartnerReminderDR.ReminderId, PartnerReminderDR.PartnerKey));
}
if (SendReminderEmail(PartnerReminderDR, ReadWriteTransaction, Sender))
{
// Accept the edit
if (TLogging.DebugLevel >= 4)
{
TLogging.Log(String.Format(TTimedProcessing.StrAutomaticProcessing + StrRemindersProcessing +
": Reminder ID {0} for Partner {1} accepted by SMTP server.", PartnerReminderDR.ReminderId,
PartnerReminderDR.PartnerKey));
}
PartnerReminderDR.EndEdit();
}
else
{
// Cancel the edit
TLogging.Log(String.Format(TTimedProcessing.StrAutomaticProcessing + StrRemindersProcessing +
": Reminder ID {0} for Partner {1} REJECTED by SMTP server.", PartnerReminderDR.ReminderId,
PartnerReminderDR.PartnerKey));
PartnerReminderDR.CancelEdit();
}
}
if (TLogging.DebugLevel >= 6)
{
TLogging.Log("_---------------------------------_");
TLogging.Log("PartnerReminders data after processing all PartnerReminders, before writing it to DB....");
TLogging.Log(PartnerReminderDT.DataSet.GetXml().ToString());
}
// Update all the changed PartnerReminder Rows
PPartnerReminderAccess.SubmitChanges(PartnerReminderDT, ReadWriteTransaction);
if (TLogging.DebugLevel >= 6)
{
TLogging.Log("_---------------------------------_");
}
/*
* Update the SystemDefault that keeps track of when Partner Reminders last ran.
* (SystemDefaultsDR will point to the row we loaded earlier on, OR the row we added earlier on
* if there wasn't already a SystemDefault row.)
*/
UpdateLastReminderDate(SystemDefaultsDR, ReadWriteTransaction);
if (NewTransaction)
{
DBAccess.GDBAccessObj.CommitTransaction();
}
TLogging.LogAtLevel(1, TTimedProcessing.StrAutomaticProcessing + StrRemindersProcessing + " ran succesfully.");
}
catch (Exception Exc)
{
TLogging.Log(
TTimedProcessing.StrAutomaticProcessing + StrRemindersProcessing + " encountered an Exception:" + Environment.NewLine +
Exc.ToString());
if (NewTransaction)
{
DBAccess.GDBAccessObj.RollbackTransaction();
}
throw;
}
}
void BtnPrintReportPDFClick(object sender, EventArgs e)
{
OpenFileDialog DialogOpen = new OpenFileDialog();
// see file in sub directory test data.
// create file with method TResultList.WriteBinaryFile
DialogOpen.Filter = "Binary Report File (*.bin)|*.bin";
DialogOpen.RestoreDirectory = true;
DialogOpen.Title = "Open Binary Report File";
if (DialogOpen.ShowDialog() == DialogResult.OK)
{
TResultList Results = new TResultList();
TParameterList Parameters;
Results.ReadBinaryFile(DialogOpen.FileName, out Parameters);
TPetraIdentity PetraIdentity = new TPetraIdentity(
"TESTUSER", "", "", "", "", DateTime.MinValue,
DateTime.MinValue, DateTime.MinValue, 0, -1, -1, false,
false);
UserInfo.GUserInfo = new TPetraPrincipal(PetraIdentity, null);
PrintDocument doc = new PrintDocument();
TPdfPrinter pdfPrinter = new TPdfPrinter(doc, TGfxPrinter.ePrinterBehaviour.eReport);
TReportPrinterLayout layout = new TReportPrinterLayout(Results, Parameters, pdfPrinter, true);
pdfPrinter.Init(eOrientation.ePortrait, layout, eMarginType.ePrintableArea);
pdfPrinter.SavePDF("test.pdf");
System.Diagnostics.Process.Start(Path.GetFullPath("test.pdf"));
}
}
void TbbImportReportBinaryFileClick(object sender, EventArgs e)
{
OpenFileDialog DialogOpen = new OpenFileDialog();
// see file in sub directory test data.
// create file with method TResultList.WriteBinaryFile
DialogOpen.Filter = "Binary Report File (*.bin)|*.bin";
DialogOpen.RestoreDirectory = true;
DialogOpen.Title = "Open Binary Report File";
if (DialogOpen.ShowDialog() == DialogResult.OK)
{
TResultList Results = new TResultList();
TParameterList Parameters;
Results.ReadBinaryFile(DialogOpen.FileName, out Parameters);
PrintDocument doc = new PrintDocument();
TPetraIdentity PetraIdentity = new TPetraIdentity(
"TESTUSER", "", "", "", "", DateTime.MinValue,
DateTime.MinValue, DateTime.MinValue, 0, -1, -1, false,
false);
UserInfo.GUserInfo = new TPetraPrincipal(PetraIdentity, null);
FGfxPrinter = new TGfxPrinter(doc, TGfxPrinter.ePrinterBehaviour.eReport);
new TReportPrinterLayout(Results, Parameters, FGfxPrinter, true);
printPreviewControl1.Document = doc;
doc.EndPrint += new PrintEventHandler(this.PrintDocument_EndPrint);
printPreviewControl1.InvalidatePreview();
}
}
public static SUserRow LoadUser(String AUserID, out TPetraIdentity APetraIdentity)
{
SUserRow ReturnValue;
TDBTransaction ReadWriteTransaction;
Boolean NewTransaction;
SUserTable UserDT;
SUserRow UserDR;
Boolean UserExists;
DateTime LastLoginDateTime;
DateTime FailedLoginDateTime;
ReadWriteTransaction = DBAccess.GDBAccessObj.GetNewOrExistingTransaction(IsolationLevel.Serializable,
TEnforceIsolationLevel.eilMinimum,
out NewTransaction);
// Check if user exists in s_user DB Table
try
{
UserExists = SUserAccess.Exists(AUserID, ReadWriteTransaction);
}
catch
{
if (NewTransaction)
{
DBAccess.GDBAccessObj.CommitTransaction();
TLogging.LogAtLevel(7, "TUserManager.LoadUser: committed own transaction.");
}
throw;
}
if (!UserExists)
{
throw new EUserNotExistantException(StrInvalidUserIDPassword);
}
else
{
try
{
// Load User record
UserDT = SUserAccess.LoadByPrimaryKey(AUserID, ReadWriteTransaction);
}
catch (Exception Exp)
{
if (NewTransaction)
{
DBAccess.GDBAccessObj.CommitTransaction();
TLogging.LogAtLevel(7, "TUserManager.LoadUser: committed own transaction.");
}
TLogging.LogAtLevel(8, "Exception occured while loading a s_user record: " + Exp.ToString());
throw;
}
if (NewTransaction)
{
DBAccess.GDBAccessObj.CommitTransaction();
TLogging.LogAtLevel(7, "TUserManager.LoadUser: committed own transaction.");
}
UserDR = UserDT[0];
if (!UserDR.IsFailedLoginDateNull())
{
FailedLoginDateTime = UserDR.FailedLoginDate.Value;
FailedLoginDateTime = FailedLoginDateTime.AddSeconds(Convert.ToDouble(UserDR.FailedLoginTime));
}
else
{
FailedLoginDateTime = DateTime.MinValue;
}
if (!UserDR.IsLastLoginDateNull())
{
LastLoginDateTime = UserDR.LastLoginDate.Value;
LastLoginDateTime = LastLoginDateTime.AddSeconds(Convert.ToDouble(UserDR.LastLoginTime));
}
else
{
LastLoginDateTime = DateTime.MinValue;
}
Int64 PartnerKey;
if (!UserDR.IsPartnerKeyNull())
{
PartnerKey = UserDR.PartnerKey;
}
else
{
// to make it not match PartnerKey 0, which might be stored in the DB or in a variable
PartnerKey = -1;
}
// Create PetraIdentity
APetraIdentity = new Ict.Petra.Shared.Security.TPetraIdentity(
AUserID.ToUpper(), UserDR.LastName, UserDR.FirstName, UserDR.LanguageCode, UserDR.AcquisitionCode, DateTime.MinValue,
LastLoginDateTime, FailedLoginDateTime, UserDR.FailedLogins, PartnerKey, UserDR.DefaultLedgerNumber, UserDR.Retired,
UserDR.CanModify);
ReturnValue = UserDR;
}
return(ReturnValue);
}