/// <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(); }
private void ViewSecondaryContact(Object Sender, EventArgs e) { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, FSecondaryContactKey); frm.Show(); }
/// <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(); }
/// <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(); }
/// 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(); }
private void EditPerson(System.Object sender, EventArgs e) { TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); frm.SetParameters(TScreenMode.smEdit, GetPartnerKeySelected(), TPartnerEditTabPageEnum.petpPersonnelApplications); frm.Show(); }
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; } } }
/// <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()); } }
/// 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(); }
// 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(); }
/// 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(); }
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) { 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); }
/// 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(); }
/// <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; } }
// 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> /// Shows the Partner Edit screen for a new Partner. /// /// </summary> /// <returns>void</returns> public void ShowForExistingPartner(Form AParentForm) { TFrmPartnerEdit frmPEDS; // MessageBox.Show('From Thread: about to show PartnerEdit screen for existing Partner...'); try { frmPEDS = new TFrmPartnerEdit(AParentForm); frmPEDS.SetParameters(FScreenMode, FPartnerKey, FSiteKeyForSelectingPartnerLocation, FLocationKeyForSelectingPartnerLocation, FShowTabPage); // MessageBox.Show('From Thread: now showing PartnerEdit screen!'); frmPEDS.Show(); } catch (Exception Exp) { MessageBox.Show("Exception in TThreadedOpenPartnerEditScreen.ShowForExistingPartner:" + Exp.ToString()); } }
/// <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; } }
private void EditPartner(System.Object sender, EventArgs e) { bool ServerCallSuccessful = false; bool VerifyPartnerAtLocationResult = false; 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 CurrentAddress; bool MailingAddress; this.Cursor = Cursors.WaitCursor; try { Ict.Common.DB.TServerBusyHelper.CoordinatedAutoRetryCall("Extract Maintenance/Edit Partner", ref ServerCallSuccessful, delegate { VerifyPartnerAtLocationResult = TRemote.MPartner.Partner.ServerLookups.WebConnectors.VerifyPartnerAtLocation( SelectedRow.PartnerKey, new TLocationPK(SelectedRow.SiteKey, SelectedRow.LocationKey), out CurrentAddress, out MailingAddress); ServerCallSuccessful = true; }); if (!ServerCallSuccessful) { // ServerCallRetries must be equal to MAX_RETRIES when we get here! if (TServerBusyHelperGui.ShowServerBusyDialogWhenOpeningForm(Catalog.GetString("Partner Edit")) == DialogResult.Retry) { EditPartner(null, null); } return; } TFrmPartnerEdit frm = new TFrmPartnerEdit(FPetraUtilsObject.GetForm()); if (!VerifyPartnerAtLocationResult) { 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; } } }
/// <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; } } } }
/// <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, AParentForm)) { // 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; }