コード例 #1
0
        /// <summary>
        /// this returns the appropriate partner class for a given office specific data label enum value
        /// </summary>
        /// <param name="AOfficeSpecificDataLabelUse">enum value</param>
        /// <returns>partner class for that enum value</returns>
        public static TPartnerClass OfficeSpecificDataLabelUseToPartnerClassEnum(TOfficeSpecificDataLabelUseEnum AOfficeSpecificDataLabelUse)
        {
            switch (AOfficeSpecificDataLabelUse)
            {
            case TOfficeSpecificDataLabelUseEnum.Person:
                return(TPartnerClass.PERSON);

            case TOfficeSpecificDataLabelUseEnum.Family:
                return(TPartnerClass.FAMILY);

            case TOfficeSpecificDataLabelUseEnum.Church:
                return(TPartnerClass.CHURCH);

            case TOfficeSpecificDataLabelUseEnum.Organisation:
                return(TPartnerClass.ORGANISATION);

            case TOfficeSpecificDataLabelUseEnum.Unit:
                return(TPartnerClass.UNIT);

            case TOfficeSpecificDataLabelUseEnum.Bank:
                return(TPartnerClass.BANK);

            case TOfficeSpecificDataLabelUseEnum.Venue:
                return(TPartnerClass.VENUE);

            default:
                throw new ArgumentException(
                          "Cannot convert the submitted value of TOfficeSpecificDataLabelUseEnum." + AOfficeSpecificDataLabelUse.ToString(
                              "G") + " to a TPartnerClass!");
            }
        }
コード例 #2
0
 /// <summary>
 /// Constructor.
 ///
 /// </summary>
 /// <param name="APartnerKey">PartnerKey for the Partner to instantiate this object with</param>
 /// <param name="AApplicationKey">ApplicationKey for the Application to instantiate this
 /// object with</param>
 /// <param name="ARegistrationOffice">RegistrationOffice PartnerKey for the Application
 /// to instantiate this object with</param>
 /// <param name="AOfficeSpecificDataLabelUse">Office Specific Data Label Use
 /// </param>
 /// <returns>void</returns>
 public TOfficeSpecificDataLabelsUIConnector(Int64 APartnerKey,
                                             Int32 AApplicationKey,
                                             Int64 ARegistrationOffice,
                                             TOfficeSpecificDataLabelUseEnum AOfficeSpecificDataLabelUse)
 {
     TLogging.LogAtLevel(9, "TOfficeSpecificDataLabelsUIConnector created: Instance hash is " + this.GetHashCode().ToString());
     FPartnerKey = APartnerKey;
     FOfficeSpecificDataLabelUse = AOfficeSpecificDataLabelUse;
     FApplicationKey             = AApplicationKey;
     FRegistrationOffice         = ARegistrationOffice;
 }
コード例 #3
0
 /// <summary>
 /// Constructor.
 ///
 /// </summary>
 /// <param name="APartnerKey">PartnerKey for the Partner to instantiate this object with</param>
 /// <param name="AOfficeSpecificDataLabelUse">Office Specific Data Label Use
 /// </param>
 /// <returns>void</returns>
 public TOfficeSpecificDataLabelsUIConnector(Int64 APartnerKey, TOfficeSpecificDataLabelUseEnum AOfficeSpecificDataLabelUse)
 {
     TLogging.LogAtLevel(9, "TOfficeSpecificDataLabelsUIConnector created: Instance hash is " + this.GetHashCode().ToString());
     FPartnerKey = APartnerKey;
     FOfficeSpecificDataLabelUse = AOfficeSpecificDataLabelUse;
 }
コード例 #4
0
        /// <summary>
        /// todoComment
        /// </summary>
        /// <param name="ADataTableValuePartner"></param>
        /// <param name="ADataTableValueApplication"></param>
        /// <param name="AOfficeSpecificDataLabelUse"></param>
        private void InitialiseUserControlInternal(PDataLabelValuePartnerTable ADataTableValuePartner,
            PDataLabelValueApplicationTable ADataTableValueApplication,
            TOfficeSpecificDataLabelUseEnum AOfficeSpecificDataLabelUse)
        {
            // Set the delegate function in the logic System.Object (so it can call back).
            // This can not be done in procedure InitializeDelegateGetPartnerShortName because FLogic
            // does not yet exist then.
            // Set up Data Sets and Tables
            InitialiseDataStructures(ADataTableValuePartner, ADataTableValueApplication);

            // Set up screen logic
            FOfficeSpecificDataLabelUse = AOfficeSpecificDataLabelUse;
            FLocalDataLabelValuesGrid = grdLocalDataLabelValues;

            //PossiblySomethingToSave += new TTellGuiToEnableSaveButton(this.@PossiblySaveSomething);

            // Set up Grid
            SetupGridColumnsAndRows();

            // Signalize that the initialisation is done
            FUserControlInitialised = true;
        }
コード例 #5
0
        /// <summary>
        /// todoComment
        /// </summary>
        /// <param name="ADataTable"></param>
        /// <param name="APartnerKey"></param>
        /// <param name="AApplicationKey"></param>
        /// <param name="ARegistrationOffice"></param>
        /// <param name="AOfficeSpecificDataLabelUse"></param>
        public void InitialiseUserControlAndShowData(PDataLabelValueApplicationTable ADataTable,
            Int64 APartnerKey,
            Int32 AApplicationKey,
            Int64 ARegistrationOffice,
            TOfficeSpecificDataLabelUseEnum AOfficeSpecificDataLabelUse)
        {
            FPartnerKey = APartnerKey;
            FApplicationKey = AApplicationKey;
            FRegistrationOffice = ARegistrationOffice;

            if (!FUserControlInitialised)
            {
                InitialiseUserControlInternal(null, ADataTable, AOfficeSpecificDataLabelUse);
            }
        }
コード例 #6
0
        /// <summary>
        /// todoComment
        /// </summary>
        /// <param name="ADataTable"></param>
        /// <param name="APartnerKey"></param>
        /// <param name="AOfficeSpecificDataLabelUse"></param>
        public void InitialiseUserControlAndShowData(PDataLabelValuePartnerTable ADataTable,
            System.Int64 APartnerKey,
            TOfficeSpecificDataLabelUseEnum AOfficeSpecificDataLabelUse)
        {
            FPartnerKey = APartnerKey;

            if (!FUserControlInitialised)
            {
                InitialiseUserControlInternal(ADataTable, null, AOfficeSpecificDataLabelUse);
            }
        }
コード例 #7
0
ファイル: Types.cs プロジェクト: js1987/openpetragit
        /// <summary>
        /// this returns the appropriate partner class for a given office specific data label enum value
        /// </summary>
        /// <param name="AOfficeSpecificDataLabelUse">enum value</param>
        /// <returns>partner class for that enum value</returns>
        public static TPartnerClass OfficeSpecificDataLabelUseToPartnerClassEnum(TOfficeSpecificDataLabelUseEnum AOfficeSpecificDataLabelUse)
        {
            switch (AOfficeSpecificDataLabelUse)
            {
                case TOfficeSpecificDataLabelUseEnum.Person:
                    return TPartnerClass.PERSON;

                case TOfficeSpecificDataLabelUseEnum.Family:
                    return TPartnerClass.FAMILY;

                case TOfficeSpecificDataLabelUseEnum.Church:
                    return TPartnerClass.CHURCH;

                case TOfficeSpecificDataLabelUseEnum.Organisation:
                    return TPartnerClass.ORGANISATION;

                case TOfficeSpecificDataLabelUseEnum.Unit:
                    return TPartnerClass.UNIT;

                case TOfficeSpecificDataLabelUseEnum.Bank:
                    return TPartnerClass.BANK;

                case TOfficeSpecificDataLabelUseEnum.Venue:
                    return TPartnerClass.VENUE;

                default:
                    throw new ArgumentException(
                    "Cannot convert the submitted value of TOfficeSpecificDataLabelUseEnum." + AOfficeSpecificDataLabelUse.ToString(
                        "G") + " to a TPartnerClass!");
            }
        }