/// <summary>
/// Tests whether the current user has access to a particular Partner.
/// </summary>
/// <remarks>Corresponds to Progress 4GL Method 'CanAccessPartner' in
/// common/sp_partn.p</remarks>
/// <param name="APartnerKey">PartnerKey of Partner for which access should
/// be checked for.</param>
/// <param name="AThrowExceptionIfDenied"></param>
/// <param name="ADataBase">An instantiated <see cref="TDataBase" /> object, or null (default = null). If null
/// gets passed then the Method executes DB commands with a new Database connection</param>
/// <returns><see cref="TPartnerAccessLevelEnum.palGranted" /> if access
/// to the Partner is granted (or Partner doesn't exist), otherwise a different
/// <see cref="TPartnerAccessLevelEnum" /> value.</returns>
public static TPartnerAccessLevelEnum CanAccessPartnerByKey(Int64 APartnerKey,
bool AThrowExceptionIfDenied, TDataBase ADataBase = null)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction;
PPartnerTable PartnerTable;
if (APartnerKey != 0)
{
TDataBase db = DBAccess.Connect("DetermineBestAddress", ADataBase);
ReadTransaction = db.GetNewOrExistingTransaction(
IsolationLevel.ReadCommitted,
out NewTransaction);
// Load Partner
try
{
PartnerTable = PPartnerAccess.LoadByPrimaryKey(APartnerKey, ReadTransaction);
if (PartnerTable.Rows.Count > 0)
{
// Partner exists, now check Access Level
if (!AThrowExceptionIfDenied)
{
return(CanAccessPartner(PartnerTable[0], ADataBase));
}
else
{
CanAccessPartnerExc(PartnerTable[0], ADataBase);
/*
* The previous Method call would throw an Exception
* in case access would not be granted and program execution
* would leave this Method at that point; if it doesn't
* then this implies that access is granted.
*/
return(TPartnerAccessLevelEnum.palGranted);
}
}
else
{
// Partner not found. Access Level is Granted in this case.
return(TPartnerAccessLevelEnum.palGranted);
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(8, "TSecurity.CanAccessPartnerByKey: committed own transaction.");
}
}
}
else
{
// Invalid Partner. Access Level is Granted in this case.
return(TPartnerAccessLevelEnum.palGranted);
}
}
/// <summary>
/// Tests whether the current user has access to a particular Partner.
/// </summary>
/// <remarks>
/// <para>Corresponds to Progress 4GL Method 'CanAccessPartner' in
/// common/sp_partn.p</para>
/// <para>A shared implementation of this Method exists that has two additional
/// Arguments. It needs the Foundation Row to be passed in, but has the
/// advantage of not needing a Server roundtrip for a DB lookup!</para>
/// </remarks>
/// <param name="APartnerRow">Partner for which access should be checked for.</param>
/// <param name="ADataBase">An instantiated <see cref="TDataBase" /> object, or null (default = null). If null
/// gets passed then the Method executes DB commands with a new Database connection</param>
/// <returns><see cref="T:TPartnerAccessLevelEnum.palGranted" /> if access
/// to the Partner is granted, otherwise a different
/// <see cref="T:TPartnerAccessLevelEnum" /> value.</returns>
public static TPartnerAccessLevelEnum CanAccessPartner(
PPartnerRow APartnerRow, TDataBase ADataBase = null)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction;
PFoundationTable FoundationTable;
if (APartnerRow.PartnerKey != 0)
{
// If PartnerClass is ORGANISATION, we need to check if it is a Foundation
if (APartnerRow.PartnerClass == SharedTypes.PartnerClassEnumToString(
TPartnerClass.ORGANISATION))
{
TDataBase db = DBAccess.Connect("DetermineBestAddress", ADataBase);
ReadTransaction = db.GetNewOrExistingTransaction(
IsolationLevel.ReadCommitted,
out NewTransaction);
// Load Foundation
try
{
FoundationTable = PFoundationAccess.LoadByPrimaryKey(APartnerRow.PartnerKey,
ReadTransaction);
if (FoundationTable.Rows.Count > 0)
{
// The ORGANISATION is a Foundation, we need to check Foundation Security
return(Ict.Petra.Shared.MPartner.TSecurity.CanAccessPartner(APartnerRow,
true, FoundationTable[0]));
}
else
{
// The ORGANISATION isn't a Foundation, we don't need to check Foundation Security
return(Ict.Petra.Shared.MPartner.TSecurity.CanAccessPartner(APartnerRow,
false, null));
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(8, "TSecurity.CanAccessPartnerByKey: committed own transaction.");
}
}
}
else
{
// PartnerClass isn't ORGANISATION, we don't need to check Foundation Security
return(Ict.Petra.Shared.MPartner.TSecurity.CanAccessPartner(APartnerRow,
false, null));
}
}
else
{
// Invalid Partner. Access Level is Granted in this case.
return(TPartnerAccessLevelEnum.palGranted);
}
}
private static bool GetAllReceivingFields(long AConferenceKey, ref DataTable AFieldsTable)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
TLogging.LogAtLevel(9, "TConferenceOptions.GetAllReceivingFields called!");
TDataBase db = DBAccess.Connect("GetAllReceivingFields");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
OdbcParameter[] ParametersArray;
ParametersArray = new OdbcParameter[0];
DataSet TmpDS = ReadTransaction.DataBaseObj.Select(
"SELECT PUB_" + PUnitTable.GetTableDBName() + '.' + PUnitTable.GetPartnerKeyDBName() +
", PUB_" + PUnitTable.GetTableDBName() + '.' + PUnitTable.GetUnitNameDBName() +
" FROM PUB_" + PUnitTable.GetTableDBName() +
", PUB_" + PPartnerTable.GetTableDBName() + ", " +
"PUB_" + PPartnerTypeTable.GetTableDBName() +
" WHERE PUB_" + PUnitTable.GetTableDBName() + '.' + PUnitTable.GetPartnerKeyDBName() +
" = PUB_" + PPartnerTable.GetTableDBName() + '.' + PPartnerTable.GetPartnerKeyDBName() +
" AND PUB_" + PPartnerTypeTable.GetTableDBName() + '.' + PPartnerTypeTable.GetPartnerKeyDBName() +
" = PUB_" + PPartnerTable.GetTableDBName() + '.' + PPartnerTable.GetPartnerKeyDBName() +
" AND PUB_" + PPartnerTable.GetTableDBName() + '.' + PPartnerTable.GetStatusCodeDBName() + " = \"ACTIVE\"" +
" AND PUB_" + PPartnerTypeTable.GetTableDBName() + '.' + PPartnerTypeTable.GetTypeCodeDBName() + " = \"LEDGER\"" +
" ORDER BY PUB_" + PUnitTable.GetTableDBName() + '.' + PUnitTable.GetUnitNameDBName() + " ASC",
"TempTable", ReadTransaction, ParametersArray);
DataTable ResultTale = TmpDS.Tables[0];
for (int Counter = 0; Counter < ResultTale.Rows.Count; ++Counter)
{
DataRow NewRow = AFieldsTable.NewRow();
NewRow[SELECTION] = false;
NewRow[UNIT_KEY] = ResultTale.Rows[Counter][PUnitTable.GetPartnerKeyDBName()];
NewRow[UNIT_NAME] = ResultTale.Rows[Counter][PUnitTable.GetUnitNameDBName()];
NewRow[USED_IN_CONFERENCE] = true;
AFieldsTable.Rows.Add(NewRow);
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetReceivingFields: committed own transaction.");
}
}
return(true);
}
/// <summary>
/// Adds the OMer field from the person and family record of the partner
/// to the data table if it is not already there.
/// </summary>
/// <param name="APartnerKey"></param>
/// <param name="AFieldsTable"></param>
/// <returns></returns>
private static bool GetReceivingFieldFromGiftDestination(long APartnerKey, ref DataTable AFieldsTable)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
TLogging.LogAtLevel(9, "TConferenceOptions.GetReceivingFieldFromGiftDestination called!");
TDataBase db = DBAccess.Connect("GetReceivingFieldFromGiftDestination");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
PPersonTable PersonTable;
PPartnerGiftDestinationTable GiftDestinationTable;
long FamilyKey = APartnerKey;
PersonTable = PPersonAccess.LoadByPrimaryKey(APartnerKey, ReadTransaction);
if (PersonTable.Rows.Count > 0)
{
PPersonRow PersonRow = (PPersonRow)PersonTable[0];
FamilyKey = PersonRow.FamilyKey;
}
GiftDestinationTable = PPartnerGiftDestinationAccess.LoadViaPPartner(FamilyKey, ReadTransaction);
if (GiftDestinationTable.Rows.Count > 0)
{
foreach (PPartnerGiftDestinationRow Row in GiftDestinationTable.Rows)
{
// check if the gift destination is currently active
if ((Row.DateEffective <= DateTime.Today) &&
(Row.IsDateExpiresNull() || ((Row.DateExpires >= DateTime.Today) && (Row.DateExpires != Row.DateEffective))))
{
AddFieldToTable(Row.FieldKey, ref AFieldsTable, ref ReadTransaction);
}
}
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetReceivingFieldFromPartnerTable: committed own transaction.");
}
}
return(true);
}
/// <summary>
/// check if the partner has a link to a cost centre (eg. a worker)
/// </summary>
/// <param name="APartnerKey"></param>
/// <param name="ACostCentreCode"></param>
/// <returns></returns>
public static Boolean HasPartnerCostCentreLink(Int64 APartnerKey, out String ACostCentreCode)
{
Boolean ReturnValue;
TDBTransaction ReadTransaction;
Boolean NewTransaction;
StringCollection RequiredColumns;
AValidLedgerNumberTable ValidLedgerNumberTable;
ACostCentreCode = "";
RequiredColumns = new StringCollection();
RequiredColumns.Add(AValidLedgerNumberTable.GetCostCentreCodeDBName());
TDataBase db = DBAccess.Connect("HasPartnerCostCentreLink");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.ReadCommitted,
out NewTransaction);
try
{
ValidLedgerNumberTable = AValidLedgerNumberAccess.LoadViaPPartnerPartnerKey(
APartnerKey,
RequiredColumns,
ReadTransaction,
null,
0,
0);
if (ValidLedgerNumberTable.Rows.Count != 0)
{
ACostCentreCode = ValidLedgerNumberTable[0].CostCentreCode;
ReturnValue = true;
}
else
{
ReturnValue = false;
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "HasPartnerCostCentreLink: committed own transaction.");
}
}
return(ReturnValue);
}
public static PUnitTable GetOutreachOptions(Int64 AUnitKey)
{
String ConferenceCodePrefix = "";
PUnitTable UnitTable = new PUnitTable();
PUnitRow TemplateRow = UnitTable.NewRowTyped(false);
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
TLogging.LogAtLevel(9, "TConferenceOptions.GetOutreachOptions called!");
TDataBase db = DBAccess.Connect("GetOutreachOptions");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
/* Load data */
UnitTable = PUnitAccess.LoadByPrimaryKey(AUnitKey, ReadTransaction);
if (UnitTable.Rows.Count > 0)
{
String ConferenceCode = ((PUnitRow)UnitTable.Rows[0]).OutreachCode;
if (ConferenceCode.Length >= 5)
{
ConferenceCodePrefix = ConferenceCode.Substring(0, 5) + "%";
}
StringCollection operators = new StringCollection();
operators.Add("LIKE");
TemplateRow.OutreachCode = ConferenceCodePrefix;
UnitTable = PUnitAccess.LoadUsingTemplate(TemplateRow, operators, null, ReadTransaction);
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetOutreachOptions: committed own transaction.");
}
}
return(UnitTable);
}
private static String GetConferencePrefix(long AConferenceKey)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
String ConferencePrefix = "-----";
PUnitTable UnitTable;
TLogging.LogAtLevel(9, "TConferenceOptions.GetOutreachPrefix: called.");
TDataBase db = DBAccess.Connect("GetConferencePrefix");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
UnitTable = PUnitAccess.LoadByPrimaryKey(AConferenceKey, ReadTransaction);
if (UnitTable.Rows.Count > 0)
{
if (UnitTable.Rows[0][PUnitTable.GetOutreachCodeDBName()] != System.DBNull.Value)
{
ConferencePrefix = (string)UnitTable.Rows[0][PUnitTable.GetOutreachCodeDBName()];
if (ConferencePrefix.Length > 5)
{
ConferencePrefix = ConferencePrefix.Substring(0, 5);
}
}
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetOutreachPrefix: committed own transaction.");
}
}
return(ConferencePrefix);
}
/// <summary>
/// check if there is already a supplier record for the given partner
/// </summary>
/// <param name="APartnerKey"></param>
/// <returns></returns>
public bool CanFindSupplier(Int64 APartnerKey)
{
TDBTransaction ReadTransaction;
bool NewTransaction = false;
bool ReturnValue = false;
ReadTransaction = FDataBase.GetNewOrExistingTransaction(IsolationLevel.ReadCommitted,
out NewTransaction);
try
{
ReturnValue = AApSupplierAccess.Exists(APartnerKey, ReadTransaction);
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
}
}
return(ReturnValue);
}
private static bool GetReceivingFieldsForOneConference(long AConferenceKey, ref DataTable AFieldsTable)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
TLogging.LogAtLevel(9, "TConferenceOptions.GetReceivingFieldsForOneConference called!");
TDataBase db = DBAccess.Connect("GetReceivingFieldsForOneConference");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
String PartnerKeyDBName = PcAttendeeTable.GetPartnerKeyDBName();
PcAttendeeTable AttendeeTable;
StringCollection FieldList = new StringCollection();
FieldList.Add(PartnerKeyDBName);
AttendeeTable = PcAttendeeAccess.LoadViaPcConference(AConferenceKey, FieldList, ReadTransaction);
foreach (DataRow Row in AttendeeTable.Rows)
{
long PartnerKey = (long)Row[PartnerKeyDBName];
GetReceivingFieldFromGiftDestination(PartnerKey, ref AFieldsTable);
GetReceivingFieldFromShortTermTable(PartnerKey, ref AFieldsTable);
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetReceivingFieldsForOneConference: committed own transaction.");
}
}
return(true);
}
/// <summary>
/// Adds the confirmed option code to the data table, using the values
/// from the shorttermtable of the current partner
/// </summary>
/// <param name="APartnerKey"></param>
/// <param name="AFieldsTable"></param>
/// <returns></returns>
private static bool GetReceivingFieldFromShortTermTable(long APartnerKey, ref DataTable AFieldsTable)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
TLogging.LogAtLevel(9, "TConferenceOptions.GetReceivingFieldFromShortTermTable called!");
TDataBase db = DBAccess.Connect("GetReceivingFieldFromShortTermTable");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
PmShortTermApplicationTable ShortTermTable;
ShortTermTable = PmShortTermApplicationAccess.LoadViaPPerson(APartnerKey, ReadTransaction);
foreach (PmShortTermApplicationRow Row in ShortTermTable.Rows)
{
if (!Row.IsStConfirmedOptionNull())
{
AddFieldToTable(Row.StConfirmedOption, ref AFieldsTable, ref ReadTransaction);
}
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetReceivingFieldFromShortTermTable: committed own transaction.");
}
}
return(true);
}
private static bool GetAllSendingFields(long AConferenceKey, ref DataTable AFieldsTable)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
PUnitTable UnitTable;
PcAttendeeTable AttendeeTable = new PcAttendeeTable();
TLogging.LogAtLevel(9, "TConferenceOptions.GetAllSendingFields called!");
TDataBase db = DBAccess.Connect("GetAllSendingFields");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
StringCollection FieldList = new StringCollection();
FieldList.Add(PcAttendeeTable.GetHomeOfficeKeyDBName());
AttendeeTable = PcAttendeeAccess.LoadAll(FieldList, ReadTransaction);
long LastUnitKey = 0;
long NewUnitKey = 0;
String HomeOfficeColumnName = PcAttendeeTable.GetHomeOfficeKeyDBName();
foreach (DataRow AttendeeRow in AttendeeTable.Select("", HomeOfficeColumnName))
{
if (AttendeeRow[HomeOfficeColumnName] != null)
{
NewUnitKey = (long)AttendeeRow[HomeOfficeColumnName];
}
else
{
continue;
}
if (LastUnitKey == NewUnitKey)
{
continue;
}
UnitTable = PUnitAccess.LoadByPrimaryKey(NewUnitKey, ReadTransaction);
if (UnitTable.Rows.Count > 0)
{
DataRow ResultRow = AFieldsTable.NewRow();
ResultRow[SELECTION] = false;
ResultRow[UNIT_KEY] = NewUnitKey;
ResultRow[UNIT_NAME] = UnitTable[0][PUnitTable.GetUnitNameDBName()];
ResultRow[USED_IN_CONFERENCE] = true;
AFieldsTable.Rows.Add(ResultRow);
LastUnitKey = NewUnitKey;
}
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetAllSendingFields: committed own transaction.");
}
}
return(true);
}
public static bool GetFieldUnits(Int64 AConferenceKey, TUnitTypeEnum AFieldTypes, out DataTable AFieldsTable, out String AConferencePrefix)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
AFieldsTable = new DataTable("Field Units");
AConferencePrefix = "";
PUnitTable UnitTable;
DataTable TmpTable;
PmShortTermApplicationTable ShortTermerTable = new PmShortTermApplicationTable();
AFieldsTable.Columns.Add("Selection", System.Type.GetType("System.Boolean"));
AFieldsTable.Columns.Add("Unit_Key", System.Type.GetType("System.Int64"));
AFieldsTable.Columns.Add("Unit_Name", System.Type.GetType("System.String"));
AFieldsTable.Columns.Add("Outreach_Code", System.Type.GetType("System.String"));
AFieldsTable.Columns.Add("Used_in_Conference", System.Type.GetType("System.Boolean"));
AConferencePrefix = TConferenceOptions.GetConferencePrefix(AConferenceKey);
switch (AFieldTypes)
{
case TUnitTypeEnum.utSendingFields:
return(TConferenceOptions.GetSendingFields(AConferenceKey, ref AFieldsTable));
case TUnitTypeEnum.utReceivingFields:
return(TConferenceOptions.GetReceivingFields(AConferenceKey, ref AFieldsTable));
case TUnitTypeEnum.utOutreachOptions:
if (TConferenceOptions.GetOutreachOptions(AConferenceKey, out TmpTable))
{
foreach (DataRow Row in TmpTable.Rows)
{
DataRow NewRow = AFieldsTable.NewRow();
NewRow[SELECTION] = false;
NewRow[UNIT_KEY] = Row["Partner Key"];
NewRow[UNIT_NAME] = Row["Unit Name"];
NewRow[CAMPAIGN_CODE] = Row["Outreach Code"];
NewRow[USED_IN_CONFERENCE] = true;
AFieldsTable.Rows.Add(NewRow);
}
return(true);
}
return(false);
default:
break;
}
TLogging.LogAtLevel(9, "TConferenceOptions.GetFieldUnits called!");
TDataBase db = DBAccess.Connect("GetFieldUnits");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
StringCollection FieldList = new StringCollection();
FieldList.Add(PmShortTermApplicationTable.GetStFieldChargedDBName());
FieldList.Add(PmShortTermApplicationTable.GetConfirmedOptionCodeDBName());
FieldList.Add(PmShortTermApplicationTable.GetRegistrationOfficeDBName());
ShortTermerTable = PmShortTermApplicationAccess.LoadAll(FieldList, ReadTransaction);
long LastUnitKey = 0;
long NewUnitKey = 0;
bool IsUsedInOneConference = false;
String ConfirmedOptionCode = "";
System.Type StringType = System.Type.GetType("System.String");
String SearchedColumnName = "";
switch (AFieldTypes)
{
case TUnitTypeEnum.utChargedFields:
SearchedColumnName = PmShortTermApplicationTable.GetStFieldChargedDBName();
break;
case TUnitTypeEnum.utRegisteringFields:
SearchedColumnName = PmShortTermApplicationTable.GetRegistrationOfficeDBName();
break;
default:
break;
}
foreach (DataRow ShortTermerRow in ShortTermerTable.Select("", SearchedColumnName))
{
if ((ShortTermerRow[SearchedColumnName] != null) &&
(ShortTermerRow[SearchedColumnName].ToString().Length > 0))
{
NewUnitKey = (long)ShortTermerRow[SearchedColumnName];
}
else
{
continue;
}
if (LastUnitKey != NewUnitKey)
{
if ((AFieldsTable.Rows.Count > 0) &&
(IsUsedInOneConference))
{
AFieldsTable.Rows[AFieldsTable.Rows.Count - 1][USED_IN_CONFERENCE] = true;
}
IsUsedInOneConference = false;
}
// We have to check from every shorttermer if the charged field is used
// in this conference
if (IsUsedInOneConference)
{
continue;
}
if (ShortTermerRow[PmShortTermApplicationTable.GetConfirmedOptionCodeDBName()].GetType() == StringType)
{
ConfirmedOptionCode = (string)ShortTermerRow[PmShortTermApplicationTable.GetConfirmedOptionCodeDBName()];
}
else
{
ConfirmedOptionCode = "";
}
if (ConfirmedOptionCode.StartsWith(AConferencePrefix))
{
IsUsedInOneConference = true;
}
if (LastUnitKey == NewUnitKey)
{
continue;
}
UnitTable = PUnitAccess.LoadByPrimaryKey(NewUnitKey, ReadTransaction);
if (UnitTable.Rows.Count > 0)
{
DataRow ResultRow = AFieldsTable.NewRow();
ResultRow[SELECTION] = false;
ResultRow[UNIT_KEY] = NewUnitKey;
ResultRow[UNIT_NAME] = UnitTable[0][PUnitTable.GetUnitNameDBName()];
ResultRow[CAMPAIGN_CODE] = ConfirmedOptionCode;
ResultRow[USED_IN_CONFERENCE] = IsUsedInOneConference;
AFieldsTable.Rows.Add(ResultRow);
LastUnitKey = NewUnitKey;
}
}
// Check for the previous entry the "IsUsedInConference" field
if ((AFieldsTable.Rows.Count > 0) &&
(IsUsedInOneConference))
{
AFieldsTable.Rows[AFieldsTable.Rows.Count - 1][USED_IN_CONFERENCE] = true;
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetFieldUnits: committed own transaction.");
}
}
return(true);
}
public static bool GetEarliestAndLatestDate(Int64 AConferenceKey, out DateTime AEarliestArrivalDate,
out DateTime ALatestDepartureDate, out DateTime AStartDate, out DateTime AEndDate)
{
AEarliestArrivalDate = DateTime.Today;
ALatestDepartureDate = DateTime.Today;
AStartDate = DateTime.Today;
AEndDate = DateTime.Today;
PmShortTermApplicationTable ShortTermerTable;
PcConferenceTable ConferenceTable;
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
TLogging.LogAtLevel(9, "TConferenceOptions.GetEarliestAndLatestDates called!");
TDataBase db = DBAccess.Connect("GetEarliestAndLatestDate");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
/* Load data */
if (AConferenceKey == -1)
{
ShortTermerTable = PmShortTermApplicationAccess.LoadAll(ReadTransaction);
ConferenceTable = PcConferenceAccess.LoadAll(ReadTransaction);
}
else
{
ShortTermerTable = PmShortTermApplicationAccess.LoadViaPUnitStConfirmedOption(AConferenceKey, ReadTransaction);
ConferenceTable = PcConferenceAccess.LoadByPrimaryKey(AConferenceKey, ReadTransaction);
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetEarliestAndLatestDates: committed own transaction.");
}
}
DateTime TmpEarliestArrivalTime = DateTime.MaxValue;
DateTime TmpLatestDepartureTime = DateTime.MinValue;
DateTime TmpStartTime = DateTime.MaxValue;
DateTime TmpEndTime = DateTime.MinValue;
foreach (PmShortTermApplicationRow ShortTermerRow in ShortTermerTable.Rows)
{
if ((!ShortTermerRow.IsArrivalNull()) &&
(ShortTermerRow.Arrival < TmpEarliestArrivalTime))
{
TmpEarliestArrivalTime = ShortTermerRow.Arrival.Value;
}
if ((!ShortTermerRow.IsDepartureNull()) &&
(ShortTermerRow.Departure > TmpLatestDepartureTime))
{
TmpLatestDepartureTime = ShortTermerRow.Departure.Value;
}
}
foreach (PcConferenceRow ConferenceRow in ConferenceTable.Rows)
{
if ((!ConferenceRow.IsStartNull()) &&
(ConferenceRow.Start.Value < TmpStartTime))
{
TmpStartTime = ConferenceRow.Start.Value;
}
if ((!ConferenceRow.IsEndNull()) &&
(ConferenceRow.End.Value > TmpEndTime))
{
TmpEndTime = ConferenceRow.End.Value;
}
}
if (TmpEarliestArrivalTime != DateTime.MaxValue)
{
AEarliestArrivalDate = TmpEarliestArrivalTime;
}
if (TmpLatestDepartureTime != DateTime.MinValue)
{
ALatestDepartureDate = TmpLatestDepartureTime;
}
if (TmpStartTime != DateTime.MaxValue)
{
AStartDate = TmpStartTime;
}
if (TmpEndTime != DateTime.MinValue)
{
AEndDate = TmpEndTime;
}
return(true);
}
public static SelectConferenceTDS GetConferences(String AConferenceName, String APrefix)
{
SelectConferenceTDS ResultTable = new SelectConferenceTDS();
PcConferenceTable ConferenceTable = new PcConferenceTable();
PcConferenceRow TemplateRow = (PcConferenceRow)ConferenceTable.NewRow();
TDBTransaction ReadTransaction;
Boolean NewTransaction = false;
if (APrefix == "*")
{
APrefix = "";
}
if (AConferenceName == "*")
{
AConferenceName = "";
}
else if (AConferenceName.EndsWith("*"))
{
AConferenceName = AConferenceName.Substring(0, AConferenceName.Length - 1);
}
TLogging.LogAtLevel(9, "TConferenceOptions.GetConferences called!");
TDataBase db = DBAccess.Connect("GetConferences");
ReadTransaction = db.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead,
out NewTransaction);
try
{
/* Load data */
if (APrefix.Length > 0)
{
APrefix = APrefix.Replace('*', '%') + "%";
TemplateRow.OutreachPrefix = APrefix;
StringCollection Operators = new StringCollection();
Operators.Add("LIKE");
ConferenceTable = PcConferenceAccess.LoadUsingTemplate(TemplateRow, Operators, null, ReadTransaction);
}
else
{
ConferenceTable = PcConferenceAccess.LoadAll(ReadTransaction);
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TConferenceOptions.GetConferences: committed own transaction.");
}
}
String ShortName;
TPartnerClass PartnerClass;
foreach (PcConferenceRow ConferenceRow in ConferenceTable.Rows)
{
TPartnerServerLookups.GetPartnerShortName(ConferenceRow.ConferenceKey, out ShortName, out PartnerClass);
if ((AConferenceName.Length > 0) &&
(!ShortName.StartsWith(AConferenceName, true, null)))
{
continue;
}
ResultTable.PcConference.ImportRow(ConferenceRow);
DataRow NewRow = ResultTable.PPartner.NewRow();
NewRow[PPartnerTable.GetPartnerShortNameDBName()] = ShortName;
NewRow[PPartnerTable.GetPartnerKeyDBName()] = ConferenceRow.ConferenceKey;
ResultTable.PPartner.Rows.Add(NewRow);
}
return(ResultTable);
}
/// <summary>
/// Creates a list of locations for a given Partner.
/// </summary>
/// <remarks>Corresponds in parts with with Progress 4GL Method
/// 'GetPartnerLocations' in partner/maillib.p.</remarks>
/// <param name="APartnerKey">PartnerKey of the Partner being processed.</param>
/// <param name="AMailingAddressesOnly">If true: only include addresses with mailing flag set.</param>
/// <param name="AIncludeCurrentAddresses">If true: include current addresses.</param>
/// <param name="AIncludeFutureAddresses">If true: include future addresses.</param>
/// <param name="AIncludeExpiredAddresses">If true: include expired addresses.</param>
/// <param name="APartnerLocations">The Locations of the Partner being processed.</param>
/// <param name="ADataBase">An instantiated <see cref="TDataBase" /> object, or null (default = null). If null
/// gets passed then the Method executes DB commands with a new Database connection</param>
/// <returns>False if an invalid PartnerKey was passed in or if Petra Security
/// denied access to the Partner, otherwise true.</returns>
public static bool GetPartnerLocations(Int64 APartnerKey,
bool AMailingAddressesOnly,
bool AIncludeCurrentAddresses,
bool AIncludeFutureAddresses,
bool AIncludeExpiredAddresses,
out PPartnerLocationTable APartnerLocations,
TDataBase ADataBase = null)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction;
String SelectSQL;
DataSet FillDataSet;
OdbcParameter param;
// Initialise out Argument
APartnerLocations = null;
if (APartnerKey > 0)
{
TLogging.LogAtLevel(8, "TMailing.GetPartnerLocations: Checking access to Partner.");
if (TSecurity.CanAccessPartnerByKey(APartnerKey, false, ADataBase) ==
TPartnerAccessLevelEnum.palGranted)
{
TDataBase db = DBAccess.Connect("GetPartnerLocations", ADataBase);
ReadTransaction = db.GetNewOrExistingTransaction(
IsolationLevel.ReadCommitted,
out NewTransaction);
// Load Partner Locations, taking passed in restrictions into account.
try
{
SelectSQL =
"SELECT *" +
" FROM PUB_" + PPartnerLocationTable.GetTableDBName() +
" WHERE " + PPartnerLocationTable.GetPartnerKeyDBName() + " = ?" +
" AND (NOT ? = true OR (? = true AND " + PPartnerLocationTable.GetSendMailDBName() + " = true))" +
" AND ((? = true AND ((" + PPartnerLocationTable.GetDateEffectiveDBName() + " <= ?" +
" OR " + PPartnerLocationTable.GetDateEffectiveDBName() + " IS NULL)" +
" AND (" + PPartnerLocationTable.GetDateGoodUntilDBName() + " >= ?" +
" OR " + PPartnerLocationTable.GetDateGoodUntilDBName() + " IS NULL)))" +
" OR (? = true AND " + PPartnerLocationTable.GetDateEffectiveDBName() + " > ?)" +
" OR (? = true AND " + PPartnerLocationTable.GetDateGoodUntilDBName() + " < ?))";
List <OdbcParameter> parameters = new List <OdbcParameter>();
param = new OdbcParameter("PartnerKey", OdbcType.Decimal, 10);
param.Value = APartnerKey;
parameters.Add(param);
param = new OdbcParameter("MailingAddressOnly1", OdbcType.Bit);
param.Value = AMailingAddressesOnly;
parameters.Add(param);
param = new OdbcParameter("MailingAddressOnly2", OdbcType.Bit);
param.Value = AMailingAddressesOnly;
parameters.Add(param);
param = new OdbcParameter("IncludeCurrentAddresses", OdbcType.Bit);
param.Value = AIncludeCurrentAddresses;
parameters.Add(param);
param = new OdbcParameter("TodaysDate1", OdbcType.Date);
param.Value = DateTime.Now;
parameters.Add(param);
param = new OdbcParameter("TodaysDate2", OdbcType.Date);
param.Value = DateTime.Now;
parameters.Add(param);
param = new OdbcParameter("IncludeFutureAddresses", OdbcType.Bit);
param.Value = AIncludeFutureAddresses;
parameters.Add(param);
param = new OdbcParameter("TodaysDate3", OdbcType.Date);
param.Value = DateTime.Now;
parameters.Add(param);
param = new OdbcParameter("IncludeExpiredAddresses", OdbcType.Bit);
param.Value = AIncludeExpiredAddresses;
parameters.Add(param);
param = new OdbcParameter("TodaysDate4", OdbcType.Date);
param.Value = DateTime.Now;
parameters.Add(param);
/*
* Our out Argument 'APartnerLocations' is a Typed DataTable, but SelectDT
* returns an untyped DataTable, therefore we need to create a Typed DataTable
* that contains the data of the returned untyped DataTable!
*/
FillDataSet = new DataSet();
APartnerLocations = new PPartnerLocationTable(PPartnerLocationTable.GetTableDBName());
FillDataSet.Tables.Add(APartnerLocations);
db.Select(FillDataSet, SelectSQL,
PPartnerLocationTable.GetTableDBName(),
ReadTransaction,
parameters.ToArray());
// TLogging.LogAtLevel(7, "TMailing.GetPartnerLocations: FillDataSet.Tables.Count: " + FillDataSet.Tables.Count.ToString());
FillDataSet.Tables.Remove(APartnerLocations);
if (APartnerLocations.Rows.Count > 0)
{
// TLogging.LogAtLevel(7, "TMailing.GetPartnerLocations: Found " + APartnerLocations.Rows.Count.ToString() + " PartnerLocations found for Partner " + APartnerKey.ToString() + ".");
}
else
{
/*
* /* No Rows returned = no PartnerLocations for Partner.
* That shouldn't happen with existing Partners, but if it does (eg. non-existing
* PartnerKey passed in) we return an empty Typed DataTable.
*/
// TLogging.LogAtLevel(7, "TMailing.GetPartnerLocations: No PartnerLocations found for Partner " + APartnerKey.ToString() + "!");
APartnerLocations = new PPartnerLocationTable();
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(7, "TMailing.GetPartnerLocations: committed own transaction.");
}
}
return(true);
}
else
{
TLogging.LogAtLevel(8, "TMailing.GetPartnerLocations: Access to Partner DENIED!");
// Petra Security prevents us from accessing this Partner -> return false;
return(false);
}
}
else
{
// Invalid PartnerKey -> return false;
return(false);
}
}
/// <summary>
/// Returns the Primary Key of the Location and the Location and PartnerLocation DataRows
/// of the 'Best Address' of a Partner.
/// </summary>
/// <param name="APartnerKey">PartnerKey of the Partner for which the 'Best Address'
/// should be loaded for.</param>
/// <param name="ABestAddressPK">Primary Key of the 'Best Address' Location</param>
/// <param name="ALocationDR">DataRow containing the 'Best Address' Location</param>
/// <param name="APartnerLocationDR">DataRow containing the 'Best Address' PartnerLocation</param>
/// <param name="ADataBase">An instantiated <see cref="TDataBase" /> object, or null (default = null). If null
/// gets passed then the Method executes DB commands with a new Database connection</param>
/// <returns>False if an invalid PartnerKey was passed in or if Petra Security
/// denied access to the Partner or if Location/PartnerLocation Data could not be loaded for the
/// Partner, otherwise true.</returns>
public static bool GetPartnersBestLocationData(Int64 APartnerKey,
out TLocationPK ABestAddressPK,
out PLocationRow ALocationDR, out PPartnerLocationRow APartnerLocationDR, TDataBase ADataBase = null)
{
TDBTransaction ReadTransaction;
Boolean NewTransaction;
PPartnerLocationTable PartnerLocationDT;
PLocationTable LocationDT;
ALocationDR = null;
APartnerLocationDR = null;
ABestAddressPK = null;
if (APartnerKey > 0)
{
TDataBase db = DBAccess.Connect("GetPartnersBestLocationData", ADataBase);
ReadTransaction = db.GetNewOrExistingTransaction(
IsolationLevel.ReadCommitted, out NewTransaction);
try
{
if (TMailing.GetPartnerLocations(APartnerKey, false,
true, true, true, out PartnerLocationDT, ADataBase))
{
TLogging.LogAtLevel(8,
"TMailing.GetPartnersBestLocationData: processing " + PartnerLocationDT.Rows.Count.ToString() + " Locations...");
if (PartnerLocationDT.Rows.Count > 1)
{
Calculations.DeterminePartnerLocationsDateStatus(PartnerLocationDT, DateTime.Today);
ABestAddressPK = Calculations.DetermineBestAddress(PartnerLocationDT);
}
else if (PartnerLocationDT.Rows.Count == 1)
{
ABestAddressPK = new TLocationPK(PartnerLocationDT[0].SiteKey, PartnerLocationDT[0].LocationKey);
}
else
{
return(false);
}
// TLogging.LogAtLevel(8, "TMailing.GetPartnersBestLocationData: BestAddressPK: " + ABestAddressPK.SiteKey.ToString() + ", " + ABestAddressPK.LocationKey.ToString());
APartnerLocationDR = (PPartnerLocationRow)PartnerLocationDT.Rows.Find(
new object[] { APartnerKey, ABestAddressPK.SiteKey, ABestAddressPK.LocationKey });
LocationDT = TPPartnerAddressAggregate.LoadByPrimaryKey(
ABestAddressPK.SiteKey, ABestAddressPK.LocationKey, ReadTransaction);
if (LocationDT != null)
{
ALocationDR = LocationDT[0];
}
else
{
return(false);
}
return(true);
}
else
{
return(false);
}
}
finally
{
if (NewTransaction)
{
ReadTransaction.Commit();
TLogging.LogAtLevel(8, "TMailing.GetPartnersBestLocationData: committed own transaction.");
}
}
}
else
{
return(false);
}
}
