[Solved] JavaScript Error - expected ':'

[Avinash]

Hi,

I am doing a POC for RAD Controls using trail version and once POC is successful controls will be used for a huge assignment. but I am getting JavaScript Error for Schedular control saying - Expected ':'. I tried my best to solve it but could not get rid of it. Please assist me in same. Thanks in advance.

Below is scenario and code snippets of my code,

Scenario:
I am having base Default Page using Master page, not a single control is used directly all are kept in user control and are embeded in Dafault Page, The controls on Default Page are getting populated dynamically using RAD Dock control. I am using Rad Grid, Rad File Uploader and Rad Schedular.

Error:
Other controls are working fine but when I select and add Schedular to Default Page as Dock it gives me JavaScript Error - Expected ':'. Code for Schedular is very simple and same for the Dock too. But I am not getting why exactly error is poping up.

Code:
POCSchedular.ascx

<%@ Control Language="VB" AutoEventWireup="false" CodeFile="POCSchedular.ascx.vb"
    Inherits="POCSchedular" %>
<%@ Register TagPrefix="telerik" Namespace="Telerik.Web.UI" Assembly="Telerik.Web.UI" %>
<div>
    <telerik:RadAjaxManagerProxy ID="RadAjaxManagerSch" runat="server">
        <AjaxSettings>
            <telerik:AjaxSetting AjaxControlID="RadScheduler1">
                <UpdatedControls>
                    <telerik:AjaxUpdatedControl ControlID="RadScheduler1"/>
                </UpdatedControls>
            </telerik:AjaxSetting>
        </AjaxSettings>
    </telerik:RadAjaxManagerProxy>
    <table cellpadding="0" cellspacing="0" border="0">
        <tr>
            <td>
                <telerik:RadScheduler runat="server" ID="RadScheduler1" ShowAllDayRow="false" Skin="Office2007"
                    SelectedView="WeekView" DataKeyField="ID" DataStartField="Start" DataEndField="End"
                    DataSubjectField="Note">
                    <WeekView HeaderDateFormat="dd.MM" />
                    <TimelineView UserSelectable="false" />
                </telerik:RadScheduler>
            </td>
        </tr>
    </table>
</div>

POCSchedular.ascx.vb

 

 

Imports System.Data
Imports Telerik.Web.UI
Imports Telerik.Web.UI.Upload

    Partial Class POCSchedular
        Inherits System.Web.UI.UserControl

#Region "Events"

#Region "Page_Load"

        ''' <summary>
        '''
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        ''' <remarks></remarks>
        Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

            RadScheduler1.DayStartTime = New TimeSpan(8, 0, 0)
            RadScheduler1.DayEndTime = New TimeSpan(18, 0, 0)

            RadScheduler1.DataSource = GetSchedularData().Tables(0)

        End Sub

#End Region

#Region "RadScheduler1_AppointmentUpdate"

        ''' <summary>
        '''
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        ''' <remarks></remarks>
        Protected Sub RadScheduler1_AppointmentUpdate(ByVal sender As Object, ByVal e As Telerik.Web.UI.AppointmentUpdateEventArgs) Handles RadScheduler1.AppointmentUpdate

            Dim dsSchedule As DataSet = GetSchedularData()

            If Not dsSchedule Is Nothing Then

                For Each drSchedule As DataRow In dsSchedule.Tables(0).Rows

                    If drSchedule("ID").ToString().Trim() = e.Appointment.ID Then

                        drSchedule("Start") = e.ModifiedAppointment.Start
                        drSchedule("End") = e.ModifiedAppointment.End
                        drSchedule("Note") = e.ModifiedAppointment.Subject

                        Exit For
                    End If

                    dsSchedule.Tables(0).AcceptChanges()
                    dsSchedule.AcceptChanges()

                Next

            End If

        End Sub

#End Region

#Region "RadScheduler1_AppointmentInsert"

        ''' <summary>
        '''
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        ''' <remarks></remarks>
        Protected Sub RadScheduler1_AppointmentInsert(ByVal sender As Object, ByVal e As Telerik.Web.UI.SchedulerCancelEventArgs) Handles RadScheduler1.AppointmentInsert

            Dim dsSchedule As DataSet = GetSchedularData()

            If Not dsSchedule Is Nothing Then

                Dim drSchedule As DataRow = dsSchedule.Tables(0).NewRow()
                drSchedule("ID") = New Random().Next(1000)
                drSchedule("Start") = e.Appointment.Start
                drSchedule("End") = e.Appointment.End
                drSchedule("Note") = e.Appointment.Subject

                dsSchedule.Tables(0).Rows.Add(drSchedule)

                dsSchedule.Tables(0).AcceptChanges()
                dsSchedule.AcceptChanges()

            End If

        End Sub

#End Region

#Region "RadScheduler1_AppointmentDelete"

        ''' <summary>
        '''
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        ''' <remarks></remarks>
        Protected Sub RadScheduler1_AppointmentDelete(ByVal sender As Object, ByVal e As Telerik.Web.UI.SchedulerCancelEventArgs) Handles RadScheduler1.AppointmentDelete

            Dim dsSchedule As DataSet = GetSchedularData()

            If Not dsSchedule Is Nothing Then

                Dim filter As String = "ID =" & e.Appointment.ID.ToString()
                Dim drSchedule() As DataRow = dsSchedule.Tables(0).Select(filter)

                For Each drDel As DataRow In drSchedule

                    dsSchedule.Tables(0).Rows.Remove(drDel)

                Next

                dsSchedule.Tables(0).AcceptChanges()
                dsSchedule.AcceptChanges()

            End If

        End Sub

#End Region

#End Region

#Region "Private Functions"

#Region "GetSchedularData"

        ''' <summary>
        '''
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Private Function GetSchedularData() As DataSet

            Dim dsSchedule As New DataSet()

            If Session("SCHEDULE") Is Nothing Then

                Dim dtSchedule As New DataTable("Schedule")
                Dim drSchedule As DataRow
                Dim colSchedule As DataColumn

                colSchedule = New DataColumn("ID")
                dtSchedule.Columns.Add(colSchedule)
                colSchedule = New DataColumn("Start")
                dtSchedule.Columns.Add(colSchedule)
                colSchedule = New DataColumn("End")
                dtSchedule.Columns.Add(colSchedule)
                colSchedule = New DataColumn("Note")
                dtSchedule.Columns.Add(colSchedule)

                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {1, New Date(2008, 12, 1, 9, 15, 0), New Date(2008, 12, 1, 10, 15, 0), "EMS Demo."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {2, New Date(2008, 12, 1, 13, 0, 0), New Date(2008, 12, 1, 14, 30, 0), "Req. Collection."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {3, New Date(2008, 12, 2, 11, 0, 0), New Date(2008, 12, 2, 13, 0, 0), "Client Lunch."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {4, New Date(2008, 12, 3, 9, 0, 0), New Date(2008, 12, 3, 10, 0, 0), "Team Review."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {5, New Date(2008, 12, 3, 16, 0, 0), New Date(2008, 12, 3, 16, 30, 0), "Project plan disc."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {6, New Date(2008, 12, 5, 8, 30, 0), New Date(2008, 12, 5, 10, 30, 0), "Offshore status review."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {7, New Date(2008, 12, 8, 10, 0, 0), New Date(2008, 12, 8, 12, 0, 0), "Update Timesheet."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {8, New Date(2008, 12, 8, 10, 0, 0), New Date(2008, 12, 8, 12, 0, 0), "Create week plan."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {9, New Date(2008, 12, 8, 13, 0, 0), New Date(2008, 12, 8, 15, 0, 0), "Training."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {10, New Date(2008, 12, 9, 14, 0, 0), New Date(2008, 12, 9, 15, 0, 0), "Dev. status meet."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {11, New Date(2008, 12, 10, 8, 30, 0), New Date(2008, 12, 10, 10, 0, 0), "Client meeting."}
                dtSchedule.Rows.Add(drSchedule)
                drSchedule = dtSchedule.NewRow()
                drSchedule.ItemArray = New Object() {12, New Date(2008, 12, 11, 16, 0, 0), New Date(2008, 12, 11, 17, 0, 0), "Team updates."}
                dtSchedule.Rows.Add(drSchedule)

                dsSchedule.Tables.Add(dtSchedule)

                Session("SCHEDULE") = dsSchedule
            Else

                dsSchedule = CType(Session("SCHEDULE"), DataSet)

            End If

            Return dsSchedule

        End Function

#End Region

#End Region


    End Class

 

Thanks,
Avi

 

 

 

 

 

 

[Atanas Korchev]

Hi Avinash,

Please open a support ticket and send us the complete project of yours which reproduces the JavaScript error. Thanks.

Regards,
Albert
the Telerik team

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

[John Horlock]

Hi

I'm having the same problem - please could the anwser be posted back on to the forum.....

Thanks
John

[Simon]

Hello John Horlock,

Unfortunately Avinash did not send us a project illustrating the issue, so the question whether this is a bug, is it fixed or else remains open.

Please prepare a runnable page or a project, which shows the error, and send it to us via a support ticket - we will inspect it right away and will provide further details.

Thank you.

Sincerely yours,
Simon
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Check out the tips for optimizing your support resource searches.

[Avinash]

Hi John,

Still I am not able figure out the solution.
Telerik admin has requested me the complete zipped solution code which I can not do considering my organization security policy.
It will be great if you can attach zipped code to the post and we can hope Admin will come out with some solution.

Thanks,
Avi

[John Horlock]

I have submitted a sample project and await there response.

will post my findings as soon as i get them

john

[Tom]

John,

Did you get a resolution to this problem?  I am having the same issue.

Thanks,

Tom

[T. Tsonev]

Hi Tom,

The problem with John's solution turned out to be that the ClientID contains a "." (dot) which is not handled very well by RadScheduler.

Please check that you don't have dots in the rendered ClientID of RadScheduler. Look for a similar string in the page output:

<div id="RadScheduler1" class="RadScheduler ">

I hope this helps.

Regards,
Tsvetomir Tsonev
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Watch a video on how to optimize your support resource searches and check out more tips on the blogs.