public PDataLabelValuePartnerTable GetDataLocalPartnerDataValues(Int64 APartnerKey, out Boolean ALabelsAvailable, Boolean ACountOnly, TDBTransaction AReadTransaction) { PDataLabelValuePartnerTable DataLabelValuePartnerDT; OfficeSpecificDataLabelsTDS OfficeSpecificDataLabels; ALabelsAvailable = false; DataLabelValuePartnerDT = new PDataLabelValuePartnerTable(); try { OfficeSpecificDataLabels = GetData(); //ALabelsAvailable = // (CountLabelUse(SharedTypes.PartnerClassEnumToString(FPartnerClass), AReadTransaction) != 0); if (!ACountOnly) { DataLabelValuePartnerDT.Merge(OfficeSpecificDataLabels.PDataLabelValuePartner); } } catch (Exception) { // TODO: Exception processing } return(DataLabelValuePartnerDT); }
private static bool LoadApplicationsFromDB( ref ConferenceApplicationTDS AMainDS, string AEventCode, Int64?ARegisteringOffice, string ARole, Int64?APartnerKey, TDBTransaction ATransaction) { ConferenceApplicationTDS MainDS = new ConferenceApplicationTDS(); List <OdbcParameter> parameters = new List <OdbcParameter>(); OdbcParameter parameter = new OdbcParameter("eventcode", OdbcType.VarChar, PmShortTermApplicationTable.GetConfirmedOptionCodeLength()); parameter.Value = AEventCode.Substring(0, 5); parameters.Add(parameter); string DataLabels = "(PUB_p_data_label.p_text_c = 'MedicalNotes' OR PUB_p_data_label.p_text_c = 'Rebukes')"; string queryShortTermApplication = "SELECT PUB_pm_short_term_application.* " + "FROM PUB_pm_short_term_application " + "WHERE SUBSTRING(PUB_pm_short_term_application.pm_confirmed_option_code_c, 1, 5) = ? "; string queryGeneralApplication = "SELECT PUB_pm_general_application.* " + "FROM PUB_pm_short_term_application, PUB_pm_general_application " + "WHERE SUBSTRING(PUB_pm_short_term_application.pm_confirmed_option_code_c, 1, 5) = ? " + " AND PUB_pm_general_application.p_partner_key_n = PUB_pm_short_term_application.p_partner_key_n " + " AND PUB_pm_general_application.pm_application_key_i = PUB_pm_short_term_application.pm_application_key_i " + " AND PUB_pm_general_application.pm_registration_office_n = PUB_pm_short_term_application.pm_registration_office_n"; string queryPerson = "SELECT DISTINCT PUB_p_person.* " + "FROM PUB_pm_short_term_application, PUB_p_person " + "WHERE SUBSTRING(PUB_pm_short_term_application.pm_confirmed_option_code_c, 1, 5) = ? " + " AND PUB_p_person.p_partner_key_n = PUB_pm_short_term_application.p_partner_key_n"; string queryPartner = "SELECT DISTINCT PUB_p_partner.* " + "FROM PUB_p_partner, PUB_pm_short_term_application " + "WHERE SUBSTRING(PUB_pm_short_term_application.pm_confirmed_option_code_c, 1, 5) = ? " + " AND (PUB_p_partner.p_partner_key_n = PUB_pm_short_term_application.p_partner_key_n" + " OR PUB_p_partner.p_partner_key_n = PUB_pm_short_term_application.pm_st_field_charged_n)"; string queryDataLabel = "SELECT DISTINCT PUB_p_data_label_value_partner.* " + "FROM PUB_pm_short_term_application, PUB_p_data_label_value_partner, PUB_p_data_label " + "WHERE SUBSTRING(PUB_pm_short_term_application.pm_confirmed_option_code_c, 1, 5) = ? " + " AND PUB_p_data_label_value_partner.p_partner_key_n = PUB_pm_short_term_application.p_partner_key_n" + " AND PUB_p_data_label_value_partner.p_data_label_key_i = PUB_p_data_label.p_key_i" + " AND " + DataLabels; if ((ARole != null) && (ARole.Length > 0)) { queryGeneralApplication += " AND PUB_pm_short_term_application.pm_st_congress_code_c LIKE '" + ARole + "%'"; queryShortTermApplication += " AND PUB_pm_short_term_application.pm_st_congress_code_c LIKE '" + ARole + "%'"; queryPerson += " AND PUB_pm_short_term_application.pm_st_congress_code_c LIKE '" + ARole + "%'"; queryDataLabel += " AND PUB_pm_short_term_application.pm_st_congress_code_c LIKE '" + ARole + "%'"; } if (ARegisteringOffice.HasValue && (ARegisteringOffice.Value > 0)) { string queryRegistrationOffice = " AND (PUB_pm_short_term_application.pm_st_field_charged_n = ? OR PUB_pm_short_term_application.pm_registration_office_n = ?)"; queryGeneralApplication += queryRegistrationOffice; queryShortTermApplication += queryRegistrationOffice; queryPerson += queryRegistrationOffice; queryPartner += " AND PUB_pm_short_term_application.pm_st_congress_code_c LIKE '" + ARole + "%'"; queryDataLabel += queryRegistrationOffice; parameter = new OdbcParameter("fieldCharged", OdbcType.Decimal, 10); parameter.Value = ARegisteringOffice.Value; parameters.Add(parameter); parameter = new OdbcParameter("registrationOffice", OdbcType.Decimal, 10); parameter.Value = ARegisteringOffice.Value; parameters.Add(parameter); } if (APartnerKey.HasValue && (APartnerKey.Value > 0)) { queryGeneralApplication += " AND PUB_pm_short_term_application.p_partner_key_n = ?"; queryShortTermApplication += " AND PUB_pm_short_term_application.p_partner_key_n = ?"; queryPerson += " AND PUB_pm_short_term_application.p_partner_key_n = ?"; queryPartner += " AND PUB_pm_short_term_application.p_partner_key_n = ?"; queryDataLabel += " AND PUB_pm_short_term_application.p_partner_key_n = ?"; parameter = new OdbcParameter("partnerkey", OdbcType.Decimal, 10); parameter.Value = APartnerKey.Value; parameters.Add(parameter); } DBAccess.GDBAccessObj.Select(MainDS, queryShortTermApplication, MainDS.PmShortTermApplication.TableName, ATransaction, parameters.ToArray()); DBAccess.GDBAccessObj.Select(MainDS, queryPerson, MainDS.PPerson.TableName, ATransaction, parameters.ToArray()); DBAccess.GDBAccessObj.Select(MainDS, queryPartner, MainDS.PPartner.TableName, ATransaction, parameters.ToArray()); DBAccess.GDBAccessObj.Select(MainDS, queryGeneralApplication, MainDS.PmGeneralApplication.TableName, ATransaction, parameters.ToArray()); DBAccess.GDBAccessObj.Select(MainDS, queryDataLabel, MainDS.PDataLabelValuePartner.TableName, ATransaction, parameters.ToArray()); DBAccess.GDBAccessObj.Select(MainDS, "SELECT * FROM PUB_p_data_label WHERE " + DataLabels, MainDS.PDataLabel.TableName, ATransaction); AMainDS.Merge(MainDS); AMainDS.PDataLabelValuePartner.DefaultView.Sort = PDataLabelValuePartnerTable.GetDataLabelKeyDBName() + "," + PDataLabelValuePartnerTable.GetPartnerKeyDBName(); AMainDS.PDataLabel.DefaultView.Sort = PDataLabelTable.GetTextDBName(); return(true); }
/// <summary> /// return a list of all applicants for a given event, /// but if AConferenceOrganisingOffice is false, /// consider only the registration office that the user has permissions for, ie. Module REG-00xx0000000 /// </summary> /// <param name="AMainDS"></param> /// <param name="AEventPartnerKey">The ConferenceKey</param> /// <param name="AEventCode">The OutreachPrefix</param> /// <param name="AApplicationStatus"></param> /// <param name="ARegistrationOffice">if -1, then show all offices that the user has permission for</param> /// <param name="AConferenceOrganisingOffice">if true, all offices are considered</param> /// <param name="ARole"></param> /// <param name="AClearJSONData"></param> /// <returns></returns> public static bool GetApplications( ref ConferenceApplicationTDS AMainDS, Int64 AEventPartnerKey, string AEventCode, string AApplicationStatus, Int64 ARegistrationOffice, bool AConferenceOrganisingOffice, string ARole, bool AClearJSONData) { TDBTransaction Transaction = null; ConferenceApplicationTDS MainDS = new ConferenceApplicationTDS(); DBAccess.GDBAccessObj.GetNewOrExistingAutoReadTransaction( IsolationLevel.ReadCommitted, TEnforceIsolationLevel.eilMinimum, ref Transaction, delegate { // load all attendees of this conference. // only load once: GetApplications might be called for several application stati if (MainDS.PcAttendee.Rows.Count == 0) { PcAttendeeRow templateAttendeeRow = MainDS.PcAttendee.NewRowTyped(false); templateAttendeeRow.ConferenceKey = AEventPartnerKey; PcAttendeeAccess.LoadUsingTemplate(MainDS, templateAttendeeRow, Transaction); MainDS.PcAttendee.DefaultView.Sort = PcAttendeeTable.GetPartnerKeyDBName(); } if (AConferenceOrganisingOffice && (ARegistrationOffice == -1)) { // avoid duplicates, who are registered by one office, but charged to another office GetApplications(ref MainDS, AEventCode, -1, AApplicationStatus, ARole, AClearJSONData, Transaction); } else { List <Int64> AllowedRegistrationOffices = GetRegistrationOfficeKeysOfUser(Transaction); foreach (Int64 RegistrationOffice in AllowedRegistrationOffices) { if ((ARegistrationOffice == RegistrationOffice) || (ARegistrationOffice == -1)) { GetApplications(ref MainDS, AEventCode, RegistrationOffice, AApplicationStatus, ARole, AClearJSONData, Transaction); } } } // required for DefaultView.Find MainDS.PmShortTermApplication.DefaultView.Sort = PmShortTermApplicationTable.GetStConfirmedOptionDBName() + "," + PmShortTermApplicationTable.GetPartnerKeyDBName(); MainDS.PmGeneralApplication.DefaultView.Sort = PmGeneralApplicationTable.GetPartnerKeyDBName() + "," + PmGeneralApplicationTable.GetApplicationKeyDBName() + "," + PmGeneralApplicationTable.GetRegistrationOfficeDBName(); MainDS.PDataLabelValuePartner.DefaultView.Sort = PDataLabelValuePartnerTable.GetDataLabelKeyDBName() + "," + PDataLabelValuePartnerTable.GetPartnerKeyDBName(); MainDS.PDataLabel.DefaultView.Sort = PDataLabelTable.GetTextDBName(); }); AMainDS = MainDS; if (AMainDS.HasChanges()) { AMainDS.EnforceConstraints = false; AMainDS.AcceptChanges(); } return(true); }
public PDataLabelValuePartnerTable GetDataLocalPartnerDataValues(Int64 APartnerKey, out Boolean ALabelsAvailable, Boolean ACountOnly, TDBTransaction AReadTransaction) { PDataLabelValuePartnerTable DataLabelValuePartnerDT; OfficeSpecificDataLabelsTDS OfficeSpecificDataLabels; ALabelsAvailable = false; DataLabelValuePartnerDT = new PDataLabelValuePartnerTable(); try { OfficeSpecificDataLabels = GetData(); //ALabelsAvailable = // (CountLabelUse(SharedTypes.PartnerClassEnumToString(FPartnerClass), AReadTransaction) != 0); if (!ACountOnly) { DataLabelValuePartnerDT.Merge(OfficeSpecificDataLabels.PDataLabelValuePartner); } } catch (Exception) { // TODO: Exception processing } return DataLabelValuePartnerDT; }
public TSubmitChangesResult PrepareChangesServerSide( DataTable AInspectDT, TDBTransaction AReadTransaction) { TSubmitChangesResult SubmissionResult = TSubmitChangesResult.scrOK; // TODO: once we have centrally cached data tables on the server then get the data // from there. Until then just load it on the spot here! PDataLabelTable DataLabelDT = PDataLabelAccess.LoadAll(AReadTransaction); if (AInspectDT != null) { // Run through all rows of the value table and see if the significant column is empty/null. If so // then delete the row from the table (these rows are not needed any longer in order to save space // in the database) int NumRows = AInspectDT.Rows.Count; for (int RowIndex = NumRows - 1; RowIndex >= 0; RowIndex -= 1) { DataRow InspectedDataRow = AInspectDT.Rows[RowIndex]; // only check modified or added rows because the deleted ones are deleted anyway if ((InspectedDataRow.RowState == DataRowState.Modified) || (InspectedDataRow.RowState == DataRowState.Added)) { if (IsRowObsolete(DataLabelDT, InspectedDataRow, (AInspectDT.TableName == PDataLabelValuePartnerTable.GetTableName()))) { InspectedDataRow.Delete(); } } } } else { TLogging.LogAtLevel(8, "AInspectDS = null!"); SubmissionResult = TSubmitChangesResult.scrNothingToBeSaved; } return(SubmissionResult); }
private PDataLabelValuePartnerTable GetDataLocalPartnerDataValuesInternal(out Boolean ALabelsAvailable, Boolean ACountOnly) { TDBTransaction ReadTransaction; Boolean NewTransaction = false; TOfficeSpecificDataLabelsUIConnector OfficeSpecificDataLabelsUIConnector; PDataLabelValuePartnerTable DataLabelValuePartnerDT; OfficeSpecificDataLabelsTDS OfficeSpecificDataLabels; ALabelsAvailable = false; DataLabelValuePartnerDT = new PDataLabelValuePartnerTable(); try { ReadTransaction = DBAccess.GDBAccessObj.GetNewOrExistingTransaction(IsolationLevel.RepeatableRead, TEnforceIsolationLevel.eilMinimum, out NewTransaction); OfficeSpecificDataLabelsUIConnector = new TOfficeSpecificDataLabelsUIConnector(FPartnerKey, MCommonTypes.PartnerClassEnumToOfficeSpecificDataLabelUseEnum(FPartnerClass)); OfficeSpecificDataLabels = OfficeSpecificDataLabelsUIConnector.GetData(); ALabelsAvailable = (OfficeSpecificDataLabelsUIConnector.CountLabelUse(SharedTypes.PartnerClassEnumToString(FPartnerClass), ReadTransaction) != 0); if (!ACountOnly) { DataLabelValuePartnerDT.Merge(OfficeSpecificDataLabels.PDataLabelValuePartner); } } finally { if (NewTransaction) { DBAccess.GDBAccessObj.CommitTransaction(); TLogging.LogAtLevel(7, "TPartnerEditUIConnector.GetDataLocalPartnerDataValuesInternal: committed own transaction."); } } return DataLabelValuePartnerDT; }
/// <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="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> /// 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); } }