示例#1
0
        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);
        }
示例#2
0
        /// <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();
        }
示例#3
0
        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();
        }