or
| protected void calAfleverDatum_PreRender(object sender, EventArgs e) |
| { |
| DateTime myDate = DateTime.Today; |
| string sToolTip; |
| //-- Set Exception Days -- |
| foreach (DeliveryCalendar_Exception myException in lCal_Exception) |
| { |
| RadCalendarDay myDay = new RadCalendarDay(); |
| myDay.Date = myException.ExceptionDate; |
| myDay.IsSelectable = myException.IsDeliveryDay; |
| myDay.IsDisabled = !myException.IsDeliveryDay; |
| if (myException.IsDeliveryDay) |
| myDay.ItemStyle.BackColor = System.Drawing.ColorTranslator.FromHtml("#a2d4a2"); |
| else |
| myDay.ItemStyle.BackColor = System.Drawing.ColorTranslator.FromHtml("#e4a2a4"); |
| sToolTip = myDate.ToString("dddd, MMMM d, yyyy"); |
| if (myException.Description.Length > 0) sToolTip += "\n\n" + myException.Description; |
| if (myException.TimeFrom != null && myException.TimeTo != null) |
| sToolTip += "\n\nVan: " + myException.TimeFrom.Value.ToShortTimeString() + " Tot: " + myException.TimeTo.Value.ToShortTimeString(); |
| myDay.ToolTip = sToolTip; |
| rdpAfleverDatum.Calendar.SpecialDays.Add(myDay); |
| } |
| //-- Set Standard Days -- |
| while (myDate.DayOfWeek != DayOfWeek.Monday) myDate = myDate.AddDays(1); |
| foreach (DeliveryCalendar_Standard myStandard in lCal_Standard) |
| { |
| RadCalendarDay myDay = new RadCalendarDay(); |
| myDay.Date = myDate; |
| myDay.IsSelectable = myStandard.IsDeliveryDay; |
| myDay.IsDisabled = !myStandard.IsDeliveryDay; |
| myDay.Repeatable = Telerik.Web.UI.Calendar.RecurringEvents.Week; |
| if (myStandard.IsDeliveryDay) |
| myDay.ItemStyle.BackColor = System.Drawing.ColorTranslator.FromHtml("#a2d4a2"); |
| else |
| myDay.ItemStyle.BackColor = System.Drawing.ColorTranslator.FromHtml("#e4a2a4"); |
| sToolTip = myDate.ToString("dddd, MMMM d, yyyy"); |
| if (myStandard.TimeFrom != null && myStandard.TimeTo != null) |
| sToolTip += "\n\nVan: " + myStandard.TimeFrom.Value.ToShortTimeString() + " Tot: " + myStandard.TimeTo.Value.ToShortTimeString(); |
| myDay.ToolTip = sToolTip; |
| rdpAfleverDatum.Calendar.SpecialDays.Add(myDay); |
| myDate = myDate.AddDays(1); |
| } |
| } |
| Protected Sub radGrid_Cases_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) |
| For Each cmdItem As GridCommandItem In radGrid_Cases.MasterTableView.GetItems(GridItemType.CommandItem) |
| Dim rdtlbr As RadToolBar = DirectCast(cmdItem.FindControl("rtb_Commands"), RadToolBar) |
| rdtlbr.FindItemByText("Edit Case").Enabled = True |
| rdtlbr.FindItemByText("Delete Case").Enabled = True |
| rdtlbr.FindItemByText("Print Case").Enabled = True |
| rdtlbr.FindItemByText("Email Case").Enabled = True |
| rdtlbr.FindItemByText("Edit Payments").Enabled = True |
| Next |
| End Sub |
| Public Sub DisableGridCommandButtons() |
| For Each cmdItem As GridCommandItem In radGrid_Cases.MasterTableView.GetItems(GridItemType.CommandItem) |
| Dim rdtlbr As RadToolBar = DirectCast(cmdItem.FindControl("rtb_Commands"), RadToolBar) |
| rdtlbr.FindItemByText("Edit Case").Enabled = False |
| rdtlbr.FindItemByText("Delete Case").Enabled = False |
| rdtlbr.FindItemByText("Print Case").Enabled = False |
| rdtlbr.FindItemByText("Email Case").Enabled = False |
| rdtlbr.FindItemByText("Edit Payments").Enabled = False |
| Next |
| End Sub |
| <telerik:RadListView ID="rlv" OnNeedDataSource="rlv_NeedDataSource" ItemPlaceholderID="ProductItemContainer" runat="server"> |
| <LayoutTemplate> |
| <fieldset> |
| <legend>Parent Contacts</legend> |
| <table cellpadding="0" cellspacing="0" class="tblDisplay" width="auto"> |
| <tr> |
| <td>Name</td> |
| <td>Relation</td> |
| <td>Phone</td> |
| <td>Work #</td> |
| <td>Cell #</td> |
| </tr> |
| <asp:PlaceHolder ID="ProductItemContainer" runat="server" /> |
| </table> |
| </fieldset> |
| </LayoutTemplate> |
| <ItemTemplate> |
| <tr> |
| <td><%#DataBinder.Eval(Container.DataItem, "FullName")%>"</td> |
| <td><%#DataBinder.Eval(Container.DataItem, "RelationDesc")%>"</td> |
| <td><%#DataBinder.Eval(Container.DataItem, "Phone")%>"</td> |
| <td><%#DataBinder.Eval(Container.DataItem, "WorkPhone")%>"</td> |
| <td><%#DataBinder.Eval(Container.DataItem, "CellPhone")%>"</td> |
| </tr> |
| </ItemTemplate> |
| </telerik:RadListView> |
| Protected Sub rlv_NeedDataSource(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadListViewNeedDataSourceEventArgs) Handles rlv.NeedDataSource |
| Dim sqlDR As SqlDataReader |
| sqlDR = ObjectTest.List() |
| rlv.DataSource = sqlDR |
| End Sub |
Dim
amount As RadNumericTextBox = Me.PreviousPage.FindControl("txAmount")