private static void CommonPostMergeOperations(IFrmPetra ACallingFormOrUserControl,
TFrmPetraEditUtils APetraUtilsObject,
TVerificationResultCollection AVerificationResults,
bool ACalledFromUserControl = false)
{
CommonUIUpdatesSavingSuccessful(ACallingFormOrUserControl, APetraUtilsObject, ACalledFromUserControl);
if ((AVerificationResults != null) &&
(AVerificationResults.HasCriticalOrNonCriticalErrors))
{
TDataValidation.ProcessAnyDataValidationErrors(false, AVerificationResults, ACallingFormOrUserControl.GetType(), null);
}
}
/// <summary>
/// Performs data validation.
/// </summary>
/// <param name="ARecordChangeVerification">Set to true if the data validation happens when the user is changing
/// to another record, otherwise set it to false.</param>
/// <param name="AValidateSpecificControl">Pass in a Control to restrict Data Validation error checking to a
/// specific Control for which Data Validation errors might have been recorded. (Default=this.ActiveControl).
/// <para>
/// This is useful for restricting Data Validation error checking to the current TabPage of a TabControl in order
/// to only display Data Validation errors that pertain to the current TabPage. To do this, pass in a TabControl in
/// this Argument.
/// </para>
/// </param>
/// <returns>True if data validation succeeded or if there is no current row, otherwise false.</returns>
private bool ValidateAllData(bool ARecordChangeVerification, Control AValidateSpecificControl = null)
{
bool ReturnValue = false;
Control ControlToValidate = null;
// Record a new Data Validation Run. (All TVerificationResults/TScreenVerificationResults that are created during this 'run' are associated with this 'run' through that.)
FPetraUtilsObject.VerificationResultCollection.RecordNewDataValidationRun();
if (AValidateSpecificControl != null)
{
ControlToValidate = AValidateSpecificControl;
}
else
{
ControlToValidate = this.ActiveControl;
}
// Only process the Data Validations here if ControlToValidate is not null.
// It can be null if this.ActiveControl yields null - this would happen if no Control
// on this Form has got the Focus.
if (ControlToValidate != null)
{
if (ControlToValidate.FindUserControlOrForm(true) == this)
{
ReturnValue = TDataValidation.ProcessAnyDataValidationErrors(false, FPetraUtilsObject.VerificationResultCollection,
this.GetType(), ControlToValidate.FindUserControlOrForm(true).GetType());
}
else
{
ReturnValue = true;
}
}
if (ReturnValue)
{
// Remove a possibly shown Validation ToolTip as the data validation succeeded
FPetraUtilsObject.ValidationToolTip.RemoveAll();
}
return(ReturnValue);
}
private void BtnOK_Click(Object Sender, EventArgs e)
{
String MessageText;
// validate data (outside the norm, therefore done manually here)
GetDataFromControls(FMainDS.PSubscription[0]);
FPetraUtilsObject.VerificationResultCollection.Clear();
ValidateData(FMainDS.PSubscription[0]);
ValidateDataManual(FMainDS.PSubscription[0]);
if (!TDataValidation.ProcessAnyDataValidationErrors(false, FPetraUtilsObject.VerificationResultCollection,
this.GetType(), null, true))
{
return;
}
MessageText = GetFieldsToChangeText();
if (MessageText.Length > 0)
{
if (MessageBox.Show(MessageText,
Catalog.GetString("Change Subscription"),
MessageBoxButtons.YesNo,
MessageBoxIcon.Question) == System.Windows.Forms.DialogResult.Yes)
{
this.DialogResult = System.Windows.Forms.DialogResult.OK;
this.Close();
}
}
else
{
MessageBox.Show("Nothing to be changed. You need to tick at least one box!",
Catalog.GetString("Change Subscription"),
MessageBoxButtons.OK,
MessageBoxIcon.Warning);
}
}
/// <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);
}
/// <summary>
/// write the definition for the code of validation of a typed table
/// </summary>
/// <param name="Template"></param>
/// <param name="currentTable"></param>
/// <param name="origTable"></param>
/// <param name="WhereToInsert"></param>
public static void InsertTableValidation(ProcessTemplate Template, TTable currentTable, TTable origTable, string WhereToInsert)
{
ProcessTemplate snippet = Template.GetSnippet("TABLEVALIDATION");
string ReasonForAutomValidation;
bool CheckForEmptyDateGenerated;
snippet.SetCodeletComment("TABLE_DESCRIPTION", currentTable.strDescription);
snippet.SetCodelet("TABLENAME", currentTable.strDotNetName);
foreach (TTableField col in currentTable.grpTableField)
{
ProcessTemplate columnTemplate;
ProcessTemplate validateColumnTemplate;
CheckForEmptyDateGenerated = false;
// NOT NULL checks
if (TDataValidation.GenerateAutoValidationCodeForDBTableField(col, TDataValidation.TAutomDataValidationScope.advsNotNullChecks,
currentTable.grpConstraint, out ReasonForAutomValidation))
{
if (col.GetDotNetType().Contains("DateTime"))
{
// CHECKEMPTYDATE has NULL as invalid so we use this test with VALIDATECOLUMN2 (test not enclosed in 'if')
validateColumnTemplate = Template.GetSnippet("CHECKEMPTYDATE");
validateColumnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
columnTemplate = Template.GetSnippet("VALIDATECOLUMN2");
columnTemplate.InsertSnippet("COLUMNSPECIFICCHECK", validateColumnTemplate);
columnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
columnTemplate.SetCodelet("COLUMNSPECIFICCOMMENT", "'" + col.strNameDotNet + "' " + ReasonForAutomValidation);
snippet.InsertSnippet("VALIDATECOLUMNS", columnTemplate);
CheckForEmptyDateGenerated = true;
}
else
{
// Check all other types with a general NOT NULL check - again using VALIDATECOLUMN2 (test not enclosed in 'if')
validateColumnTemplate = Template.GetSnippet("CHECKGENERALNOTNULL");
validateColumnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
columnTemplate = Template.GetSnippet("VALIDATECOLUMN2");
columnTemplate.InsertSnippet("COLUMNSPECIFICCHECK", validateColumnTemplate);
columnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
columnTemplate.SetCodelet("COLUMNSPECIFICCOMMENT", "'" + col.strNameDotNet + "' " + ReasonForAutomValidation);
snippet.InsertSnippet("VALIDATECOLUMNS", columnTemplate);
}
// Additionally we do not allow empty string in primary keys or columns that are foreign keys
if (col.GetDotNetType().Contains("String") && ReasonForAutomValidation.Contains(" and "))
{
validateColumnTemplate = Template.GetSnippet("CHECKEMPTYSTRING");
validateColumnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
columnTemplate = Template.GetSnippet("VALIDATECOLUMN");
columnTemplate.InsertSnippet("COLUMNSPECIFICCHECK", validateColumnTemplate);
columnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
columnTemplate.SetCodelet("COLUMNSPECIFICCOMMENT", "'" + col.strNameDotNet + "' " + ReasonForAutomValidation);
snippet.InsertSnippet("VALIDATECOLUMNS", columnTemplate);
}
}
if (!CheckForEmptyDateGenerated)
{
// Date checks
// If a NULL date is not allowed we will have already tested for that above
if (TDataValidation.GenerateAutoValidationCodeForDBTableField(col, TDataValidation.TAutomDataValidationScope.advsDateChecks,
null, out ReasonForAutomValidation))
{
columnTemplate = Template.GetSnippet("VALIDATECOLUMN2");
columnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
// CHECKVALIDDATE allows NULL to be valid but ensures that otherwise the date is correctly formed
validateColumnTemplate = Template.GetSnippet("CHECKVALIDDATE");
validateColumnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
validateColumnTemplate.SetCodelet("COLUMNLENGTH", (col.iCharLength * 2).ToString());
columnTemplate.InsertSnippet("COLUMNSPECIFICCHECK", validateColumnTemplate);
columnTemplate.SetCodelet("COLUMNSPECIFICCOMMENT", "'" + col.strNameDotNet + "' " + ReasonForAutomValidation);
snippet.InsertSnippet("VALIDATECOLUMNS", columnTemplate);
}
}
// String Length checks
if (TDataValidation.GenerateAutoValidationCodeForDBTableField(col, TDataValidation.TAutomDataValidationScope.advsStringLengthChecks,
null, out ReasonForAutomValidation))
{
columnTemplate = Template.GetSnippet("VALIDATECOLUMN");
columnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
validateColumnTemplate = Template.GetSnippet("CHECKSTRINGLENGTH");
validateColumnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
validateColumnTemplate.SetCodelet("COLUMNLENGTH", (col.iCharLength * 2).ToString());
columnTemplate.InsertSnippet("COLUMNSPECIFICCHECK", validateColumnTemplate);
columnTemplate.SetCodelet("COLUMNSPECIFICCOMMENT", "'" + col.strNameDotNet + "' " + ReasonForAutomValidation);
snippet.InsertSnippet("VALIDATECOLUMNS", columnTemplate);
}
// Number Range checks
if (TDataValidation.GenerateAutoValidationCodeForDBTableField(col, TDataValidation.TAutomDataValidationScope.advsNumberRangeChecks,
null, out ReasonForAutomValidation))
{
columnTemplate = Template.GetSnippet("VALIDATECOLUMN");
columnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
validateColumnTemplate = Template.GetSnippet("CHECKNUMBERRANGE");
validateColumnTemplate.SetCodelet("COLUMNNAME", col.strNameDotNet);
validateColumnTemplate.SetCodelet("NUMBEROFDECIMALDIGITS", col.iLength.ToString());
validateColumnTemplate.SetCodelet("NUMBEROFFRACTIONALDIGITS", col.iDecimals > 0 ? col.iDecimals.ToString() : "0");
columnTemplate.InsertSnippet("COLUMNSPECIFICCHECK", validateColumnTemplate);
columnTemplate.SetCodelet("COLUMNSPECIFICCOMMENT", "'" + col.strNameDotNet + "' " + ReasonForAutomValidation);
snippet.InsertSnippet("VALIDATECOLUMNS", columnTemplate);
}
}
Template.InsertSnippet(WhereToInsert, snippet);
}
/// <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);
}
