/// <summary>
/// Opens a Partner Edit screen.
/// </summary>
/// <param name="AParameter">PartnerKey (as String!).</param>
public override void OpenPartnerEditScreen(String AParameter)
{
int PartnerKeyParamPos;
int NextParameterStart;
int PartnerKeyLength;
Int64 PartnerKey;
PartnerKeyParamPos = AParameter.IndexOf(TTestWinForm.PARTNERKEY_PARAM);
if (PartnerKeyParamPos != -1)
{
NextParameterStart = AParameter.IndexOf(TTestWinForm.PARAM_SEPARATOR, PartnerKeyParamPos +
TTestWinForm.PARTNERKEY_PARAM.Length + 1);
if (NextParameterStart == -1)
{
PartnerKeyLength = AParameter.Length - PartnerKeyParamPos - TTestWinForm.PARTNERKEY_PARAM.Length - 1;
// MessageBox.Show("PartnerKeyLength #1: " + PartnerKeyLength.ToString());
}
else
{
PartnerKeyLength = AParameter.Length - PartnerKeyParamPos - 1 - NextParameterStart;
MessageBox.Show("PartnerKeyLength #2: " + PartnerKeyLength.ToString());
}
// MessageBox.Show("PartnerKeyLength: " + PartnerKeyLength.ToString());
// MessageBox.Show("Parsed 'PartnerKey' parameter: " + "Startpos.: " + PartnerKeyParamPos.ToString() + "; Contents: " +
// AParameter.Substring(PartnerKeyParamPos + TTestWinForm.PARTNERKEY_PARAM.Length + 1, PartnerKeyLength));
PartnerKey = Convert.ToInt64(
AParameter.Substring(PartnerKeyParamPos + TTestWinForm.PARTNERKEY_PARAM.Length + 1, PartnerKeyLength));
}
else
{
PartnerKey = Convert.ToInt64(AParameter);
}
Ict.Petra.Client.MPartner.Gui.TFrmPartnerEdit PartnerEditForm = new Ict.Petra.Client.MPartner.Gui.TFrmPartnerEdit(null);
PartnerEditForm.SetParameters(TScreenMode.smEdit, PartnerKey);
PartnerEditForm.Show();
}
/// <summary>
/// Opens a Partner Edit screen.
/// </summary>
/// <param name="AParameter">PartnerKey (as String!).</param>
public override void OpenPartnerEditScreen(String AParameter)
{
int PartnerKeyParamPos;
int NextParameterStart;
int PartnerKeyLength;
Int64 PartnerKey;
PartnerKeyParamPos = AParameter.IndexOf(TTestWinForm.PARTNERKEY_PARAM);
if (PartnerKeyParamPos != -1)
{
NextParameterStart = AParameter.IndexOf(TTestWinForm.PARAM_SEPARATOR, PartnerKeyParamPos +
TTestWinForm.PARTNERKEY_PARAM.Length + 1);
if (NextParameterStart == -1)
{
PartnerKeyLength = AParameter.Length - PartnerKeyParamPos - TTestWinForm.PARTNERKEY_PARAM.Length - 1;
// MessageBox.Show("PartnerKeyLength #1: " + PartnerKeyLength.ToString());
}
else
{
PartnerKeyLength = AParameter.Length - PartnerKeyParamPos - 1 - NextParameterStart;
MessageBox.Show("PartnerKeyLength #2: " + PartnerKeyLength.ToString());
}
// MessageBox.Show("PartnerKeyLength: " + PartnerKeyLength.ToString());
// MessageBox.Show("Parsed 'PartnerKey' parameter: " + "Startpos.: " + PartnerKeyParamPos.ToString() + "; Contents: " +
// AParameter.Substring(PartnerKeyParamPos + TTestWinForm.PARTNERKEY_PARAM.Length + 1, PartnerKeyLength));
PartnerKey = Convert.ToInt64(
AParameter.Substring(PartnerKeyParamPos + TTestWinForm.PARTNERKEY_PARAM.Length + 1, PartnerKeyLength));
}
else
{
PartnerKey = Convert.ToInt64(AParameter);
}
Ict.Petra.Client.MPartner.Gui.TFrmPartnerEdit PartnerEditForm = new Ict.Petra.Client.MPartner.Gui.TFrmPartnerEdit(null);
PartnerEditForm.SetParameters(TScreenMode.smEdit, PartnerKey);
PartnerEditForm.Show();
}
private void OpenNewPartnerEditScreen(bool ARunAsModalForm)
{
string RestrictedPartnerClass = String.Empty;
TFrmPartnerEdit frm;
this.Cursor = Cursors.WaitCursor;
try
{
if (!ARunAsModalForm)
{
// Not modal, so no restrictions on valid partner classes
}
else
{
// Modal. May have restrictions, may not.
// Default behavior is to allow all Partner Classes
if (ucoPartnerFindCriteria.RestrictedPartnerClass.Length > 0)
{
/* at least one entry so use first one */
RestrictedPartnerClass = ucoPartnerFindCriteria.RestrictedPartnerClass[0];
}
/*
* Create (and remember!) a GUID that we pass to the 'Partner Edit' screen
* for the new Partner. This is used in Method 'ProcessFormsMessage' to
* determine whether the 'Form Message' received is for *this* Instance
* of the Modal Partner Find screen.
*/
FNewPartnerContext = System.Guid.NewGuid().ToString();
RestrictedPartnerClass = RestrictedPartnerClass.Replace("WORKER-FAM", "FAMILY");
}
string DefaultPartnerClass = string.Empty;
if (RestrictedPartnerClass == String.Empty)
{
DefaultPartnerClass = ucoPartnerFindCriteria.GetSelectedPartnerClass();
if (string.IsNullOrEmpty(DefaultPartnerClass))
{
DefaultPartnerClass = "FAMILY";
}
}
else
{
DefaultPartnerClass = RestrictedPartnerClass;
}
frm = new Ict.Petra.Client.MPartner.Gui.TFrmPartnerEdit(FPetraUtilsObject.GetForm());
frm.SetParameters(TScreenMode.smNew,
RestrictedPartnerClass, -1, -1, String.Empty, String.Empty, DefaultPartnerClass);
frm.CallerContext = FNewPartnerContext;
if (!ARunAsModalForm)
{
frm.Show();
}
else
{
frm.ShowDialog();
}
}
finally
{
this.Cursor = Cursors.Default;
}
}
private void FileNewPartner(System.Object sender, System.EventArgs e)
{
Ict.Petra.Client.MPartner.Gui.TFrmPartnerEdit PartnerEditForm = new Ict.Petra.Client.MPartner.Gui.TFrmPartnerEdit(this);
if (FPartnerClass != SharedTypes.PartnerClassEnumToString(TPartnerClass.FAMILY))
{
PartnerEditForm.SetParameters(TScreenMode.smNew,
FPartnerClass, -1, -1, ucoLowerPart.PartnerLocationDataRowOfCurrentlySelectedAddress.LocationCountryCode);
}
else
{
PartnerEditForm.SetParameters(TScreenMode.smNew, FPartnerClass,
-1, -1, String.Empty, String.Empty, false, FPartnerKey,
ucoLowerPart.PartnerLocationDataRowOfCurrentlySelectedAddress.LocationKey,
ucoLowerPart.PartnerLocationDataRowOfCurrentlySelectedAddress.SiteKey
);
}
PartnerEditForm.Show();
}
