Questions on UI for ASP.NET AJAX Forum

2 answers

171 views

I have a RadGrid with some columns, I want to apply a default filter on one of them so that when the page loads only the filtered data is displayed. I tried putting this in the aspx page, however I always get an 'expression expected' error

    
            <MasterTableView DataKeyNames="OutageID,OutageSubject,StartDate"  CommandItemDisplay="TopAndBottom"  
        
                        FilterExpression="([OutageStatusName] LIKE '%Outstanding%')" > 
        
                        <Columns>                   
        
                            <telerik:GridHyperLinkColumn HeaderText="" DataNavigateUrlFormatString="OutageDetails.aspx?OutageID={0}"  DataNavigateUrlFields="OutageID" AllowFiltering="false"  DataTextFormatString="Edit" DataTextField="OutageID" > 
        
                                <HeaderStyle Wrap="false" /> 
        
                                <ItemStyle HorizontalAlign="Left" /> 
        
                            </telerik:GridHyperLinkColumn>    
        
                            <telerik:GridBoundColumn DataField="OutageID" HeaderText="ID" UniqueName="OutageID"> 
        
                                <ItemStyle Width="40px" /> 
        
                                <HeaderStyle Width="40px" /> 
        
                            </telerik:GridBoundColumn>                      
        
                            <telerik:GridBoundColumn DataField="ResponsibleOrganizationName" HeaderText="Resp. Org" UniqueName="ResponsibleOrganizationName"> 
        
                                <ItemStyle Width="60px" /> 
        
                                <HeaderStyle Width="60px" /> 
        
                            </telerik:GridBoundColumn> 
        
                            <telerik:GridBoundColumn DataField="OutageSubject" HeaderText="Subject" UniqueName="OutageSubject"> 
        
                                <ItemStyle Width="250px" Wrap="False" /> 
        
                            </telerik:GridBoundColumn>                 
        
                            <telerik:GridBoundColumn DataField="StartDate" HeaderText="StartDate" UniqueName="StartDate"> 
        
                            </telerik:GridBoundColumn>   
        
                            <telerik:GridBoundColumn DataField="EndDate" HeaderText="EndDate" UniqueName="EndDate"> 
        
                            </telerik:GridBoundColumn>                                                                                    
        
                            <telerik:GridHyperLinkColumn HeaderText="SMA Link" DataNavigateUrlFormatString="http://sma2/Support/TicketDetails.aspx?PNumber={0}" DataTextFormatString="{0}"  DataTextField="SMANumber" DataNavigateUrlFields="SMANumber" UniqueName="SMANumber"> 
        
                                <HeaderStyle Wrap="False" /> 
        
                                <ItemStyle HorizontalAlign="Center" /> 
        
                            </telerik:GridHyperLinkColumn>                  
        
                            <telerik:GridBoundColumn DataField="OutageStatusName" HeaderText="Status" UniqueName="OutageStatusName"  
        
                                CurrentFilterFunction="Contains" CurrentFilterValue="Outstanding"> 
        
                            </telerik:GridBoundColumn>  
        
                            <%--<telerik:GridButtonColumn HeaderText="OCS" UniqueName="OCS" ButtonType="ImageButton" ImageUrl="~/Images/send-ocs.gif" CommandName="OCS" ConfirmText="Are you sure you wish to broadcast an OCS Message?" Visible="false"></telerik:GridButtonColumn> --%> 
        
                        </Columns>

Grid

answered on 07 Jul 2008

1 answer

157 views

put value in textbox after changing combobox

I keep struggling with the following issue: In the editform of a hierarchical grid I have a combobox called ddlStatus. When the status changes into 'Accepted' an automatic mail must be sent. This is no problem.
Here's my issue: when the status changes into 'Accepted' the RadDateInput 'DateSendDataSteward' must automatically be filled with the date of today. I tried it with several codes (see my last one on row 67 to 70), but decided to post a thread on the forum.

    
                Protected Sub gvProjects_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles gvProjects.ItemCommand  
        
                    'trigger for retrieving the ProjectId  
        
                    If (e.CommandName = RadGrid.UpdateCommandName AndAlso e.Item.OwnerTableView.DataSourceID = "dsTasks") Then  
        
                        Dim TaskId As String = e.Item.OwnerTableView.Items(e.Item.ItemIndex)("TaskId").Text  
        
                        gvProjects.Controls.Add(New LiteralControl("Updated item primary key value is: " & TaskId & "<br/>"))  
        
                        If TypeOf e.Item Is GridDataItem Then  
        
                            Dim item As GridDataItem = DirectCast(e.Item, GridDataItem)  
        
                            Dim chkbxlst As CheckBoxList = DirectCast(item("TempCol").FindControl("chkTasks"), CheckBoxList)  
        
                        End If  
        
                        Dim editItem As GridEditFormItem = CType(e.Item, GridEditFormItem)  
        
                        Dim ddlStatus As RadComboBox = TryCast(FindControl("ddlStatus"), RadComboBox)  
        
                        Dim cell1 As TableCell = editItem("ddlStatus")  
        
                        Dim Status As String = (CType(cell1.Controls(0), RadComboBox)).Text  
        
                        Dim DateSendDataSteward As RadDateInput = TryCast(FindControl("DateSendDataSteward"), RadDateInput)  
        
                        Dim cellx As TableCell = editItem("DateSendDataSteward")  
        
                        Dim MailDataSteward As String = (CType(cellx.Controls(0), RadDateInput)).Text  
        
                        If Status = "Accepted" Then  
        
                            If MailDataSteward = "" Then  
        
                                Dim cell2 As TableCell = editItem("TaskDescription")  
        
                                Dim Task As String = (CType(cell2.Controls(0), TextBox)).Text  
        
                                Dim cell3 As TableCell = editItem("EstimatedReadyDate")  
        
                                Dim EstimatedReadyDate As String = (CType(cell3.Controls(0), RadDatePicker)).SelectedDate  
        
                                Dim cell4 As TableCell = editItem("UserId")  
        
                                Dim User As Integer = (CType(cell4.Controls(0), RadComboBox)).SelectedValue  
        
                                Dim sql As String = _ 
        
                            "Select UserId, Username, Name, Mailaddress " & _  
        
                            "from tblUsers " & _  
        
                                    "where UserId = '" & User & "'"  
        
                                Dim dr As SqlDataReader  
        
                                dr = DBPortal.OpenReader(sql)  
        
                                If dr.Read Then  
        
                                    Dim Name As String = dr("Name").ToString  
        
                                    Dim MailAddress As String  
        
                                    MailAddress = dr("mailaddress")  
        
                                    Dim Mail As New MailMessage  
        
                                    Mail.To.Add(MailAddress)  
        
                                    Mail.Subject = "New task" 
        
                                    Mail.Body = "Dear " & Name & "," & vbCrLf & vbCrLf & "Here's a new task for you." & vbCrLf & vbCrLf & "Taskname: " & Task & vbCrLf & "Deadline: " & EstimatedReadyDate & vbCrLf & vbCrLf & "Ga naar www.DataPlanner.nl. "  
        
                                    Try  
        
                                        Dim client As New SmtpClient()  
        
                                        client.Send(Mail)  
        
                                    Catch ex As Exception  
        
                                        While Not (ex.InnerException Is Nothing)  
        
                                            exex = ex.InnerException  
        
                                        End While  
        
                                    End Try  
        
                                End If  
        
                                Dim Today As Date  
        
                                Today = Now()  
        
                                Dim editItemx As GridEditFormItem = CType(e.Item, GridEditFormItem)  
        
                                editItemx("DateSendDataSteward").Text = Today 
        
                            End If  
        
                        End If  
        
                        Dim parentItem As GridDataItem = e.Item.OwnerTableView.ParentItem  
        
                        If (Not parentItem Is Nothing) Then  
        
                            gvProjects.Controls.Add(New LiteralControl("Parent item primary field value is: " & _  
        
                            CType(parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("ProjectId"), String)))  
        
                        End If  
        
                    End If  
        
                    If (e.CommandName = RadGrid.InitInsertCommandName Or e.CommandName = RadGrid.PerformInsertCommandName) Then  
        
                        'If (e.Item.OwnerTableView.DataSourceID = "dsTasks") Then  
        
                        Dim parentItem = CType(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        
                        If (Not parentItem Is Nothing) Then  
        
                            gvProjects.Controls.Add(New LiteralControl("Parent item primary field value is: " & _  
        
                            CType(parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("ProjectId"), String)))  
        
                        End If  
        
                        'End If  
        
                    End If  
        
                End Sub

Grid

answered on 07 Jul 2008

3 answers

211 views

Exporting Filtered Rows / DetailTables

I'm having a little trouble getting only the rows I've filtered to show up when I ExportToPDF.

I have a 3 deep table. The top 2 are filterable.
I have some states, the offices qualified in those states, the people in those offices qualified in those states

When I filter only by state, it gives the desired result. When I filter by the offices, it still shows ALL the offices for that state when I export.

I'm at a loss of what to try next...
Here's my ASCX and CS (relevant code)

    
            <telerik:RadGrid ID="grdState" runat="server" AutoGenerateColumns="False"  
        
                GridLines="None" ondetailtabledatabind="grdState_DetailTableDataBind"  
        
                onneeddatasource="grdState_NeedDataSource" AllowFilteringByColumn="True"  
        
                Skin="WebBlue" PageSize="5000"> 
        
                <ExportSettings FileName="StateBranchReport"  
        
                    OpenInNewWindow="True" IgnorePaging="True"> 
        
                </ExportSettings> 
        
            <MasterTableView datakeynames="LoanSchemaID" > 
        
                <DetailTables> 
        
                    <telerik:GridTableView runat="server" Name="grdBranch" DataKeyNames="BranchID"  
        
                        AllowFilteringByColumn="True" > 
        
                        <DetailTables> 
        
                            <telerik:GridTableView runat="server" Name="grdEmployees" DataKeyName="EmployeeInfo" 
        
                                AllowFilteringByColumn="False"> 
        
                                <RowIndicatorColumn> 
        
                                    <HeaderStyle Width="20px" /> 
        
                                </RowIndicatorColumn> 
        
                                <ExpandCollapseColumn> 
        
                                    <HeaderStyle Width="20px" /> 
        
                                </ExpandCollapseColumn> 
        
                                <Columns> 
        
                                    <telerik:GridTemplateColumn HeaderText="Employee Info"  
        
                                        UniqueName="employeeinfo" DataField="EmployeeInfo"> 
        
                                        <ItemTemplate> 
        
                                            <asp:Label ID="lblEmpInfo" runat="server" Text='<%# Eval("EmployeeInfo") %>'></asp:Label> 
        
                                        </ItemTemplate> 
        
                                    </telerik:GridTemplateColumn> 
        
                                </Columns> 
        
                            </telerik:GridTableView> 
        
                        </DetailTables> 
        
                        <RowIndicatorColumn> 
        
                            <HeaderStyle Width="20px" /> 
        
                        </RowIndicatorColumn> 
        
                        <ExpandCollapseColumn Visible="True"> 
        
                            <HeaderStyle Width="20px" /> 
        
                        </ExpandCollapseColumn> 
        
                        <Columns> 
        
                            <telerik:GridTemplateColumn HeaderText="Branch" UniqueName="branch"  
        
                                AutoPostBackOnFilter="True" DataField="BranchName"> 
        
                                <ItemTemplate> 
        
                                    <asp:Label ID="lblBranchName" runat="server" Text='<%# Eval("BranchName") %>'></asp:Label> 
        
                                </ItemTemplate> 
        
                            </telerik:GridTemplateColumn> 
        
                        </Columns> 
        
                    </telerik:GridTableView> 
        
                </DetailTables> 
        
            <RowIndicatorColumn> 
        
            <HeaderStyle Width="20px"></HeaderStyle> 
        
            </RowIndicatorColumn> 
        
            <ExpandCollapseColumn visible="True"> 
        
            <HeaderStyle Width="20px"></HeaderStyle> 
        
            </ExpandCollapseColumn> 
        
                <Columns> 
        
                    <telerik:GridTemplateColumn HeaderText="State" UniqueName="state"  
        
                        AutoPostBackOnFilter="True" DataField="State"> 
        
                        <ItemTemplate> 
        
                            <asp:Label ID="lblState" runat="server" Text='<%# Eval("State") %>'></asp:Label> 
        
                        </ItemTemplate> 
        
                    </telerik:GridTemplateColumn> 
        
                </Columns> 
        
            </MasterTableView> 
        
            </telerik:RadGrid> 
        
            <telerik:RadAjaxPanel ID="RadAjaxPanel1" runat="server" Height="200px" Width="300px" ClientEvents-OnRequestStart="conditionalPostback"> 
        
            <asp:Button ID="cmdPDF" runat="server" onclick="cmdPDF_Click" Text="Get PDF" /> 
        
            </telerik:RadAjaxPanel> 
        
            <telerik:RadScriptBlock ID="RadScriptBlock1" runat="server"  
        
                EnableViewState="False"> 
        
             <script type="text/javascript">  
        
                function conditionalPostback(sender, args) 
        
                {     
        
                    if(args.EventTarget == "<%= cmdPDF.UniqueID %>") 
        
                    { 
        
                        args.EnableAjax = false; 
        
                    } 
        
                } 
        
            </script> 
        
            </telerik:RadScriptBlock> 
        
            <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server"> 
        
                <AjaxSettings> 
        
                    <telerik:AjaxSetting AjaxControlID="grdCompanyTypes"> 
        
                        <UpdatedControls> 
        
                            <telerik:AjaxUpdatedControl ControlID="grdCompanyTypes" /> 
        
                        </UpdatedControls> 
        
                    </telerik:AjaxSetting> 
        
                </AjaxSettings> 
        
            </telerik:RadAjaxManager>

    
                    protected void grdState_NeedDataSource(object source, Telerik.Web.UI.GridNeedDataSourceEventArgs e) 
        
                    { 
        
                        DataSet ds = new DataSet(); 
        
                        ds = Funcs.Create_DataSet("SELECT LoanSchemaID, State FROM gsc_aplus_LoanSchema WHERE Deleted = 0"); 
        
                        grdState.DataSource = ds; 
        
                    } 
        
                    protected void grdState_DetailTableDataBind(object source, Telerik.Web.UI.GridDetailTableDataBindEventArgs e) 
        
                    { 
        
                        switch (e.DetailTableView.Name) 
        
                        { 
        
                            case "grdBranch": 
        
                                string LoanSchemaID = e.DetailTableView.ParentItem.GetDataKeyValue("LoanSchemaID").ToString(); 
        
                                string SQL = "SELECT DISTINCT BO.BranchID, BO.BranchName from gsc_aplus_branchoffices as BO" 
        
                                            + " INNER JOIN gsc_aplus_employees as E on BO.BranchID = E.BranchOfficeID" 
        
                                            + " INNER JOIN gsc_aplus_statesauthorizedin AS SAI ON SAI.EmployeeID = E.EmployeeID" 
        
                                            + " WHERE BO.Deleted = 0" 
        
                                            + " AND E.Deleted = 0" 
        
                                            + " AND E.Position < 100" 
        
                                            + " AND SAI.LoanSchemaID = " + LoanSchemaID 
        
                                            + " ORDER BY BranchName"; 
        
                                e.DetailTableView.DataSource = Funcs.Create_DataSet(SQL); 
        
                                break; 
        
                            case "grdEmployees": 
        
                                string LoanSchemaID2 = e.DetailTableView.ParentItem.OwnerTableView.ParentItem.GetDataKeyValue("LoanSchemaID").ToString(); 
        
                                string BranchID = e.DetailTableView.ParentItem.GetDataKeyValue("BranchID").ToString(); 
        
                                string SQL2 = "SELECT Convert(varchar, E.EmployeeID) + ' - ' + E.FirstName + ' ' + E.LastName AS EmployeeInfo FROM GSC_aplus_employees as E " 
        
                                            + " INNER JOIN gsc_aplus_statesauthorizedin AS SAI ON SAI.EmployeeID = E.EmployeeID" 
        
                                            + " WHERE E.Deleted = 0" 
        
                                            + " AND E.Position < 100" 
        
                                            + " AND E.BranchOfficeID = " + BranchID 
        
                                            + " AND SAI.LoanSchemaID = " + LoanSchemaID2 
        
                                            + " ORDER BY E.LastName"; 
        
                                e.DetailTableView.DataSource = Funcs.Create_DataSet(SQL2); 
        
                                break; 
        
                        } 
        
                    } 
        
                    protected void cmdPDF_Click(object sender, EventArgs e) 
        
                    { 
        
                        grdState.MasterTableView.HierarchyDefaultExpanded = true; 
        
                        foreach (GridTableView gtv in grdState.MasterTableView.DetailTables) 
        
                        { 
        
                            gtv.HierarchyDefaultExpanded = true; 
        
                        } 
        
                        grdState.MasterTableView.ExportToPdf();        
        
                    }

I've tried setting the line
gtv.HierarchyDefaultExpanded = true;
to false (gtv.HierarchyDefaultExpanded = false; ). I've tried alternating with IgnorePaging between true and false. When IgnorePaging is false it, essentially, displays exactly what the screen is showing. If I filter items out and expand them, then it prints what I want, but it doesn't expand the tables automatically, even when I have the DefaultExpand set to true.

I've no idea what to try, I haven't noticed any examples/sample code that demonstrate exporting multi-tier grids.

Any advice on what to try?

Grid

answered on 07 Jul 2008

3 answers

230 views

[Solved] Error with RadGrid export when bound to empty dataset

Hello,

I use ExportToExcel feature of RadGrid. I use business objects as data source, and if no data is available, export fails. This occurs only if paging is enabled in the ObjectDataSource. Please check my code. Should I create a support ticket?

Best regards, Oleg.

Windows XP SP2
RadGrid For ASP.NET AJAX 2008.1.619.35
Visual Studio 2008
.NET 3.5

Default.aspx.cs

using System;

public partial class _Default : System.Web.UI.Page 

{

    protected void Page_Load(object sender, EventArgs e)
    {

    }
    protected void Button1_Click(object sender, EventArgs e)
    {
      RadGrid1.MasterTableView.ExportToExcel();
    }
}

Class1.cs

public class Class1
{
public Transaction[] GetData(int offset, int count)
{
return new Transaction[0];
}

public int SelectCount()
{
return 0;
}
}

public class Transaction
{
public string Name { get; set; }
public int Amount { get; set; }
}

Default.aspx

<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Default" %>

<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<telerik:RadScriptManager ID="RadScriptManager1" runat="server">
</telerik:RadScriptManager>
<telerik:RadGrid ID="RadGrid1" runat="server" AllowPaging="True" DataSourceID="ObjectDataSource1"
GridLines="None">
<ExportSettings ExportOnlyData="True" IgnorePaging="True">
</ExportSettings>
<MasterTableView AutoGenerateColumns="False" DataSourceID="ObjectDataSource1">
<RowIndicatorColumn>
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn>
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="Name" HeaderText="Name" SortExpression="Name"
UniqueName="Name">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Amount" DataType="System.Int32" HeaderText="Amount"
SortExpression="Amount" UniqueName="Amount">
</telerik:GridBoundColumn>
</Columns>
</MasterTableView>
</telerik:RadGrid>
<asp:ObjectDataSource ID="ObjectDataSource1" runat="server" SelectMethod="GetData"
EnablePaging="true" SelectCountMethod="SelectCount" StartRowIndexParameterName="offset"
MaximumRowsParameterName="count" TypeName="Class1"></asp:ObjectDataSource>
<asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="Button" />
</form>
</body>
</html>

Grid

answered on 07 Jul 2008

3 answers

213 views

AlternatingItemStyle with SelectedItemStyle

I've defined an alternating item style as well as a selected item style. They both work fine, except that if I select an item (either a normal style one or an alternating style one) and then de-select it, the background color returns to white rather than the color i've defined in my style tags. How can I fix this?

Grid

answered on 07 Jul 2008

3 answers

161 views

Integrating RAD Editor with WSS or MOSS WIKI

Hello,

Is it possible to replace the standard Wiki editor with Telerik's RAD Editor control within either MOSS Wiki library or WIKI site? What about the MOSS Blogs, has anyone successfully replaced the standard editor control with RAD Editor? If so to either of these, do you have some examples of how this was achieved?

Thanks very much

Tim

PS I realised too late that my title says MOSS / WSS where in fact my environment is MOSS not WSS i.e. my question relates to MOSS not WSS

Sharepoint Integration

answered on 07 Jul 2008

2 answers

62 views

[Solved] DragToSelect highlight box misplaced

I have a RadGrid with client-side EnableDragToSelectRows set to true. My grid also uses drop-down lists for filtering as demonstrated in the RadGrid docs. When I am dragging to select rows, the grey/blue box that appears to highlight what will be selected is misplaced. If I start highlighting from the top row of the grid and drag down, the bottom edge of the highlight box is always about 20 pixels above where my mouse pointer is. I know that the functionality is to start the box at the top of the first row selected; it looks like the top edge of my box is also slightly too high also. Is this a known issue? Is there any way to adjust the positioning of the box?

Grid

answered on 07 Jul 2008

3 answers

222 views

mouseOver

Is there a way to use tabstrip and multipage to change page on mouseOver rather than OnClick to achieve an effect similar to that on the current Microsoft home page?

TabStrip

answered on 07 Jul 2008

4 answers

214 views

[Solved] Using RadComponents(ajax) in MOSS developement

Hi

I am quite new to MOSS development. I got Trial version of RadControls with ajax working in MOSS2007. I made web part and added components to updatepanel. And after that I added updatepanel with Controls.add(myUpdatepanel). It worked ok, but I wonder is there quicker way to do ajax in WSS? What is common/best practice?

Is it workable solution to use SharePoint designer to add controls directly to SharePoint site?

I tried to add RadControls to Smartpart, what is web part for displaying ajax-components. But it failed with error:

Details: (0): error CS1705: Assembly 'Telerik.Web.UI, Version=2008.1.515.35, Culture=neutral, PublicKeyToken=121fae78165ba3d4' uses 'System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35' which has a higher version than referenced assembly 'System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'

When I tried to reference the 3.5 version, SharePoint didn’t like it and showed error page.

SmartPart with regular ajax components worked. But I’d very much like to use RadComponents. Is there quicker way to do RadComponents(with ajax) than program them manually to web part.

Sharepoint Integration

answered on 07 Jul 2008

1 answer

96 views

Splitter related Javascript bug in tht latest tools

Hi Guys,

In our application we have a radsplitter with a sliding pane, inside this we have a tree control with context menus. Now everything seemed to work fine until i upgraded the telerik tools to version 2008.1.619.35.

I created a sample app using one of your demos and was able to reproduce the error successfully( only using the latest telerik tools). In order to reproduce the error please run the following code and then expand the sliding zone, right click on the tree node and dock the sliding pane by clicking on the pin.

<telerik:radsplitter id="RadSplitter1" Runat="server" Width="100%" Height="500px" Skin="Web20">
<telerik:RadPane id="rdpTreeView" runat="server" Index="0" Width="22" BackColor="Transparent" >
<telerik:RadSlidingZone id="SlidingZone1" runat="server" width="22" BackColor="Transparent" >
<telerik:RadSlidingPane id="RadSlidingPane1" title="TREE" runat="server" width="300" MinWidth="200" BackColor="Transparent">
<asp:Panel ID="aspTreePanel" runat="server" >
<telerik:RadTreeView ID="RTV" Runat="server" Skin="Outlook" >
<ContextMenus>
<telerik:RadTreeViewContextMenu Skin="Outlook" ID="MainContextMenu" runat="server">
<Items>
<telerik:RadMenuItem Value="Copy" Text="Copy ..." ></telerik:RadMenuItem>
<telerik:RadMenuItem Value="Rename" Text="Rename ..." ></telerik:RadMenuItem>
<telerik:RadMenuItem Value="NewFolder" Text="New Folder" ></telerik:RadMenuItem>
</Items>
</telerik:RadTreeViewContextMenu>
</ContextMenus>
<Nodes>
<telerik:RadTreeNode Text="Personal Folders" Expanded="true">
<Nodes>
<telerik:RadTreeNode Text="Deleted Items (79)" ></telerik:RadTreeNode>
<telerik:RadTreeNode Text="Drafts (2)" ></telerik:RadTreeNode>
<telerik:RadTreeNode Text="Inbox (23)" ></telerik:RadTreeNode>
<telerik:RadTreeNode Text="Junk Email (34)" ></telerik:RadTreeNode>
</Nodes>
</telerik:RadTreeNode>
</Nodes>
</telerik:RadTreeView>
</asp:Panel>
</telerik:RadSlidingPane>
</telerik:RadSlidingZone>
</telerik:RadPane>
<telerik:RadSplitBar id="RadSplitbar1_1" runat="server"/>
<telerik:RadPane id="rdpDetails" runat="server" >
<asp:Panel ID="aspRightPanel" runat="server" ></asp:Panel>
</telerik:RadPane>
</telerik:radsplitter>

Thankx in advance,

lasa.

Splitter

answered on 07 Jul 2008

	Protected Sub gvProjects_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles gvProjects.ItemCommand
	'trigger for retrieving the ProjectId
	If (e.CommandName = RadGrid.UpdateCommandName AndAlso e.Item.OwnerTableView.DataSourceID = "dsTasks") Then
	Dim TaskId As String = e.Item.OwnerTableView.Items(e.Item.ItemIndex)("TaskId").Text
	gvProjects.Controls.Add(New LiteralControl("Updated item primary key value is: " & TaskId & "<br/>"))


	If TypeOf e.Item Is GridDataItem Then
	Dim item As GridDataItem = DirectCast(e.Item, GridDataItem)
	Dim chkbxlst As CheckBoxList = DirectCast(item("TempCol").FindControl("chkTasks"), CheckBoxList)
	End If

	Dim editItem As GridEditFormItem = CType(e.Item, GridEditFormItem)

	Dim ddlStatus As RadComboBox = TryCast(FindControl("ddlStatus"), RadComboBox)
	Dim cell1 As TableCell = editItem("ddlStatus")
	Dim Status As String = (CType(cell1.Controls(0), RadComboBox)).Text

	Dim DateSendDataSteward As RadDateInput = TryCast(FindControl("DateSendDataSteward"), RadDateInput)
	Dim cellx As TableCell = editItem("DateSendDataSteward")
	Dim MailDataSteward As String = (CType(cellx.Controls(0), RadDateInput)).Text




	If Status = "Accepted" Then
	If MailDataSteward = "" Then

	Dim cell2 As TableCell = editItem("TaskDescription")
	Dim Task As String = (CType(cell2.Controls(0), TextBox)).Text
	Dim cell3 As TableCell = editItem("EstimatedReadyDate")
	Dim EstimatedReadyDate As String = (CType(cell3.Controls(0), RadDatePicker)).SelectedDate
	Dim cell4 As TableCell = editItem("UserId")
	Dim User As Integer = (CType(cell4.Controls(0), RadComboBox)).SelectedValue


	Dim sql As String = _
	"Select UserId, Username, Name, Mailaddress " & _
	"from tblUsers " & _
	"where UserId = '" & User & "'"
	Dim dr As SqlDataReader
	dr = DBPortal.OpenReader(sql)
	If dr.Read Then
	Dim Name As String = dr("Name").ToString
	Dim MailAddress As String


	MailAddress = dr("mailaddress")

	Dim Mail As New MailMessage
	Mail.To.Add(MailAddress)

	Mail.Subject = "New task"
	Mail.Body = "Dear " & Name & "," & vbCrLf & vbCrLf & "Here's a new task for you." & vbCrLf & vbCrLf & "Taskname: " & Task & vbCrLf & "Deadline: " & EstimatedReadyDate & vbCrLf & vbCrLf & "Ga naar www.DataPlanner.nl. "

	Try
	Dim client As New SmtpClient()
	client.Send(Mail)
	Catch ex As Exception

	While Not (ex.InnerException Is Nothing)
	exex = ex.InnerException
	End While
	End Try
	End If
	Dim Today As Date
	Today = Now()
	Dim editItemx As GridEditFormItem = CType(e.Item, GridEditFormItem)

	editItemx("DateSendDataSteward").Text = Today



	End If

	End If

	Dim parentItem As GridDataItem = e.Item.OwnerTableView.ParentItem

	If (Not parentItem Is Nothing) Then
	gvProjects.Controls.Add(New LiteralControl("Parent item primary field value is: " & _
	CType(parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("ProjectId"), String)))
	End If


	End If
	If (e.CommandName = RadGrid.InitInsertCommandName Or e.CommandName = RadGrid.PerformInsertCommandName) Then
	'If (e.Item.OwnerTableView.DataSourceID = "dsTasks") Then
	Dim parentItem = CType(e.Item.OwnerTableView.ParentItem, GridDataItem)

	If (Not parentItem Is Nothing) Then
	gvProjects.Controls.Add(New LiteralControl("Parent item primary field value is: " & _
	CType(parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("ProjectId"), String)))
	End If
	'End If
	End If


	End Sub