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

MS_27042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-28 11:43:09 +02:00
parent a573219f6f
commit c173fe57e8
5 changed files with 379 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -141,6 +141,12 @@ Public Class ClassControlBuilder
combo.BackColor = Color.White
End Sub
Dim CONTROL_ID
Public Sub Enable_Controls()
End Sub
Public Sub Depending_Controls()
End Sub
Public Sub OnComboBoxValueChanged(sender As Object, ByVal e As EventArgs)
If CURRENT_RECORD_ENABLED = False Then Exit Sub
@@ -151,8 +157,11 @@ Public Class ClassControlBuilder
If CONTROL_ID = 29 Then
Console.WriteLine("Obacht")
End If
'SQL für abhängige Auswahllisten
Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
Dim value
'SQL für enable control
Dim SQLenable As String = String.Format("SELECT GUID, SQL_COMMAND_2 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
' Diese Befehle führen dazu, dass auch der ValueMember als Wert ausgelesen wird
' Das kann zu unerwarteten Ergebnissen führen, da der Benutzer nur den DisplayMember sieht.
@@ -174,7 +183,7 @@ Public Class ClassControlBuilder
End If
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
If datatable.Rows.Count = 0 Then
Exit Sub
End If
@@ -273,8 +282,8 @@ Public Class ClassControlBuilder
Try
Dim value1 As String = dt.Rows(0).Item(0)
ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, value1, 999, True)
Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID)
Dim id = ClassDatabase.Execute_Scalar(sql1)
Dim sqltextbox = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID)
Dim id = ClassDatabase.Execute_Scalar(sqltextbox)
If Not IsNothing(id) Then
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", value1, id)