/// <summary>
/// Updates and immediately saves the UserDefault for the 'Last Partner Used'.
/// </summary>
/// <param name="APartnerKey">Partner Key of the last used Partner</param>
/// <param name="ALastPartnerUse">Specifies which 'Last Partner Used' setting should be
/// updated
/// </param>
/// <param name="APartnerClass">Partner Class of the Partner (default=<see cref="TPartnerClass.FAMILY"/>).
/// Only relevant if <paramref name="ALastPartnerUse"/> is <see cref="TLastPartnerUse.lpuMailroomPartner"/>.</param>
/// <returns>void</returns>
public static void SetLastPartnerWorkedWith(Int64 APartnerKey,
TLastPartnerUse ALastPartnerUse,
TPartnerClass APartnerClass = TPartnerClass.FAMILY)
{
switch (ALastPartnerUse)
{
case TLastPartnerUse.lpuMailroomPartner:
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPARTNERMAILROOM, (object)APartnerKey);
if (APartnerClass == TPartnerClass.PERSON)
{
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL, (object)APartnerKey);
}
break;
case TLastPartnerUse.lpuPersonnelPerson:
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL, (object)APartnerKey);
break;
case TLastPartnerUse.lpuPersonnelUnit:
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTUNITPERSONNEL, (object)APartnerKey);
break;
case TLastPartnerUse.lpuConferencePerson:
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPERSONCONFERENCE, (object)APartnerKey);
// if partner is person then also set this for personnel module
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL, (object)APartnerKey);
break;
}
}
/// <summary>
/// Updates and immediately saves the UserDefault for the 'Last Partner Used'.
/// </summary>
/// <param name="APartnerKey">Partner Key of the last used Partner</param>
/// <param name="ALastPartnerUse">Specifies which 'Last Partner Used' setting should be
/// updated
/// </param>
/// <returns>void</returns>
public static void SetLastPartnerWorkedWith(Int64 APartnerKey, TLastPartnerUse ALastPartnerUse)
{
String PartnerName;
TPartnerClass PartnerClass;
/*
* Store the fact that this Partner is the 'Last Partner' that was worked with
*/
switch (ALastPartnerUse)
{
case TLastPartnerUse.lpuMailroomPartner:
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPARTNERMAILROOM, (object)APartnerKey);
// if partner is person then also set this for personnel module
TServerLookup.TMPartner.GetPartnerShortName(APartnerKey, out PartnerName, out PartnerClass);
if (PartnerClass == TPartnerClass.PERSON)
{
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL, (object)APartnerKey);
}
break;
case TLastPartnerUse.lpuPersonnelPerson:
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL, (object)APartnerKey);
break;
case TLastPartnerUse.lpuPersonnelUnit:
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTUNITPERSONNEL, (object)APartnerKey);
break;
case TLastPartnerUse.lpuConferencePerson:
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPERSONCONFERENCE, (object)APartnerKey);
// if partner is person then also set this for personnel module
TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL, (object)APartnerKey);
break;
}
}
