/// <summary>
/// Sets the order of colums
/// </summary>
/// <returns>void</returns>
public void CreateColumns()
{
SourceGrid.Cells.Editors.TextBoxUITypeEditor l_editorDt2;
Ict.Common.TypeConverter.TDateConverter DateTypeConverter;
FFamilyMembersDT = FMainDS.FamilyMembers;
// Editor for Date of Birth column (Petra Date format)
l_editorDt2 = new SourceGrid.Cells.Editors.TextBoxUITypeEditor(typeof(DateTime));
l_editorDt2.EditableMode = EditableMode.None;
DateTypeConverter = new Ict.Common.TypeConverter.TDateConverter();
// DateTypeConverter.
l_editorDt2.TypeConverter = DateTypeConverter;
try
{
this.FDataGrid.AddTextColumn("Person Name",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetPartnerShortNameDBName()], -1, FSpecialCellController, null, null,
null);
this.FDataGrid.AddTextColumn("Gender",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetGenderDBName()], -1, FSpecialCellController, null, null, null);
this.FDataGrid.AddTextColumn("Date of Birth",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetDateOfBirthDBName()], -1, FSpecialCellController, l_editorDt2, null,
null);
this.FDataGrid.AddTextColumn("Partner Key",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetPartnerKeyDBName()], -1, FSpecialCellController, null, null, null);
FamilyIDDropDownValues = new Int32[] {
1, 2, 3, 4, 5, 6, 7, 8, 9, 0
};
FFamilyIDEditor = new SourceGrid.Cells.Editors.ComboBox(typeof(Int32), FamilyIDDropDownValues, false);
this.FDataGrid.AddTextColumn("Family ID",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetFamilyIdDBName()], 80, FFamilyIDEditor);
DisableEditing();
FFamilyIDEditor.EnableEdit = false;
FFamilyIDEditor.Control.Validating += new CancelEventHandler(this.FamilyID_Validating);
// DevAge.ComponentModel.Validator.ValueMapping FamilyIDDropDownMapping =
new DevAge.ComponentModel.Validator.ValueMapping();
}
catch (System.NullReferenceException)
{
}
// to do if no lines.
}
/// <summary>
/// This procedure creates the colums of the DataGrid displayed
///
/// </summary>
/// <returns>void</returns>
public void CreateColumns(TSgrdDataGrid AGrid, System.Data.DataTable ASourceTable, String AAction)
{
String FAddRemoveHeaderText;
SourceGrid.Cells.Editors.TextBoxUITypeEditor l_editor;
Ict.Common.TypeConverter.TBooleanToYesNoConverter BooleanToYesNoConverter;
l_editor = new SourceGrid.Cells.Editors.TextBoxUITypeEditor(typeof(Boolean));
l_editor.EditableMode = EditableMode.None;
BooleanToYesNoConverter = new Ict.Common.TypeConverter.TBooleanToYesNoConverter();
// PetraDtConverter.
l_editor.TypeConverter = BooleanToYesNoConverter;
this.DataGrid = AGrid;
// Assemble column heading
if (AAction == "ADD")
{
FAddRemoveHeaderText = "Add?";
this.FAction = "ADD";
}
else
{
FAddRemoveHeaderText = "Remove?";
this.FAction = "REMOVE";
}
// TLogging.Log('Hello Test Markusm: ', [TLoggingType.ToLogfile]);
this.FDataGrid.AddCheckBoxColumn(FAddRemoveHeaderText, ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetTypeCodeModifyDBName()]);
this.FDataGrid.AddTextColumn("Currently assigned",
ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetTypeCodePresentDBName()], -1, FSpecialCellController, l_editor, null, null);
this.FDataGrid.AddTextColumn("Person Name", ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetPartnerShortNameDBName()]);
this.FDataGrid.AddTextColumn("Person PartnerKey", ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetPartnerKeyDBName()]);
this.FDataGrid.AddTextColumn("Family ID", ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetFamilyIdDBName()]);
// Add controller to each line
// mNumberRows := AGrid.Rows.Count;
// messagebox.show('Number of rows in the grid: ' + mNumberRows.ToString);
}
/// <summary>
/// This procedure creates the colums of the Persons' Locations DataGrid
///
/// </summary>
/// <returns>void</returns>
public void CreateColumnsPersonsLocations(TSgrdDataGrid AGrid, System.Data.DataTable ASourceTable)
{
SourceGrid.Cells.Editors.TextBoxUITypeEditor DateEditor;
Ict.Common.TypeConverter.TDateConverter DateTypeConverter;
this.DataGridPersonsLocations = AGrid;
DateEditor = new SourceGrid.Cells.Editors.TextBoxUITypeEditor(typeof(DateTime));
DateEditor.EditableMode = EditableMode.None;
DateTypeConverter = new Ict.Common.TypeConverter.TDateConverter();
DateEditor.TypeConverter = DateTypeConverter;
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerTable.TableId, PPartnerTable.ColumnPartnerShortNameId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetPartnerShortNameDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnPartnerKeyId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetPartnerKeyDBName()], 77);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnTelephoneNumberId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetTelephoneNumberDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnExtensionId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetExtensionDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnFaxNumberId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetFaxNumberDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnFaxExtensionId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetFaxExtensionDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnMobileNumberId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetMobileNumberDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnAlternateTelephoneId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetAlternateTelephoneDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnEmailAddressId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetEmailAddressDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnUrlId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetUrlDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnLocationTypeId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetLocationTypeDBName()], 88);
this.FDataGridPersonsLocations.AddCheckBoxColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnSendMailId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetSendMailDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnDateEffectiveId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetDateEffectiveDBName()], -1, null, DateEditor, null,
null);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnDateGoodUntilId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetDateGoodUntilDBName()], -1, null, DateEditor, null,
null);
// this.FDataGridPersonsLocations.AddTextColumn(PartnerAddressAggregateTDSChangePromotionParametersTable.GetSiteKeyLabel(),
// ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetSiteKeyDBName()], 77);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnLocationKeyId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetLocationKeyDBName()]);
// Following Columns are for debugging only!
// this.FDataGridPersonsLocations.AddTextColumn('Site Key Of Edited Record', ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetSiteKeyOfEditedRecordDBName()], 77);
// this.FDataGridPersonsLocations.AddTextColumn('Location Key Of Edited Record', ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetLocationKeyOfEditedRecordDBName()]);
}
/// <summary>
/// Sets the order of colums
/// </summary>
/// <returns>void</returns>
private void CreateGridColumns()
{
SourceGrid.Cells.Editors.TextBoxUITypeEditor l_editorDt2;
Ict.Common.TypeConverter.TDateConverter DateTypeConverter;
FFamilyMembersDT = FMainDS.FamilyMembers;
// Editor for Date of Birth column (Petra Date format)
l_editorDt2 = new SourceGrid.Cells.Editors.TextBoxUITypeEditor(typeof(DateTime));
l_editorDt2.EditableMode = EditableMode.None;
DateTypeConverter = new Ict.Common.TypeConverter.TDateConverter();
// DateTypeConverter.
l_editorDt2.TypeConverter = DateTypeConverter;
try
{
grdFamilyMembers.AddTextColumn("Person Name",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetPartnerShortNameDBName()], -1, FSpecialCellController, null, null,
null);
grdFamilyMembers.AddTextColumn("Gender",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetGenderDBName()], -1, FSpecialCellController, null, null, null);
grdFamilyMembers.AddTextColumn("Date of Birth",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetDateOfBirthDBName()], -1, FSpecialCellController, l_editorDt2, null,
null);
grdFamilyMembers.AddPartnerKeyColumn("Partner Key",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetPartnerKeyDBName()]);
FamilyIDDropDownValues = new Int32[] {
1, 2, 3, 4, 5, 6, 7, 8, 9, 0
};
FFamilyIDEditor = new SourceGrid.Cells.Editors.ComboBox(typeof(Int32), FamilyIDDropDownValues, false);
grdFamilyMembers.AddTextColumn("Family ID",
FFamilyMembersDT.Columns[PartnerEditTDSFamilyMembersTable.GetFamilyIdDBName()], 80, FFamilyIDEditor);
DisableEditing();
FFamilyIDEditor.EnableEdit = false;
FFamilyIDEditor.Control.Validating += new CancelEventHandler(this.FamilyID_Validating);
// DevAge.ComponentModel.Validator.ValueMapping FamilyIDDropDownMapping =
new DevAge.ComponentModel.Validator.ValueMapping();
}
catch (System.NullReferenceException)
{
}
// to do if no lines.
}
/// <summary>
/// This procedure creates the colums of the Persons' Locations DataGrid
///
/// </summary>
/// <returns>void</returns>
public void CreateColumnsPersonsLocations(TSgrdDataGrid AGrid, System.Data.DataTable ASourceTable)
{
SourceGrid.Cells.Editors.TextBoxUITypeEditor DateEditor;
Ict.Common.TypeConverter.TDateConverter DateTypeConverter;
this.DataGridPersonsLocations = AGrid;
DateEditor = new SourceGrid.Cells.Editors.TextBoxUITypeEditor(typeof(DateTime));
DateEditor.EditableMode = EditableMode.None;
DateTypeConverter = new Ict.Common.TypeConverter.TDateConverter();
DateEditor.TypeConverter = DateTypeConverter;
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerTable.TableId, PPartnerTable.ColumnPartnerShortNameId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetPartnerShortNameDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnPartnerKeyId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetPartnerKeyDBName()], 77);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnTelephoneNumberId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetTelephoneNumberDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnExtensionId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetExtensionDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnFaxNumberId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetFaxNumberDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnFaxExtensionId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetFaxExtensionDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnMobileNumberId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetMobileNumberDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnAlternateTelephoneId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetAlternateTelephoneDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnEmailAddressId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetEmailAddressDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnUrlId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetUrlDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnLocationTypeId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetLocationTypeDBName()], 88);
this.FDataGridPersonsLocations.AddCheckBoxColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnSendMailId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetSendMailDBName()]);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnDateEffectiveId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetDateEffectiveDBName()], -1, null, DateEditor, null,
null);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnDateGoodUntilId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetDateGoodUntilDBName()], -1, null, DateEditor, null,
null);
// this.FDataGridPersonsLocations.AddTextColumn(PartnerAddressAggregateTDSChangePromotionParametersTable.GetSiteKeyLabel(),
// ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetSiteKeyDBName()], 77);
this.FDataGridPersonsLocations.AddTextColumn(
TTypedDataTable.GetLabel(PPartnerLocationTable.TableId, PPartnerLocationTable.ColumnLocationKeyId),
ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetLocationKeyDBName()]);
// Following Columns are for debugging only!
// this.FDataGridPersonsLocations.AddTextColumn('Site Key Of Edited Record', ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetSiteKeyOfEditedRecordDBName()], 77);
// this.FDataGridPersonsLocations.AddTextColumn('Location Key Of Edited Record', ASourceTable.Columns[PartnerAddressAggregateTDSChangePromotionParametersTable.GetLocationKeyOfEditedRecordDBName()]);
}
/// <summary>
/// This procedure creates the colums of the DataGrid displayed
///
/// </summary>
/// <returns>void</returns>
public void CreateColumns(TSgrdDataGrid AGrid, System.Data.DataTable ASourceTable, String AAction)
{
String FAddRemoveHeaderText;
SourceGrid.Cells.Editors.TextBoxUITypeEditor l_editor;
Ict.Common.TypeConverter.TBooleanToYesNoConverter BooleanToYesNoConverter;
l_editor = new SourceGrid.Cells.Editors.TextBoxUITypeEditor(typeof(Boolean));
l_editor.EditableMode = EditableMode.None;
BooleanToYesNoConverter = new Ict.Common.TypeConverter.TBooleanToYesNoConverter();
// PetraDtConverter.
l_editor.TypeConverter = BooleanToYesNoConverter;
this.DataGrid = AGrid;
// Assemble column heading
if (AAction == "ADD")
{
FAddRemoveHeaderText = "Add?";
this.FAction = "ADD";
}
else
{
FAddRemoveHeaderText = "Remove?";
this.FAction = "REMOVE";
}
// TLogging.Log('Hello Test Markusm: ', [TLoggingType.ToLogfile]);
this.FDataGrid.AddCheckBoxColumn(FAddRemoveHeaderText, ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetTypeCodeModifyDBName()]);
this.FDataGrid.AddTextColumn("Currently assigned",
ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetTypeCodePresentDBName()], -1, FSpecialCellController, l_editor, null, null);
this.FDataGrid.AddTextColumn("Person Name", ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetPartnerShortNameDBName()]);
this.FDataGrid.AddTextColumn("Person PartnerKey", ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetPartnerKeyDBName()]);
this.FDataGrid.AddTextColumn("Family ID", ASourceTable.Columns[PartnerEditTDSFamilyMembersTable.GetFamilyIdDBName()]);
// Add controller to each line
// mNumberRows := AGrid.Rows.Count;
// messagebox.show('Number of rows in the grid: ' + mNumberRows.ToString);
}
/// <summary>
/// Add a column that shows a time value in localised long string format. Data should be in the form of a numeric seconds, or a parsable HH:MM string.
/// </summary>
/// <param name="AColumnTitle">Title of the HeaderColumn</param>
/// <param name="ADataColumn">DataColumn to which this column should be DataBound</param>
public void AddLongTimeColumn(String AColumnTitle, DataColumn ADataColumn)
{
SourceGrid.Cells.Editors.TextBoxUITypeEditor TimeEditor = new SourceGrid.Cells.Editors.TextBoxUITypeEditor(typeof(DateTime));
TimeEditor.EditableMode = EditableMode.None;
TimeEditor.TypeConverter = new Ict.Common.TypeConverter.TLongTimeConverter();
AddTextColumn(AColumnTitle, ADataColumn, -1, TimeEditor);
}
/// <summary>
/// Add a date column that is read-only. The date is displayed in an a common international data format, independent of a computer's date formatting settings.
/// </summary>
/// <param name="AColumnTitle">Title of the HeaderColumn</param>
/// <param name="ADataColumn">DataColumn to which this column should be DataBound</param>
public void AddDateColumn(String AColumnTitle, DataColumn ADataColumn)
{
SourceGrid.Cells.Editors.TextBoxUITypeEditor DateEditor = new SourceGrid.Cells.Editors.TextBoxUITypeEditor(typeof(DateTime));
Ict.Common.TypeConverter.TDateConverter DateTypeConverter = new Ict.Common.TypeConverter.TDateConverter();
DateEditor.EditableMode = EditableMode.None;
DateEditor.TypeConverter = DateTypeConverter;
AddTextColumn(AColumnTitle, ADataColumn, -1, null, DateEditor, null, null);
}
