jj fix listdate & listcheck queries
This commit is contained in:
parent
c2132eba37
commit
902a687372
@ -166,7 +166,7 @@ Public Class ClassHelper
|
||||
Try
|
||||
Dim listcheck As New List(Of String)
|
||||
' Alle Checkboxen für aktuelle Ansicht heraussuchen
|
||||
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & ENTITY_ID
|
||||
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & ENTITY_ID
|
||||
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
|
||||
'Liste von allen Spaltentiteln mit Checkbox erstellen
|
||||
If dtcheck.Rows.Count > 0 Then
|
||||
@ -184,7 +184,7 @@ Public Class ClassHelper
|
||||
Try
|
||||
Dim listdate As New List(Of String)
|
||||
' Alle Checkboxen für aktuelle Ansicht heraussuchen
|
||||
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND FORM_ID = " & ENTITY_ID
|
||||
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & ENTITY_ID
|
||||
Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
|
||||
'Liste von allen Spaltentiteln mit Checkbox erstellen
|
||||
If dtdate.Rows.Count > 0 Then
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user