private void mniDefaults_Click(object sender, EventArgs e)
{
this.Cursor = Cursors.WaitCursor;
TFrmLedgerSettingsDialog ledgerSettings = new TFrmLedgerSettingsDialog(this);
ledgerSettings.LedgerNumber = this.FLedgerNumber;
ledgerSettings.InitialTab = "AP";
ledgerSettings.Show();
this.Cursor = Cursors.Default;
}
/// <summary>
/// Load the supplier and all the transactions (invoices and payments) that relate to it.
/// </summary>
/// <param name="ALedgerNumber"></param>
/// <param name="APartnerKey"></param>
public void LoadSupplier(Int32 ALedgerNumber, Int64 APartnerKey)
{
this.Cursor = Cursors.WaitCursor;
FLedgerNumber = ALedgerNumber;
FPartnerKey = APartnerKey;
FMainDS = TRemote.MFinance.AP.WebConnectors.LoadAApSupplier(ALedgerNumber, APartnerKey);
FSupplierRow = FMainDS.AApSupplier[0];
txtFilteredBalance.CurrencyCode = FSupplierRow.CurrencyCode;
txtSupplierBalance.CurrencyCode = FSupplierRow.CurrencyCode;
txtTaggedBalance.CurrencyCode = FSupplierRow.CurrencyCode;
lblExcludedItems.Text = string.Format(lblExcludedItems.Text, FSupplierRow.CurrencyCode);
// Get our AP ledger settings and enable/disable the corresponding search option on the filter panel
TFrmLedgerSettingsDialog settings = new TFrmLedgerSettingsDialog(this, ALedgerNumber);
FRequireApprovalBeforePosting = settings.APRequiresApprovalBeforePosting;
Control rbtForApproval = FFilterAndFindObject.FilterPanelControls.FindControlByName("rbtForApproval");
rbtForApproval.Enabled = FRequireApprovalBeforePosting;
//
// Transactions older than
DateTime AgedOlderThan = DateTime.Now;
if (!FSupplierRow.IsPreferredScreenDisplayNull())
{
AgedOlderThan = AgedOlderThan.AddMonths(0 - FSupplierRow.PreferredScreenDisplay);
}
FAgedOlderThan = AgedOlderThan.ToString("u");
txtSupplierName.Text = FMainDS.PPartner[0].PartnerShortName;
txtSupplierCurrency.Text = FSupplierRow.CurrencyCode;
FFindObject = TRemote.MFinance.AP.UIConnectors.Find();
FFindObject.FindSupplierTransactions(FLedgerNumber, FPartnerKey);
// Start thread that checks for the end of the search operation on the PetraServer
FKeepUpSearchFinishedCheck = true;
Thread FinishedCheckThread = new Thread(new ThreadStart(SearchFinishedCheckThread));
FinishedCheckThread.Start();
this.Text = Catalog.GetString("Supplier Transactions") + " - " + TFinanceControls.GetLedgerNumberAndName(FLedgerNumber);
}
private void ShowDataManual()
{
AccountsPayableTDSAApDocumentRow DocumentRow = FMainDS.AApDocument[0];
FDocumentLedgerNumber = DocumentRow.LedgerNumber;
// This will involve a trip to the server to access GLSetupTDS
TFrmLedgerSettingsDialog settings = new TFrmLedgerSettingsDialog(this, FDocumentLedgerNumber);
FRequireApprovalBeforePosting = settings.APRequiresApprovalBeforePosting;
txtTotalAmount.CurrencyCode = DocumentRow.CurrencyCode;
txtDetailAmount.CurrencyCode = DocumentRow.CurrencyCode;
dtpDateDue.Date = DocumentRow.DateIssued.AddDays(Convert.ToDouble(nudCreditTerms.Value));
this.Text += " - " + TFinanceControls.GetLedgerNumberAndName(FDocumentLedgerNumber);
FLedgerRow =
((ALedgerTable)TDataCache.TMFinance.GetCacheableFinanceTable(TCacheableFinanceTablesEnum.LedgerDetails, FDocumentLedgerNumber))[0];
txtDetailBaseAmount.CurrencyCode = FLedgerRow.BaseCurrency;
//txtExchangeRateToBase.SetControlProperties(10);
//
// If this document's currency is that of my own ledger,
// I need to disable the rate of exchange field.
if (DocumentRow.CurrencyCode == FLedgerRow.BaseCurrency)
{
txtExchangeRateToBase.Enabled = false;
btnLookupExchangeRate.Enabled = false;
}
if ((FMainDS.AApDocumentDetail == null) || (FMainDS.AApDocumentDetail.Rows.Count == 0)) // When the document is new, I need to create the first detail line.
{
NewDetail(null, null);
}
FMainDS.AApDocumentDetail.DefaultView.Sort = AApDocumentDetailTable.GetDetailNumberDBName();
// Create Text description of Anal Attribs for each DetailRow..
foreach (AccountsPayableTDSAApDocumentDetailRow DetailRow in FMainDS.AApDocumentDetail.Rows)
{
UpdateAttributeLabel(DetailRow);
}
EnableControls();
}
