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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organizer/Classes/ClassFunctionCommandsUI.vb
View File

@@ -9,7 +9,7 @@ Public Class ClassFunctionCommandsUI
reminder.AlertTime = DueDateTime
apt.Reminders.Add(reminder)
Dim Value = ClassDatabase.Execute_Scalar(SQL, True)
Dim Value = MYDB_ECM.GetScalarValue(SQL)
If Value Is Nothing Then
apt.Subject = Subject & " - " & Value.ToString()
Else
@@ -37,7 +37,7 @@ Public Class ClassFunctionCommandsUI
reminder.AlertTime = DueDateTime
apt.Reminders.Add(reminder)
Dim Value = ClassDatabase.Execute_Scalar(SQL, True)
Dim Value = MYDB_ECM.GetScalarValue(SQL)
apt.Subject = Subject & " - " & Value.ToString()
apt.Description = Description
@@ -55,7 +55,7 @@ Public Class ClassFunctionCommandsUI
Dim controlID = GetControlID_for_Name(ControlName, FormID)
Dim SQL = "SELECT UniqueID FROM TBPMO_APPOINTMENTS WHERE CustomField1 = " & RecordID & " AND CustomField2 = " & controlID
Dim result = ClassDatabase.Execute_Scalar(SQL)
Dim result = MYDB_ECM.GetScalarValue(SQL)
If result Is Nothing Then
NewAppointment(ControlName, FormID, RecordID, PanelControls)