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

Pusch_27042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-27 12:13:01 +02:00
parent 0b6da26fd8
commit 7c18f672ed
7 changed files with 417 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organiser/ClassControlValues.vb
View File

@@ -229,6 +229,9 @@ Public Class ClassControlValues
End If
Select Case control.GetType()
Case GetType(TextBox)
If CURRENT_CONTROL_ID = 272 Then
Console.WriteLine("272")
End If
Dim textbox As TextBox = DirectCast(control, TextBox)
ControlLoader.TextBox.LoadValue(textbox, recordId, parentRecordId, value, entity_ID)
@@ -237,6 +240,7 @@ Public Class ClassControlValues
ControlLoader.Label.LoadValue(label, recordId, parentRecordId, value, entity_ID)
Case GetType(CustomComboBox)
Dim combobox As CustomComboBox = DirectCast(control, CustomComboBox)
ControlLoader.Combobox.LoadValue(combobox, recordId, parentRecordId, value)
@@ -531,6 +535,9 @@ Public Class ClassControlValues
Select Case control.GetType()
Case GetType(TextBox)
If ControlID = 272 Then
Console.WriteLine("obacht")
End If
Dim textbox As TextBox = DirectCast(control, TextBox)
If IsDBNull(autoValue) Then
textbox.Text = ""
@@ -559,6 +566,7 @@ Public Class ClassControlValues
radio.Checked = StrToBool(autoValue)
Case GetType(CustomComboBox)
Dim combobox As CustomComboBox = DirectCast(control, CustomComboBox)
If IsDBNull(autoValue) Then
combobox.SelectedIndex = -1
@@ -595,9 +603,6 @@ Public Class ClassControlValues
Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlID))
Dim SQL_AUTOVALUE As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlID))
SQL_AUTOVALUE = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL_AUTOVALUE, RecordID, ParentRecordId, entity_ID)
If ControlID = 984 Then
Console.WriteLine("VertragsNr")
End If
If SQL_AUTOVALUE = "" Or IsDBNull(SQL_AUTOVALUE) Then
Exit Sub
@@ -613,7 +618,7 @@ Public Class ClassControlValues
End If
' AutoValue = ClassDatabase.Execute_Scalar(SQL)
If Not String.IsNullOrEmpty(autoValue) And Not IsDBNull(autoValue) Then
If Not IsNothing(autoValue) And Not IsDBNull(autoValue) Then
lbl.Text = autoValue
End If