/// <summary>
/// todoComment
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerClass"></param>
/// <param name="ASiteKey"></param>
/// <param name="APartnerKey"></param>
/// <param name="ACountryCode"></param>
/// <param name="AAcquisitionCode"></param>
/// <param name="APrivatePartner"></param>
/// <param name="ANewPartnerFamilyPartnerKey"></param>
/// <param name="ANewPartnerFamilyLocationKey"></param>
/// <param name="ANewPartnerFamilySiteKey"></param>
/// <param name="AShowNewPartnerDialog"></param>
/// <param name="AShowTabPage"></param>
public void SetParameters(TScreenMode AScreenMode,
String APartnerClass,
System.Int64 ASiteKey,
System.Int64 APartnerKey,
String ACountryCode,
String AAcquisitionCode,
Boolean APrivatePartner,
Int64 ANewPartnerFamilyPartnerKey,
Int32 ANewPartnerFamilyLocationKey,
Int64 ANewPartnerFamilySiteKey,
Boolean AShowNewPartnerDialog,
TPartnerEditTabPageEnum AShowTabPage)
{
FScreenMode = AScreenMode;
FNewPartnerSiteKey = ASiteKey;
FNewPartnerPartnerKey = APartnerKey;
FNewPartnerPartnerClass = APartnerClass;
FNewPartnerCountryCode = ACountryCode;
FNewPartnerAcquisitionCode = AAcquisitionCode;
FNewPartnerPrivatePartner = APrivatePartner;
FNewPartnerFamilyPartnerKey = ANewPartnerFamilyPartnerKey;
FNewPartnerFamilyLocationKey = ANewPartnerFamilyLocationKey;
FNewPartnerFamilySiteKey = ANewPartnerFamilySiteKey;
FNewPartnerShowNewPartnerDialog = AShowNewPartnerDialog;
FShowTabPage = AShowTabPage;
}
/// <summary>
/// overload
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerClass"></param>
/// <param name="ASiteKey"></param>
/// <param name="APartnerKey"></param>
/// <param name="ACountryCode"></param>
/// <param name="AAcquisitionCode"></param>
/// <param name="APrivatePartner"></param>
/// <param name="ANewPartnerFamilyPartnerKey"></param>
/// <param name="ANewPartnerFamilyLocationKey"></param>
/// <param name="ANewPartnerFamilySiteKey"></param>
/// <param name="AShowNewPartnerDialog"></param>
public void SetParameters(TScreenMode AScreenMode,
String APartnerClass,
System.Int64 ASiteKey,
System.Int64 APartnerKey,
String ACountryCode,
String AAcquisitionCode,
Boolean APrivatePartner,
Int64 ANewPartnerFamilyPartnerKey,
Int32 ANewPartnerFamilyLocationKey,
Int64 ANewPartnerFamilySiteKey,
Boolean AShowNewPartnerDialog)
{
SetParameters(AScreenMode,
APartnerClass,
ASiteKey,
APartnerKey,
ACountryCode,
AAcquisitionCode,
APrivatePartner,
ANewPartnerFamilyPartnerKey,
ANewPartnerFamilyLocationKey,
ANewPartnerFamilySiteKey,
AShowNewPartnerDialog,
TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// todoComment
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerKey"></param>
/// <param name="ASiteKey"></param>
/// <param name="ALocationKey"></param>
/// <param name="AShowTabPage"></param>
public void SetParameters(TScreenMode AScreenMode,
Int64 APartnerKey,
Int64 ASiteKey,
Int32 ALocationKey,
TPartnerEditTabPageEnum AShowTabPage)
{
FScreenMode = AScreenMode;
FPartnerKey = APartnerKey;
FSiteKeyForSelectingPartnerLocation = ASiteKey;
FLocationKeyForSelectingPartnerLocation = ALocationKey;
FShowTabPage = AShowTabPage;
}
/// <summary>
/// overload
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerClass"></param>
/// <param name="ASiteKey"></param>
/// <param name="APartnerKey"></param>
/// <param name="ACountryCode"></param>
public void SetParameters(TScreenMode AScreenMode, String APartnerClass, System.Int64 ASiteKey, System.Int64 APartnerKey, String ACountryCode)
{
SetParameters(AScreenMode,
APartnerClass,
ASiteKey,
APartnerKey,
ACountryCode,
"",
false,
-1,
-1,
-1,
true,
TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// overload
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerClass"></param>
/// <param name="ASiteKey"></param>
/// <param name="APartnerKey"></param>
/// <param name="ACountryCode"></param>
/// <param name="AAcquisitionCode"></param>
/// <param name="APrivatePartner"></param>
public void SetParameters(TScreenMode AScreenMode,
String APartnerClass,
System.Int64 ASiteKey,
System.Int64 APartnerKey,
String ACountryCode,
String AAcquisitionCode,
Boolean APrivatePartner)
{
SetParameters(AScreenMode,
APartnerClass,
ASiteKey,
APartnerKey,
ACountryCode,
AAcquisitionCode,
APrivatePartner,
-1,
-1,
-1,
true,
TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if a new Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens). Must be TScreenMode.smNew if this overload is
/// used!</param>
/// <param name="APartnerClass">PartnerClass that the Partner should have.
/// Default: FAMILY</param>
/// <param name="ASiteKey">SiteKey for which the Partner should be created.
/// Pass in -1 to use the site Petra is installed for. Default: -1</param>
/// <param name="APartnerKey">PartnerKey that the Partner should have.
/// Pass in -1 to automatically determine a new PartnerKey (based on the
/// SiteKey). Default: -1</param>
/// <param name="ACountryCode">CountryCode that should be the default for new addresses
/// (optional, default: ''). If '' is passed in, the CountryCode that is
/// associated with the SiteKey will be used.</param>
/// <param name="AAcquisitionCode">AcquisitionCode that the Partner should have (optional,
/// default: ''). If '' is passed in, the User's UserDefault setting will be
/// used.</param>
/// <param name="APrivatePartner">If set to true, the new Partner will be a Private
/// Partner for the current user.</param>
public void SetParameters(TScreenMode AScreenMode,
String APartnerClass,
System.Int64 ASiteKey,
System.Int64 APartnerKey,
String ACountryCode,
String AAcquisitionCode,
Boolean APrivatePartner)
{
SetParameters(AScreenMode,
APartnerClass,
ASiteKey,
APartnerKey,
ACountryCode,
AAcquisitionCode,
APrivatePartner,
-1,
-1,
-1,
true,
TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if an existing Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens)</param>
/// <param name="APartnerKey">PartnerKey of the Partner for which the screen should be
/// opened</param>
/// <overloads>
/// <summary>This method has many overloads to suit the many ways in which the
/// Partner Edit Screen can be invoked.</summary>
/// <remarks>There are two different kinds of situation where SetParameters will be called:
/// for an existing Partner, or for a new Parameter. The description of each SetParameters
/// overload mentions in which situation it is to be used.</remarks>
/// </overloads>
public void SetParameters(TScreenMode AScreenMode, System.Int64 APartnerKey)
{
SetParameters(AScreenMode, APartnerKey, TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// todoComment
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerKey"></param>
/// <param name="ASiteKey"></param>
/// <param name="ALocationKey"></param>
/// <param name="AShowTabPage"></param>
public void SetParameters(TScreenMode AScreenMode,
Int64 APartnerKey,
Int64 ASiteKey,
Int32 ALocationKey,
TPartnerEditTabPageEnum AShowTabPage)
{
FScreenMode = AScreenMode;
FPartnerKey = APartnerKey;
FSiteKeyForSelectingPartnerLocation = ASiteKey;
FLocationKeyForSelectingPartnerLocation = ALocationKey;
FShowTabPage = AShowTabPage;
}
/// <summary>
/// todoComment
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerKey"></param>
/// <param name="AShowTabPage"></param>
public void SetParameters(TScreenMode AScreenMode, System.Int64 APartnerKey, TPartnerEditTabPageEnum AShowTabPage)
{
FScreenMode = AScreenMode;
FPartnerKey = APartnerKey;
FShowTabPage = AShowTabPage;
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if a new Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens). Must be TScreenMode.smNew if this overload is
/// used!</param>
public void SetParameters(TScreenMode AScreenMode)
{
SetParameters(AScreenMode, "FAMILY", -1, -1, "", "", false, -1, -1, -1, true, TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// See Ict.Petra.Client.MPartner.PartnerEdit for descriptions of the
/// SetParameters procedures.
///
/// </summary>
/// <returns>void</returns>
public void SetParameters(TScreenMode AScreenMode, System.Int64 APartnerKey)
{
SetParameters(AScreenMode, APartnerKey, TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// overload
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerKey"></param>
/// <param name="ASiteKey"></param>
/// <param name="ALocationKey"></param>
public void SetParameters(TScreenMode AScreenMode, Int64 APartnerKey, Int64 ASiteKey, Int32 ALocationKey)
{
SetParameters(AScreenMode, APartnerKey, ASiteKey, ALocationKey, TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// overload
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerClass"></param>
public void SetParameters(TScreenMode AScreenMode, String APartnerClass)
{
SetParameters(AScreenMode, APartnerClass, -1, -1, "", "", false, -1, -1, -1, true, TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if a new Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens). Must be TScreenMode.smNew if this overload is
/// used!</param>
/// <param name="APartnerClass">PartnerClass that the Partner should have.
/// Default: FAMILY</param>
/// <param name="ASiteKey">SiteKey for which the Partner should be created.
/// Pass in -1 to use the site Petra is installed for. Default: -1</param>
/// <param name="APartnerKey">PartnerKey that the Partner should have.
/// Pass in -1 to automatically determine a new PartnerKey (based on the
/// SiteKey). Default: -1</param>
/// <param name="ACountryCode">CountryCode that should be the default for new addresses
/// (optional, default: ''). If '' is passed in, the CountryCode that is
/// associated with the SiteKey will be used.</param>
/// <param name="AAcquisitionCode">AcquisitionCode that the Partner should have (optional,
/// default: ''). If '' is passed in, the User's UserDefault setting will be
/// used.</param>
/// <param name="APrivatePartner">If set to true, the new Partner will be a Private
/// Partner for the current user.</param>
/// <param name="ANewPartnerFamilyPartnerKey">PartnerKey of the Family (only needed if
/// new Partner is of Partner Class PERSON). If -1 is passed in, the New Partner
/// Dialog will inquire about the FAMILY, otherwise the new PERSON's Family will
/// have this key. Default: -1</param>
/// <param name="ANewPartnerFamilyLocationKey">LocationKey of the desired Location of
/// the Family (only needed if new Partner is of Partner Class PERSON). If -1 is
/// passed in, the New Partner Dialog will inquire about the FAMILY, otherwise
/// the new PERSON's Family will have this Location Key. Default: -1</param>
/// <param name="ANewPartnerFamilySiteKey">SiteKey of the location that is used as a
/// source for the new location</param>
/// <param name="AShowNewPartnerDialog">If set to true, the New Partner Dialog will be
/// shown. If false, the dialog will not be shown and the Partner Edit screen
/// will be automatically setup according to the parmeters passed in.
/// Default: true</param>
public void SetParameters(TScreenMode AScreenMode,
String APartnerClass,
System.Int64 ASiteKey,
System.Int64 APartnerKey,
String ACountryCode,
String AAcquisitionCode,
Boolean APrivatePartner,
Int64 ANewPartnerFamilyPartnerKey,
Int32 ANewPartnerFamilyLocationKey,
Int64 ANewPartnerFamilySiteKey,
Boolean AShowNewPartnerDialog)
{
SetParameters(AScreenMode,
APartnerClass,
ASiteKey,
APartnerKey,
ACountryCode,
AAcquisitionCode,
APrivatePartner,
ANewPartnerFamilyPartnerKey,
ANewPartnerFamilyLocationKey,
ANewPartnerFamilySiteKey,
AShowNewPartnerDialog,
TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if a new Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens). Must be TScreenMode.smNew if this overload is
/// used!</param>
/// <param name="APartnerClass">PartnerClass that the Partner should have.
/// Default: FAMILY</param>
/// <param name="ASiteKey">SiteKey for which the Partner should be created.
/// Pass in -1 to use the site Petra is installed for. Default: -1</param>
/// <param name="APartnerKey">PartnerKey that the Partner should have.
/// Pass in -1 to automatically determine a new PartnerKey (based on the
/// SiteKey). Default: -1</param>
/// <param name="ACountryCode">CountryCode that should be the default for new addresses
/// (optional, default: ''). If '' is passed in, the CountryCode that is
/// associated with the SiteKey will be used.</param>
/// <param name="AAcquisitionCode">AcquisitionCode that the Partner should have (optional,
/// default: ''). If '' is passed in, the User's UserDefault setting will be
/// used.</param>
/// <param name="APrivatePartner">If set to true, the new Partner will be a Private
/// Partner for the current user.</param>
/// <param name="ANewPartnerFamilyPartnerKey">PartnerKey of the Family (only needed if
/// new Partner is of Partner Class PERSON). If -1 is passed in, the New Partner
/// Dialog will inquire about the FAMILY, otherwise the new PERSON's Family will
/// have this key. Default: -1</param>
/// <param name="ANewPartnerFamilyLocationKey">LocationKey of the desired Location of
/// the Family (only needed if new Partner is of Partner Class PERSON). If -1 is
/// passed in, the New Partner Dialog will inquire about the FAMILY, otherwise
/// the new PERSON's Family will have this Location Key. Default: -1</param>
/// <param name="ANewPartnerFamilySiteKey">SiteKey of the location that is used as a
/// source for the new location</param>
/// <param name="AShowNewPartnerDialog">If set to true, the New Partner Dialog will be
/// shown. If false, the dialog will not be shown and the Partner Edit screen
/// will be automatically setup according to the parmeters passed in.
/// Default: true</param>
/// <param name="AShowTabPage">The tab page that should be initially shown</param>
/// <param name="ADefaultPartnerClass">The default Partner Class of the new partner (Family if not specified.)</param>
public void SetParameters(TScreenMode AScreenMode,
String APartnerClass,
System.Int64 ASiteKey,
System.Int64 APartnerKey,
String ACountryCode,
String AAcquisitionCode,
Boolean APrivatePartner,
Int64 ANewPartnerFamilyPartnerKey,
Int32 ANewPartnerFamilyLocationKey,
Int64 ANewPartnerFamilySiteKey,
Boolean AShowNewPartnerDialog,
TPartnerEditTabPageEnum AShowTabPage,
string ADefaultPartnerClass = "FAMILY")
{
if (AScreenMode != TScreenMode.smNew)
{
throw new ArgumentException("AScreenMode parameter must be TScreenMode.smNew if this overload is used");
}
FPetraUtilsObject.ScreenMode = AScreenMode;
FNewPartnerSiteKey = ASiteKey;
FNewPartnerPartnerKey = APartnerKey;
FNewPartnerPartnerClass = APartnerClass;
FNewPartnerDefaultPartnerClass = ADefaultPartnerClass;
FNewPartnerCountryCode = ACountryCode;
FNewPartnerAcquisitionCode = AAcquisitionCode;
FNewPartnerPrivatePartner = APrivatePartner;
FNewPartnerFamilyPartnerKey = ANewPartnerFamilyPartnerKey;
FNewPartnerFamilyLocationKey = ANewPartnerFamilyLocationKey;
FNewPartnerFamilySiteKey = ANewPartnerFamilySiteKey;
FNewPartnerShowNewPartnerDialog = AShowNewPartnerDialog;
FShowTabPage = AShowTabPage;
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if an existing Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens)</param>
/// <param name="APartnerKey">PartnerKey of the Partner for which the screen should be
/// opened</param>
/// <param name="ASiteKey">SiteKey of a PartnerLocation record for which the
/// screen should be opened</param>
/// <param name="ALocationKey">LocationKey of a PartnerLocation record for which the
/// screen should be opened</param>
/// <param name="AShowTabPage">The tab page that should be initially shown</param>
public void SetParameters(TScreenMode AScreenMode,
Int64 APartnerKey,
Int64 ASiteKey,
Int32 ALocationKey,
TPartnerEditTabPageEnum AShowTabPage)
{
if ((AScreenMode == TScreenMode.smNew) || (AScreenMode == TScreenMode.smNewInquireAll))
{
throw new ArgumentException(
"AScreenMode parameter must not be TScreenMode.smNew or TScreenMode.smNewInquireAll if this overload is used");
}
FPetraUtilsObject.ScreenMode = AScreenMode;
FPartnerKey = APartnerKey;
FSiteKeyForSelectingPartnerLocation = ASiteKey;
FLocationKeyForSelectingPartnerLocation = ALocationKey;
FShowTabPage = AShowTabPage;
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if an existing Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens)</param>
/// <param name="APartnerKey">PartnerKey of the Partner for which the screen should be
/// opened</param>
/// <param name="ASiteKey">SiteKey of a PartnerLocation record for which the
/// screen should be opened</param>
/// <param name="ALocationKey">LocationKey of a PartnerLocation record for which the
/// screen should be opened</param>
public void SetParameters(TScreenMode AScreenMode, Int64 APartnerKey, Int64 ASiteKey, Int32 ALocationKey)
{
SetParameters(AScreenMode, APartnerKey, ASiteKey, ALocationKey, TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// overload
/// </summary>
/// <param name="AScreenMode"></param>
public void SetParameters(TScreenMode AScreenMode)
{
SetParameters(AScreenMode, "FAMILY", -1, -1, "", "", false, -1, -1, -1, true, TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if a new Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens). Must be TScreenMode.smNew if this overload is
/// used!</param>
/// <param name="APartnerClass">PartnerClass that the Partner should have.
/// Default: FAMILY</param>
/// <param name="ASiteKey">SiteKey for which the Partner should be created.
/// Pass in -1 to use the site Petra is installed for. Default: -1</param>
/// <param name="APartnerKey">PartnerKey that the Partner should have.
/// Pass in -1 to automatically determine a new PartnerKey (based on the
/// SiteKey). Default: -1</param>
/// <param name="ACountryCode">CountryCode that should be the default for new addresses
/// (optional, default: ''). If '' is passed in, the CountryCode that is
/// associated with the SiteKey will be used.</param>
/// <param name="AAcquisitionCode">AcquisitionCode that the Partner should have (optional,
/// default: ''). If '' is passed in, the User's UserDefault setting will be
/// used.</param>
/// <param name="ADefaultPartnerClass">The default Partner Class of the new partner (Family if not specified.)</param>
public void SetParameters(TScreenMode AScreenMode,
String APartnerClass,
System.Int64 ASiteKey,
System.Int64 APartnerKey,
String ACountryCode,
String AAcquisitionCode,
string ADefaultPartnerClass = "FAMILY")
{
SetParameters(AScreenMode,
APartnerClass,
ASiteKey,
APartnerKey,
ACountryCode,
AAcquisitionCode,
false,
-1,
-1,
-1,
true,
TPartnerEditTabPageEnum.petpDefault,
ADefaultPartnerClass);
}
/// <summary>
/// todoComment
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerKey"></param>
/// <param name="AShowTabPage"></param>
public void SetParameters(TScreenMode AScreenMode, System.Int64 APartnerKey, TPartnerEditTabPageEnum AShowTabPage)
{
FScreenMode = AScreenMode;
FPartnerKey = APartnerKey;
FShowTabPage = AShowTabPage;
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if a new Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens). Must be TScreenMode.smNew if this overload is
/// used!</param>
/// <param name="APartnerClass">PartnerClass that the Partner should have.
/// Default: FAMILY</param>
/// <param name="ASiteKey">SiteKey for which the Partner should be created.
/// Pass in -1 to use the site Petra is installed for. Default: -1</param>
public void SetParameters(TScreenMode AScreenMode, String APartnerClass, System.Int64 ASiteKey)
{
SetParameters(AScreenMode, APartnerClass, ASiteKey, -1, "", "", false, -1, -1, -1, true, TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// Used for passing parameters to the screen before it is actually shown.
/// Overload to be used if a new Partner should be opened.
/// </summary>
/// <param name="AScreenMode">Tells which mode the screen should be opened in (has
/// the same purpose than in 4GL screens). Must be TScreenMode.smNew if this overload is
/// used!</param>
/// <param name="APartnerClass">PartnerClass that the Partner should have.
/// Default: FAMILY</param>
public void SetParameters(TScreenMode AScreenMode, String APartnerClass)
{
SetParameters(AScreenMode, APartnerClass, -1, -1, "", "", false, -1, -1, -1, true, TPartnerEditTabPageEnum.petpDefault);
}
/// <summary>
/// todoComment
/// </summary>
/// <param name="AScreenMode"></param>
/// <param name="APartnerClass"></param>
/// <param name="ASiteKey"></param>
/// <param name="APartnerKey"></param>
/// <param name="ACountryCode"></param>
/// <param name="AAcquisitionCode"></param>
/// <param name="APrivatePartner"></param>
/// <param name="ANewPartnerFamilyPartnerKey"></param>
/// <param name="ANewPartnerFamilyLocationKey"></param>
/// <param name="ANewPartnerFamilySiteKey"></param>
/// <param name="AShowNewPartnerDialog"></param>
/// <param name="AShowTabPage"></param>
public void SetParameters(TScreenMode AScreenMode,
String APartnerClass,
System.Int64 ASiteKey,
System.Int64 APartnerKey,
String ACountryCode,
String AAcquisitionCode,
Boolean APrivatePartner,
Int64 ANewPartnerFamilyPartnerKey,
Int32 ANewPartnerFamilyLocationKey,
Int64 ANewPartnerFamilySiteKey,
Boolean AShowNewPartnerDialog,
TPartnerEditTabPageEnum AShowTabPage)
{
FScreenMode = AScreenMode;
FNewPartnerSiteKey = ASiteKey;
FNewPartnerPartnerKey = APartnerKey;
FNewPartnerPartnerClass = APartnerClass;
FNewPartnerCountryCode = ACountryCode;
FNewPartnerAcquisitionCode = AAcquisitionCode;
FNewPartnerPrivatePartner = APrivatePartner;
FNewPartnerFamilyPartnerKey = ANewPartnerFamilyPartnerKey;
FNewPartnerFamilyLocationKey = ANewPartnerFamilyLocationKey;
FNewPartnerFamilySiteKey = ANewPartnerFamilySiteKey;
FNewPartnerShowNewPartnerDialog = AShowNewPartnerDialog;
FShowTabPage = AShowTabPage;
}
