AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS3

Browse Source
This commit is contained in:
SchreiberM
2016-08-09 10:50:34 +02:00
parent 75ab06ce6c
commit 01d404dab9
1 changed files with 19 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -3067,8 +3067,8 @@ Public Class frmConstructor_Main
CreateTile()
Else
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & ENTITY_ID
Dim sqldate As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID = 4 AND FORM_ID = " & ENTITY_ID & " GROUP BY CONTROL_COLUMN"
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & ENTITY_ID
Dim sqldate As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND FORM_ID = " & ENTITY_ID
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqldate)
Dim listcheck As New List(Of String)
@@ -3095,7 +3095,16 @@ Public Class frmConstructor_Main
Dim tbltemp As DataTable = DT_SELECTION.Clone()
For Each col As String In listdate
Dim colDate As DataColumn = tbltemp.Columns(col)
colDate.DataType = GetType(Date)
If Not IsNothing(colDate) Then
colDate.DataType = GetType(Date)
End If
Next
For Each col1 As String In listcheck
Dim collist As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Next
Try
tbltemp.Load(DT_SELECTION.CreateDataReader)
@@ -3118,15 +3127,14 @@ Public Class frmConstructor_Main
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0
'Dim DateEditorForDisplay = New RepositoryItemDateEdit()
'DateEditorForDisplay.DisplayFormat = USER_DATE_FORMAT
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
For Each col As String In listcheck
grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
If Not IsNothing(grvwGrid.Columns(col)) Then
grvwGrid.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
End If
Next
'For Each col As String In listcheck
' grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
' If Not IsNothing(grvwGrid.Columns(col)) Then
' grvwGrid.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If
'Next
' Alle Date Spalten durchgehen
For Each col As String In listdate
Dim colDate = grvwGrid.Columns(col)