private void ChangeFamily(Int64 APersonKey, Int64 AOldFamilyKey, Boolean AChangeToThisFamily) { String mResultStringLbl = ""; TPartnerClass? mPartnerClass; System.Int64 NewFamilyKey = 0; String ProblemMessage; TLocationPK mResultLocationPK; if (FDelegateIsNewPartner != null) { if (FDelegateIsNewPartner(FMainDS)) { MessageBox.Show(MPartnerResourcestrings.StrErrorNeedToSavePartner1 + MPartnerResourcestrings.StrErrorChangeFamily2, MPartnerResourcestrings.StrErrorNeedToSavePartnerTitle); return; } if (PersonnelChecks.WarnAboutFamilyChange(APersonKey, RetrievePartnerShortName(APersonKey), AOldFamilyKey, RetrievePartnerShortName(AOldFamilyKey), 0, "", TRemote.MPersonnel.WebConnectors.HasCurrentCommitmentRecord(APersonKey), @ShowFamilyChangeWarning)) { // If the delegate is defined, the host form will launch a Modal Partner Find screen for us if (TCommonScreensForwarding.OpenPartnerFindScreen != null) { // delegate IS defined try { TCommonScreensForwarding.OpenPartnerFindScreen.Invoke (SharedTypes.PartnerClassEnumToString(TPartnerClass.FAMILY), out NewFamilyKey, out mResultStringLbl, out mPartnerClass, out mResultLocationPK, this.ParentForm); if (NewFamilyKey != -1) { if (AOldFamilyKey == NewFamilyKey) { MessageBox.Show(Catalog.GetString("You are trying to move the Person to their existing Family!\r\n" + "This is not allowed. Select a different Family in the Find Screen."), Catalog.GetString("Moving to Same Family is Not Allowed")); return; } // call the server to perform the actual family database change if (TRemote.MPartner.Partner.WebConnectors.ChangeFamily(APersonKey, AOldFamilyKey, NewFamilyKey, out ProblemMessage)) { // even in case of success there might still be a warning message that needs display if (ProblemMessage != "") { MessageBox.Show(ProblemMessage, Catalog.GetString("Change Family")); } } else { // can't continue after error MessageBox.Show("Change of family failed!"); MessageBox.Show(ProblemMessage, Catalog.GetString("Change Family")); return; } // update family key on display if (FMainDS.PPartner[0].PartnerClass == SharedTypes.PartnerClassEnumToString(TPartnerClass.PERSON)) { FMainDS.PPerson[0].FamilyKey = NewFamilyKey; /* Update Family GroupBox */ txtFamilyPartnerKey.Text = String.Format("{0:0000000000}", NewFamilyKey); } if (MessageBox.Show(Catalog.GetString("The Family Change is done.\r\n\r\n" + "Do you want to see the updated list of Family Members of the Family " + "to which the Partner was moved to?"), Catalog.GetString("Family ID Change"), MessageBoxButtons.YesNo) == DialogResult.Yes) { this.Cursor = Cursors.WaitCursor; try { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, NewFamilyKey, TPartnerEditTabPageEnum.petpFamilyMembers); frm.Show(); } finally { this.Cursor = Cursors.Default; } } /* Refresh DataGrid to show the changed Family Members */ RefreshFamilyMembersList(this, null); } } catch (Exception exp) { throw new EOPAppException("Exception occured while calling PartnerFindScreen Delegate!", exp); } // end try } } } }
/// <summary> /// Opens the Partner Find screen (or activates it in case a non-modal instance was already open and /// ARestrictToPartnerClasses is null). If ARestrictToPartnerClasses isn't null then the screen is opened modally. /// </summary> /// <remarks> /// For NUnit tests that just try to open the Partner Find screen but which don't instantiate a Main Form /// we need to ignore the <paramref name="AParentForm" /> Argument as it will be null in those cases! /// </remarks> /// <returns>void</returns> public static void FindPartnerOfClass(Form AParentForm, string ARestrictToPartnerClasses = null, TPartnerEditTabPageEnum APreferredInitialTabPage = TPartnerEditTabPageEnum.petpAddresses) { if (ARestrictToPartnerClasses == null) { // No Cursor change if run from within NUnit Test without Main Form instance... if (AParentForm != null) { AParentForm.Cursor = Cursors.WaitCursor; } TPartnerFindScreen PartnerFindForm = new TPartnerFindScreen(AParentForm); PartnerFindForm.SetParameters(false, -1); PartnerFindForm.Show(); // No Cursor change if run from within NUnit Test without Main Form instance... if (AParentForm != null) { AParentForm.Cursor = Cursors.Default; } } else { long PartnerKey; string ShortName; TPartnerClass? PartnerClass; TLocationPK LocationPK; if (TPartnerFindScreenManager.OpenModalForm(ARestrictToPartnerClasses, out PartnerKey, out ShortName, out PartnerClass, out LocationPK, AParentForm)) { // Open the Partner Edit screen TFrmPartnerEdit PartnerEditForm; // No Cursor change if run from within NUnit Test without Main Form instance... if (AParentForm != null) { AParentForm.Cursor = Cursors.WaitCursor; } PartnerEditForm = new TFrmPartnerEdit(AParentForm); if (APreferredInitialTabPage == TPartnerEditTabPageEnum.petpAddresses) { PartnerEditForm.SetParameters(TScreenMode.smEdit, PartnerKey, LocationPK.SiteKey, LocationPK.LocationKey); } else { PartnerEditForm.SetParameters(TScreenMode.smEdit, PartnerKey, APreferredInitialTabPage); } PartnerEditForm.Show(); if (ARestrictToPartnerClasses.Split(new Char[] { (',') })[0] == "PERSON") { TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL, PartnerKey); } else { TUserDefaults.SetDefault(TUserDefaults.USERDEFAULT_LASTPARTNERMAILROOM, PartnerKey); } // No Cursor change if run from within NUnit Test without Main Form instance... if (AParentForm != null) { AParentForm.Cursor = Cursors.Default; } } } }
private void FPetraUtilsObject_DataSaved_NewDonorWarning(object Sender, TDataSavedEventArgs e) { // if data successfully saved then look for new donors and warn the user if (e.Success && (FGiftDetailTable != null) && FNewDonorWarning) { // this list contains a list of all new donors that were entered onto form List <Int64>NewDonorsList = ucoTransactions.NewDonorsList; foreach (GiftBatchTDSAGiftDetailRow Row in FGiftDetailTable.Rows) { // check changed data is either added or modified and that it is by a new donor if (((Row.RowState == DataRowState.Added) || (Row.RowState == DataRowState.Modified)) && (!Row.IsDonorKeyNull() && NewDonorsList.Contains(Row.DonorKey))) { if (MessageBox.Show(string.Format(Catalog.GetString( "{0} ({1}) is a new Donor.{2}Do you want to add subscriptions for them?{2}" + "(Note: this message can be disabled in the 'File' menu by unselecting the 'New Donor Warning' item.)"), Row.DonorName, Row.DonorKey, "\n\n"), Catalog.GetString("New Donor"), MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes) { // Open the donor's Edit screen so subscriptions can be added TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, Row.DonorKey, TPartnerEditTabPageEnum.petpSubscriptions); frm.ShowDialog(); } // ensures message is not displayed twice for one new donor with two gifts NewDonorsList.Remove(Row.DonorKey); } } ucoTransactions.NewDonorsList.Clear(); } }
/// create a new Person public static void NewPartner_Person(Form AParentForm) { TFrmPartnerEdit frm = new TFrmPartnerEdit(AParentForm); frm.SetParameters(TScreenMode.smNew, "PERSON", -1, -1, String.Empty, String.Empty, false); frm.Show(); }
/// create a new Venue public static void NewPartner_Venue(Form AParentForm) { TFrmPartnerEdit frm = new TFrmPartnerEdit(AParentForm); frm.SetParameters(TScreenMode.smNew, "VENUE", -1, -1, ""); frm.Show(); }
// Open Partner Edit screen for the selected bank private void EditSelectedPartner(System.Object sender, EventArgs e) { // Open the selected Bank's Partner Edit screen TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, FBankPartnerKey); frm.Show(); }
/// <summary> /// create a new Family /// </summary> public static void NewPartner_Family(Form AParentForm) { TFrmPartnerEdit frm = new TFrmPartnerEdit(AParentForm); frm.SetParameters(TScreenMode.smNew, "FAMILY", -1, -1, ""); frm.Show(); }
/// <summary> /// /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void MovePersonToThisFamily(System.Object sender, EventArgs e) { String mResultStringLbl = ""; TPartnerClass? mPartnerClass; TLocationPK mResultLocationPK; System.Int64 NewPersonKey = 0; System.Int64 OtherFamilyKey = 0; String ProblemMessage; if (GridEdited) { MessageBox.Show(MPartnerResourcestrings.StrErrorNeedToSavePartner1 + MPartnerResourcestrings.StrErrorMaintainFamilyMembers2); } else { if (FDelegateIsNewPartner != null) { if (FDelegateIsNewPartner(FMainDS)) { MessageBox.Show(MPartnerResourcestrings.StrErrorNeedToSavePartner1 + MPartnerResourcestrings.StrErrorChangeFamily2, MPartnerResourcestrings.StrErrorNeedToSavePartnerTitle); return; } // If the delegate is defined, the host form will launch a Modal Partner Find screen for us if (TCommonScreensForwarding.OpenPartnerFindScreen != null) { // delegate IS defined try { TCommonScreensForwarding.OpenPartnerFindScreen.Invoke (SharedTypes.PartnerClassEnumToString(TPartnerClass.PERSON), out NewPersonKey, out mResultStringLbl, out mPartnerClass, out mResultLocationPK, this.ParentForm); if (NewPersonKey != -1) { OtherFamilyKey = TRemote.MPartner.Partner.ServerLookups.WebConnectors.GetFamilyKeyForPerson(NewPersonKey); if (OtherFamilyKey == GetFamilyKey()) { MessageBox.Show(Catalog.GetString("You are trying to move the Person to their existing Family!\r\n" + "This is not allowed. Select a different Person in the Find Screen."), Catalog.GetString("Moving to Same Family is Not Allowed")); return; } if (!PersonnelChecks.WarnAboutFamilyChange(NewPersonKey, RetrievePartnerShortName(NewPersonKey), OtherFamilyKey, RetrievePartnerShortName(OtherFamilyKey), 0, "", TRemote.MPersonnel.WebConnectors.HasCurrentCommitmentRecord(NewPersonKey), @ShowFamilyChangeWarning)) { // user chose not to continue return; } // call the server to perform the actual family database change if (TRemote.MPartner.Partner.WebConnectors.ChangeFamily(NewPersonKey, OtherFamilyKey, GetFamilyKey(), out ProblemMessage)) { // even in case of success there might still be a warning message that needs display if (ProblemMessage != "") { MessageBox.Show(ProblemMessage, Catalog.GetString("Change Family")); } } else { // can't continue after error MessageBox.Show("Change of family failed!"); MessageBox.Show(ProblemMessage, Catalog.GetString("Change Family")); return; } if (MessageBox.Show(Catalog.GetString("The Family Change is done.\r\n\r\n" + "Do you want to see the updated list of Family Members of the Family " + "from where the Person record was moved from?"), Catalog.GetString("Family ID Change"), MessageBoxButtons.YesNo) == DialogResult.Yes) { this.Cursor = Cursors.WaitCursor; try { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, OtherFamilyKey, TPartnerEditTabPageEnum.petpFamilyMembers); frm.Show(); // Set Partner to be the "Last Used Partner" TUserDefaults.NamedDefaults.SetLastPartnerWorkedWith(OtherFamilyKey, TLastPartnerUse.lpuMailroomPartner, TPartnerClass.FAMILY); } finally { this.Cursor = Cursors.Default; } } /* Refresh DataGrid to show the changed Family Members */ RefreshFamilyMembersList(this, null); } } catch (Exception exp) { throw new EOPAppException("Exception occured while calling PartnerFindScreen Delegate!", exp); } // end try } } } }
/// <summary> /// /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void AddNewPersonToThisFamily(System.Object sender, EventArgs e) { Int32 FamilysCurrentLocationKey; Int64 FamilysCurrentSiteKey; if (GridEdited) { MessageBox.Show(MPartnerResourcestrings.StrErrorNeedToSavePartner1 + MPartnerResourcestrings.StrErrorMaintainFamilyMembers2); } else { if (FDelegateIsNewPartner(FMainDS)) { MessageBox.Show(MPartnerResourcestrings.StrErrorNeedToSavePartner1 + MPartnerResourcestrings.StrErrorChangeFamily2, MPartnerResourcestrings.StrErrorNeedToSavePartnerTitle); return; } if (FDelegateGetPartnerLocationRowOfCurrentlySelectedAddress != null) { FamilysCurrentLocationKey = FDelegateGetPartnerLocationRowOfCurrentlySelectedAddress().LocationKey; FamilysCurrentSiteKey = FDelegateGetPartnerLocationRowOfCurrentlySelectedAddress().SiteKey; } else { throw new EOPAppException("Delegate FGetLocationKeyOfCurrentlySelectedAddress is not set up"); } TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smNew, "PERSON", -1, -1, "", "", false, FMainDS.PFamily[0].PartnerKey, FamilysCurrentLocationKey, FamilysCurrentSiteKey); frm.Show(); } }
/// <summary> /// /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void EditFamily(System.Object sender, EventArgs e) { if (FMainDS.PPerson[0].FamilyKey == 0) { return; } this.Cursor = Cursors.WaitCursor; try { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, FMainDS.PPerson[0].FamilyKey); frm.Show(); // Set Partner to be the "Last Used Partner" TUserDefaults.NamedDefaults.SetLastPartnerWorkedWith(FMainDS.PPerson[0].FamilyKey, TLastPartnerUse.lpuMailroomPartner, TPartnerClass.FAMILY); } finally { this.Cursor = Cursors.Default; } }
/// <summary> /// /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void EditPerson(System.Object sender, EventArgs e) { if (GridEdited) { MessageBox.Show(MPartnerResourcestrings.StrErrorNeedToSavePartner1 + MPartnerResourcestrings.StrErrorMaintainFamilyMembers2); } else { if (FMainDS.PPartner[0].PartnerKey == GetPartnerKeySelected()) { MessageBox.Show(Catalog.GetString("Partner is already open in this Partner Edit screen."), Catalog.GetString("Partner is already open"), MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1); } else { this.Cursor = Cursors.WaitCursor; try { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, GetPartnerKeySelected()); frm.Show(); } finally { this.Cursor = Cursors.Default; } } } }
private void EditPartner(System.Object sender, EventArgs e) { if (CountSelectedRows() > 1) { MessageBox.Show(Catalog.GetString("Please select only one partner record that you want to edit"), Catalog.GetString("Edit Partner"), MessageBoxButtons.OK, MessageBoxIcon.Warning); return; } ExtractTDSMExtractRow SelectedRow = GetSelectedDetailRow(); // TODO: private partners // Check if partner is has "restricted" field set to be private and in that // case only let the owner access that partner. // Make use of SharedConstants.PARTNER_PRIVATE_USER while running the query. // Open Partner Edit Screen for selected partner if (SelectedRow != null) { bool CurrentOrMailingAddress; this.Cursor = Cursors.WaitCursor; try { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); if (!TRemote.MPartner.Partner.ServerLookups.WebConnectors.VerifyPartnerAtLocation( SelectedRow.PartnerKey, new TLocationPK(SelectedRow.SiteKey, SelectedRow.LocationKey), out CurrentOrMailingAddress)) { MessageBox.Show(Catalog.GetString("Cannot find the location that was stored for this partner." + "\r\n" + "Will use any known location for this partner." + "\r\n" + "\r\n" + "(Fix with 'Verify and Update Extract')"), Catalog.GetString("Edit Partner"), MessageBoxButtons.OK, MessageBoxIcon.Warning); frm.SetParameters(TScreenMode.smEdit, SelectedRow.PartnerKey); } else { frm.SetParameters(TScreenMode.smEdit, SelectedRow.PartnerKey, SelectedRow.SiteKey, SelectedRow.LocationKey); } frm.Show(); } finally { this.Cursor = Cursors.Default; } } }
// display the partner edit screen, open to the Contact Log tab and display the contact log that has been selected in the grid private void ViewPartner(object Sender, EventArgs e) { this.Cursor = Cursors.WaitCursor; // get data for contact log to display DataRow CurrentRow = GetCurrentDataRow(); Int64 PartnerKey = Convert.ToInt64(CurrentRow["p_partner_key_n"]); string ContactLogID = CurrentRow["p_contact_log_id_i"].ToString(); TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, PartnerKey, TPartnerEditTabPageEnum.petpContacts); frm.Show(); frm.SelectContactLog(ContactLogID); this.Cursor = Cursors.Default; }
/// <summary> /// /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void EditFamily(System.Object sender, EventArgs e) { if (FMainDS.PPerson[0].FamilyKey == 0) { return; } this.Cursor = Cursors.WaitCursor; try { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, FMainDS.PPerson[0].FamilyKey); frm.Show(); } finally { this.Cursor = Cursors.Default; } }
/// <summary> /// Opens the Partner Edit Screen. /// </summary> /// <param name="AShowTabPage">Tab Page to open the Partner Edit screen on.</param> /// <param name="APartnerKey">PartnerKey for which the Partner Edit screen should be openened.</param> /// <param name="AOpenOnBestLocation">Set to true to open the Partner with the 'Best Address' selected (affects the Addresses Tab only).</param> public void OpenPartnerEditScreen(TPartnerEditTabPageEnum AShowTabPage, Int64 APartnerKey, bool AOpenOnBestLocation) { FPetraUtilsObject.WriteToStatusBar("Opening Partner in Partner Edit screen..."); if (grdResult != null) { FPetraUtilsObject.SetStatusBarText(grdResult, "Opening Partner in Partner Edit screen..."); } this.Cursor = Cursors.WaitCursor; try { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); if (!AOpenOnBestLocation) { frm.SetParameters(TScreenMode.smEdit, APartnerKey, FLogic.DetermineCurrentLocationPK().SiteKey, FLogic.DetermineCurrentLocationPK().LocationKey, AShowTabPage); } else { frm.SetParameters(TScreenMode.smEdit, APartnerKey); } frm.Show(); // Set Partner to be the "Last Used Partner" TUserDefaults.NamedDefaults.SetLastPartnerWorkedWith(APartnerKey, TLastPartnerUse.lpuMailroomPartner, frm.PartnerClass); } finally { this.Cursor = Cursors.Default; if (grdResult != null) { if (!FBankDetailsTab) { FPetraUtilsObject.SetStatusBarText(grdResult, MPartnerResourcestrings.StrResultGridHelpText + MPartnerResourcestrings.StrPartnerFindSearchTargetText); } else { FPetraUtilsObject.SetStatusBarText(grdResult, MPartnerResourcestrings.StrResultGridHelpText + MPartnerResourcestrings.StrPartnerFindByBankDetailsSearchTargetText); } } } }
/// <summary> /// Opens an instance of the Partner Edit Screen /// </summary> /// <param name="APartnerKey"></param> /// <param name="AParentForm"></param> /// <returns></returns> public static void OpenForm(long APartnerKey, Form AParentForm) { TFrmPartnerEdit frm = new TFrmPartnerEdit(AParentForm); frm.SetParameters(TScreenMode.smEdit, APartnerKey); frm.Show(); }
/// <summary> /// Create a new bank /// </summary> public void NewBank(System.Object sender, EventArgs e) { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smNew, "BANK"); frm.Show(); }
/// <summary> /// /// </summary> private void OpenSharingPartner(System.Object sender, EventArgs e) { if ((FAccountSharedWith != null) && (FAccountSharedWith.Rows.Count > 0) && (grdAccountSharedWith.SelectedDataRows != null) && (grdAccountSharedWith.SelectedDataRows.Length > 0)) { long SharingPartnerKey = Convert.ToInt64(((DataRowView)grdAccountSharedWith.SelectedDataRows[0]).Row[PPartnerTable.GetPartnerKeyDBName()]); // Open the selected partner's Partner Edit screen at Personnel Applications TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, SharingPartnerKey, TPartnerEditTabPageEnum.petpFinanceDetails); frm.Show(); } }
/// create a new Person public static void NewPartner_Person(Form AParentForm) { TFrmPartnerEdit frm = new TFrmPartnerEdit(AParentForm); System.Int64 FamilyKey = GetLastUsedFamilyKey(); TLocationPK LocationSiteKey = TRemote.MPartner.Partner.WebConnectors.DetermineBestAddress(FamilyKey); frm.SetParameters(TScreenMode.smNew, "PERSON", -1, -1, "", "", false, FamilyKey, LocationSiteKey.LocationKey, LocationSiteKey.SiteKey); frm.Show(); }
private void ValidateRecipientLedgerNumber() { // if no gift destination exists for Family parter then give the user the option to open Gift Destination maintenance screen if (FInEditMode && (FPreviouslySelectedDetailRow != null) && (Convert.ToInt64(txtDetailRecipientLedgerNumber.Text) == 0) && (FPreviouslySelectedDetailRow.RecipientKey != 0) && (cmbDetailMotivationGroupCode.GetSelectedString() == MFinanceConstants.MOTIVATION_GROUP_GIFT)) { if ((txtDetailRecipientKey.CurrentPartnerClass == TPartnerClass.FAMILY) && (MessageBox.Show(Catalog.GetString("No valid Gift Destination exists for ") + FPreviouslySelectedDetailRow.RecipientDescription + " (" + FPreviouslySelectedDetailRow.RecipientKey + ").\n\n" + string.Format(Catalog.GetString("A Gift Destination will need to be assigned to this Partner before" + " this gift can be saved with the Motivation Group '{0}'." + " Would you like to do this now?"), MFinanceConstants.MOTIVATION_GROUP_GIFT), Catalog.GetString("No valid Gift Destination"), MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)) { OpenGiftDestination(this, null); } // if no recipient ledger number for Unit partner else if ((txtDetailRecipientKey.CurrentPartnerClass == TPartnerClass.UNIT) && (MessageBox.Show(string.Format(Catalog.GetString( "The Unit Partner {0} has not been allocated a Parent Field that can receive gifts. " + "This will need to be changed before this gift can be saved with the Motivation Group '{1}'.\n\n" + "Would you like to do this now?"), "'" + FPreviouslySelectedDetailRow.RecipientDescription + "' (" + FPreviouslySelectedDetailRow.RecipientKey + ")", MFinanceConstants.MOTIVATION_GROUP_GIFT), Catalog.GetString("Problem with Unit's Parent Field"), MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)) { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, FPreviouslySelectedDetailRow.RecipientKey, Ict.Petra.Shared.MPartner.TPartnerEditTabPageEnum.petpDetails); frm.Show(); } } }
/// create a new Organisation (eg. supplier) public static void NewPartner_Organisation(Form AParentForm) { TFrmPartnerEdit frm = new TFrmPartnerEdit(AParentForm); frm.SetParameters(TScreenMode.smNew, "ORGANISATION", -1, -1, ""); frm.Show(); }
/// <summary> /// button was pressed to edit other partner in relationship record /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void EditOtherPartner(System.Object sender, EventArgs e) { long RelationPartnerKey; if (GetSelectedDetailRow() == null) { return; } // depending on the relation select other partner to be edited if (GetSelectedDetailRow().PartnerKey == ((PPartnerRow)FMainDS.PPartner.Rows[0]).PartnerKey) { RelationPartnerKey = GetSelectedDetailRow().RelationKey; } else { RelationPartnerKey = GetSelectedDetailRow().PartnerKey; } if (RelationPartnerKey == 0) { return; } this.Cursor = Cursors.WaitCursor; try { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, RelationPartnerKey); frm.Show(); } finally { this.Cursor = Cursors.Default; } }
/// <summary> /// create a new Church /// </summary> public static void NewPartner_Church(Form AParentForm) { TFrmPartnerEdit frm = new TFrmPartnerEdit(AParentForm); frm.SetParameters(TScreenMode.smNew, "CHURCH", -1, -1, ""); frm.Show(); }
private void EditApplication(System.Object sender, EventArgs e) { PmGeneralApplicationRow SelectedRow = GetSelectedApplication(); // Open the selected partner's Partner Edit screen at Personnel Applications TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, SelectedRow.PartnerKey, TPartnerEditTabPageEnum.petpPersonnelApplications); frm.Show(); frm.SelectApplication(SelectedRow.ApplicationKey, SelectedRow.RegistrationOffice); }
/// <summary> /// Opens the partner edit screen with the last partner worked on. /// Checks if the partner is merged. /// </summary> public static void OpenLastUsedPartnerEditScreenByContext(Form AParentForm, string AContext = null) { string ValidContexts; string Context; long MergedPartnerKey = 0; long LastPartnerKey; string NoPartnerAvailableStr = Catalog.GetString("You have not edited a Partner yet."); if (AContext != null) { ValidContexts = TUserDefaults.USERDEFAULT_LASTPARTNERMAILROOM + ";" + TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL + ";" + TUserDefaults.USERDEFAULT_LASTUNITPERSONNEL + ";" + TUserDefaults.USERDEFAULT_LASTPERSONCONFERENCE + ";"; if (!ValidContexts.Contains(AContext + ";")) { throw new ArgumentException("AContext \"" + AContext + "\" is not a valid context. Valid contexts: " + ValidContexts); } else { Context = AContext; } } else { Context = TUserDefaults.USERDEFAULT_LASTPARTNERMAILROOM; } LastPartnerKey = TUserDefaults.GetInt64Default(Context, 0); // we don't need to validate the partner key // because it's done in the mnuFile_Popup function. // If we don't have a valid partner key, this code can't be called from the file menu. // now that this function is called from the main menu, we need to check for LastPartnerKey != 0 if (LastPartnerKey == 0) { if (Context == TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL) { NoPartnerAvailableStr = Catalog.GetString("You have not yet worked with a Person in the Personnel Module."); } MessageBox.Show(Catalog.GetString(NoPartnerAvailableStr), Catalog.GetString("No Last Partner"), MessageBoxButtons.OK, MessageBoxIcon.Information); return; } if (MergedPartnerHandling(LastPartnerKey, out MergedPartnerKey)) { // work with the merged partner LastPartnerKey = MergedPartnerKey; } else if (MergedPartnerKey > 0) { // The partner is merged but user cancelled the action return; } // Open the Partner Edit screen TFrmPartnerEdit frmPEDS; AParentForm.Cursor = Cursors.WaitCursor; frmPEDS = new TFrmPartnerEdit(AParentForm); if (Context == TUserDefaults.USERDEFAULT_LASTPERSONPERSONNEL) { frmPEDS.SetParameters(TScreenMode.smEdit, LastPartnerKey, TPartnerEditTabPageEnum.petpPersonnelIndividualData); } else { frmPEDS.SetParameters(TScreenMode.smEdit, LastPartnerKey); } frmPEDS.Show(); AParentForm.Cursor = Cursors.Default; }
private void ValidateRecipientLedgerNumber() { if (!FInEditMode || (FPreviouslySelectedDetailRow.RecipientKey == 0)) { return; } // if no gift destination exists for Family parter then give the user the option to open Gift Destination maintenance screen else if ((FPreviouslySelectedDetailRow != null) && (Convert.ToInt64(txtDetailRecipientLedgerNumber.Text) == 0) && (cmbDetailMotivationGroupCode.GetSelectedString() == MFinanceConstants.MOTIVATION_GROUP_GIFT)) { if ((txtDetailRecipientKey.CurrentPartnerClass == TPartnerClass.FAMILY) && (MessageBox.Show(Catalog.GetString("No valid Gift Destination exists for ") + FPreviouslySelectedDetailRow.RecipientDescription + " (" + FPreviouslySelectedDetailRow.RecipientKey + ").\n\n" + string.Format(Catalog.GetString("A Gift Destination will need to be assigned to this Partner before" + " this gift can be saved with the Motivation Group '{0}'." + " Would you like to do this now?"), MFinanceConstants.MOTIVATION_GROUP_GIFT), Catalog.GetString("No valid Gift Destination"), MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)) { OpenGiftDestination(this, null); } // if no recipient ledger number for Unit partner else if ((txtDetailRecipientKey.CurrentPartnerClass == TPartnerClass.UNIT) && (MessageBox.Show(string.Format(Catalog.GetString( "The Unit Partner {0} has not been allocated a Parent Field that can receive gifts. " + "This will need to be changed before this gift can be saved with the Motivation Group '{1}'.\n\n" + "Would you like to do this now?"), "'" + FPreviouslySelectedDetailRow.RecipientDescription + "' (" + FPreviouslySelectedDetailRow.RecipientKey + ")", MFinanceConstants.MOTIVATION_GROUP_GIFT), Catalog.GetString("Problem with Unit's Parent Field"), MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)) { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, FPreviouslySelectedDetailRow.RecipientKey, Ict.Petra.Shared.MPartner.TPartnerEditTabPageEnum.petpDetails); frm.Show(); } } // if recipient ledger number belongs to a different ledger then check that it is set up for inter-ledger transfers else if ((FPreviouslySelectedDetailRow != null) && (Convert.ToInt64(txtDetailRecipientLedgerNumber.Text) != 0) && ((int)Convert.ToInt64(txtDetailRecipientLedgerNumber.Text) / 1000000 != FLedgerNumber)) { TVerificationResultCollection VerificationResults; if (!TRemote.MFinance.Gift.WebConnectors.IsRecipientLedgerNumberSetupForILT( FLedgerNumber, FPreviouslySelectedDetailRow.RecipientKey, Convert.ToInt64(txtDetailRecipientLedgerNumber.Text), out VerificationResults)) { MessageBox.Show(VerificationResults.BuildVerificationResultString(), Catalog.GetString("Invalid Data Entered"), MessageBoxButtons.OK, MessageBoxIcon.Error); } } }
/// <summary> /// open the Partner Edit screen for the supplier /// </summary> private void EditPartner(object sender, EventArgs e) { FPetraUtilsObject.WriteToStatusBar("Opening Partner in Partner Edit screen..."); this.Cursor = Cursors.WaitCursor; try { TFrmPartnerEdit frm = new TFrmPartnerEdit(this); frm.SetParameters(TScreenMode.smEdit, FMainDS.AApSupplier[0].PartnerKey); frm.Show(); } finally { this.Cursor = Cursors.Default; } }
private void OpenDonorFinanceDetails(System.Object sender, EventArgs e) { TFrmPartnerEdit frmPartner = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frmPartner.SetParameters(TScreenMode.smEdit, FPreviouslySelectedDetailRow.DonorKey, Shared.MPartner.TPartnerEditTabPageEnum.petpFinanceDetails); frmPartner.Show(); }
private void EditApplication(System.Object sender, EventArgs e) { // Open the selected partner's Partner Edit screen at Personnel Applications TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, GetPartnerKeySelected(), TPartnerEditTabPageEnum.petpPersonnelApplications); frm.Show(); }
/// <summary> /// Shows the Partner Edit screen for a new Partner. /// /// </summary> /// <returns>void</returns> public void ShowForNewPartner(Form AParentForm) { TFrmPartnerEdit frmPEDS; // MessageBox.Show('From Thread: about to show PartnerEdit screen for new Partner...'); try { frmPEDS = new TFrmPartnerEdit(AParentForm); frmPEDS.SetParameters(FScreenMode, FNewPartnerPartnerClass, FNewPartnerSiteKey, FNewPartnerPartnerKey, FNewPartnerCountryCode, FNewPartnerAcquisitionCode, FNewPartnerPrivatePartner, FNewPartnerFamilyPartnerKey, FNewPartnerFamilyLocationKey, FNewPartnerFamilySiteKey, FNewPartnerShowNewPartnerDialog); // MessageBox.Show('From Thread: now showing PartnerEdit screen!'); frmPEDS.Show(); } catch (Exception Exp) { MessageBox.Show("Exception in TThreadedOpenPartnerEditScreen.ShowForNewPartner:" + Exp.ToString()); } }