/// <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; }
/// <summary> /// Initialises DataSets and Tables /// /// </summary> /// <returns>void</returns> private void InitialiseDataStructures(PDataLabelValuePartnerTable ADataTableValuePartner, PDataLabelValueApplicationTable ADataTableValueApplication) { FDataLabelDT = (PDataLabelTable)TDataCache.TMPartner.GetCacheablePartnerTable(TCacheablePartnerTablesEnum.DataLabelList); // FDataLabelDT.Tablename := 'PDataLabel'; // MessageBox.Show('FDataLabelDT.Rows[0].Key: ' + FDataLabelDT.Row[0].Key.ToString); FDataLabelUseDT = (PDataLabelUseTable)TDataCache.TMPartner.GetCacheablePartnerTable(TCacheablePartnerTablesEnum.DataLabelUseList); // MessageBox.Show('FDataLabelUseDT.Rows[0].Key: ' + FDataLabelUseDT.Row[0].Idx1.ToString); FDataLabelLookupDT = (PDataLabelLookupTable)TDataCache.TMPartner.GetCacheablePartnerTable(TCacheablePartnerTablesEnum.DataLabelLookupList); // MessageBox.Show('FDataLabelLookupDT.Row[0].CategoryCode: ' + FDataLabelLookupDT.Row[0].CategoryCode); FDataLabelLookupCategoryDT = (PDataLabelLookupCategoryTable)TDataCache.TMPartner.GetCacheablePartnerTable( TCacheablePartnerTablesEnum.DataLabelLookupCategoryList); // MessageBox.Show('FDataLabelLookupCategoryDT.Row[0].CategoryCode: ' + FDataLabelLookupCategoryDT.Row[0].CategoryCode); // Set up DataSet that holds all DataTables FLocalDataDS = new OfficeSpecificDataLabelsTDS("OfficeSpecificData"); // Merge in cached Typed DataTables (should be done differently in the future when TypedDataSet.Tables.Add works fine) FLocalDataDS.Merge(FDataLabelDT); FLocalDataDS.Merge(FDataLabelUseDT); FLocalDataDS.Merge(FDataLabelLookupDT); FLocalDataDS.Merge(FDataLabelLookupCategoryDT); FDataLabelValuePartnerDT = ADataTableValuePartner; FDataLabelValueApplicationDT = ADataTableValueApplication; }
/// <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); } }