/// <summary>
/// Constructor
/// </summary>
public TUC_GiftBatches_Import(TFrmPetraEditUtils APetraUtilsObject, Int32 ALedgerNumber, IUC_GiftBatches AUserControl)
{
FPetraUtilsObject = APetraUtilsObject;
FLedgerNumber = ALedgerNumber;
FMyUserControl = AUserControl;
FMyForm = (TFrmGiftBatch)FPetraUtilsObject.GetForm();
}
/// <summary>
/// Constructor
/// </summary>
public TUC_RecurringGiftBatches_Submit(TFrmPetraEditUtils APetraUtilsObject, Int32 ALedgerNumber, GiftBatchTDS AMainDS)
{
FPetraUtilsObject = APetraUtilsObject;
FLedgerNumber = ALedgerNumber;
FMainDS = AMainDS;
FMyForm = (TFrmRecurringGiftBatch)FPetraUtilsObject.GetForm();
}
/// <summary>
/// Constructor
/// </summary>
public TUC_GLBatches_Cancel(TFrmPetraEditUtils APetraUtilsObject, Int32 ALedgerNumber, GLBatchTDS AMainDS)
{
FPetraUtilsObject = APetraUtilsObject;
FLedgerNumber = ALedgerNumber;
FMainDS = AMainDS;
FMyForm = (TFrmGLBatch)FPetraUtilsObject.GetForm();
}
/// <summary>
/// Constructor
/// </summary>
public TUC_GLBatches_Post(TFrmPetraEditUtils APetraUtilsObject, Int32 ALedgerNumber, GLBatchTDS AMainDS, IUC_GLBatches AUserControl)
{
FPetraUtilsObject = APetraUtilsObject;
FLedgerNumber = ALedgerNumber;
FMainDS = AMainDS;
FMyUserControl = AUserControl;
FMyForm = (TFrmGLBatch)FPetraUtilsObject.GetForm();
}
/// <summary>
/// Main method to Submit a specified batch
/// </summary>
/// <param name="ACurrentRecurringBatchRow">The batch row to Submit</param>
/// <param name="AWarnOfInactiveValues">True means user is warned if inactive values exist</param>
/// <param name="ADonorZeroIsValid"></param>
/// <param name="ARecipientZeroIsValid"></param>
/// <returns>True if the batch was successfully Submited</returns>
public bool SubmitBatch(ARecurringGiftBatchRow ACurrentRecurringBatchRow,
bool AWarnOfInactiveValues = true,
bool ADonorZeroIsValid = false,
bool ARecipientZeroIsValid = false)
{
if (ACurrentRecurringBatchRow == null)
{
return(false);
}
FSelectedBatchNumber = ACurrentRecurringBatchRow.BatchNumber;
//Make sure that all control data is in dataset
FMyForm.GetLatestControlData();
//Copy all batch data to new table
GiftBatchTDSARecurringGiftDetailTable RecurringBatchGiftDetails = new GiftBatchTDSARecurringGiftDetailTable();
//Filter ARecurringGiftDetail
DataView RecurringGiftDetailDV = new DataView(FMainDS.ARecurringGiftDetail);
RecurringGiftDetailDV.RowFilter = string.Format("{0}={1}",
ARecurringGiftDetailTable.GetBatchNumberDBName(),
FSelectedBatchNumber);
RecurringGiftDetailDV.Sort = string.Format("{0} ASC, {1} ASC, {2} ASC",
ARecurringGiftDetailTable.GetBatchNumberDBName(),
ARecurringGiftDetailTable.GetGiftTransactionNumberDBName(),
ARecurringGiftDetailTable.GetDetailNumberDBName());
foreach (DataRowView dRV in RecurringGiftDetailDV)
{
GiftBatchTDSARecurringGiftDetailRow rGBR = (GiftBatchTDSARecurringGiftDetailRow)dRV.Row;
RecurringBatchGiftDetails.Rows.Add((object[])rGBR.ItemArray.Clone());
}
//Save and check for inactive values and ex-workers and anonymous gifts
if (FPetraUtilsObject.HasChanges)
{
//Keep this conditional check separate from the one above so that it only gets called
// when necessary and doesn't result in the executon of the same method
if (!FMyForm.SaveChangesForSubmitting(RecurringBatchGiftDetails))
{
return(false);
}
}
else
{
//This has to be called here because if there are no changes then the DataSavingValidating
// method which calls the method below, will not run.
if (!FMyForm.GetBatchControl().AllowInactiveFieldValues(TExtraGiftBatchChecks.GiftBatchAction.SUBMITTING) ||
FMyForm.GiftHasExWorkerOrAnon(RecurringBatchGiftDetails)
)
{
return(false);
}
}
//Check hash total validity
if ((ACurrentRecurringBatchRow.HashTotal != 0) &&
(ACurrentRecurringBatchRow.BatchTotal != ACurrentRecurringBatchRow.HashTotal))
{
MessageBox.Show(String.Format(Catalog.GetString(
"The recurring gift batch total ({0}) for batch {1} does not equal the hash total ({2})."),
StringHelper.FormatUsingCurrencyCode(ACurrentRecurringBatchRow.BatchTotal, ACurrentRecurringBatchRow.CurrencyCode),
ACurrentRecurringBatchRow.BatchNumber,
StringHelper.FormatUsingCurrencyCode(ACurrentRecurringBatchRow.HashTotal, ACurrentRecurringBatchRow.CurrencyCode)),
"Submit Recurring Gift Batch");
FMyForm.GetBatchControl().Controls["txtDetailHashTotal"].Focus();
FMyForm.GetBatchControl().Controls["txtDetailHashTotal"].Select();
return(false);
}
//Check for zero Donors or Recipients
if (!ADonorZeroIsValid)
{
DataView recurringBatchGiftDV = new DataView(FMainDS.ARecurringGift);
recurringBatchGiftDV.RowFilter = string.Format("{0}={1} And {2}=0",
ARecurringGiftTable.GetBatchNumberDBName(),
FSelectedBatchNumber,
ARecurringGiftTable.GetDonorKeyDBName());
int numDonorZeros = recurringBatchGiftDV.Count;
if (numDonorZeros > 0)
{
string messageListOfOffendingGifts =
String.Format(Catalog.GetString(
"Recurring Gift Batch {0} contains {1} gift detail(s) with Donor 0000000. Please fix before posting!{2}{2}"),
FSelectedBatchNumber,
numDonorZeros,
Environment.NewLine);
string listOfOffendingRows = string.Empty;
listOfOffendingRows += "Gift" + Environment.NewLine;
listOfOffendingRows += "------------";
foreach (DataRowView drv in recurringBatchGiftDV)
{
ARecurringGiftRow giftRow = (ARecurringGiftRow)drv.Row;
listOfOffendingRows += String.Format("{0}{1:0000}",
Environment.NewLine,
giftRow.GiftTransactionNumber);
}
TFrmExtendedMessageBox extendedMessageBox = new TFrmExtendedMessageBox(FMyForm);
extendedMessageBox.ShowDialog((messageListOfOffendingGifts + listOfOffendingRows),
Catalog.GetString("Submit Batch Error"), string.Empty,
TFrmExtendedMessageBox.TButtons.embbOK,
TFrmExtendedMessageBox.TIcon.embiWarning);
return(false);
}
}
if (!ARecipientZeroIsValid)
{
DataView recurringBatchGiftDetailsDV = new DataView(FMainDS.ARecurringGiftDetail);
recurringBatchGiftDetailsDV.RowFilter = string.Format("{0}={1} And {2}=0",
ARecurringGiftDetailTable.GetBatchNumberDBName(),
FSelectedBatchNumber,
ARecurringGiftDetailTable.GetRecipientKeyDBName());
int numRecipientZeros = recurringBatchGiftDetailsDV.Count;
if (numRecipientZeros > 0)
{
string messageListOfOffendingGifts =
String.Format(Catalog.GetString(
"Recurring Gift Batch {0} contains {1} gift detail(s) with Recipient 0000000. Please fix before posting!{2}{2}"),
FSelectedBatchNumber,
numRecipientZeros,
Environment.NewLine);
string listOfOffendingRows = string.Empty;
listOfOffendingRows += "Gift Detail" + Environment.NewLine;
listOfOffendingRows += "-------------------";
foreach (DataRowView drv in recurringBatchGiftDetailsDV)
{
ARecurringGiftDetailRow giftDetailRow = (ARecurringGiftDetailRow)drv.Row;
listOfOffendingRows += String.Format("{0}{1:0000} {2:00}",
Environment.NewLine,
giftDetailRow.GiftTransactionNumber,
giftDetailRow.DetailNumber);
}
TFrmExtendedMessageBox extendedMessageBox = new TFrmExtendedMessageBox(FMyForm);
extendedMessageBox.ShowDialog((messageListOfOffendingGifts + listOfOffendingRows),
Catalog.GetString("Submit Batch Error"), string.Empty,
TFrmExtendedMessageBox.TButtons.embbOK,
TFrmExtendedMessageBox.TIcon.embiWarning);
return(false);
}
}
//Check for inactive KeyMinistries
DataTable GiftsWithInactiveKeyMinistries;
if (TRemote.MFinance.Gift.WebConnectors.InactiveKeyMinistriesFoundInBatch(FLedgerNumber, FSelectedBatchNumber,
out GiftsWithInactiveKeyMinistries, true))
{
int numInactiveValues = GiftsWithInactiveKeyMinistries.Rows.Count;
string listOfOffendingRows =
String.Format(Catalog.GetString(
"{0} inactive key ministries found in Recurring Gift Batch {1}. Do you still want to submit?{2}{2}"),
numInactiveValues,
FSelectedBatchNumber,
Environment.NewLine);
listOfOffendingRows += "Gift Detail Recipient KeyMinistry" + Environment.NewLine;
listOfOffendingRows += "-------------------------------------------------------------------------------";
foreach (DataRow dr in GiftsWithInactiveKeyMinistries.Rows)
{
listOfOffendingRows += String.Format("{0}{1:0000} {2:00} {3:00000000000} {4}",
Environment.NewLine,
dr[0],
dr[1],
dr[2],
dr[3]);
}
TFrmExtendedMessageBox extendedMessageBox = new TFrmExtendedMessageBox(FPetraUtilsObject.GetForm());
if (extendedMessageBox.ShowDialog(listOfOffendingRows.ToString(),
Catalog.GetString("Submit Batch"), string.Empty,
TFrmExtendedMessageBox.TButtons.embbYesNo,
TFrmExtendedMessageBox.TIcon.embiWarning) != TFrmExtendedMessageBox.TResult.embrYes)
{
return(false);
}
}
TFrmRecurringGiftBatchSubmit SubmitForm = new TFrmRecurringGiftBatchSubmit(FPetraUtilsObject.GetForm());
try
{
FMyForm.ShowInTaskbar = false;
SubmitForm.MainDS = FMainDS;
SubmitForm.BatchRow = ACurrentRecurringBatchRow;
SubmitForm.ShowDialog();
}
finally
{
SubmitForm.Dispose();
FMyForm.ShowInTaskbar = true;
}
return(true);
}
/// <summary>
/// this supports the batch export files from Petra 2.x.
/// Each line starts with a type specifier, B for batch, J for journal, T for transaction
/// </summary>
public void ImportBatches(TGiftImportDataSourceEnum AImportSource)
{
bool ok = false;
String importString;
String impOptions;
OpenFileDialog dialog = null;
if (FPetraUtilsObject.HasChanges)
{
// saving failed, therefore do not try to post
MessageBox.Show(Catalog.GetString("Please save before calling this function!"), Catalog.GetString(
"Failure"), MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
FdlgSeparator = new TDlgSelectCSVSeparator(false);
if (AImportSource == TGiftImportDataSourceEnum.FromClipboard)
{
importString = Clipboard.GetText(TextDataFormat.UnicodeText);
if ((importString == null) || (importString.Length == 0))
{
MessageBox.Show(Catalog.GetString("Please first copy data from your spreadsheet application!"),
Catalog.GetString("Failure"), MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
impOptions = TUserDefaults.GetStringDefault("Imp Options", ";American");
String dateFormatString = TUserDefaults.GetStringDefault("Imp Date", "MDY");
FdlgSeparator = new TDlgSelectCSVSeparator(false);
FdlgSeparator.SelectedSeparator = "\t";
FdlgSeparator.CSVData = importString;
FdlgSeparator.DateFormat = dateFormatString;
if (impOptions.Length > 1)
{
FdlgSeparator.NumberFormat = impOptions.Substring(1);
}
}
else if (AImportSource == TGiftImportDataSourceEnum.FromFile)
{
dialog = new OpenFileDialog();
string exportPath = TClientSettings.GetExportPath();
string fullPath = TUserDefaults.GetStringDefault("Imp Filename",
exportPath + Path.DirectorySeparatorChar + "import.csv");
TImportExportDialogs.SetOpenFileDialogFilePathAndName(dialog, fullPath, exportPath);
dialog.Title = Catalog.GetString("Import Batches from CSV File");
dialog.Filter = Catalog.GetString("Gift Batches files (*.csv)|*.csv");
impOptions = TUserDefaults.GetStringDefault("Imp Options", ";" + TDlgSelectCSVSeparator.NUMBERFORMAT_AMERICAN);
// This call fixes Windows7 Open File Dialogs. It must be the line before ShowDialog()
TWin7FileOpenSaveDialog.PrepareDialog(Path.GetFileName(fullPath));
if (dialog.ShowDialog() == DialogResult.OK)
{
Boolean fileCanOpen = FdlgSeparator.OpenCsvFile(dialog.FileName);
if (!fileCanOpen)
{
MessageBox.Show(Catalog.GetString("Unable to open file."),
Catalog.GetString("Gift Import"),
MessageBoxButtons.OK,
MessageBoxIcon.Stop);
return;
}
importString = File.ReadAllText(dialog.FileName, Encoding.Default);
String dateFormatString = TUserDefaults.GetStringDefault("Imp Date", "MDY");
FdlgSeparator.DateFormat = dateFormatString;
if (impOptions.Length > 1)
{
FdlgSeparator.NumberFormat = impOptions.Substring(1);
}
FdlgSeparator.SelectedSeparator = impOptions.Substring(0, 1);
}
else
{
return;
}
}
else
{
// unknown source!! The following need a value...
impOptions = String.Empty;
importString = String.Empty;
}
if (FdlgSeparator.ShowDialog() == DialogResult.OK)
{
Hashtable requestParams = new Hashtable();
requestParams.Add("ALedgerNumber", FLedgerNumber);
requestParams.Add("Delimiter", FdlgSeparator.SelectedSeparator);
requestParams.Add("DateFormatString", FdlgSeparator.DateFormat);
requestParams.Add("NumberFormat", FdlgSeparator.NumberFormat);
requestParams.Add("NewLine", Environment.NewLine);
bool Repeat = true;
while (Repeat)
{
Repeat = false;
TVerificationResultCollection AMessages = new TVerificationResultCollection();
GiftBatchTDSAGiftDetailTable NeedRecipientLedgerNumber = new GiftBatchTDSAGiftDetailTable();
Thread ImportThread = new Thread(() => ImportGiftBatches(
requestParams,
importString,
out AMessages,
out ok,
out NeedRecipientLedgerNumber));
using (TProgressDialog ImportDialog = new TProgressDialog(ImportThread))
{
ImportDialog.ShowDialog();
}
// If NeedRecipientLedgerNumber contains data then AMessages will only ever contain
// one message alerting the user that no data has been imported.
// We do not want to show this as we will be displaying another more detailed message.
if (NeedRecipientLedgerNumber.Rows.Count == 0)
{
ShowMessages(AMessages);
}
// if the import contains gifts with Motivation Group 'GIFT' and that have a Family recipient with no Gift Destination
// then the import will have failed and we need to alert the user
if (NeedRecipientLedgerNumber.Rows.Count > 0)
{
bool OfferToRunImportAgain = true;
bool DoNotShowMessageBoxEverytime = false;
TFrmExtendedMessageBox.TResult Result = TFrmExtendedMessageBox.TResult.embrUndefined;
int count = 1;
// for each gift in which the recipient needs a Git Destination
foreach (GiftBatchTDSAGiftDetailRow Row in NeedRecipientLedgerNumber.Rows)
{
if (!DoNotShowMessageBoxEverytime)
{
string CheckboxText = string.Empty;
// only show checkbox if there is at least one more occurance of this error
if (NeedRecipientLedgerNumber.Rows.Count - count > 0)
{
CheckboxText = string.Format(
Catalog.GetString("Do this for all further occurances ({0})?"), NeedRecipientLedgerNumber.Rows.Count - count);
}
TFrmExtendedMessageBox extendedMessageBox = new TFrmExtendedMessageBox(FPetraUtilsObject.GetForm());
extendedMessageBox.ShowDialog(string.Format(
Catalog.GetString(
"Gift Import has been cancelled as the recipient '{0}' ({1}) has no Gift Destination assigned."),
Row.RecipientDescription, Row.RecipientKey) +
"\n\r\n\r\n\r" +
Catalog.GetString("Do you want to assign a Gift Destination to this partner now?"),
Catalog.GetString("Import Errors"),
CheckboxText,
TFrmExtendedMessageBox.TButtons.embbYesNo, TFrmExtendedMessageBox.TIcon.embiWarning);
Result = extendedMessageBox.GetResult(out DoNotShowMessageBoxEverytime);
}
if (Result == TFrmExtendedMessageBox.TResult.embrYes)
{
// allow the user to assign a Gift Destingation
TFrmGiftDestination GiftDestinationForm = new TFrmGiftDestination(FPetraUtilsObject.GetForm(), Row.RecipientKey);
GiftDestinationForm.ShowDialog();
}
else
{
OfferToRunImportAgain = false;
if (DoNotShowMessageBoxEverytime)
{
break;
}
}
count++;
}
// if the user has clicked yes to assigning Gift Destinations then offer to restart the import
if (OfferToRunImportAgain &&
(MessageBox.Show(Catalog.GetString("Would you like to import this Gift Batch again?"),
Catalog.GetString("Gift Import"), MessageBoxButtons.YesNo, MessageBoxIcon.Question,
MessageBoxDefaultButton.Button2)
== DialogResult.Yes))
{
Repeat = true;
}
}
}
// We save the defaults even if ok is false - because the client will probably want to try and import
// the same file again after correcting any errors
SaveUserDefaults(dialog, impOptions);
}
if (ok)
{
MessageBox.Show(Catalog.GetString("Your data was imported successfully!"),
Catalog.GetString("Gift Import"),
MessageBoxButtons.OK,
MessageBoxIcon.Information);
FMyUserControl.LoadBatchesForCurrentYear();
FPetraUtilsObject.DisableSaveButton();
}
}
private void ShowMessages(TVerificationResultCollection AMessages)
{
StringBuilder ErrorMessages = new StringBuilder();
if (AMessages.Count > 0)
{
foreach (TVerificationResult message in AMessages)
{
ErrorMessages.AppendFormat("[{0}] {1}: {2}{3}", message.ResultContext, message.ResultTextCaption,
message.ResultText.Replace(Environment.NewLine, " "), Environment.NewLine);
}
}
if (ErrorMessages.Length > 0)
{
TFrmExtendedMessageBox extendedMessageBox = new TFrmExtendedMessageBox(FPetraUtilsObject.GetForm());
extendedMessageBox.ShowDialog(ErrorMessages.ToString(), Catalog.GetString("Import Errors"), String.Empty,
TFrmExtendedMessageBox.TButtons.embbOK, TFrmExtendedMessageBox.TIcon.embiError);
}
}
/// <summary>
/// The main method that handles all filtering. Every change on the filter panel causes this event to fire.
/// It is important to manage the fact that this method may be called recursively and so nesting can be tricky!
/// </summary>
/// <param name="AFilterString">On entry this parameter contains the filter control's best guess for the current filter.
/// The code can modify this string in the light of current control values.</param>
public void ApplyFilterManual(ref string AFilterString)
{
if (!FFilterIsActivated)
{
// use anything until we have been activated.
return;
}
string WorkingFilter = String.Empty;
string AdditionalFilter = String.Empty;
bool ShowingAllPeriods = false;
// Remove the old base filter
if (FPrevBaseFilter.Length > 0)
{
// The additional filter is the part that is coming from the extra filter panel
AdditionalFilter = AFilterString.Substring(FPrevBaseFilter.Length);
if (AdditionalFilter.StartsWith(CommonJoinString.JOIN_STRING_SQL_AND))
{
AdditionalFilter = AdditionalFilter.Substring(CommonJoinString.JOIN_STRING_SQL_AND.Length);
}
}
int NewYear = FcmbYearEnding.GetSelectedInt32();
if (NewYear != FPrevYearEnding)
{
FPrevYearEnding = NewYear;
// This will trigger a re-entrant call to this method
RefreshPeriods(NewYear);
// Apply the last good filter as we unwind the nesting
AFilterString = FPrevFilter;
return;
}
int NewPeriod = FcmbPeriod.GetSelectedInt32();
ALedgerRow LedgerRow =
((ALedgerTable)TDataCache.TMFinance.GetCacheableFinanceTable(TCacheableFinanceTablesEnum.LedgerDetails, FLedgerNumber))[0];
int CurrentLedgerYear = LedgerRow.CurrentFinancialYear;
int CurrentLedgerPeriod = LedgerRow.CurrentPeriod;
if (NewYear == -1)
{
NewYear = CurrentLedgerYear;
WorkingFilter = String.Format("{0} = {1}", AGiftBatchTable.GetBatchYearDBName(), NewYear);
ShowingAllPeriods = true;
}
else
{
WorkingFilter = String.Format("{0} = {1}", AGiftBatchTable.GetBatchYearDBName(), NewYear);
if (NewPeriod == 0) //All periods for year
{
//Nothing to add to filter
ShowingAllPeriods = true;
}
else if (NewPeriod == -1) //Current and forwarding
{
WorkingFilter += String.Format(" AND {0} >= {1}", AGiftBatchTable.GetBatchPeriodDBName(), CurrentLedgerPeriod);
}
else if (NewPeriod > 0) //Specific period
{
WorkingFilter += String.Format(" AND {0} = {1}", AGiftBatchTable.GetBatchPeriodDBName(), NewPeriod);
}
}
if (!BatchYearIsLoaded(NewYear))
{
FMainDS.Merge(TRemote.MFinance.Gift.WebConnectors.LoadAGiftBatchForYearPeriod(FLedgerNumber, NewYear, NewPeriod));
// Set the flag on the transaction tab to show the status dialog again when the transactions are loaded for a new year
TFrmGiftBatch giftBatchForm = (TFrmGiftBatch)FPetraUtilsObject.GetForm();
giftBatchForm.GetTransactionsControl().ShowStatusDialogOnLoad = true;
}
if (FrbtEditing.Checked)
{
StringHelper.JoinAndAppend(ref WorkingFilter, String.Format("{0} = '{1}'",
AGiftBatchTable.GetBatchStatusDBName(),
MFinanceConstants.BATCH_UNPOSTED),
CommonJoinString.JOIN_STRING_SQL_AND);
}
else if (FrbtPosting.Checked)
{
// note: batches
StringHelper.JoinAndAppend(ref WorkingFilter, String.Format("({0} = '{1}') AND ({2} > 0) AND (({4} = 0) OR ({4} = {3}))",
AGiftBatchTable.GetBatchStatusDBName(),
MFinanceConstants.BATCH_UNPOSTED,
AGiftBatchTable.GetLastGiftNumberDBName(),
AGiftBatchTable.GetBatchTotalDBName(),
AGiftBatchTable.GetHashTotalDBName()),
CommonJoinString.JOIN_STRING_SQL_AND);
}
else //(FrbtAll.Checked)
{
}
FFilterFindPanelObject.FilterPanelControls.SetBaseFilter(WorkingFilter, FrbtAll.Checked && ShowingAllPeriods);
FPrevBaseFilter = WorkingFilter;
AFilterString = WorkingFilter;
StringHelper.JoinAndAppend(ref AFilterString, AdditionalFilter, CommonJoinString.JOIN_STRING_SQL_AND);
FPrevFilter = AFilterString;
}
/// <summary>
/// Looks for gifts where the recipient is an ExWorker and asks the user if they want to continue.
/// (Make sure GetDataFromControls is called before this method so that AMainDS is up-to-date.)
/// </summary>
/// <param name="AAction">Why this method is being called</param>
/// <param name="AMainDS"></param>
/// <param name="APetraUtilsObject"></param>
/// <param name="APostingGiftDetails">Only used when being called in order to carry out a batch posting</param>
/// <returns>Returns true if saving/posting can continue</returns>
public static bool CanContinueWithAnyExWorkers(GiftBatchAction AAction,
GiftBatchTDS AMainDS,
TFrmPetraEditUtils APetraUtilsObject,
DataTable APostingGiftDetails = null)
{
DataTable ExWorkers = null;
string Msg = string.Empty;
int BatchNumber = -1;
int ExWorkerGifts = 0;
string ExWorkerSpecialType = TSystemDefaults.GetStringDefault(SharedConstants.SYSDEFAULT_EXWORKERSPECIALTYPE, "EX-WORKER");
// first check for Ex-Workers in the batch that is being posted/submitted (if a batch is being posted/submitted)
if ((APostingGiftDetails != null) && (APostingGiftDetails.Rows.Count > 0))
{
ExWorkers = TRemote.MFinance.Gift.WebConnectors.FindGiftRecipientExWorker(APostingGiftDetails, BatchNumber);
ExWorkerGifts += ExWorkers.Rows.Count;
Msg = GetExWorkersString(AAction, ExWorkerSpecialType, ExWorkers);
if (ExWorkers.Rows.Count > 0)
{
BatchNumber = (int)APostingGiftDetails.Rows[0][GiftBatchTDSAGiftDetailTable.GetBatchNumberDBName()];
}
}
// check for Ex-Workers in all added and modified data
if (APetraUtilsObject.HasChanges)
{
DataTable Changes = new DataTable();
if (AMainDS.AGiftDetail.GetChangesTyped() != null)
{
Changes.Merge(AMainDS.AGiftDetail.GetChangesTyped());
}
else if (AMainDS.ARecurringGiftDetail.GetChangesTyped() != null)
{
Changes.Merge(AMainDS.ARecurringGiftDetail.GetChangesTyped());
}
if ((Changes != null) && (Changes.Rows.Count > 0))
{
ExWorkers = TRemote.MFinance.Gift.WebConnectors.FindGiftRecipientExWorker(Changes, BatchNumber);
ExWorkerGifts += ExWorkers.Rows.Count;
Msg += GetExWorkersString(null, ExWorkerSpecialType, ExWorkers);
}
}
// alert the user to any recipients who are Ex-Workers
if (Msg != string.Empty)
{
if (AAction == GiftBatchAction.SAVING)
{
Msg += Environment.NewLine + Environment.NewLine;
Msg += Catalog.GetString("Do you want to continue with saving anyway?");
}
else
{
Msg += Environment.NewLine + Environment.NewLine;
Msg += Catalog.GetString("(any changes will also need to be saved before ");
if (AAction == GiftBatchAction.NEWBATCH)
{
Msg += Catalog.GetString("a new batch can be created");
}
else //POSTING, CANCELLING, SUBMITTING, DELETING
{
Msg += Catalog.GetString("this batch continues with " + AAction.ToString().ToLower());
}
Msg += ")" + Environment.NewLine + Environment.NewLine;
Msg += Catalog.GetString("Do you want to continue?");
}
TFrmExtendedMessageBox extendedMessageBox = new TFrmExtendedMessageBox(APetraUtilsObject.GetForm());
if (extendedMessageBox.ShowDialog(Msg,
Catalog.GetString("Ex-Workers Found"), string.Empty,
TFrmExtendedMessageBox.TButtons.embbYesNo,
TFrmExtendedMessageBox.TIcon.embiWarning)
== TFrmExtendedMessageBox.TResult.embrNo)
{
return(false);
}
}
return(true);
}
/// <summary>
/// Main method to Submit a specified batch
/// </summary>
/// <param name="ACurrentRecurringBatchRow">The batch row to Submit</param>
/// <param name="ATxtDetailHashTotal">True means ask user if they want to Submit</param>
/// <param name="ASubmittingAlreadyConfirmed">True means ask user if they want to Submit</param>
/// <returns>True if the batch was successfully Submited</returns>
public bool SubmitBatch(ARecurringGiftBatchRow ACurrentRecurringBatchRow,
Ict.Common.Controls.TTxtCurrencyTextBox ATxtDetailHashTotal,
ref bool ASubmittingAlreadyConfirmed)
{
int SelectedBatchNumber = ACurrentRecurringBatchRow.BatchNumber;
GiftBatchTDSARecurringGiftDetailTable RecurringBatchGiftDetails = new GiftBatchTDSARecurringGiftDetailTable();
foreach (ARecurringGiftDetailRow Row in FMainDS.ARecurringGiftDetail.Rows)
{
if (Row.BatchNumber == SelectedBatchNumber)
{
RecurringBatchGiftDetails.Rows.Add((object[])Row.ItemArray.Clone());
}
}
if (FPetraUtilsObject.HasChanges)
{
bool CancelledDueToExWorker;
// save first, then submit
if (!FMyForm.SaveChangesForSubmitting(RecurringBatchGiftDetails, out CancelledDueToExWorker))
{
if (!CancelledDueToExWorker)
{
// saving failed, therefore do not try to submit
MessageBox.Show(Catalog.GetString(
"The recurring batch was not submitted due to problems during saving; ") + Environment.NewLine +
Catalog.GetString("Please fix the batch first and then submit it."),
Catalog.GetString("Submit Failure"), MessageBoxButtons.OK, MessageBoxIcon.Error);
}
return(false);
}
}
if ((ACurrentRecurringBatchRow.HashTotal != 0) &&
(ACurrentRecurringBatchRow.BatchTotal != ACurrentRecurringBatchRow.HashTotal))
{
MessageBox.Show(String.Format(Catalog.GetString(
"The recurring gift batch total ({0}) for batch {1} does not equal the hash total ({2})."),
StringHelper.FormatUsingCurrencyCode(ACurrentRecurringBatchRow.BatchTotal, ACurrentRecurringBatchRow.CurrencyCode),
ACurrentRecurringBatchRow.BatchNumber,
StringHelper.FormatUsingCurrencyCode(ACurrentRecurringBatchRow.HashTotal, ACurrentRecurringBatchRow.CurrencyCode)),
"Submit Recurring Gift Batch");
ATxtDetailHashTotal.Focus();
ATxtDetailHashTotal.SelectAll();
return(false);
}
//Check for inactive KeyMinistries
DataTable GiftsWithInactiveKeyMinistries;
if (TRemote.MFinance.Gift.WebConnectors.InactiveKeyMinistriesFoundInBatch(FLedgerNumber, SelectedBatchNumber,
out GiftsWithInactiveKeyMinistries, true))
{
int numInactiveValues = GiftsWithInactiveKeyMinistries.Rows.Count;
string listOfOffendingRows =
String.Format(Catalog.GetString(
"{0} inactive key ministries found in Recurring Gift Batch {1}. Do you still want to submit?{2}{2}"),
numInactiveValues,
SelectedBatchNumber,
Environment.NewLine);
listOfOffendingRows += "Gift Detail Recipient KeyMinistry" + Environment.NewLine;
listOfOffendingRows += "-------------------------------------------------------------------------------";
foreach (DataRow dr in GiftsWithInactiveKeyMinistries.Rows)
{
listOfOffendingRows += String.Format("{0}{1:0000} {2:00} {3:00000000000} {4}",
Environment.NewLine,
dr[0],
dr[1],
dr[2],
dr[3]);
}
TFrmExtendedMessageBox extendedMessageBox = new TFrmExtendedMessageBox(FPetraUtilsObject.GetForm());
if (extendedMessageBox.ShowDialog(listOfOffendingRows.ToString(),
Catalog.GetString("Submit Batch"), string.Empty,
TFrmExtendedMessageBox.TButtons.embbYesNo,
TFrmExtendedMessageBox.TIcon.embiWarning) != TFrmExtendedMessageBox.TResult.embrYes)
{
return(false);
}
}
TFrmRecurringGiftBatchSubmit SubmitForm = new TFrmRecurringGiftBatchSubmit(FPetraUtilsObject.GetForm());
try
{
FMyForm.ShowInTaskbar = false;
SubmitForm.MainDS = FMainDS;
SubmitForm.BatchRow = ACurrentRecurringBatchRow;
SubmitForm.ShowDialog();
}
finally
{
SubmitForm.Dispose();
FMyForm.ShowInTaskbar = true;
}
return(true);
}
/// <summary>
/// The main method that handles all filtering. Every change on the filter panel causes this event to fire.
/// It is important to manage the fact that this method may be called recursively and so nesting can be tricky!
/// </summary>
/// <param name="AFilterString">On entry this parameter contains the filter control's best guess for the current filter.
/// The code can modify this string in the light of current control values.</param>
public void ApplyFilterManual(ref string AFilterString)
{
if ((FCurrentLedgerYear < 0) || (FCurrentLedgerPeriod < 0))
{
return;
}
string workingFilter = String.Empty;
string additionalFilter = String.Empty;
bool showingAllPeriods = false;
// Remove the old base filter
if (FPrevBaseFilter.Length > 0)
{
additionalFilter = AFilterString.Substring(FPrevBaseFilter.Length);
if (additionalFilter.StartsWith(CommonJoinString.JOIN_STRING_SQL_AND))
{
additionalFilter = additionalFilter.Substring(CommonJoinString.JOIN_STRING_SQL_AND.Length);
}
}
int newYear = FcmbYearEnding.GetSelectedInt32();
if (newYear != FPrevYearEnding)
{
FPrevYearEnding = newYear;
//TLogging.Log(String.Format("RefreshPeriods for Year {0}", newYear));
RefreshPeriods(newYear);
// Apply the last good filter as we unwind the nesting
AFilterString = FPrevFilter;
return;
}
int newPeriod = FcmbPeriod.GetSelectedInt32();
if (newYear == -1)
{
newYear = FCurrentLedgerYear;
workingFilter = String.Format("{0}={1}", ABatchTable.GetBatchYearDBName(), newYear);
showingAllPeriods = true;
}
else
{
workingFilter = String.Format(
"{0}={1}",
ABatchTable.GetBatchYearDBName(), newYear);
if (newPeriod == 0) //All periods for year
{
//Nothing to add to filter
showingAllPeriods = true;
}
else if (newPeriod == -1)
{
workingFilter += String.Format(" AND {0} >= {1}", ABatchTable.GetBatchPeriodDBName(), FCurrentLedgerPeriod);
}
else if (newPeriod > 0)
{
workingFilter += String.Format(" AND {0}={1}", ABatchTable.GetBatchPeriodDBName(), newPeriod);
}
}
if (!BatchYearIsLoaded(newYear))
{
FMainDS.Merge(TRemote.MFinance.GL.WebConnectors.LoadABatch(FLedgerNumber, newYear, newPeriod));
// Set the flag on the transaction tab to show the status dialog again when the transactions are loaded for a new year
TFrmGLBatch glBatchForm = (TFrmGLBatch)FPetraUtilsObject.GetForm();
glBatchForm.GetTransactionsControl().ShowStatusDialogOnLoad = true;
}
if (FrbtEditing.Checked)
{
StringHelper.JoinAndAppend(ref workingFilter, String.Format("{0}='{1}'",
ABatchTable.GetBatchStatusDBName(),
MFinanceConstants.BATCH_UNPOSTED),
CommonJoinString.JOIN_STRING_SQL_AND);
}
else if (FrbtPosting.Checked)
{
StringHelper.JoinAndAppend(ref workingFilter,
String.Format("({0}='{1}') AND ({2}={3}) AND ({2}<>0) AND (({4}=0) OR ({4}={2}))",
ABatchTable.GetBatchStatusDBName(),
MFinanceConstants.BATCH_UNPOSTED,
ABatchTable.GetBatchCreditTotalDBName(),
ABatchTable.GetBatchDebitTotalDBName(),
ABatchTable.GetBatchControlTotalDBName()),
CommonJoinString.JOIN_STRING_SQL_AND);
}
else //(FrbtAll.Checked)
{
}
FFilterFindPanelObject.FilterPanelControls.SetBaseFilter(workingFilter, FrbtAll.Checked && showingAllPeriods);
FPrevBaseFilter = workingFilter;
AFilterString = workingFilter;
StringHelper.JoinAndAppend(ref AFilterString, additionalFilter, CommonJoinString.JOIN_STRING_SQL_AND);
FPrevFilter = AFilterString;
}
/// <summary>
/// Imports budgets from a file
/// </summary>
/// <param name="ACurrentBudgetYear"></param>
/// <param name="AMainDS"></param>
public void ImportBudget(int ACurrentBudgetYear, ref BudgetTDS AMainDS)
{
TVerificationResultCollection Messages = new TVerificationResultCollection();
int BudgetsImported = 0;
int BudgetsAdded = 0;
int BudgetsUpdated = 0;
int BudgetsFailed = 0;
if (FPetraUtilsObject.HasChanges)
{
// saving failed, therefore do not try to post
MessageBox.Show(Catalog.GetString("Please save before trying to import!"), Catalog.GetString(
"Failure"), MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
return;
}
String DateFormatString = TUserDefaults.GetStringDefault("Imp Date", "MDY");
OpenFileDialog OFDialog = new OpenFileDialog();
string ExportPath = TClientSettings.GetExportPath();
string FullPath = TUserDefaults.GetStringDefault("Imp Filename",
ExportPath + Path.DirectorySeparatorChar + "import.csv");
TImportExportDialogs.SetOpenFileDialogFilePathAndName(OFDialog, FullPath, ExportPath);
OFDialog.Title = Catalog.GetString("Import budget(s) from CSV file");
OFDialog.Filter = Catalog.GetString("Text Files(*.txt) | *.txt | Delimited Files(*.csv) | *.csv");
String ImportOptions = TUserDefaults.GetStringDefault("Imp Options", ";" + TDlgSelectCSVSeparator.NUMBERFORMAT_AMERICAN);
// This call fixes Windows7 Open File Dialogs. It must be the line before ShowDialog()
TWin7FileOpenSaveDialog.PrepareDialog(Path.GetFileName(FullPath));
if (OFDialog.ShowDialog() == DialogResult.OK)
{
TFrmStatusDialog dlgStatus = new TFrmStatusDialog(FPetraUtilsObject.GetForm());
FdlgSeparator = new TDlgSelectCSVSeparator(false);
try
{
string fileTitle = OFDialog.SafeFileName;
Boolean fileCanOpen = FdlgSeparator.OpenCsvFile(OFDialog.FileName);
if (!fileCanOpen)
{
MessageBox.Show(Catalog.GetString("Unable to open file."),
Catalog.GetString("Budget Import"),
MessageBoxButtons.OK,
MessageBoxIcon.Stop);
return;
}
FdlgSeparator.DateFormat = DateFormatString;
if (ImportOptions.Length > 1)
{
FdlgSeparator.NumberFormat = ImportOptions.Substring(1);
}
FdlgSeparator.SelectedSeparator = ImportOptions.Substring(0, 1);
if (FdlgSeparator.ShowDialog() == DialogResult.OK)
{
string[] FdlgSeparatorVal = new string[] {
FdlgSeparator.SelectedSeparator, FdlgSeparator.DateFormat, FdlgSeparator.NumberFormat
};
Application.UseWaitCursor = true;
//New set of budgets to be loaded
dlgStatus.Show();
dlgStatus.Heading = Catalog.GetString("Budget Import");
dlgStatus.CurrentStatus = Catalog.GetString("Importing budgets from '" + fileTitle + "' ...");
// read contents of file
string ImportString = File.ReadAllText(OFDialog.FileName);
//TODO return the budget from the year, and -99 for fail
BudgetsImported = TRemote.MFinance.Budget.WebConnectors.ImportBudgets(FLedgerNumber,
ImportString,
OFDialog.FileName,
FdlgSeparatorVal,
ref AMainDS,
out BudgetsAdded,
out BudgetsUpdated,
out BudgetsFailed,
out Messages);
dlgStatus.Visible = false;
Application.UseWaitCursor = false;
ShowMessages(Messages, BudgetsImported, BudgetsAdded, BudgetsUpdated, BudgetsFailed);
}
// We save the defaults even if ok is false - because the client will probably want to try and import
// the same file again after correcting any errors
SaveUserDefaults(OFDialog, ImportOptions);
}
catch (Exception ex)
{
TLogging.LogException(ex, Utilities.GetMethodSignature());
throw;
}
finally
{
Application.UseWaitCursor = false;
}
// update grid
if ((BudgetsAdded + BudgetsUpdated) > 0)
{
try
{
dlgStatus.CurrentStatus = Catalog.GetString("Updating budget period data...");
dlgStatus.Visible = true;
Application.UseWaitCursor = true;
UpdateABudgetPeriodAmounts(AMainDS, ACurrentBudgetYear);
FUserControl.SetBudgetDefaultView(AMainDS);
}
finally
{
Application.UseWaitCursor = false;
dlgStatus.Close();
}
FPetraUtilsObject.SetChangedFlag();
}
else
{
dlgStatus.Close();
}
}
}
/// <summary>
/// this supports the batch export files from Petra 2.x.
/// Each line starts with a type specifier, B for batch, J for journal, T for transaction
/// </summary>
public void ImportBatches(TGiftImportDataSourceEnum AImportSource, GiftBatchTDS AMainDS)
{
bool ImportOK = false;
bool RefreshGUIAfterImport = false;
OpenFileDialog OFileDialog = null;
if (FPetraUtilsObject.HasChanges)
{
// saving failed, therefore do not try to import
MessageBox.Show(Catalog.GetString("Please save before calling this function!"), Catalog.GetString(
"Failure"), MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
ALedgerRow LedgerRow = (ALedgerRow)AMainDS.ALedger.Rows[0];
int CurrentTopBatchNumber = LedgerRow.LastGiftBatchNumber;
try
{
FMyForm.FCurrentGiftBatchAction = Logic.TExtraGiftBatchChecks.GiftBatchAction.IMPORTING;
bool datesMayBeIntegers = TUserDefaults.GetBooleanDefault(MCommonConstants.USERDEFAULT_IMPORTEDDATESMAYBEINTEGERS, false);
FdlgSeparator = new TDlgSelectCSVSeparator(false);
FdlgSeparator.DateMayBeInteger = datesMayBeIntegers;
if (AImportSource == TGiftImportDataSourceEnum.FromClipboard)
{
string ImportString = Clipboard.GetText(TextDataFormat.UnicodeText);
if ((ImportString == null) || (ImportString.Length == 0))
{
MessageBox.Show(Catalog.GetString("Please first copy data from your spreadsheet application!"),
Catalog.GetString("Failure"), MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
FdlgSeparator.CSVData = ImportString;
}
else if (AImportSource == TGiftImportDataSourceEnum.FromFile)
{
OFileDialog = new OpenFileDialog();
string exportPath = TClientSettings.GetExportPath();
string fullPath = TUserDefaults.GetStringDefault("Imp Filename",
exportPath + Path.DirectorySeparatorChar + "import.csv");
TImportExportDialogs.SetOpenFileDialogFilePathAndName(OFileDialog, fullPath, exportPath);
OFileDialog.Title = Catalog.GetString("Import Batches from CSV File");
OFileDialog.Filter = Catalog.GetString("Gift Batch Files(*.csv)|*.csv|Text Files(*.txt)|*.txt");
// This call fixes Windows7 Open File Dialogs. It must be the line before ShowDialog()
TWin7FileOpenSaveDialog.PrepareDialog(Path.GetFileName(fullPath));
if (OFileDialog.ShowDialog() == DialogResult.OK)
{
Boolean fileCanOpen = FdlgSeparator.OpenCsvFile(OFileDialog.FileName);
if (!fileCanOpen)
{
MessageBox.Show(Catalog.GetString("Unable to open file."),
Catalog.GetString("Gift Import"),
MessageBoxButtons.OK,
MessageBoxIcon.Stop);
return;
}
}
else
{
return;
}
}
else
{
// unknown source!!
return;
}
String impOptions = TUserDefaults.GetStringDefault("Imp Options", ";" + TDlgSelectCSVSeparator.NUMBERFORMAT_AMERICAN);
String dateFormatString = TUserDefaults.GetStringDefault("Imp Date", "MDY");
FdlgSeparator.DateFormat = dateFormatString;
FdlgSeparator.NumberFormat = (impOptions.Length > 1) ? impOptions.Substring(1) : TDlgSelectCSVSeparator.NUMBERFORMAT_AMERICAN;
FdlgSeparator.SelectedSeparator = StringHelper.GetCSVSeparator(FdlgSeparator.FileContent) ??
((impOptions.Length > 0) ? impOptions.Substring(0, 1) : ";");
if (FdlgSeparator.ShowDialog() == DialogResult.OK)
{
Hashtable requestParams = new Hashtable();
requestParams.Add("ALedgerNumber", FLedgerNumber);
requestParams.Add("Delimiter", FdlgSeparator.SelectedSeparator);
requestParams.Add("DateFormatString", FdlgSeparator.DateFormat);
requestParams.Add("DatesMayBeIntegers", datesMayBeIntegers);
requestParams.Add("NumberFormat", FdlgSeparator.NumberFormat);
requestParams.Add("NewLine", Environment.NewLine);
bool Repeat = true;
while (Repeat)
{
Repeat = false;
TVerificationResultCollection AMessages = new TVerificationResultCollection();
GiftBatchTDSAGiftDetailTable NeedRecipientLedgerNumber = new GiftBatchTDSAGiftDetailTable();
Thread ImportThread = new Thread(() => ImportGiftBatches(
requestParams,
FdlgSeparator.FileContent,
out AMessages,
out ImportOK,
out RefreshGUIAfterImport,
out NeedRecipientLedgerNumber));
using (TProgressDialog ImportDialog = new TProgressDialog(ImportThread))
{
ImportDialog.ShowDialog();
}
// If NeedRecipientLedgerNumber contains data then AMessages will only ever contain
// one message alerting the user that no data has been imported.
// We do not want to show this as we will be displaying another more detailed message.
if (NeedRecipientLedgerNumber.Rows.Count == 0)
{
if (TVerificationHelper.ResultsContainErrorCode(AMessages, PetraErrorCodes.ERR_DB_SERIALIZATION_EXCEPTION))
{
TConcurrentServerTransactions.ShowTransactionSerializationExceptionDialog();
}
else
{
ShowMessages(AMessages);
}
}
// if the import contains gifts with Motivation Group 'GIFT' and that have a Family recipient with no Gift Destination
// then the import will have failed and we need to alert the user
if (NeedRecipientLedgerNumber.Rows.Count > 0)
{
bool OfferToRunImportAgain = true;
bool DoNotShowMessageBoxEverytime = false;
TFrmExtendedMessageBox.TResult Result = TFrmExtendedMessageBox.TResult.embrUndefined;
int count = 1;
// for each gift in which the recipient needs a Git Destination
foreach (GiftBatchTDSAGiftDetailRow Row in NeedRecipientLedgerNumber.Rows)
{
if (!DoNotShowMessageBoxEverytime)
{
string CheckboxText = string.Empty;
// only show checkbox if there is at least one more occurrence of this error
if (NeedRecipientLedgerNumber.Rows.Count - count > 0)
{
CheckboxText = string.Format(
Catalog.GetString(
"Do this for all further occurrences ({0})?"), NeedRecipientLedgerNumber.Rows.Count - count);
}
TFrmExtendedMessageBox extendedMessageBox = new TFrmExtendedMessageBox(FPetraUtilsObject.GetForm());
extendedMessageBox.ShowDialog(string.Format(
Catalog.GetString(
"Gift Import has been cancelled as the recipient '{0}' ({1}) has no Gift Destination assigned."),
Row.RecipientDescription, Row.RecipientKey) +
"\n\r\n\r\n\r" +
Catalog.GetString("Do you want to assign a Gift Destination to this partner now?"),
Catalog.GetString("Import Errors"),
CheckboxText,
TFrmExtendedMessageBox.TButtons.embbYesNo, TFrmExtendedMessageBox.TIcon.embiWarning);
Result = extendedMessageBox.GetResult(out DoNotShowMessageBoxEverytime);
}
if (Result == TFrmExtendedMessageBox.TResult.embrYes)
{
// allow the user to assign a Gift Destingation
TFrmGiftDestination GiftDestinationForm = new TFrmGiftDestination(FPetraUtilsObject.GetForm(), Row.RecipientKey);
GiftDestinationForm.ShowDialog();
}
else
{
OfferToRunImportAgain = false;
if (DoNotShowMessageBoxEverytime)
{
break;
}
}
count++;
}
// if the user has clicked yes to assigning Gift Destinations then offer to restart the import
if (OfferToRunImportAgain &&
(MessageBox.Show(Catalog.GetString("Would you like to import this Gift Batch again?"),
Catalog.GetString("Gift Import"), MessageBoxButtons.YesNo, MessageBoxIcon.Question,
MessageBoxDefaultButton.Button2)
== DialogResult.Yes))
{
Repeat = true;
}
}
}
}
// We save the defaults even if ok is false - because the client will probably want to try and import
// the same file again after correcting any errors
SaveUserDefaults(OFileDialog);
if (ImportOK)
{
MessageBox.Show(Catalog.GetString("Your data was imported successfully!"),
Catalog.GetString("Gift Import"),
MessageBoxButtons.OK,
MessageBoxIcon.Information);
}
if (ImportOK)
{
FMyUserControl.LoadBatchesForCurrentYear();
FMyForm.GetBatchControl().SelectRowInBatchGrid(1);
DataView allNewBatches = new DataView(AMainDS.AGiftBatch);
allNewBatches.RowFilter = String.Format("{0} > {1}",
AGiftBatchTable.GetBatchNumberDBName(),
CurrentTopBatchNumber);
foreach (DataRowView drv in allNewBatches)
{
drv.Row.SetModified();
}
FPetraUtilsObject.SetChangedFlag();
//Force initial inactive values check
FMyForm.SaveChangesManual(FMyForm.FCurrentGiftBatchAction);
}
else if (RefreshGUIAfterImport)
{
FMyUserControl.LoadBatchesForCurrentYear();
FMyForm.GetBatchControl().SelectRowInBatchGrid(1);
}
}
finally
{
FMyForm.FCurrentGiftBatchAction = Logic.TExtraGiftBatchChecks.GiftBatchAction.NONE;
}
}