/// <summary>
/// only run this code once during activation
/// </summary>
private void RunOnceOnActivationManual()
{
// enable autofind in list for first character (so the user can press character to find list entry)
this.clbSites.AutoFindColumn = ((Int16)(1));
this.clbSites.AutoFindMode = Ict.Common.Controls.TAutoFindModeEnum.FirstCharacter;
clbSites.SpecialKeys =
((SourceGrid.GridSpecialKeys)((((((SourceGrid.GridSpecialKeys.Arrows |
SourceGrid.GridSpecialKeys.PageDownUp) |
SourceGrid.GridSpecialKeys.Enter) |
SourceGrid.GridSpecialKeys.Escape) |
SourceGrid.GridSpecialKeys.Control) | SourceGrid.GridSpecialKeys.Shift)));
// populate list with data to be loaded
this.LoadSitesData();
CmbDataTable = new DataTable();
CmbDataTable.Columns.Add(CmbDisplayMember);
CmbDataTable.Columns.Add(CmbValueMember);
cmbDefaultSite.DisplayMember = CmbDisplayMember;
cmbDefaultSite.ValueMember = CmbValueMember;
cmbDefaultSite.DataSource = CmbDataTable.DefaultView;
UpdateDefaultCombobox();
// reset after initialization
FPetraUtilsObject.DisableSaveButton();
FPetraUtilsObject.HasChanges = false;
}
/// <summary>
/// only run this code once during activation
/// </summary>
private void RunOnceOnActivationManual()
{
// enable autofind in list for first character (so the user can press character to find list entry)
// from Sep 2015 this is handled automatically by the code generator
clbSites.SpecialKeys =
((SourceGrid.GridSpecialKeys)((((((SourceGrid.GridSpecialKeys.Arrows |
SourceGrid.GridSpecialKeys.PageDownUp) |
SourceGrid.GridSpecialKeys.Enter) |
SourceGrid.GridSpecialKeys.Escape) |
SourceGrid.GridSpecialKeys.Control) | SourceGrid.GridSpecialKeys.Shift)));
// populate list with data to be loaded
this.LoadSitesData();
CmbDataTable = new DataTable();
CmbDataTable.Columns.Add(CmbDisplayMember);
CmbDataTable.Columns.Add(CmbValueMember);
cmbDefaultSite.DisplayMember = CmbDisplayMember;
cmbDefaultSite.ValueMember = CmbValueMember;
cmbDefaultSite.DataSource = CmbDataTable.DefaultView;
UpdateDefaultCombobox(true);
// reset after initialization
FPetraUtilsObject.DisableSaveButton();
FPetraUtilsObject.HasChanges = false;
}
// delete highlighted row/s
private void DeleteRecord(Object Sender, EventArgs e)
{
ATransactionRow RowToDelete = FMainDS.ATransaction.NewRowTyped();
RowToDelete.ItemArray = (object[])FPreviouslySelectedDetailRow.ItemArray.Clone();
this.DeleteATransaction();
if (grdDetails.Rows.Count <= 2)
{
btnOK.Enabled = false;
}
ATransAnalAttribTable TempTable = new ATransAnalAttribTable();
TempTable.Merge(FMainDS.ATransAnalAttrib);
foreach (ATransAnalAttribRow Row in TempTable.Rows)
{
if ((Row.RowState != DataRowState.Deleted) &&
(Row.LedgerNumber == RowToDelete.LedgerNumber) &&
(Row.BatchNumber == RowToDelete.BatchNumber) &&
(Row.JournalNumber == RowToDelete.JournalNumber))
{
if (Row.TransactionNumber == RowToDelete.TransactionNumber)
{
// delete row as no longer used
FMainDS.ATransAnalAttrib.Rows.Find(
new object[] { Row.LedgerNumber, Row.BatchNumber, Row.JournalNumber, Row.TransactionNumber,
Row.AnalysisTypeCode }).Delete();
}
else if (Row.TransactionNumber > RowToDelete.TransactionNumber)
{
// transaction number needs updated
((ATransAnalAttribRow)FMainDS.ATransAnalAttrib.Rows.Find(
new object[] { Row.LedgerNumber, Row.BatchNumber, Row.JournalNumber, Row.TransactionNumber,
Row.AnalysisTypeCode })).TransactionNumber -= 1;
}
}
}
foreach (ATransactionRow Row in FMainDS.ATransaction.Rows)
{
if ((Row.RowState != DataRowState.Deleted) &&
(Row.LedgerNumber == RowToDelete.LedgerNumber) &&
(Row.BatchNumber == RowToDelete.BatchNumber) &&
(Row.JournalNumber == RowToDelete.JournalNumber) &&
(Row.TransactionNumber > RowToDelete.TransactionNumber))
{
// transaction number needs updated
Row.TransactionNumber -= 1;
}
}
FPetraUtilsObject.DisableSaveButton();
}
private void RunOnceOnActivationManual()
{
// Stop changes from ever being detected. We do not want to save the data on this screen.
FPetraUtilsObject.DisableSaveButton();
FPetraUtilsObject.UnhookControl(this, true);
cmbFromAccountCode.AttachedLabel.Text = TFinanceControls.SELECT_VALID_ACCOUNT;
cmbFromCostCentreCode.AttachedLabel.Text = TFinanceControls.SELECT_VALID_COST_CENTRE;
cmbDetailAccountCode.AttachedLabel.Text = TFinanceControls.SELECT_VALID_ACCOUNT;
cmbDetailCostCentreCode.AttachedLabel.Text = TFinanceControls.SELECT_VALID_COST_CENTRE;
}
/// <summary>
/// Called from PetraEditForm
/// </summary>
/// <returns></returns>
public bool SaveChanges()
{
GetDataFromControlsManual();
Boolean Res = TRemote.MFinance.Gift.WebConnectors.CommitEsrDefaults(FesrDefaults);
if (Res)
{
FesrDefaults.AcceptChanges();
FPetraUtilsObject.DisableSaveButton();
}
return(Res);
}
private void NewRow(Object Sender, EventArgs e)
{
if (CreateNewATransaction())
{
txtDetailTransactionAmount.NumberValueDecimal = 0;
txtDetailPercentage.NumberValueDecimal = 0;
// ok button is only enable when at least two rows have been added
if (grdDetails.Rows.Count > 2)
{
btnOK.Enabled = true;
}
}
FPetraUtilsObject.DisableSaveButton();
}
/// <summary>
/// enable or disable the buttons
/// </summary>
public void UpdateChangeableStatus()
{
Boolean IsChangeable = (!FPetraUtilsObject.DetailProtectedMode && GetBatchRow() != null);
Boolean JournalUpdatable = (FPreviouslySelectedDetailRow != null);
this.btnDelete.Enabled = IsChangeable && JournalUpdatable;
this.btnAdd.Enabled = IsChangeable;
pnlDetails.Enabled = IsChangeable && JournalUpdatable;
pnlDetailsProtected = !IsChangeable;
if (!IsChangeable)
{
FPetraUtilsObject.DisableSaveButton();
}
}
private void DataSaved(object Sender, TDataSavedEventArgs e)
{
TTypedDataTable ChildDTWhoseDataGotSaved;
// Save the changes in the user control
if ((e.Success) &&
(!FDataSavedInNoMasterDataToSaveEvent))
{
FPetraUtilsObject.SetChangedFlag();
ucoValues.SaveChanges(out ChildDTWhoseDataGotSaved);
FPetraUtilsObject.DisableSaveButton();
}
// Ensure Filter functionality is enabled (might have been disabled in Method 'Uco_NoMoreDetailRecords')
ActionEnabledEvent(null, new ActionEventArgs("cndFindFilterAvailable", true));
}
/// <summary>
///
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
public void FileSave(object sender, EventArgs e)
{
this.Cursor = Cursors.WaitCursor;
if (SaveChanges())
{
// Broadcast message to update partner's Partner Edit screen if open
TFormsMessage BroadcastMessage = new TFormsMessage(TFormsMessageClassEnum.mcUnitHierarchyChanged);
BroadcastMessage.SetMessageDataUnitHierarchy(FChangedParents);
TFormsList.GFormsList.BroadcastFormMessage(BroadcastMessage);
FChangedParents = new List <Tuple <string, long, long> >();
FPetraUtilsObject.HasChanges = false;
FPetraUtilsObject.DisableSaveButton();
}
this.Cursor = Cursors.Default;
}
private void DataSaved(object Sender, TDataSavedEventArgs e)
{
TTypedDataTable ChildDTWhoseDataGotSaved;
// Save the changes in the user control
if (e.Success)
{
if (!FDataSavedInNoMasterDataToSaveEvent)
{
FPetraUtilsObject.SetChangedFlag();
ucoValues.SaveChanges(out ChildDTWhoseDataGotSaved);
FPetraUtilsObject.DisableSaveButton();
}
TSharedDataCache.TMPartner.MarkPhonePartnerAttributesConcatStrNeedsRefreshing();
TSharedDataCache.TMPartner.MarkEmailPartnerAttributesConcatStrNeedsRefreshing();
}
// Ensure Filter functionality is enabled (might have been disabled in Method 'Uco_NoMoreDetailRecords')
ActionEnabledEvent(null, new ActionEventArgs("cndFindFilterAvailable", true));
}
/// <summary>
/// enable or disable the buttons
/// </summary>
public void UpdateChangeableStatus()
{
Boolean IsChangeable = (!FPetraUtilsObject.DetailProtectedMode) &&
(GetBatchRow() != null) &&
(GetBatchRow().BatchStatus == MFinanceConstants.BATCH_UNPOSTED);
Boolean JournalUpdatable = (FPreviouslySelectedDetailRow != null &&
FPreviouslySelectedDetailRow.JournalStatus == MFinanceConstants.BATCH_UNPOSTED);
//Process buttons
this.btnCancel.Enabled = IsChangeable && JournalUpdatable;
this.btnAdd.Enabled = IsChangeable;
this.btnGetSetExchangeRate.Enabled = IsChangeable && JournalUpdatable &&
(FPreviouslySelectedDetailRow.TransactionCurrency != FMainDS.ALedger[0].BaseCurrency);
pnlDetails.Enabled = IsChangeable && JournalUpdatable;
pnlDetailsProtected = !IsChangeable;
if (!IsChangeable)
{
FPetraUtilsObject.DisableSaveButton();
}
}
/// <summary>
/// save the changes
/// </summary>
/// <returns></returns>
public bool SaveChanges()
{
Boolean Result = false;
String CheckedStringList = clbSites.GetCheckedStringList();
String[] SiteKeyArray = CheckedStringList.Split(',');
Int32 Counter = 0;
List <Int64> AddedSiteKeyList = new List <Int64>();
List <Int64> RemovedSiteKeyList = new List <Int64>();
Int64 RemovedSiteKey;
String RemovedSiteName;
Boolean AnySiteRemoved = false;
String UserMessage = Catalog.GetString(
"Are you sure you want to remove access to following sites? You will not be able to create Partner Keys for them any longer! \r\n");
TVerificationResultCollection VerificationResultCollection = new TVerificationResultCollection();
TVerificationResult VerificationResult = TStringChecks.StringMustNotBeEmpty(cmbDefaultSite.Text,
lblDefaultSite.Text);
// Handle addition/removal to/from TVerificationResultCollection
VerificationResultCollection.Auto_Add_Or_AddOrRemove(null, VerificationResult, null);
if (!TDataValidation.ProcessAnyDataValidationErrors(false, VerificationResultCollection, this.GetType()))
{
return(false);
}
// save site keys selected for possible use
for (Counter = 0; Counter < SiteKeyArray.Length; Counter++)
{
AddedSiteKeyList.Add(Convert.ToInt64(SiteKeyArray[Counter]));
}
// create list of site keys that have been removed and double check with user
foreach (DataRow SiteRow in AvailableSitesTable.Rows)
{
if (!Convert.ToBoolean(SiteRow[SharedConstants.SYSMAN_AVAILABLE_SITES_COLUMN_IS_PARTNER_LEDGER]))
{
// check if previously checked site is now no longer checked
RemovedSiteKey = Convert.ToInt64(SiteRow[PUnitTable.GetPartnerKeyDBName()]);
if (OriginallyCheckedSites.Contains(RemovedSiteKey))
{
AnySiteRemoved = true;
RemovedSiteKeyList.Add(RemovedSiteKey);
RemovedSiteName = SiteRow[PUnitTable.GetUnitNameDBName()].ToString();
UserMessage += "\r\n" + String.Format("{0:0000000000}", RemovedSiteKey) + " - " + RemovedSiteName;
}
}
}
if (AnySiteRemoved)
{
if (MessageBox.Show(UserMessage, Catalog.GetString("Remove access to Sites"), MessageBoxButtons.YesNo,
MessageBoxIcon.Warning) == DialogResult.No)
{
return(false);
}
}
// save default site key
if (cmbDefaultSite.SelectedValue != null)
{
TSystemDefaults.SetSystemDefault(SharedConstants.SYSDEFAULT_SITEKEY, cmbDefaultSite.SelectedValue.ToString());
}
Result = TRemote.MSysMan.WebConnectors.SaveSiteKeys(AddedSiteKeyList, RemovedSiteKeyList);
if (Result)
{
// reload data from server here so the list is sorted by check box value first and then site name (consider doing this
// on client in the future if performance issues)
LoadSitesData();
FPetraUtilsObject.DisableSaveButton();
// We don't have unsaved changes anymore
FPetraUtilsObject.HasChanges = false;
}
return(Result);
}
/// <summary>
/// Save the changes on the screen
/// </summary>
/// <returns></returns>
public bool SaveChanges()
{
Boolean ReturnValue;
// Be sure to fire the OnLeave event on the active control of any user control
FPetraUtilsObject.ForceOnLeaveForActiveControl();
FPetraUtilsObject.OnDataSavingStart(this, new System.EventArgs());
// Don't allow saving if user is still editing a Detail of a List
if (FPetraUtilsObject.InDetailEditMode())
{
ReturnValue = false;
return(ReturnValue);
}
// Clear any validation errors so that the following call to ValidateAllData starts with a 'clean slate'.
FPetraUtilsObject.VerificationResultCollection.Clear();
if (ValidateAllData(false, TErrorProcessingMode.Epm_IgnoreNonCritical))
{
// Ask the user about non-critical warnings, if they are the only 'errors' in the collection
if (FPetraUtilsObject.VerificationResultCollection.HasOnlyNonCriticalErrors &&
(TDataValidation.ProcessAnyDataValidationWarnings(FPetraUtilsObject.VerificationResultCollection,
MCommonResourcestrings.StrFormSaveDataAnywayQuestion, this.GetType()) == false))
{
return(false);
}
FMainDS.AApSupplier.Rows[0].BeginEdit();
GetDataFromControls(FMainDS.AApSupplier[0]);
if (FMainDS.AApSupplier[0].IsDefaultApAccountNull())
{
MessageBox.Show(Catalog.GetString("Please select an AP account (eg. 9100)"));
FMainDS.AApSupplier.Rows[0].EndEdit();
ReturnValue = false;
return(ReturnValue);
}
// The account would usually be 9100-AP account.
if (FMainDS.AApSupplier[0].DefaultApAccount != "9100")
{
if (MessageBox.Show(Catalog.GetString("You are not using the standard AP account (9100) - is this OK?"),
"Verification", MessageBoxButtons.YesNo)
!= System.Windows.Forms.DialogResult.Yes)
{
FMainDS.AApSupplier.Rows[0].EndEdit();
return(false);
}
}
// Don't store with invalid currency value.
//
if (FMainDS.AApSupplier[0].CurrencyCode == "")
{
FMainDS.AApSupplier[0].CurrencyCode = FLedgerRow.BaseCurrency;
}
// If this is a foreign currency supplier, it must be linked to accounts in that currency.
// (And if it's not, it mustn't be!)
if (!ValidateAccountCurrency(FMainDS.AApSupplier[0].DefaultBankAccount, "Bank"))
{
return(false);
}
/*
* If we wanted to have only expense accounts in a single currency, we could have this,
* but that's probably not what we want...
*
* if (!ValidateAccountCurrency(FMainDS.AApSupplier[0].DefaultExpAccount, "Expense"))
* {
* return false;
* }
*/
}
ReturnValue = TDataValidation.ProcessAnyDataValidationErrors(false, FPetraUtilsObject.VerificationResultCollection,
this.GetType());
if (ReturnValue)
{
// Fire the DataSavingValidated event, which is the last chance to cancel the save
System.ComponentModel.CancelEventArgs eCancel = new System.ComponentModel.CancelEventArgs(false);
FPetraUtilsObject.OnDataSavingValidated(this, eCancel);
if (eCancel.Cancel == true)
{
return(false);
}
foreach (DataTable InspectDT in FMainDS.Tables)
{
foreach (DataRow InspectDR in InspectDT.Rows)
{
InspectDR.EndEdit();
}
}
if (FPetraUtilsObject.HasChanges)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataInProgress);
this.Cursor = Cursors.WaitCursor;
AccountsPayableTDS SubmitDS = FMainDS.GetChangesTyped(true);
TSubmitChangesResult SubmissionResult;
TVerificationResultCollection VerificationResult = new TVerificationResultCollection();
// Submit changes to the PETRAServer
try
{
SubmissionResult = FUIConnector.SubmitChanges(ref SubmitDS);
}
catch (ESecurityDBTableAccessDeniedException Exp)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
TMessages.MsgSecurityException(Exp, this.GetType());
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
catch (EDBConcurrencyException Exp)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
TMessages.MsgDBConcurrencyException(Exp, this.GetType());
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
catch (Exception)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
throw;
}
switch (SubmissionResult)
{
case TSubmitChangesResult.scrOK:
// Call AcceptChanges to get rid now of any deleted columns before we Merge with the result from the Server
FMainDS.AcceptChanges();
// Merge back with data from the Server (eg. for getting Sequence values)
if (SubmitDS != null)
{
FMainDS.Merge(SubmitDS, false);
// need to accept the new modification ID
FMainDS.AcceptChanges();
}
// Update UI
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataSuccessful);
this.Cursor = Cursors.Default;
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
TFormsMessage broadcastMessage = new TFormsMessage(TFormsMessageClassEnum.mcAPSupplierChanged);
TFormsList.GFormsList.BroadcastFormMessage(broadcastMessage);
ReturnValue = true;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
break;
case TSubmitChangesResult.scrError:
this.Cursor = Cursors.Default;
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataErrorOccured);
MessageBox.Show(Messages.BuildMessageFromVerificationResult(null, VerificationResult));
FPetraUtilsObject.SubmitChangesContinue = false;
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
break;
case TSubmitChangesResult.scrNothingToBeSaved:
this.Cursor = Cursors.Default;
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataNothingToSave);
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
ReturnValue = true;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
break;
case TSubmitChangesResult.scrInfoNeeded:
// TODO scrInfoNeeded
this.Cursor = Cursors.Default;
break;
}
}
else
{
// Update UI
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataNothingToSave);
this.Cursor = Cursors.Default;
FPetraUtilsObject.DisableSaveButton();
// We don't have unsaved changes anymore
FPetraUtilsObject.HasChanges = false;
ReturnValue = true;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
}
}
else
{
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(false));
}
return(ReturnValue);
}
private void RunOnceOnActivationManual()
{
// Stop changes from ever being detected. We do not want to save the data on this screen.
FPetraUtilsObject.DisableSaveButton();
FPetraUtilsObject.UnhookControl(this, true);
}
/// <summary>
/// load the gifts into the grid
/// </summary>
/// <param name="ALedgerNumber"></param>
/// <param name="ABatchNumber"></param>
/// <param name="ABatchStatus"></param>
/// <param name="AForceLoadFromServer">Set to true to get data from the server even though it is apparently the current batch number and status</param>
/// <returns>True if gift transactions were loaded from server, false if transactions had been loaded already.</returns>
public bool LoadGifts(Int32 ALedgerNumber, Int32 ABatchNumber, string ABatchStatus, bool AForceLoadFromServer = false)
{
//Set key flags
bool FirstGiftTransLoad = (FLedgerNumber == -1);
bool SameCurrentBatch = ((FLedgerNumber == ALedgerNumber) &&
(FBatchNumber == ABatchNumber) &&
(FBatchStatus == ABatchStatus) &&
!AForceLoadFromServer);
FBatchRow = GetBatchRow();
if ((FBatchRow == null) && (GetAnyBatchRow(ABatchNumber) == null))
{
MessageBox.Show(String.Format("Cannot load transactions for Gift Batch {0} as the batch is not currently loaded!",
ABatchNumber));
return(false);
}
//Set key values from Batch
FLedgerNumber = ALedgerNumber;
FBatchNumber = ABatchNumber;
FBatchCurrencyCode = FBatchRow.CurrencyCode;
FBatchMethodOfPayment = FBatchRow.MethodOfPaymentCode;
FBatchStatus = ABatchStatus;
FBatchUnpostedFlag = (FBatchStatus == MFinanceConstants.BATCH_UNPOSTED);
if (FirstGiftTransLoad)
{
InitialiseControls();
}
UpdateCurrencySymbols(FBatchCurrencyCode);
//Check if the same batch is selected, so no need to apply filter
if (SameCurrentBatch)
{
//Same as previously selected and we have not been asked to force a full refresh
if (FBatchUnpostedFlag && (GetSelectedRowIndex() > 0))
{
if (FGLEffectivePeriodHasChangedFlag)
{
//Just in case for the currently selected row, the date field has not been updated
FGLEffectivePeriodHasChangedFlag = false;
GetSelectedDetailRow().DateEntered = FBatchRow.GlEffectiveDate;
dtpDateEntered.Date = FBatchRow.GlEffectiveDate;
}
GetDetailsFromControls(GetSelectedDetailRow());
}
UpdateControlsProtection();
if (FBatchUnpostedFlag &&
((FBatchCurrencyCode != FBatchRow.CurrencyCode) ||
(FBatchExchangeRateToBase != FBatchRow.ExchangeRateToBase)))
{
UpdateBaseAmount(false);
}
return(false);
}
//New Batch
FCurrentGiftInBatch = 0;
//New set of transactions to be loaded
TFrmStatusDialog dlgStatus = new TFrmStatusDialog(FPetraUtilsObject.GetForm());
if (FShowStatusDialogOnLoadFlag == true)
{
dlgStatus.Show();
FShowStatusDialogOnLoadFlag = false;
dlgStatus.Heading = String.Format(Catalog.GetString("Batch {0}"), ABatchNumber);
dlgStatus.CurrentStatus = Catalog.GetString("Loading transactions ...");
}
FGiftTransactionsLoadedFlag = false;
FSuppressListChangedFlag = false;
//Apply new filter
FPreviouslySelectedDetailRow = null;
grdDetails.DataSource = null;
// if this form is readonly, then we need all codes, because old (inactive) codes might have been used
if (FirstGiftTransLoad || (FActiveOnlyFlag == (ViewMode || !FBatchUnpostedFlag)))
{
FActiveOnlyFlag = !(ViewMode || !FBatchUnpostedFlag);
dlgStatus.CurrentStatus = Catalog.GetString("Initialising controls ...");
try
{
//Without this, the Save button enables even for Posted batches!
FPetraUtilsObject.SuppressChangeDetection = true;
TFinanceControls.InitialiseMotivationGroupList(ref cmbDetailMotivationGroupCode, FLedgerNumber, FActiveOnlyFlag);
TFinanceControls.InitialiseMotivationDetailList(ref cmbMotivationDetailCode, FLedgerNumber, FActiveOnlyFlag);
TFinanceControls.InitialiseMethodOfGivingCodeList(ref cmbDetailMethodOfGivingCode, FActiveOnlyFlag);
TFinanceControls.InitialiseMethodOfPaymentCodeList(ref cmbDetailMethodOfPaymentCode, FActiveOnlyFlag);
TFinanceControls.InitialisePMailingList(ref cmbDetailMailingCode, FActiveOnlyFlag);
}
finally
{
FPetraUtilsObject.SuppressChangeDetection = false;
}
}
// This sets the incomplete filter but does check the panel enabled state
ShowData();
// This sets the main part of the filter but excluding the additional items set by the user GUI
// It gets the right sort order
SetGiftDetailDefaultView();
// only load from server if there are no transactions loaded yet for this batch
// otherwise we would overwrite transactions that have already been modified
if (FMainDS.AGiftDetail.DefaultView.Count == 0)
{
dlgStatus.CurrentStatus = Catalog.GetString("Requesting transactions from server ...");
//Load all partners in Batch
FMainDS.DonorPartners.Merge(TRemote.MFinance.Gift.WebConnectors.LoadAllPartnerDataForBatch(ALedgerNumber, ABatchNumber)); //LoadAllPartnerDataForBatch();
//Include Donor fields
LoadGiftDataForBatch(ALedgerNumber, ABatchNumber);
}
//Check if need to update batch period in each gift
if (FBatchUnpostedFlag)
{
dlgStatus.CurrentStatus = Catalog.GetString("Updating batch period ...");
((TFrmGiftBatch)ParentForm).GetBatchControl().UpdateBatchPeriod();
}
// Now we set the full filter
FFilterAndFindObject.ApplyFilter();
UpdateRecordNumberDisplay();
FFilterAndFindObject.SetRecordNumberDisplayProperties();
SelectRowInGrid(1);
UpdateControlsProtection();
dlgStatus.CurrentStatus = Catalog.GetString("Updating totals for the batch ...");
UpdateTotals();
if ((FPreviouslySelectedDetailRow != null) && (FBatchUnpostedFlag))
{
bool disableSave = (FBatchRow.RowState == DataRowState.Unchanged && !FPetraUtilsObject.HasChanges);
if (disableSave && FPetraUtilsObject.HasChanges && !DataUtilities.DataRowColumnsHaveChanged(FBatchRow))
{
FPetraUtilsObject.DisableSaveButton();
}
}
FGiftTransactionsLoadedFlag = true;
dlgStatus.Close();
return(true);
}
/// <summary>
/// save the changes on the screen (code is copied from auto-generated code)
/// </summary>
/// <returns></returns>
public bool SaveChanges()
{
bool ReturnValue = false;
FPetraUtilsObject.OnDataSavingStart(this, new System.EventArgs());
if (FPetraUtilsObject.VerificationResultCollection.Count == 0)
{
foreach (DataRow InspectDR in FMainDS.MExtract.Rows)
{
InspectDR.EndEdit();
}
if (!FPetraUtilsObject.HasChanges)
{
return(true);
}
else
{
FPetraUtilsObject.WriteToStatusBar("Saving data...");
this.Cursor = Cursors.WaitCursor;
TSubmitChangesResult SubmissionResult;
//Ict.Common.Data.TTypedDataTable SubmitDT = FMainDS.MExtract.GetChangesTyped();
MExtractTable SubmitDT = new MExtractTable();
ExtractTDSMExtractTable ChangesDT = FMainDS.MExtract.GetChangesTyped();
if (ChangesDT != null)
{
SubmitDT.Merge(ChangesDT);
}
else
{
SubmitDT = null;
}
if (SubmitDT == null)
{
// There is nothing to be saved.
// Update UI
FPetraUtilsObject.WriteToStatusBar(Catalog.GetString("There is nothing to be saved."));
this.Cursor = Cursors.Default;
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
return(true);
}
// Submit changes to the PETRAServer
try
{
SubmissionResult = TRemote.MPartner.Partner.WebConnectors.SaveExtract
(FExtractId, ref SubmitDT);
}
catch (ESecurityDBTableAccessDeniedException Exp)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
TMessages.MsgSecurityException(Exp, this.GetType());
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
catch (EDBConcurrencyException Exp)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
TMessages.MsgDBConcurrencyException(Exp, this.GetType());
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
catch (Exception)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
throw;
}
switch (SubmissionResult)
{
case TSubmitChangesResult.scrOK:
// Call AcceptChanges to get rid now of any deleted columns before we Merge with the result from the Server
FMainDS.MExtract.AcceptChanges();
// Merge back with data from the Server (eg. for getting Sequence values)
FMainDS.MExtract.Merge(SubmitDT, false);
// need to accept the new modification ID
FMainDS.MExtract.AcceptChanges();
// Update UI
FPetraUtilsObject.WriteToStatusBar("Data successfully saved.");
this.Cursor = Cursors.Default;
// TODO EnableSave(false);
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
SetPrimaryKeyReadOnly(true);
// refresh extract master screen if it is open
TFormsMessage BroadcastMessage = new TFormsMessage(TFormsMessageClassEnum.mcExtractCreated);
BroadcastMessage.SetMessageDataName(ExtractName);
TFormsList.GFormsList.BroadcastFormMessage(BroadcastMessage);
this.Focus(); // keeps the focus on the current form
// TODO OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(true);
case TSubmitChangesResult.scrError:
// TODO scrError
this.Cursor = Cursors.Default;
break;
case TSubmitChangesResult.scrNothingToBeSaved:
// TODO scrNothingToBeSaved
this.Cursor = Cursors.Default;
return(true);
case TSubmitChangesResult.scrInfoNeeded:
// TODO scrInfoNeeded
this.Cursor = Cursors.Default;
break;
}
}
}
return(false);
}
private void UpdateTotals()
{
if ((FPetraUtilsObject == null))
{
return;
}
Decimal SumTransactions = 0;
Decimal SumBatch = 0;
Int32 GiftNumber = 0;
//Sometimes a change in an unbound textbox causes a data changed condition
bool SaveButtonWasEnabled = FPetraUtilsObject.HasChanges;
bool DataChanges = false;
if (FPreviouslySelectedDetailRow == null)
{
if ((txtGiftTotal.NumberValueDecimal.HasValue && (txtGiftTotal.NumberValueDecimal.Value != 0)) ||
(txtBatchTotal.NumberValueDecimal.HasValue && (txtBatchTotal.NumberValueDecimal.Value != 0)))
{
txtGiftTotal.NumberValueDecimal = 0;
txtBatchTotal.NumberValueDecimal = 0;
}
//If all details have been deleted
if ((FLedgerNumber != -1) && (FBatchRow != null) && (grdDetails.Rows.Count == 1))
{
//((TFrmGiftBatch) this.ParentForm).GetBatchControl().UpdateBatchTotal(0, FBatchRow.BatchNumber);
//Now we look at the batch and update the batch data
if (FBatchRow.BatchTotal != SumBatch)
{
FBatchRow.BatchTotal = SumBatch;
DataChanges = true;
}
}
}
else
{
GiftNumber = FPreviouslySelectedDetailRow.GiftTransactionNumber;
DataView giftDetailDV = new DataView(FMainDS.AGiftDetail);
giftDetailDV.RowStateFilter = DataViewRowState.CurrentRows;
giftDetailDV.RowFilter = String.Format("{0}={1}",
AGiftDetailTable.GetBatchNumberDBName(),
FBatchNumber);
foreach (DataRowView drv in giftDetailDV)
{
AGiftDetailRow gdr = (AGiftDetailRow)drv.Row;
if (gdr.GiftTransactionNumber == GiftNumber)
{
if (FPreviouslySelectedDetailRow.DetailNumber == gdr.DetailNumber)
{
SumTransactions += Convert.ToDecimal(txtDetailGiftTransactionAmount.NumberValueDecimal);
SumBatch += Convert.ToDecimal(txtDetailGiftTransactionAmount.NumberValueDecimal);
}
else
{
SumTransactions += gdr.GiftTransactionAmount;
SumBatch += gdr.GiftTransactionAmount;
}
}
else
{
SumBatch += gdr.GiftTransactionAmount;
}
}
if ((txtGiftTotal.NumberValueDecimal.HasValue == false) || (txtGiftTotal.NumberValueDecimal.Value != SumTransactions))
{
txtGiftTotal.NumberValueDecimal = SumTransactions;
}
txtGiftTotal.CurrencyCode = txtDetailGiftTransactionAmount.CurrencyCode;
txtGiftTotal.ReadOnly = true;
//Now we look at the batch and update the batch data
if (FBatchRow.BatchTotal != SumBatch)
{
FBatchRow.BatchTotal = SumBatch;
DataChanges = true;
}
}
if (txtBatchTotal.NumberValueDecimal.Value != SumBatch)
{
txtBatchTotal.NumberValueDecimal = SumBatch;
}
if (!DataChanges && !SaveButtonWasEnabled && FPetraUtilsObject.HasChanges)
{
FPetraUtilsObject.DisableSaveButton();
}
}
/// <summary>
/// save the changes on the screen (code is copied from auto-generated code)
/// </summary>
/// <returns></returns>
public bool SaveChanges()
{
bool ReturnValue = false;
FPetraUtilsObject.OnDataSavingStart(this, new System.EventArgs());
if (ValidateAllData(false, Common.Verification.TErrorProcessingMode.Epm_IgnoreNonCritical))
{
foreach (DataRow InspectDR in FMainDS.MExtractMaster.Rows)
{
InspectDR.EndEdit();
}
if (!FPetraUtilsObject.HasChanges)
{
return(true);
}
else
{
FPetraUtilsObject.WriteToStatusBar("Saving data...");
this.Cursor = Cursors.WaitCursor;
TSubmitChangesResult SubmissionResult;
MExtractMasterTable SubmitDT = new MExtractMasterTable();
if (FMainDS.MExtractMaster.GetChangesTyped() != null)
{
SubmitDT.Merge(FMainDS.MExtractMaster.GetChangesTyped());
}
else
{
// There is nothing to be saved.
// Update UI
FPetraUtilsObject.WriteToStatusBar(Catalog.GetString("There is nothing to be saved."));
this.Cursor = Cursors.Default;
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
return(true);
}
// Submit changes to the PETRAServer
try
{
SubmissionResult = TRemote.MPartner.Partner.WebConnectors.SaveExtractMaster
(ref SubmitDT);
}
catch (ESecurityDBTableAccessDeniedException Exp)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
TMessages.MsgSecurityException(Exp, this.GetType());
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
catch (EDBConcurrencyException Exp)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
TMessages.MsgDBConcurrencyException(Exp, this.GetType());
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
catch (Exception)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
throw;
}
switch (SubmissionResult)
{
case TSubmitChangesResult.scrOK:
// Call AcceptChanges to get rid now of any deleted columns before we Merge with the result from the Server
FMainDS.MExtractMaster.AcceptChanges();
// Merge back with data from the Server (eg. for getting Sequence values)
FMainDS.MExtractMaster.Merge(SubmitDT, false);
// need to accept the new modification ID
FMainDS.MExtractMaster.AcceptChanges();
// Update UI
FPetraUtilsObject.WriteToStatusBar("Data successfully saved.");
this.Cursor = Cursors.Default;
// TODO EnableSave(false);
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
SetPrimaryKeyReadOnly(true);
// TODO OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(true);
case TSubmitChangesResult.scrError:
// TODO scrError
this.Cursor = Cursors.Default;
break;
case TSubmitChangesResult.scrNothingToBeSaved:
// TODO scrNothingToBeSaved
this.Cursor = Cursors.Default;
return(true);
case TSubmitChangesResult.scrInfoNeeded:
// TODO scrInfoNeeded
this.Cursor = Cursors.Default;
break;
}
}
}
return(false);
}
/// <summary>
/// save the changes on the screen (code is copied from auto-generated code)
/// </summary>
/// <returns></returns>
public bool SaveChanges()
{
FPetraUtilsObject.OnDataSavingStart(this, new System.EventArgs());
if (FPetraUtilsObject.VerificationResultCollection.Count == 0)
{
foreach (DataRow InspectDR in FMainDS.MExtract.Rows)
{
InspectDR.EndEdit();
}
if (!FPetraUtilsObject.HasChanges)
{
return(true);
}
else
{
FPetraUtilsObject.WriteToStatusBar("Saving data...");
this.Cursor = Cursors.WaitCursor;
TSubmitChangesResult SubmissionResult;
//Ict.Common.Data.TTypedDataTable SubmitDT = FMainDS.MExtract.GetChangesTyped();
MExtractTable SubmitDT = new MExtractTable();
SubmitDT.Merge(FMainDS.MExtract.GetChangesTyped());
if (SubmitDT == null)
{
// There is nothing to be saved.
// Update UI
FPetraUtilsObject.WriteToStatusBar(Catalog.GetString("There is nothing to be saved."));
this.Cursor = Cursors.Default;
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
return(true);
}
// Submit changes to the PETRAServer
try
{
SubmissionResult = TRemote.MPartner.Partner.WebConnectors.SaveExtract
(FExtractId, ref SubmitDT);
}
catch (System.Net.Sockets.SocketException)
{
FPetraUtilsObject.WriteToStatusBar("Data could not be saved!");
this.Cursor = Cursors.Default;
MessageBox.Show("The PETRA Server cannot be reached! Data cannot be saved!",
"No Server response",
MessageBoxButtons.OK,
MessageBoxIcon.Stop);
bool ReturnValue = false;
// TODO OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
/* TODO ESecurityDBTableAccessDeniedException
* catch (ESecurityDBTableAccessDeniedException Exp)
* {
* FPetraUtilsObject.WriteToStatusBar("Data could not be saved!");
* this.Cursor = Cursors.Default;
* // TODO TMessages.MsgSecurityException(Exp, this.GetType());
* bool ReturnValue = false;
* // TODO OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
* return ReturnValue;
* }
*/
catch (EDBConcurrencyException)
{
FPetraUtilsObject.WriteToStatusBar("Data could not be saved!");
this.Cursor = Cursors.Default;
// TODO TMessages.MsgDBConcurrencyException(Exp, this.GetType());
bool ReturnValue = false;
// TODO OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
catch (Exception exp)
{
FPetraUtilsObject.WriteToStatusBar("Data could not be saved!");
this.Cursor = Cursors.Default;
TLogging.Log(
Catalog.GetString(
"An error occurred while trying to connect to the OpenPetra Server!") + Environment.NewLine + exp.ToString(),
TLoggingType.ToLogfile);
MessageBox.Show(
Catalog.GetString("An error occurred while trying to connect to the OpenPetra Server!") + Environment.NewLine +
"For details see the log file: " + TLogging.GetLogFileName(),
"Server connection error",
MessageBoxButtons.OK,
MessageBoxIcon.Stop);
// TODO OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(false);
}
switch (SubmissionResult)
{
case TSubmitChangesResult.scrOK:
// Call AcceptChanges to get rid now of any deleted columns before we Merge with the result from the Server
FMainDS.MExtract.AcceptChanges();
// Merge back with data from the Server (eg. for getting Sequence values)
FMainDS.MExtract.Merge(SubmitDT, false);
// need to accept the new modification ID
FMainDS.MExtract.AcceptChanges();
// Update UI
FPetraUtilsObject.WriteToStatusBar("Data successfully saved.");
this.Cursor = Cursors.Default;
// TODO EnableSave(false);
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
SetPrimaryKeyReadOnly(true);
// TODO OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(true);
case TSubmitChangesResult.scrError:
// TODO scrError
this.Cursor = Cursors.Default;
break;
case TSubmitChangesResult.scrNothingToBeSaved:
// TODO scrNothingToBeSaved
this.Cursor = Cursors.Default;
return(true);
case TSubmitChangesResult.scrInfoNeeded:
// TODO scrInfoNeeded
this.Cursor = Cursors.Default;
break;
}
}
}
return(false);
}
/// <summary>
/// Switch to the given tab
/// </summary>
/// <param name="ATab"></param>
/// <param name="AAllowRepeatEvent"></param>
public void SelectTab(TGLBatchEnums.eGLTabs ATab, bool AAllowRepeatEvent = false)
{
//Between the tab changing and seleted events changes are incorrectly detected on Journal controls
// TODO: find cause but use this field for now
if (!FChangesDetected && FPetraUtilsObject.HasChanges)
{
FPetraUtilsObject.DisableSaveButton();
}
else if (FChangesDetected && !FPetraUtilsObject.HasChanges)
{
FChangesDetected = false;
}
try
{
this.Cursor = Cursors.WaitCursor;
if (ATab == TGLBatchEnums.eGLTabs.Batches)
{
if ((FPreviouslySelectedTab == TGLBatchEnums.eGLTabs.Batches) && !AAllowRepeatEvent)
{
//Repeat event
return;
}
FPreviouslySelectedTab = TGLBatchEnums.eGLTabs.Batches;
this.tabGLBatch.SelectedTab = this.tpgBatches;
this.tpgJournals.Enabled = (ucoBatches.GetSelectedDetailRow() != null);
this.tabGLBatch.TabStop = this.tpgJournals.Enabled;
if (this.tpgTransactions.Enabled)
{
this.ucoTransactions.CancelChangesToFixedBatches();
this.ucoJournals.CancelChangesToFixedBatches();
}
ucoBatches.AutoEnableTransTabForBatch();
ucoBatches.SetInitialFocus();
}
else if (ATab == TGLBatchEnums.eGLTabs.Journals)
{
if ((FPreviouslySelectedTab == TGLBatchEnums.eGLTabs.Journals) && !AAllowRepeatEvent)
{
//Repeat event
return;
}
if (this.tpgJournals.Enabled)
{
FPreviouslySelectedTab = TGLBatchEnums.eGLTabs.Journals;
this.tabGLBatch.SelectedTab = this.tpgJournals;
LoadJournals(ucoBatches.GetSelectedDetailRow());
this.tpgTransactions.Enabled =
(ucoJournals.GetSelectedDetailRow() != null && ucoJournals.GetSelectedDetailRow().JournalStatus !=
MFinanceConstants.BATCH_CANCELLED);
this.ucoJournals.UpdateHeaderTotals(ucoBatches.GetSelectedDetailRow());
}
}
else if (ATab == TGLBatchEnums.eGLTabs.Transactions)
{
if ((FPreviouslySelectedTab == TGLBatchEnums.eGLTabs.Transactions) && !AAllowRepeatEvent)
{
//Repeat event
return;
}
if (this.tpgTransactions.Enabled)
{
ABatchRow batchRow = ucoBatches.GetSelectedDetailRow();
string loadingMessage = string.Empty;
bool batchWasPreviousTab = (FPreviouslySelectedTab == TGLBatchEnums.eGLTabs.Batches);
FPreviouslySelectedTab = TGLBatchEnums.eGLTabs.Transactions;
// Note!! This call may result in this (SelectTab) method being called again (but no new transactions will be loaded the second time)
this.tabGLBatch.SelectedTab = this.tpgTransactions;
if (batchWasPreviousTab)
{
//This only happens when the user clicks from Batch to Transactions,
// which is only allowed when one journal exists
//Need to make sure that the Journal is loaded
LoadJournals(batchRow);
}
GLBatchTDSAJournalRow journalRow = ucoJournals.GetSelectedDetailRow();
if ((batchRow == null) || batchRow.IsBatchStatusNull())
{
loadingMessage = Catalog.GetString(
"There has been a problem loading the batch, please reselect the Batch tab and batch again and then retry.");
}
else if ((journalRow == null) || journalRow.IsJournalStatusNull())
{
loadingMessage = Catalog.GetString(
"There has been a problem loading the journals, please reselect the Batch tab and then the Journal tab and then retry.");
}
if (loadingMessage.Length == 0)
{
LoadTransactions(journalRow.BatchNumber,
batchRow.BatchStatus,
journalRow.JournalNumber,
journalRow.JournalStatus,
journalRow.TransactionCurrency,
batchWasPreviousTab);
//Warn if missing International Exchange Rate
WarnAboutMissingIntlExchangeRate = true;
GetInternationalCurrencyExchangeRate();
}
else
{
MessageBox.Show(loadingMessage,
"View Transactions",
MessageBoxButtons.OK,
MessageBoxIcon.Warning);
}
}
}
}
finally
{
this.Cursor = Cursors.Default;
this.Refresh();
}
}
private void BtnOK_Click(Object Sender, EventArgs e)
{
FMainDS.ATransAnalAttrib.Merge(FTempFromDS.ATransAnalAttrib);
// enables extra validation (i.e. data not in grid)
FValidateEverything = true;
if (ValidateAllData(false, TErrorProcessingMode.Epm_All))
{
// Create the transaction to take the given amount OUT of the "allocate from" account & cost centre.
GLBatchTDSATransactionRow NewRow = FMainDS.ATransaction.NewRowTyped(true);
NewRow.LedgerNumber = FJournal.LedgerNumber;
NewRow.BatchNumber = FJournal.BatchNumber;
NewRow.JournalNumber = FJournal.JournalNumber;
NewRow.TransactionNumber = FJournal.LastTransactionNumber + 1;
NewRow.TransactionDate = FJournal.DateEffective;
NewRow.CostCentreCode = cmbFromCostCentreCode.GetSelectedString();
NewRow.AccountCode = cmbFromAccountCode.GetSelectedString();
NewRow.DebitCreditIndicator = rbtDebit.Checked;
NewRow.TransactionAmount = Convert.ToDecimal(txtTotalAmount.Text);
NewRow.Reference = txtFromReference.Text;
// automatic narritive if none supplied by user
if (string.IsNullOrEmpty(txtFromNarrative.Text))
{
NewRow.Narrative = Catalog.GetString("Allocation") + ": " + NewRow.CostCentreCode + "-" + NewRow.AccountCode;
}
else
{
NewRow.Narrative = txtFromNarrative.Text;
}
// add DebitCreditIndicator, Narrative and Reference to each row in grid
DataView dv = ((DevAge.ComponentModel.BoundDataView)grdDetails.DataSource).DataView;
for (int i = dv.Count - 1; i >= 0; i--)
{
GLBatchTDSATransactionRow Row = (GLBatchTDSATransactionRow)dv[i].Row;
Row.DebitCreditIndicator = !rbtDebit.Checked;
Row.Reference = txtFromReference.Text;
// automatic narritive if none supplied by user
if (string.IsNullOrEmpty(txtFromNarrative.Text))
{
Row.Narrative = Catalog.GetString("Allocation to ") + NewRow.CostCentreCode + "-" + NewRow.AccountCode;
}
else
{
Row.Narrative = txtFromNarrative.Text;
}
}
FMainDS.ATransaction.Rows.Add(NewRow);
this.DialogResult = DialogResult.OK;
FPetraUtilsObject.DisableSaveButton();
Close();
}
// Clear any validation errors so that the following call to ValidateAllData starts with a 'clean slate'.
FPetraUtilsObject.VerificationResultCollection.Clear();
FValidateEverything = false;
}
/// <summary>
/// Switch to the given tab
/// </summary>
/// <param name="ATab"></param>
/// <param name="AAllowRepeatEvent"></param>
public void SelectTab(eGLTabs ATab, bool AAllowRepeatEvent = false)
{
//Between the tab changing and seleted events changes are incorrectly detected on Journal controls
// TODO: find cause but use this field for now
if (!FChangesDetected && FPetraUtilsObject.HasChanges)
{
FPetraUtilsObject.DisableSaveButton();
}
else if (FChangesDetected && !FPetraUtilsObject.HasChanges)
{
FChangesDetected = false;
}
try
{
this.Cursor = Cursors.WaitCursor;
if (ATab == eGLTabs.Batches)
{
if ((FPreviouslySelectedTab == eGLTabs.Batches) && !AAllowRepeatEvent)
{
//Repeat event
return;
}
FPreviouslySelectedTab = eGLTabs.Batches;
this.tabGLBatch.SelectedTab = this.tpgBatches;
this.tpgJournals.Enabled = (ucoBatches.GetSelectedDetailRow() != null);
this.tabGLBatch.TabStop = this.tpgJournals.Enabled;
if (this.tpgTransactions.Enabled)
{
this.ucoTransactions.CancelChangesToFixedBatches();
this.ucoJournals.CancelChangesToFixedBatches();
}
ucoBatches.AutoEnableTransTabForBatch();
ucoBatches.SetInitialFocus();
}
else if (ATab == eGLTabs.Journals)
{
if ((FPreviouslySelectedTab == eGLTabs.Journals) && !AAllowRepeatEvent)
{
//Repeat event
return;
}
if (this.tpgJournals.Enabled)
{
FPreviouslySelectedTab = eGLTabs.Journals;
this.tabGLBatch.SelectedTab = this.tpgJournals;
LoadJournals(ucoBatches.GetSelectedDetailRow());
this.tpgTransactions.Enabled =
(ucoJournals.GetSelectedDetailRow() != null && ucoJournals.GetSelectedDetailRow().JournalStatus !=
MFinanceConstants.BATCH_CANCELLED);
this.ucoJournals.UpdateHeaderTotals(ucoBatches.GetSelectedDetailRow());
}
}
else if (ATab == eGLTabs.Transactions)
{
if ((FPreviouslySelectedTab == eGLTabs.Transactions) && !AAllowRepeatEvent)
{
//Repeat event
return;
}
if (this.tpgTransactions.Enabled)
{
bool batchWasPreviousTab = (FPreviouslySelectedTab == eGLTabs.Batches);
FPreviouslySelectedTab = eGLTabs.Transactions;
// Note!! This call may result in this (SelectTab) method being called again (but no new transactions will be loaded the second time)
this.tabGLBatch.SelectedTab = this.tpgTransactions;
if (batchWasPreviousTab)
{
//This only happens when the user clicks from Batch to Transactions,
// which is only allowed when one journal exists
//Need to make sure that the Journal is loaded
LoadJournals(ucoBatches.GetSelectedDetailRow());
}
LoadTransactions(ucoJournals.GetSelectedDetailRow().BatchNumber,
ucoBatches.GetSelectedDetailRow().BatchStatus,
ucoJournals.GetSelectedDetailRow().JournalNumber,
ucoJournals.GetSelectedDetailRow().JournalStatus,
ucoJournals.GetSelectedDetailRow().TransactionCurrency,
batchWasPreviousTab);
//Warn if missing International Exchange Rate
WarnAboutMissingIntlExchangeRate = true;
GetInternationalCurrencyExchangeRate();
}
}
}
finally
{
this.Cursor = Cursors.Default;
this.Refresh();
}
}
/// <summary>
/// save the changes on the screen
/// </summary>
/// <returns></returns>
public bool SaveChanges()
{
Boolean ReturnValue;
FPetraUtilsObject.OnDataSavingStart(this, new System.EventArgs());
// Don't allow saving if user is still editing a Detail of a List
if (FPetraUtilsObject.InDetailEditMode())
{
ReturnValue = false;
return(ReturnValue);
}
// Clear any validation errors so that the following call to ValidateAllData starts with a 'clean slate'.
FPetraUtilsObject.VerificationResultCollection.Clear();
if (ValidateAllData(false, true))
{
FMainDS.AApSupplier.Rows[0].BeginEdit();
GetDataFromControls(FMainDS.AApSupplier[0]);
if (FMainDS.AApSupplier[0].IsDefaultApAccountNull())
{
MessageBox.Show(Catalog.GetString("Please select an AP account (eg. 9100)"));
FMainDS.AApSupplier.Rows[0].EndEdit();
ReturnValue = false;
return(ReturnValue);
}
// The account would usually be 9100-AP account.
if (FMainDS.AApSupplier[0].DefaultApAccount != "9100")
{
if (MessageBox.Show(Catalog.GetString("You are not using the standard AP account (9100) - is this OK?"),
"Verification", MessageBoxButtons.YesNo)
!= System.Windows.Forms.DialogResult.Yes)
{
FMainDS.AApSupplier.Rows[0].EndEdit();
return(false);
}
}
// Don't store with invalid currency value.
//
if (FMainDS.AApSupplier[0].CurrencyCode == "")
{
FMainDS.AApSupplier[0].CurrencyCode = FLedgerRow.BaseCurrency;
}
// If this is a foreign currency supplier, it must be linked to accounts in that currency.
// (And if it's not, it mustn't be!)
if (!ValidateAccountCurrency(FMainDS.AApSupplier[0].DefaultBankAccount, "Bank"))
{
return(false);
}
/*
* If we wanted to have only expense accounts in a single currency, we could have this,
* but that's probably not what we want...
*
* if (!ValidateAccountCurrency(FMainDS.AApSupplier[0].DefaultExpAccount, "Expense"))
* {
* return false;
* }
*/
}
ReturnValue = TDataValidation.ProcessAnyDataValidationErrors(false, FPetraUtilsObject.VerificationResultCollection,
this.GetType());
if (ReturnValue)
{
foreach (DataTable InspectDT in FMainDS.Tables)
{
foreach (DataRow InspectDR in InspectDT.Rows)
{
InspectDR.EndEdit();
}
}
if (FPetraUtilsObject.HasChanges)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataInProgress);
this.Cursor = Cursors.WaitCursor;
AccountsPayableTDS SubmitDS = FMainDS.GetChangesTyped(true);
TSubmitChangesResult SubmissionResult;
TVerificationResultCollection VerificationResult = new TVerificationResultCollection();
// Submit changes to the PETRAServer
try
{
SubmissionResult = FUIConnector.SubmitChanges(ref SubmitDS);
}
catch (ESecurityDBTableAccessDeniedException Exp)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
TMessages.MsgSecurityException(Exp, this.GetType());
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
catch (EDBConcurrencyException Exp)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
TMessages.MsgDBConcurrencyException(Exp, this.GetType());
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
catch (Exception exp)
{
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataException);
this.Cursor = Cursors.Default;
TLogging.Log(
Catalog.GetString(
"An error occurred while trying to connect to the OpenPetra Server!") + Environment.NewLine + exp.ToString(),
TLoggingType.ToLogfile);
MessageBox.Show(
Catalog.GetString("An error occurred while trying to connect to the OpenPetra Server!") + Environment.NewLine +
"For details see the log file: " + TLogging.GetLogFileName(),
"Server connection error",
MessageBoxButtons.OK,
MessageBoxIcon.Stop);
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
return(ReturnValue);
}
switch (SubmissionResult)
{
case TSubmitChangesResult.scrOK:
// Call AcceptChanges to get rid now of any deleted columns before we Merge with the result from the Server
FMainDS.AcceptChanges();
// Merge back with data from the Server (eg. for getting Sequence values)
FMainDS.Merge(SubmitDS, false);
// need to accept the new modification ID
FMainDS.AcceptChanges();
// Update UI
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataSuccessful);
this.Cursor = Cursors.Default;
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
ReturnValue = true;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
break;
case TSubmitChangesResult.scrError:
this.Cursor = Cursors.Default;
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataErrorOccured);
MessageBox.Show(Messages.BuildMessageFromVerificationResult(null, VerificationResult));
FPetraUtilsObject.SubmitChangesContinue = false;
ReturnValue = false;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
break;
case TSubmitChangesResult.scrNothingToBeSaved:
this.Cursor = Cursors.Default;
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataNothingToSave);
// We don't have unsaved changes anymore
FPetraUtilsObject.DisableSaveButton();
ReturnValue = true;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
break;
case TSubmitChangesResult.scrInfoNeeded:
// TODO scrInfoNeeded
this.Cursor = Cursors.Default;
break;
}
}
else
{
// Update UI
FPetraUtilsObject.WriteToStatusBar(MCommonResourcestrings.StrSavingDataNothingToSave);
this.Cursor = Cursors.Default;
FPetraUtilsObject.DisableSaveButton();
// We don't have unsaved changes anymore
FPetraUtilsObject.HasChanges = false;
ReturnValue = true;
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(ReturnValue));
}
}
else
{
FPetraUtilsObject.OnDataSaved(this, new TDataSavedEventArgs(false));
}
return(ReturnValue);
}