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

MS_1708

Browse Source
This commit is contained in:
SchreiberM
2016-08-17 11:32:45 +02:00
parent b811570870
commit 32192cf542
70 changed files with 7103 additions and 9527 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,32 +1,6 @@
Imports DevExpress.XtraScheduler
Public Class ClassFunctionCommandsUI
Shared Sub OpenFormData(ControlName As String, FormID As Integer)
Try
Dim ControlId As Integer = GetControlID_for_Name(ControlName, FormID)
Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId)
If IsDBNull(dr.Item("INTEGER1")) OrElse dr.Item("INTEGER1") = 0 Then
MsgBox("FormId ist nicht definiert für " & ControlName)
Exit Sub
End If
If IsDBNull(dr.Item("INTEGER2")) OrElse dr.Item("INTEGER2") = 0 Then
MsgBox("ScreenId ist nicht definiert für " & ControlName)
Exit Sub
End If
Dim newFormId As Integer = dr.Item("INTEGER1")
Dim newScreenId As Integer = dr.Item("INTEGER2")
OpenFormInputFor(newFormId, newScreenId)
Catch ex As Exception
MsgBox("Error in OpenFormData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Shared Sub NewEditTaskAppointment(RecordID As Integer, ControlID As Integer, Subject As String, Description As String, DueDateTime As DateTime)
Try
Dim apt As Appointment = frmCalendar.SchedulerStorage1.CreateAppointment(AppointmentType.Normal)
@@ -53,7 +27,7 @@ Public Class ClassFunctionCommandsUI
Catch ex As Exception
MsgBox("Error in NewEditTaskAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Shared Sub NewTaskAppointment(RecordID As Integer, ControlID As Integer, Subject As String, Description As String, DueDateTime As DateTime)