/// <summary>
/// called from APMain when adding new supplier;
/// initialises a new dataset
/// </summary>
/// <param name="APartnerKey"></param>
public void CreateNewSupplier(Int64 APartnerKey)
{
// TODO: let the server do that? what about messages on failure?
// check for existing supplier record
if (FUIConnector.CanFindSupplier(APartnerKey))
{
MessageBox.Show(Catalog.GetString("There is already a supplier record for this partner!"));
EditSupplier(APartnerKey);
return;
}
FPetraUtilsObject.SetChangedFlag();
AApSupplierRow row = FMainDS.AApSupplier.NewRowTyped();
row.PartnerKey = APartnerKey;
row.CurrencyCode = FLedgerRow.BaseCurrency;
row.DefaultApAccount = "9100"; // If the user doesn't want this, she should have a good reason..
row.DefaultCreditTerms = 28; // 28 credit might not be universal, but it's better than 0.
row.PreferredScreenDisplay = 36; // show my invoices for 36 months
FMainDS.AApSupplier.Rows.Add(row);
ShowData(row);
// Make PartnerKey Readonly again -
// ShowData makes it writeable because it is the Primary Key of the Table and we are adding a record!
txtPartnerKey.ReadOnly = true;
}
/// <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>
/// edit an existing supplier
/// </summary>
/// <param name="APartnerKey"></param>
public void EditSupplier(Int64 APartnerKey)
{
FMainDS = FUIConnector.GetData(APartnerKey);
ShowData(FMainDS.AApSupplier[0]);
}
/// <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);
}
