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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-06-20 14:00:58 +02:00
parent c7af54d4fa
commit 333788145f
4 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -132,8 +132,10 @@ Public Class ClassControlValues
If IsNothing(metadata.Required) OrElse metadata.Required = False Then
Continue For
End If
If Not ControlHasValue(Control) Then
If Control.Name = "Jährllicher Betrag" Then
Console.WriteLine("Obacht")
End If
If Not ControlHasValue(Control) And Control.Enabled = True Then
missingValues.Add(Control.Name)
End If
@@ -841,7 +843,9 @@ Public Class ClassControlValues
Public Shared Function Get_Control_Value_for_ID(Control_ID As Integer, Record_ID As Integer)
Try
Return ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID, True)
Dim sql = "SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID
CURRENT_LAST_SQL = sql
Return ClassDatabase.Execute_Scalar(sql, True)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in GetControlValueForControlID: " & ex.Message, True)
MsgBox("Error in GetControlValueForControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)