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