Thanks
' get the facade we need
Dim schedulingFacade As ISchedulingFacade = SymoRequestContext.GetServiceLocator.GetService(Of ISchedulingFacade)("SchedulingFacade")
Dim ID As Guid = New Guid(e.Appointment.ID.ToString)
Dim fresult As FacadeResult = New FacadeResult
Try
TransactionManager.Instance.BeginTransaction()
Select Case e.Appointment.Attributes("aptType")
Case "0" 'Unavailability
fresult = schedulingFacade.MoveResourceUnavailability(ID, e.ModifiedAppointment.Start, e.ModifiedAppointment.End)
Case "1" 'Visit
fresult = schedulingFacade.MoveVisit(ID, e.ModifiedAppointment.Start)
Case "2" 'Stop point
fresult = schedulingFacade.MoveResourceStopPoint(ID, e.ModifiedAppointment.Start, e.ModifiedAppointment.End)
End Select
If fresult.IsValidResult Then
TransactionManager.Instance.CommitTransaction()
Else
TransactionManager.Instance.RollbackTransaction()
e.Cancel =
True
'Dim js As New System.Web.Script.Serialization.JavaScriptSerializer()
'Dim JsonErrorMessage As String = js.Serialize(fresult.ErrorMessage)
'Dim AjaxManager As RadAjaxManager = RadAjaxManager.GetCurrent(Page)
'ScriptManager.RegisterStartupScript(Me, GetType(BaseController), "showAlerts", "showAlert(" + JsonErrorMessage + ");", True)
End If
UpdateCalendar()
Catch ex As Exception
m_logger.Error(ex.Message)
TransactionManager.Instance.RollbackTransaction()
e.Cancel =
True
End Try