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

JJ_16_11

Browse Source
This commit is contained in:
JenneJ
2015-11-16 15:28:39 +01:00
parent 69b738413a
commit a7f86eb783
24 changed files with 341 additions and 6741 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -80,7 +80,7 @@ Public Class ClassFunctionCommandsUI
Try
Dim controlID = GetControlID_for_Name(ControlName, FormID)
Dim SQL = "SELECT GUID FROM TBPMO_APPOINTMENTS WHERE CustomField1 = " & RecordID & " AND CustomField2 = " & controlID
Dim SQL = "SELECT UniqueID FROM TBPMO_APPOINTMENTS WHERE CustomField1 = " & RecordID & " AND CustomField2 = " & controlID
Dim result = ClassDatabase.Execute_Scalar(SQL)
If result Is Nothing Then
@@ -209,6 +209,8 @@ Public Class ClassFunctionCommandsUI
Dim controlID = GetControlID_for_Name(ControlName, FormID)
' Load All appointments first
frmCalendar.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString
frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString
frmCalendar.TBPMO_RESOURCESTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_RESOURCES)
frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS)