private void TGiftDetailFindScreen_Closed(object sender, EventArgs e)
{
// ReleaseServerObject
FGiftDetailFindObject = null;
}
private void InitializeManualCode()
{
FGiftDetailFindObject = TRemote.MFinance.Finance.UIConnectors.GiftDetailFind();
// remove from the combobox all ledger numbers which the user does not have permission to access
DataView cmbLedgerDataView = (DataView)cmbLedger.cmbCombobox.DataSource;
for (int i = 0; i < cmbLedgerDataView.Count; i++)
{
string LedgerNumberStr;
// postgresql
if (cmbLedgerDataView[i].Row[0].GetType().Equals(typeof(int)))
{
LedgerNumberStr = ((int)cmbLedgerDataView[i].Row[0]).ToString("0000");
}
else // sqlite
{
LedgerNumberStr = ((Int64)cmbLedgerDataView[i].Row[0]).ToString("0000");
}
if (!UserInfo.GUserInfo.IsInModule("LEDGER" + LedgerNumberStr))
{
cmbLedgerDataView.Delete(i);
i--;
}
}
// add event to combobox (this is the best moment to do this)
cmbLedger.SelectedValueChanged += new System.EventHandler(this.OnCmbLedgerChange);
// add divider line (can't currently do this in YAML)
DevAge.Windows.Forms.Line linCriteriaDivider = new DevAge.Windows.Forms.Line();
linCriteriaDivider.Anchor =
((System.Windows.Forms.AnchorStyles)(((System.Windows.Forms.AnchorStyles.Bottom | System.Windows.Forms.AnchorStyles.Left) |
System.Windows.Forms.AnchorStyles.Right)));
linCriteriaDivider.DashStyle = System.Drawing.Drawing2D.DashStyle.Solid;
linCriteriaDivider.FirstColor = System.Drawing.SystemColors.ControlDark;
linCriteriaDivider.LineStyle = DevAge.Windows.Forms.LineStyle.Horizontal;
linCriteriaDivider.Location = new System.Drawing.Point(grpFindCriteria.Location.Y + 6, btnSearch.Location.Y - 2);
linCriteriaDivider.Name = "linCriteriaDivider";
linCriteriaDivider.SecondColor = System.Drawing.SystemColors.ControlLightLight;
linCriteriaDivider.Size = new System.Drawing.Size(grpFindCriteria.Size.Width - 12, 2);
grpFindCriteria.Controls.Add(linCriteriaDivider);
// pnlBlankSearchResult
pnlBlankSearchResult.BackColor = System.Drawing.SystemColors.ControlLightLight;
pnlBlankSearchResult.Size = grdResult.Size; lblSearchInfo.Anchor =
((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) |
System.Windows.Forms.AnchorStyles.Left) |
System.Windows.Forms.AnchorStyles.Right)));
// lblSearchInfo
this.lblSearchInfo.Font =
new System.Drawing.Font("Verdana", 8.25F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
this.lblSearchInfo.ForeColor = System.Drawing.SystemColors.ControlDarkDark;
lblSearchInfo.Size = grdResult.Size;
lblSearchInfo.TextAlign = System.Drawing.ContentAlignment.MiddleCenter;
// remove '0' from these textboxes
txtGiftBatchNumber.NumberValueInt = null;
txtGiftTransactionNumber.NumberValueInt = null;
txtReceiptNumber.NumberValueInt = null;
txtMinimumAmount.NumberValueInt = null;
txtMaximumAmount.NumberValueInt = null;
// set button to be on the very right of the screen (can't make this work in YAML)
btnClear.Location = new System.Drawing.Point(linCriteriaDivider.Location.X + linCriteriaDivider.Width - btnClear.Width,
btnClear.Location.Y);
// set to blank initially
lblRecordCounter.Text = "";
// event fired on screen close
this.Closed += new System.EventHandler(this.TGiftDetailFindScreen_Closed);
// catch enter on all controls, to trigger search or accept (could use this.AcceptButton, but we have several search buttons etc)
this.KeyDown += new System.Windows.Forms.KeyEventHandler(this.CatchEnterKey);
// catch enter on grid to view the selected transaction
this.grdResult.EnterKeyPressed += new Ict.Common.Controls.TKeyPressedEventHandler(this.BtnView_Click);
// fix tab order
int Temp = txtDonor.TabIndex;
txtDonor.TabIndex = cmbMotivationGroup.TabIndex;
cmbMotivationGroup.TabIndex = txtRecipient.TabIndex;
txtRecipient.TabIndex = dtpDateTo.TabIndex;
dtpDateTo.TabIndex = txtMinimumAmount.TabIndex;
txtMinimumAmount.TabIndex = txtComment1.TabIndex;
txtComment1.TabIndex = dtpDateFrom.TabIndex;
dtpDateFrom.TabIndex = cmbMotivationDetail.TabIndex;
cmbMotivationDetail.TabIndex = txtReceiptNumber.TabIndex;
txtReceiptNumber.TabIndex = txtGiftTransactionNumber.TabIndex;
txtGiftTransactionNumber.TabIndex = Temp;
this.ActiveControl = txtGiftBatchNumber;
// set statusbar messages
FPetraUtilsObject.SetStatusBarText(cmbLedger, Catalog.GetString("Select a ledger"));
FPetraUtilsObject.SetStatusBarText(txtGiftBatchNumber, Catalog.GetString("Enter a Gift Batch Number"));
FPetraUtilsObject.SetStatusBarText(txtGiftTransactionNumber, Catalog.GetString("Enter a Gift Transaction Number"));
FPetraUtilsObject.SetStatusBarText(txtReceiptNumber, Catalog.GetString("Enter a Gift Receipt Number"));
FPetraUtilsObject.SetStatusBarText(cmbMotivationGroup, Catalog.GetString("Select a Motivation Group"));
FPetraUtilsObject.SetStatusBarText(cmbMotivationDetail, Catalog.GetString("Select a Motivation Detail"));
FPetraUtilsObject.SetStatusBarText(txtComment1, Catalog.GetString("Enter a Comment"));
FPetraUtilsObject.SetStatusBarText(txtDonor, Catalog.GetString("Enter a Donor's Partner Key"));
FPetraUtilsObject.SetStatusBarText(txtRecipient, Catalog.GetString("Enter a Recipient's Partner Key"));
FPetraUtilsObject.SetStatusBarText(dtpDateFrom, Catalog.GetString("Enter a date for which gifts must have been entered on or after"));
FPetraUtilsObject.SetStatusBarText(dtpDateTo, Catalog.GetString("Enter a date for which gifts must have been entered on or before"));
FPetraUtilsObject.SetStatusBarText(txtMinimumAmount,
Catalog.GetString("Enter an amount for which gifts must have an amount equal or greater than"));
FPetraUtilsObject.SetStatusBarText(txtMaximumAmount,
Catalog.GetString("Enter an amount for which gifts must have an amount equal or less than"));
FPetraUtilsObject.SetStatusBarText(btnSearch, Catalog.GetString("Searches the OpenPetra database with above criteria"));
FPetraUtilsObject.SetStatusBarText(btnClear, Catalog.GetString("Clears the search criteria fields and the search result"));
FPetraUtilsObject.SetStatusBarText(btnView, Catalog.GetString("Views the selected Gift"));
FinishButtonPanelSetup();
}
private void TGiftDetailFindScreen_Closed(object sender, EventArgs e)
{
// ReleaseServerObject
if (FGiftDetailFindObject != null)
{
// UnRegister Object from the TEnsureKeepAlive Class so that the Object can get GC'd on the PetraServer
TEnsureKeepAlive.UnRegister(FGiftDetailFindObject);
FGiftDetailFindObject = null;
}
}
