This commit is contained in:
2023-07-20 14:12:24 +02:00
parent c2deb54f11
commit ea5ea5f205
64 changed files with 8139 additions and 7996 deletions

View File

@@ -19,8 +19,8 @@
End Sub
Private Sub frmCalendar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_RESOURCESTableAdapter.Fill(Me.DD_DMSDataSetCalendar.TBPMO_RESOURCES)
Me.TBPMO_APPOINTMENTSTableAdapter.Fill(Me.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS)
@@ -30,7 +30,7 @@
Private Sub AppointmentsInsertedChangedDeleted(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectsEventArgs) Handles SchedulerStorage1.AppointmentsInserted, SchedulerStorage1.AppointmentsChanged, SchedulerStorage1.AppointmentsDeleted
Try
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
TBPMO_APPOINTMENTSTableAdapter.Update(DD_DMSDataSetCalendar)
DD_DMSDataSetCalendar.AcceptChanges()
Catch ex As Exception
@@ -41,7 +41,7 @@
Private Sub RessourcesInsertedChangedDeleted(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectsEventArgs) Handles SchedulerStorage1.ResourcesInserted, SchedulerStorage1.ResourcesChanged, SchedulerStorage1.ResourcesDeleted
Try
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
TBPMO_RESOURCESTableAdapter.Update(DD_DMSDataSetCalendar)
DD_DMSDataSetCalendar.AcceptChanges()
Catch ex As Exception