Problem with AppointmentUpdate event

[ericc34]

Hi, Here's my code. Actually, I call fresult = schedulingFacade.MoveVisit(ID, e.ModifiedAppointment.Start) in Case "1". The result is an error and Rollback my transaction and cancel AppointmentUpdate (e.Cancel). I don't know why but sometime (not always), appointment in calendar remains update. In my database, data is good (rollback is made) but in scheduler, appointment is not at the good place. Do you know why this append ?

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

 

[Dimitar Milushev]

Hello,

The code you have shown here seems perfectly valid and it sounds weird for it to doesn't work 'sometimes'. Can you please open a support ticket and send us a sample project that reproduces the issue? This will greatly aid us in finding the problem and providing a solution quicker.

Thank you for your understanding.

Sincerely yours,
Dimitar Milushev
the Telerik team

Check out Telerik Trainer, the state of the art learning tool for Telerik products.