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

jj 15_12

Browse Source
This commit is contained in:
JenneJ
2015-12-15 15:51:44 +01:00
parent 7f63396433
commit 466df5c094
6 changed files with 248 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
app/DD-Record-Organiser/ClassControlCommands.vb
View File

@@ -31,11 +31,16 @@
Case CurrentType.Contains("RadioButton".ToUpper)
Return 11
Case CurrentType.Contains("Button".ToUpper)
If control.Tag = "ADDAPPOINTMENT" Then
If control.Name.Contains("f_addappointment") Then
Return 8
ElseIf control.Tag = "ADDFORMDATA" Then
ElseIf control.Name.Contains("f_addformdata") Then
Return 9
End If
'If control.Tag = "ADDAPPOINTMENT" Then
' Return 8
'ElseIf control.Tag = "ADDFORMDATA" Then
' Return 9
'End If
Case CurrentType.Contains("CheckedListBoxControl".ToUpper)
Return 12
Case CurrentType.Contains("ListBoxControl".ToUpper)
@@ -343,7 +348,9 @@
If ClassDatabase.Execute_non_Query(SQL) = True Then
If CurrentType.Contains("Button") Then
If control.Tag = "ADDAPPOINTMENT" Then
'If control.Tag = "ADDAPPOINTMENT" Then
If control.Name.Contains("f_addappointment") Then
Dim ControlId = properties.ID
Dim FromDateId, ToDateId As Integer
Dim SubjectString, Subject2String, PlaceString, DescString As String
@@ -387,8 +394,8 @@
End If
ClassFunctionCommands.UpdateAddAppointmentFunction(ControlId, FromDateId, ToDateId, SubjectString, Subject2String, PlaceString, DescString)
ElseIf control.Tag = "ADDFORMDATA" Then
ElseIf control.Name.Contains("f_addformdata") Then
'ElseIf control.Tag = "ADDFORMDATA" Then
Dim ControlId = properties.ID
Dim FormID, ScreenID As Integer