private PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable OpenPartnerTypePropagationSelection(String APartnerTypeCode, String AAction) { PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable ReturnValue = null; // TODO OpenPartnerTypePropagationSelection #if TODO TPartnerTypeFamilyMembersPropagationSelectionWinForm PartnerTypeFamilyMembersPropagationSelectionWinForm; PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable FamilyMembersPromotionTable; PartnerTypeFamilyMembersPropagationSelectionWinForm = new TPartnerTypeFamilyMembersPropagationSelectionWinForm(); PartnerTypeFamilyMembersPropagationSelectionWinForm.SetParameters(FMainDS.PFamily[0].PartnerKey, FPartnerEditUIConnector, APartnerTypeCode, AAction); if (PartnerTypeFamilyMembersPropagationSelectionWinForm.ShowDialog() == System.Windows.Forms.DialogResult.Cancel) { ReturnValue = new PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable(); } else { if (PartnerTypeFamilyMembersPropagationSelectionWinForm.GetReturnedParameters(out FamilyMembersPromotionTable)) { ReturnValue = FamilyMembersPromotionTable; } else { ReturnValue = new PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable(); } } #endif return(ReturnValue); }
/// <summary> /// This procedure initializes this System.Object. /// /// </summary> /// <returns>void</returns> public void InitialisePartnerTypeFamilyMembers(PartnerEditTDSFamilyMembersTable AFamilyMembersDT) { // Create the result table if (FFamilyMembersResultDT == null) { FFamilyMembersResultDT = new PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable(); } // Logger := new Ict.Common.Logging.TLogging('U:\delphi.net\ICT\Petra\Client\_bin\Debug\Propagation.log'); // Set the column names for the FFamilyMembersResultDT table. this.FResultPartnerKeyName = PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable.GetPartnerKeyDBName(); this.FResultTypeCodeName = PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable.GetTypeCodeDBName(); this.FResultAddTypeCodeName = PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable.GetAddTypeCodeDBName(); this.FResultRemoveTypeCodeName = PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable.GetRemoveTypeCodeDBName(); // Set the column names for the FFamilyMembersDT table. this.FFamilyMembersDT = AFamilyMembersDT; this.FTypeCodeModifyName = PartnerEditTDSFamilyMembersTable.GetTypeCodeModifyDBName(); this.FTypeCodePresentName = PartnerEditTDSFamilyMembersTable.GetTypeCodePresentDBName(); this.FPartnerKeyName = PartnerEditTDSFamilyMembersTable.GetPartnerKeyDBName(); }
private PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable OpenPartnerTypePropagationSelection(String APartnerTypeCode, String AAction) { PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable ReturnValue = null; // TODO OpenPartnerTypePropagationSelection #if TODO TPartnerTypeFamilyMembersPropagationSelectionWinForm PartnerTypeFamilyMembersPropagationSelectionWinForm; PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable FamilyMembersPromotionTable; PartnerTypeFamilyMembersPropagationSelectionWinForm = new TPartnerTypeFamilyMembersPropagationSelectionWinForm(); PartnerTypeFamilyMembersPropagationSelectionWinForm.SetParameters(FMainDS.PFamily[0].PartnerKey, FPartnerEditUIConnector, APartnerTypeCode, AAction); if (PartnerTypeFamilyMembersPropagationSelectionWinForm.ShowDialog() == System.Windows.Forms.DialogResult.Cancel) { ReturnValue = new PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable(); } else { if (PartnerTypeFamilyMembersPropagationSelectionWinForm.GetReturnedParameters(out FamilyMembersPromotionTable)) { ReturnValue = FamilyMembersPromotionTable; } else { ReturnValue = new PartnerEditTDSPartnerTypeChangeFamilyMembersPromotionTable(); } } #endif return ReturnValue; }