This is a migrated thread and some comments may be shown as answers.

customizing AdvancedEditTemplate takes too much time for form creating

9 Answers 110 Views

Scheduler

This is a migrated thread and some comments may be shown as answers.

9 Answers, 1 is accepted

answered on 20 Feb 2012, 08:00 AM

Hi Peter,

I am using that code. but the appointment not display into scheduler. but the select query got record and return appointment but not display into scheduler. please check and let me know,

Please check the code,

aspx
------
<telerik:RadScriptBlock ID="rsbScript" runat="server">
    <script type="text/javascript">
        //<![CDATA[
        var categoryNames = new Array();

        function OnClientAppointmentsPopulating(sender, eventArgs) {
            //addSelectedCategoriesToArray(categoryNames);
            eventArgs.get_schedulerInfo().CategoryNames = categoryNames;
            categoryNames = new Array(); //clear the array
        }

        function OnClientAppointmentWebServiceInserting(sender, args) {
            //set a default Calendar resource
            if (args.get_appointment().get_resources().get_count() == 0) {
                var defaultCalendarResource = sender.get_resources().getResourceByTypeAndKey("Calendar", 1);
                args.get_appointment().get_resources().add(defaultCalendarResource);
            }
        }

        function rebindScheduler() {
            var scheduler = $find('<%=RadScheduler1.ClientID %>');
            scheduler.rebind();
        }

        function onSchedulerDataBound(scheduler) {
            var $ = jQuery;
            $(".rsAptDelete").each(function () {
                var apt = scheduler.getAppointmentFromDomElement(this);
                // creating an object containing the data that should be applied on the template
                var tmplValue = { Description: apt.get_description() };
                // instantiate the template, populate it and insert before the delete handler (".rsAptDelete")
                $("#tmplAppDescription").tmpl(tmplValue).insertBefore(this);
            });
        }

         //]]>
    </script>
    </telerik:RadScriptBlock>

<form id="form1" runat="server">
     <telerik:RadScriptManager runat="server" ID="RadScriptManager1">
        <Scripts>
            <asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.Core.js" />
            <asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.jQuery.js" />
            <asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.jQueryInclude.js" />
            <%--<asp:ScriptReference Path="Scripts/jquery.tmpl.js" />--%>
        </Scripts>
    </telerik:RadScriptManager>
    <div>
     <telerik:RadScheduler runat="server" ID="RadScheduler1" Skin="Windows7" Height="551px"
                    OnClientAppointmentWebServiceInserting="OnClientAppointmentWebServiceInserting"
                    OnClientAppointmentsPopulating="OnClientAppointmentsPopulating"
                    SelectedView="MonthView" ShowFooter="false" SelectedDate="2012-02-15" TimeZoneOffset="03:00:00"
                    DayStartTime="08:00:00" DayEndTime="21:00:00" FirstDayOfWeek="Monday" LastDayOfWeek="Friday"
                    EnableDescriptionField="true" AppointmentStyleMode="Default">
                    <WebServiceSettings Path="WebServiceScheduler.asmx" ResourcePopulationMode="ServerSide" />
                    <AdvancedForm Modal="true" />
                    <TimelineView UserSelectable="false" />
                    <TimeSlotContextMenuSettings EnableDefault="true" />
                    <AppointmentContextMenuSettings EnableDefault="true" />
                </telerik:RadScheduler>
    </div>
     <telerik:RadAjaxLoadingPanel ID="ralpScheduler" Style="position: absolute" runat="server">
            </telerik:RadAjaxLoadingPanel>
    </form>

webServiceScheduler.vb(webservice)
Imports System.Collections.Generic
Imports System.Web.Script.Services
Imports System.Web.Services
Imports Telerik.Web.UI
Imports System.Data.Common

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<WebService()> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ScriptService()> _
Public Class WebServiceScheduler
    Inherits System.Web.Services.WebService

    Private _controller As WebServiceAppointmentController

    ''' <summary>
    ''' The WebServiceAppointmentController class is used as a facade to the SchedulerProvider.
    ''' </summary>
    '''
    Private _provider As MyDbSchedulerProvider
    Private ReadOnly Property Provider() As MyDbSchedulerProvider
        Get
            If _provider Is Nothing Then
                Dim connString = ConfigurationManager.ConnectionStrings("TelerikVSXConnectionString").ConnectionString
                Dim factory = DbProviderFactories.GetFactory("System.Data.SqlClient")
                _provider = New MyDbSchedulerProvider() With { _
                 .ConnectionString = connString, _
                 .DbFactory = factory, _
                 .PersistChanges = True _
                }
            End If
            Return _provider
        End Get
    End Property
    Private ReadOnly Property Controller() As WebServiceAppointmentController
        Get
            If _controller Is Nothing Then
                _controller = New WebServiceAppointmentController(Provider)
            End If
            Return _controller
        End Get
    End Property

    <WebMethod()> _
    Public Function GetAppointments(ByVal schedulerInfo As SchedulerInfo) As IEnumerable(Of AppointmentData)
        Return Controller.GetAppointments(schedulerInfo)
    End Function

Class File - App_code/MyDbSchedulerProvider.vb
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Data.Common
Imports System.Data.SqlClient
Imports Telerik.Web.UI

Public Class MyDbSchedulerProvider

Public Overrides Function GetAppointments(ByVal shedulerInfo As ISchedulerInfo) As IEnumerable(Of Appointment)
        Dim appointments As New List(Of Appointment)()

        Using conn As DbConnection = OpenConnection()
            Dim cmd As DbCommand = DbFactory.CreateCommand()
            cmd.Connection = conn
            cmd.CommandText = "SELECT [ClassID], [Subject], [Start], [End], [RecurrenceRule], [RecurrenceParentId], [Reminder], [Description], [AppointmentColor] FROM [DbProvider_Classes]"

            Using reader As DbDataReader = cmd.ExecuteReader()
                While reader.Read()
                    Dim apt As New Appointment()
                    'apt.Owner = owner;
                    apt.ID = reader("ClassID")
                    apt.Subject = Convert.ToString(reader("Subject"))
                    apt.Description = Convert.ToString(reader("Description"))
                    apt.Attributes("AppointmentColor") = Convert.ToString(reader("AppointmentColor"))
                    apt.Start = DateTime.SpecifyKind(Convert.ToDateTime(reader("Start")), DateTimeKind.Utc)
                    apt.[End] = DateTime.SpecifyKind(Convert.ToDateTime(reader("End")), DateTimeKind.Utc)
                    apt.RecurrenceRule = Convert.ToString(reader("RecurrenceRule"))
                    apt.RecurrenceParentID = If(reader("RecurrenceParentId") Is DBNull.Value, Nothing, reader("RecurrenceParentId"))

                    If Not reader("Reminder") Is DBNull.Value Then
                        Dim reminders As IList(Of Reminder) = Reminder.TryParse(Convert.ToString(reader("Reminder")))
                        If reminders IsNot Nothing Then
                            apt.Reminders.AddRange(reminders)
                        End If
                    End If

                    If apt.RecurrenceParentID IsNot Nothing Then
                        apt.RecurrenceState = RecurrenceState.Exception
                    ElseIf apt.RecurrenceRule <> String.Empty Then
                        apt.RecurrenceState = RecurrenceState.Master
                    End If

                    'LoadResources(apt)
                    appointments.Add(apt)
                End While
            End Using
        End Using

        Return appointments
    End Function
End Class

Thanks,
Dhamu.