or
<telerik:RadScheduler ID="rsRooms" runat="server" DataStartField="dtStartDateTime" DataEndField="dtEndDateTime" DataKeyField="intRequestId" DataSubjectField="Title" OverflowBehavior="Expand" SelectedView="WeekView" MonthView-VisibleAppointmentsPerDay="6" MultiDayView-UserSelectable="False" TimelineView-UserSelectable="False" Skin="Office2010Blue" Width="100%" WeekView-DayStartTime="07:00:00" WeekView-DayEndTime="16:59:59" WorkDayStartTime="07:00:00" WorkDayEndTime="16:00:00" DayView-DayEndTime="16:00:00" DayView-DayStartTime="07:00:00" CustomAttributeNames="intRoomScheduledId"> </telerik:RadScheduler>Private Sub loadCal() Dim roomId As Integer = Convert.ToInt32(ddlRooms.SelectedValue) sql = String.Format("SELECT DISTINCT(r.intRequestId), s.intRoomScheduledId, s.dtMeetingDate dtStartDateTime, CONVERT(VARCHAR(10),s.dtMeetingDate, 120) + ' ' + " _ & "SUBSTRING(CONVERT(VARCHAR(23),r.dtEndDateTime,121),11,20) dtEndDateTime, r.strRemarks, ISNULL(p.strPurpose, r.strPurpose) + ': ' + " _ & "REPLACE(CONVERT(VARCHAR(5),r.dtStartDateTime,108),':','') + '-' + REPLACE(CONVERT(VARCHAR(5),r.dtEndDateTime,108),':','') Title " _ & "FROM tblRequest r JOIN tblRoomScheduled s ON s.intRequestId = r.intRequestId LEFT JOIN tblPurpose p ON r.intPurposeId = p.intPurposeId " _ & "WHERE s.intRoomId = {0}", roomId) rsRooms.DataSource = getData(sql) rsRooms.DataBind() For Each apt As Telerik.Web.UI.Appointment In rsRooms.Appointments sql = String.Format("SELECT s.intRoomScheduledId FROM tblRoomScheduled s JOIN MnNgPersonnel.dbo.tblMNNatPersonnel p ON s.intPersonnelId = p.intPersonnelId " _ & "WHERE s.intRoomScheduledId = {0} AND p.strFTLogon = '{1}'", apt.Attributes("intRoomScheduledId"), myLogon) myDataTable = New DataTable myDataTable = getData(sql) If myDataTable.Rows.Count = 0 Then apt.AllowDelete = False Else apt.AllowDelete = True Next End Sub Protected Sub rsRooms_AppointmentDataBound(sender As Object, e As Telerik.Web.UI.SchedulerEventArgs) Handles rsRooms.AppointmentDataBound Dim dt As DataTable Dim id As Integer = e.Appointment.Attributes("intRoomScheduledId") sql = "SELECT intStatusId FROM tblRoomScheduled WHERE intRoomScheduledId = " & id dt = New DataTable dt = getData(sql) If dt.Rows(0)(0) = "1" Then ' Pending e.Appointment.BackColor = Drawing.Color.Khaki ElseIf dt.Rows(0)(0) = "2" Then ' Approved e.Appointment.BackColor = Drawing.Color.LightGreen ElseIf dt.Rows(0)(0) = "3" Then ' Cancelled e.Appointment.BackColor = Drawing.Color.DarkSalmon e.Appointment.AllowDelete = False End If End Sub Protected Sub rsRooms_AppointmentClick(sender As Object, e As Telerik.Web.UI.SchedulerEventArgs) Handles rsRooms.AppointmentClick Dim aptId As Integer = 0 Dim reqId As Integer = 0 Dim isVTC As Boolean = False mvRequest.ActiveViewIndex = 1 pnlSelectVTS.Visible = False pnlRequest.Visible = False aptId = e.Appointment.ID hfAptId.Value = aptId reqId = e.Appointment.Attributes("intRoomScheduledId") sql = "SELECT bitVTC FROM tblRequest WHERE intRequestId = " & aptId isVTC = getData(sql).Rows(0)(0) If isVTC = True Then sql = "SELECT intRoomScheduledId FROM tblRoomScheduled WHERE intRequestId = " & aptId myDataTable = New DataTable myDataTable = getData(sql) If myDataTable.Rows.Count > 1 Then rblVTC.SelectedValue = "1" Else rblVTC.SelectedValue = "0" Else rblVTC.SelectedValue = "2" End If Dim strURL As String = String.Format("RequestDetails.aspx?apt={0}&rm={1}&dt={2}", encryptQueryString(reqId), encryptQueryString(ddlRooms.SelectedValue), encryptQueryString(e.Appointment.Start)) Page.ClientScript.RegisterStartupScript(Me.GetType(), "New Window", "window.open('" + strURL + "','','')", True) End Subfunction OnClientAppointmentMoving(sender, args) { //Get all appointments and info var appointments = sender.get_appointments(); var appointmentcount = appointments.get_count(); //Get selected appointment and its info var currentappointment = args.get_appointment(); var oldslot = currentappointment.get_timeSlot(); var list = currentappointment.get_attributes(); var ordergroup = list.getAttribute("OrderGroup"); //Selected appointment drop slot var newslot = args.get_targetSlot(); var curslot = newslot - oldslot; alert(oldslot); //handle all visiable appointments for (var i = 0; i < appointmentcount; i++) { //Get all scheduler appointments appointment = appointments.getAppointment(i); appointment.set_selected(false); templist = appointment.get_attributes(); tempordergroup = templist.getAttribute("OrderGroup"); //Work only with current appointment group if (tempordergroup == ordergroup) { //Visually demonstrate split is selected appointment.set_selected(true); //Move all selected appointments left and right by same amount //HELP HERE!!! }//end if }//end for }//end function<telerik:RadPane ID="RadPane1" runat="server" Width="480" MinWidth="100" MaxWidth="500"> <telerik:RadSlidingZone ID="SlidingZone1" runat="server" Width="22"> <telerik:RadSlidingPane ID="SlidingPane1" runat="server" Title="Add Feature(s)" Width="500px" Height="530px" DockOnOpen="false" EnableDock="true"> <div> ... ... </div> </telerik:RadSlidingPane> </telerik:RadSlidingZone></telerik:RadPane>
| .RadTreeView .rtUL .rtLI .rtUL |
| { |
| padding-left: 5px; |
| } |
| .RadTreeView .rtTop, |
| .RadTreeView .rtMid, |
| .RadTreeView .rtBot |
| { |
| padding: 0px 0 0px 0px; |
| } |
| .RadTreeView .rtPlus, |
| .RadTreeView .rtMinus |
| { |
| font-size: 0; |
| padding: 0; |
| display: -moz-inline-box; |
| display: inline-block; |
| vertical-align: top; |
| cursor: pointer; |
| margin: 6px 1px 0 -18px; |
| width: 11px; |
| height: 11px; |
| background-repeat: no-repeat; |
| } |
| .RadTreeView .rtSp |
| { |
| display: -moz-inline-box; |
| display: inline-block; |
| width: 1px; |
| height: 16px; |
| } |
| .RadTreeView .rtIn |
| { |
| margin-left: 1px; |
| padding: 4px 3px 3px 10px |
| text-decoration:none; |
| } |
protected void RadFilter1_ExpressionItemCreated(object sender, RadFilterExpressionItemCreatedEventArgs e){ var singleItem = e.Item as RadFilterSingleExpressionItem; if (singleItem != null && singleItem.IsSingleValue) { if(singleItem.InputControl is RadComboBox) { var dropDownList = singleItem.InputControl as RadComboBox; switch (singleItem.FieldName) { case "Security": dropDownList.EnableLoadOnDemand = true; dropDownList.ShowMoreResultsBox = true; dropDownList.EnableVirtualScrolling = true; dropDownList.WebServiceSettings.Method = "GetSecurityNames"; dropDownList.WebServiceSettings.Path = "DataSetPopup.aspx"; break; } } }}<rad:RadFilter runat="server" ID="RadFilter1" OnFieldEditorCreating="RadFilter1_FieldEditorCreating" OnApplyExpressions="RadFilter1_ApplyExpressions" OnExpressionItemCreated="RadFilter1_ExpressionItemCreated" ExpressionPreviewPosition="Bottom" ShowApplyButton="false" AllowFilterOnBlur="true" SettingsFormatter="BinaryFormatter"> <FieldEditors> <rad:RadFilterDropDownEditor FieldName="Currency" DataTextField="IsoCurrencyCode" DataValueField="CurrencyId" DropDownType="RadComboBox" /> <rad:RadFilterDropDownEditor FieldName="Country" DataTextField="CountryDesc" DataValueField="CountryId" DropDownType="RadComboBox"/> <rad:RadFilterDropDownEditor FieldName="Region" DataTextField="RegionDesc" DataValueField="RegionId" DropDownType="RadComboBox"/> <rad:RadFilterDropDownEditor FieldName="Security" DataTextField="Security" DataValueField="SecurityId" DropDownType="RadComboBox" /> </FieldEditors></rad:RadFilter>
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Test.aspx.vb" Inherits="eNotice.Test" %><!DOCTYPE html><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"> <title></title> </head><body> <form id="form1" runat="server"> <telerik:RadScriptManager ID="RadScriptManager1" runat="server"></telerik:RadScriptManager> <div> <telerik:RadGrid ID="RadGrid1" Skin="Metro" Width="100%" runat="server" AutoGenerateColumns="False" CellSpacing="0" GridLines="None"> <%--<MasterTableView NoMasterRecordsText="No Members Found" PageSize="25" DataKeyNames="ID">--%> <MasterTableView CommandItemDisplay="Top" NoMasterRecordsText="No Members Found" PageSize="25" DataKeyNames="ID"> <CommandItemTemplate> <div style="padding-left:5px;"> <div style="float:left; width:50%;padding-left:5px;"> <telerik:RadButton Runat="server" skin="Metro" ID="ClearFilter" Text='Clear Filter' CommandName="ClearFilter" AutoPostBack="true" /> </div> <div style="float:right;padding-right:5px;"> <telerik:RadButton Runat="server" skin="Metro" ID="lnkRefresh" Text='Refresh' CommandName="Refresh" /> </div> </div> </CommandItemTemplate> <Columns> <telerik:GridBoundColumn DataField="ID" FilterControlAltText="Filter column column" HeaderText="ID" UniqueName="column"> <ColumnValidationSettings> <ModelErrorMessage Text="" /> </ColumnValidationSettings> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="City" FilterControlAltText="Filter column1 column" HeaderText="City" UniqueName="column1"> <ColumnValidationSettings> <ModelErrorMessage Text="" /> </ColumnValidationSettings> </telerik:GridBoundColumn> </Columns> </MasterTableView><FilterMenu EnableEmbeddedScripts="False"></FilterMenu><HeaderContextMenu EnableEmbeddedScripts="False"></HeaderContextMenu> </telerik:RadGrid> </div> </form></body></html><telerik:RadAutoCompleteBox runat="server" ID="Recipient_RadAutoCompleteBox" AllowCustomEntry="true" TextSettings-SelectionMode="Single" Width="200px" DataSourceID="Recipient_SqlDataSource" DataTextField="Name" InputType="Text"> </telerik:RadAutoCompleteBox >