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

jj_02_12

Browse Source
This commit is contained in:
JenneJ
2015-12-02 13:00:30 +01:00
parent 6a353192b0
commit 161f8c9c2e
2 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -330,7 +330,7 @@ Public Class ClassControlCommandsUI
InsertAllControls(FormID, RecordID, DirectCast(ctrl, GroupBox).Controls)
End If
Else
InsertControlValue(ctrl.Name, RecordID, CONTROL_VALUE)
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
End If
Next
End Sub
@@ -574,7 +574,7 @@ Public Class ClassControlCommandsUI
End Select
End Function
Public Shared Function InsertControlValue(ControlID As String, RecordID As Integer, Value As String)
Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String)
Try
Dim AddedWho = Environment.UserName
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID)