/// <summary>
/// Exports Partners from an Extract.
/// </summary>
/// <param name="AParentForm"></param>
/// <param name="AOldPetraFormat"></param>
public static void ExportPartnersInExtract(Form AParentForm, bool AOldPetraFormat)
{
int ExtractId = -1;
String ExtractName;
String ExtractDesc;
int ExtractKeyCount;
if (TCommonScreensForwarding.OpenExtractFindScreen != null)
{
while (TCommonScreensForwarding.OpenExtractFindScreen.Invoke(out ExtractId,
out ExtractName,
out ExtractDesc,
out ExtractKeyCount,
AParentForm))
{
// Indicates that the user cancelled the operation...
if (ExtractId < 0)
{
return;
}
if (ExtractKeyCount > 0)
{
TPartnerExportLogic.ExportPartnersInExtract(ExtractId, AOldPetraFormat);
break;
}
else
{
DialogResult result;
result =
MessageBox.Show(Catalog.GetString(
"The selected extract doesn't contain any partners. Would you like to choose a different extract?"),
Catalog.GetString(
"Export Partners"), MessageBoxButtons.YesNo, MessageBoxIcon.Information);
if (result == DialogResult.No)
{
break;
}
}
}
}
else
{
throw new EOPAppException(
"DEVELOPER ERROR: TDelegateOpenExtractFindScreen Delegate must be assigned on TCommonScreensForwarding.OpenExtractFindScreen to be able to open an Extract find dialog!");
}
}
/// <summary>
/// Exports a single Partner to OpenPetra or Petra.
/// </summary>
/// <param name="AParentForm"></param>
/// <param name="AOldPetraFormat"></param>
public static void ExportSinglePartner(Form AParentForm, bool AOldPetraFormat)
{
Int64 PartnerKey = -1;
String ShortName;
TPartnerClass?PartnerClass;
TLocationPK ResultLocationPK;
if (TPartnerFindScreenManager.OpenModalForm("",
out PartnerKey,
out ShortName,
out PartnerClass,
out ResultLocationPK,
AParentForm))
{
TPartnerExportLogic.ExportSinglePartner(PartnerKey, PartnerClass.ToString(), 0, 0, AOldPetraFormat);
}
}
