Questions on UI for ASP.NET AJAX Forum

110,766 questions

2 answers

55 views

I have a RadGrid with a popup Editing template for adds and inserts. The template had RadComboboxes with custom validators.

The original code for insert mode was this. (This works.)
var editForm = $find("<%=RadGridSys.ClientID%>").get_masterTableView().get_insertItem();
var combo = $telerik.findControl(editForm, "ddlService");
args.IsValid = false;
if (combo != null)
if (combo.get_value() != "-1" && combo.get_value() != "")
args.IsValid = true;

How do I detect non-Telerik controls within a RadGrid template? (Are these techniques for Telerik only?)

Grid

answered on 12 Dec 2012

3 answers

376 views

Add Attributes to Nodes?

Hi,

I am binding RadTreeView dynamically like this ..

Dim siteData As New List(Of TreeViewCheckbox)()

tvChkSearchResult.Attributes.Clear()

If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then

siteData.Add(New TreeViewCheckbox(1, 0, "Select All"))

Dim i As Integer = 0

Do While (i < dt.Rows.Count)

Dim row As DataRow = dt.Rows(i)

Dim srColumn As String = row(searchedColumn)

i = (i + 1)

siteData.Add(New TreeViewCheckbox(i + 1, 1, srColumn))

Loop

End If

tvChkSearchResult.DataTextField = "Text"

tvChkSearchResult.DataFieldID = "ID"

tvChkSearchResult.DataFieldParentID = "ParentID"

tvChkSearchResult.DataSource = siteData

tvChkSearchResult.CausesValidation = False

tvChkSearchResult.DataBind()

Here TreeViewCheckbox is my class is defined like this ..

Public Class TreeViewCheckbox

Private _text As String

Private _id As Integer

Private _parentId As Integer

Public Property Text() As String

Get

Return _text

End Get

Set(ByVal value As String)

_text = value

End Set

End Property

Public Property ID() As Integer

Get

Return _id

End Get

Set(ByVal value As Integer)

_id = value

End Set

End Property

Public Property ParentID() As Integer

Get

Return _parentId

End Get

Set(ByVal value As Integer)

_parentId = value

End Set

End Property

Public Sub New(ByVal id As Integer, ByVal parentId As Integer, ByVal text As String)

_id = id

_parentId = parentId

_text = text

End Sub

End Class

How can I add attributes to every node ? please help me on this..

Thanks in advance..

TreeView

answered on 12 Dec 2012

3 answers

515 views

change RadWindow background color programmably

Can anyone tell me how to change RadWindow background and frame color programmably without using skin customization?

Window

answered on 12 Dec 2012

1 answer

86 views

Radgrid problem

Hi

I have a radgrid using editmode popup.
when no record in grid(data source is empty) and click Inset new records ,the grid is not visible, only a single line
even I use OnNeedDatasourse event and write the code to fill grid from SQL inside the event But not work!
Please help me

<telerik:RadGrid ID="RadGrid3" runat="server" AutoGenerateEditColumn="True" ShowFooter="true"

GridLines="None" AllowAutomaticUpdates="True" AllowAutomaticDeletes="True"

AllowAutomaticInserts="True" OnItemDeleted="RadGrid2_ItemDeleted"

OnItemInserted="RadGrid2_ItemInserted"

OnItemUpdated="RadGrid2_ItemUpdated" AutoGenerateDeleteColumn="True"

Skin="Office2007"

AllowSorting="True" AutoGenerateColumns="False"

ShowStatusBar="True" onitemcommand="RadGrid3_ItemCommand"

oninsertcommand="RadGrid3_InsertCommand"

onitemdatabound="RadGrid3_ItemDataBound"

onselectedindexchanged="RadGrid3_SelectedIndexChanged"

ondatabound="RadGrid3_DataBound" onupdatecommand="RadGrid3_UpdateCommand" onneeddatasource="RadGrid3_NeedDataSource"

DataSourceID="SqlDataSource3" Enabled="False"

öndatabinding="RadGrid3_DataBinding">

<ClientSettings EnablePostBackOnRowClick="True">

<Selecting AllowRowSelect="True" />

<ClientEvents önRowDblClick="RowDblClick"></ClientEvents>

</ClientSettings>

<MasterTableView CommandItemDisplay="Top" EditMode="PopUp"

DataKeyNames="WorkID" DataSourceID="SqlDataSource3" >

<CommandItemSettings AddNewRecordText="Insert" RefreshText="Refresh" />

<Columns>

<telerik:GridBoundColumn DataField="MachinaryMainCode"

HeaderText="MachinaryMainCode" SortExpression="MachinaryMainCode"

UniqueName="MachinaryMainCode" Visible="False">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="UserDate" DataType="System.DateTime"

HeaderText="UserDate" SortExpression="UserDate"

UniqueName="UserDate" Visible="False">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="WorkDuration" DataType="System.Int32"

HeaderText="time" SortExpression="WorkDuration"

UniqueName="WorkDuration">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="WorkID" DataType="System.Int32"

HeaderText="WorkID" SortExpression="WorkID"

UniqueName="WorkID" ReadOnly="True" Visible="False">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="URID"

HeaderText="URID" SortExpression="URID"

UniqueName="URID" DataType="System.Int32" ReadOnly="True" Visible="False">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="UnUsaReason"

HeaderText="UnUsaReason" SortExpression="UnUsaReason"

UniqueName="UnUsaReason">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="USID" DataType="System.Int32"

HeaderText="USID" SortExpression="USID"

UniqueName="USID" ReadOnly="True" Visible="False">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="UsageName"

HeaderText="UsageName" SortExpression="UsageName"

UniqueName="UsageName">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="StatusID" DataType="System.Int32"

HeaderText="StatusID" ReadOnly="True" SortExpression="StatusID"

UniqueName="StatusID" Visible="False">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="StatusName" HeaderText="StatusName"

SortExpression="StatusName" UniqueName="StatusName">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="EPID" DataType="System.Int32"

HeaderText="EPID" ReadOnly="True" SortExpression="EPID" UniqueName="EPID"

Visible="False">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="EquipmentName" HeaderText="EquipmentName"

SortExpression="EquipmentName" UniqueName="EquipmentName">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="ARID" DataType="System.Int32"

HeaderText="ARID" ReadOnly="True" SortExpression="ARID" UniqueName="ARID"

Visible="False">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn DataField="AreaName" HeaderText="AreaName"

SortExpression="AreaName" UniqueName="AreaName">

</telerik:GridBoundColumn>

</tr>

</table>

<table style="width: 100%">

<tr>

</tr>

<tr>

<td align="right">

<asp:Button ID="Button1" Text='<%# (Container is GridEditFormInsertItem) ? "Insert" : "Refresh" %>'

CommandName='<%# (Container is GridEditFormInsertItem) ? "Insert" : "Update" %>'

runat="server" ValidationGroup="ValidationGroup" >

</asp:Button>

<asp:Button ID="Button2" Text="Cancel" runat="server" CausesValidation="False" CommandName="Cancel">

</asp:Button>

</td>

</tr>

</table>

</FormTemplate>

<PopUpSettings Modal="True" />

</EditFormSettings>

</MasterTableView>

<PagerStyle Mode="NextPrevAndNumeric"></PagerStyle>

</telerik:RadGrid>

<asp:SqlDataSource ID="SqlDataSource3" runat="server"

ConnectionString="<%$ ConnectionStrings:CMMSConnectionString2 %>"

SelectCommand="SELECT ML.MachinaryMainCode, WI.UserDate, WI.WorkDuration, WI.WorkID, UR.ID AS URID, UR.UnUsaReason, US.ID AS USID, US.UsageName, MS.StatusID, MS.StatusName, EP.ID AS EPID, EP.EquipmentName, Ar.ID AS ARID, Ar.AreaName, WI.WorkKilometer, CN.ContractorID, CN.CompanyName, CN.Name + ' ' + CN.Family AS Name, WI.UnUsaReasonID, CN.ContractorType, WI.DisciplineID, Discipline.DisciplineName FROM Discipline RIGHT OUTER JOIN WorkInfo AS WI ON Discipline.ID = WI.DisciplineID RIGHT OUTER JOIN MachinList AS ML LEFT OUTER JOIN MachineryName AS MN ON ML.MachinaryNameID = MN.ID LEFT OUTER JOIN MachineryModel AS MM ON ML.MachinaryModelID = MM.ID LEFT OUTER JOIN MachineryType AS MT ON ML.MachinaryTypeID = MT.ID ON WI.MachinID = ML.ID LEFT OUTER JOIN UnUsaReason AS UR ON WI.UnUsaReasonID = UR.ID LEFT OUTER JOIN UsageShop AS US ON WI.UsageShopID = US.ID LEFT OUTER JOIN MachinStatus AS MS ON WI.StatusID = MS.StatusID LEFT OUTER JOIN Equipment AS EP ON WI.EquipmentID = EP.ID LEFT OUTER JOIN Area AS Ar ON WI.AreaID = Ar.ID LEFT OUTER JOIN Contractor AS CN ON WI.ContractorID = CN.ContractorID WHERE (ML.ID = @ID) AND (WI.UserDate = @UserDate or WI.UserDate is null )"

onselected="SqlDataSource3_Selected">

<SelectParameters>

<asp:ControlParameter ControlID="RadGrid1" Name="ID"

PropertyName="SelectedValues['ID']" />

<asp:ControlParameter ControlID="DatePicker1" Name="UserDate"

PropertyName="Date" Type="DateTime" />

</SelectParameters>

</asp:SqlDataSource>

.

Grid

answered on 12 Dec 2012

1 answer

168 views

radgrid edit form template weird display issues

I have a radgrid that uses edit form templates. I open the grid and have all the fields in edit mode and hide the actual item row, to show only the edit item templates. I use a dropdown and textbox to have them choose a distributor and the # of records. In testing I generally use 10 #'s. When the button is clicked and the grid is populated. This form is used almost in the way that access forms are used, so they can input lots of records at once without having to click submit/add new over and over.

I am having an issue with the actual template itself, sometimes the fields go into weird positions and do not line up like the others. This can occur randomly but generally occurs after I click save and usually only occurs on the second to last record.

Anyone have ideas why this might occur? Would it be better to use a custom user template instead (can I still have this functionality with that)?

I will post my code below:
aspx:

<%@ Page Title="" Language="VB" MasterPageFile="~/MasterNoBanner.master" AutoEventWireup="false" CodeFile="CropProtectionTransactionsAdd.aspx.vb" Inherits="CP_TransactionsAdd" %>

<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>

<asp:Content ID="Content1" ContentPlaceHolderID="cphBodyText" Runat="Server">

<div style="width: 980px; min-height:800px; clear : both; border-bottom: 0px solid black;" >

<telerik:RadCodeBlock ID="RadCodeBlock1" runat="server">

<script type="text/javascript">

function CatchKeyPress(sender, args) {

if (args.get_keyCode() == 13) { //Enter Key

var e = args.get_domEvent().rawEvent;

e.returnValue = false;

e.cancelBubble = true;

if (e.stopPropagation) {

e.preventDefault();

e.stopPropagation();

}

if (args.get_keyCode() == 27) { //esca Key

var e = args.get_domEvent().rawEvent;

e.returnValue = false;

e.cancelBubble = true;

if (e.stopPropagation) {

e.preventDefault();

e.stopPropagation();

}

if (args.get_keyCode() == 8 || args.get_keyCode() == 46) { //backspace Key

var e = args.get_domEvent().rawEvent;

e.returnValue = false;

e.cancelBubble = true;

if (e.stopPropagation) {

e.preventDefault();

e.stopPropagation();

}

function gridCommand(sender, args) {

var command = args.get_commandName();

if (command == "DeleteRow" || command == "CopyPaste" || command == "SaveChanges" || command == "CancelChanges" || command == "Sort" || command == "Page" || command == "Filter" || command == "ChangePageSize") {

//cancel the additional check in body.onunload

window.editInProgress = false;

}

function gridCommandCustom(evt) {

var command = evt

if (command == "DeleteRow" || command == "CopyPaste" || command == "SaveChanges" || command == "CancelChanges" || command == "Sort" || command == "Page" || command == "Filter" || command == "ChangePageSize" || command == "AddRecord") {

//cancel the additional check in body.onunload

window.editInProgress = false;

}

function verifyCancelChanges() {

if (window.editInProgress) {

//alert(window.editInProgress.tostring);

$find("<%=RadAjaxManager1.ClientID %>").ajaxRequest();

}

function updateEdit() {

window.editInProgress = true;

}

window.onbeforeunload = function (evt) {

// alert(window.editInProgress);

verifyCancelChanges();

}

function Selected(rowIndex, eventArgs) {

var grid = $find("<%= RadGrid1.ClientID %>");

if (grid) {

if (rowIndex == -1) {

var masterTable = $find("<%= RadGrid1.ClientID %>").get_masterTableView();

// var editForm = $telerik.$(".rgEditForm")[0];

// var txtSize2 = $telerik.findElement(editForm, "txtSize");

var InsertItems = masterTable.get_insertItem();

// var insertItem = InsertItems[0];

var txtSize = $(masterTable.get_insertItem()).find("input[id*='txtSize']").get(0);

txtSize.value = eventArgs.get_item().get_attributes().getAttribute("Size");

var txtManufacturer = $(masterTable.get_insertItem()).find("input[id*='txtManufacturer']").get(0);

txtManufacturer.value = eventArgs.get_item().get_attributes().getAttribute("SupplierName");

}

else {

var EditItems = grid.get_editItems();

var editItem = EditItems[rowIndex];

var txtSize = $(editItem.get_editFormItem()).find("input[id*='txtSize']").get(0);

txtSize.value = eventArgs.get_item().get_attributes().getAttribute("Size");

var txtManufacturer = $(editItem.get_editFormItem()).find("input[id*='txtManufacturer']").get(0);

txtManufacturer.value = eventArgs.get_item().get_attributes().getAttribute("SupplierName");

}

function LoadShipTo(combo, eventArqs) {

var item = eventArqs.get_item();

var grid = $find("<%= RadGrid1.ClientID %>");

var EditItems = grid.get_editItems();

var rowIndex = combo.get_attributes().getAttribute("ddItemIndex")

var editItem = EditItems[rowIndex];

//var radcomboShipTo = $(editItem.get_editFormItem()).find("input[id*='ddlShipTo']").get(0);

// var ComboShipTo = combo.get_attributes().getAttribute("ddClientID");

var ComboShipTo = $find(combo.get_attributes().getAttribute("ddClientID"));

// ComboShipTo.set_text("Loading...");

//radcomboShipTo.show

// radcomboShipTo.set_text("Loading...");

ComboShipTo.requestItems(item.get_value(), false);

// ComboShipTo.focus();

}

function ShipToLoaded(combo, eventArgs) {

if (combo.get_items().get_count() > 0) {

// pre-select the first item

combo.set_text(combo.get_items().getItem(0).get_text());

combo.get_items().getItem(0).highlight();

//combo.showDropDown();

}

function UpdateExtension(rowIndex, extensionid, eventArqs) {

var grid = $find("<%= RadGrid1.ClientID %>");

var EditItems = grid.get_editItems();

var editItem = EditItems[rowIndex];

var txtPrice = $(editItem.get_editFormItem()).find("input[id*='txtPrice']").get(0);

var txtQuantity = $(editItem.get_editFormItem()).find("input[id*='txtQuantity']").get(0);

var txtExtension = $find(extensionid);

var intPrice = txtPrice.value;

var intQuantity = txtQuantity.value;

var intTotal = intPrice * intQuantity

if (intQuantity < 0) {

intTotal = (Math.ceil(intTotal * 100)) / 100;

}

else {

intTotal = (Math.floor(intTotal * 100)) / 100;

}

txtExtension.set_value(intTotal);

}

</script>

</telerik:RadCodeBlock>

<telerik:RadWindowManager runat="server" ID="RadWindowManager1">

</telerik:RadWindowManager>

<telerik:RadFormDecorator ID="RadFormDecorator1" runat="server" DecoratedControls="Default,Select,Textbox"

EnableRoundedCorners="false" />

<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server" OnAjaxRequest="RadAjaxManager1_AjaxRequest">

<AjaxSettings>

<telerik:AjaxSetting AjaxControlID="RadAjaxManager1">

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />

<telerik:AjaxUpdatedControl ControlID="lblError" />

</UpdatedControls>

</telerik:AjaxSetting>

<telerik:AjaxSetting AjaxControlID="RadAjaxManager1" EventName="RadGrid1_PreRender">

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />

<telerik:AjaxUpdatedControl ControlID="lblError" />

</UpdatedControls>

</telerik:AjaxSetting>

<telerik:AjaxSetting AjaxControlID="RadGrid1">

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />

<telerik:AjaxUpdatedControl ControlID="lblError" />

</UpdatedControls>

</telerik:AjaxSetting>

<telerik:AjaxSetting AjaxControlID="btnGrid">

<UpdatedControls>

<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />

<telerik:AjaxUpdatedControl ControlID="lblError" />

</UpdatedControls>

</telerik:AjaxSetting>

</AjaxSettings>

</telerik:RadAjaxManager>

<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" Height="16px"

Width="16px" />

<br />

<div style='width: 95%;'>

<table width="100%" align="left" border="0" cellpadding="2" cellspacing=0>

<tr>

<td width="175px" align="right">Choose Distributor to add:</td>

<td><telerik:RadComboBox ID="ddlDistributors" DataSourceID="dsDistributors" EmptyMessage="Choose..." AllowCustomText="false" MarkFirstMatch="true" DataTextField="DistributorName" DataValueField="CPDistributorID" runat="server">

<Items>

<telerik:RadComboBoxItem Value="0" Text="" Selected="true" />

</Items>

</telerik:RadComboBox></td></tr>

<tr>

<td width="175px" align="right"># of Rows (estimate) to add: </td>

<td><telerik:RadNumericTextBox ID="txtRows" runat="server" MinValue="0" MaxValue="100" Width="75px">

<NumberFormat DecimalDigits="0" GroupSeparator="" /></telerik:RadNumericTextBox> <telerik:RadButton runat="server" ID="btnGrid" Text="Add Records" ></telerik:RadButton></td></tr>

</table>

</div>

<br /><br /><br />

<asp:Label id="lblError" runat="server" Text="asdf" Visible="true"></asp:Label>

<telerik:RadGrid ID="RadGrid1"

AllowFilteringByColumn="false"

AllowSorting="false" runat="server" ShowFooter="false" ShowHeader="false" ShowGroupPanel="false" ShowStatusBar="false"

AutoGenerateColumns="False" CellSpacing="0" AllowMultiRowEdit="True" PageSize="10"

Width="98%" AllowPaging="false" Height="600px" OnItemDataBound="OnItemDataBoundHandler" ViewStateMode="Enabled" >

<ClientSettings>

<Selecting AllowRowSelect="True"></Selecting>

<ClientEvents OnKeyPress="CatchKeyPress"></ClientEvents>

<Scrolling AllowScroll="true" UseStaticHeaders="true"></Scrolling>

</ClientSettings>

<MasterTableView EditMode="EditForms" DataKeyNames="TransactionID" CommandItemDisplay="Top" PagerStyle-AlwaysVisible="false" InsertItemDisplay="Bottom" InsertItemPageIndexAction="ShowItemOnCurrentPage" ViewStateMode="Enabled"

NoMasterRecordsText=

"Choose a distributor and # of rows to add to the grid. You can add more rows by clicking the 'Add Records' button again."

>

<CommandItemTemplate>

<table width="100%">

<tr>

<td align="right"><asp:LinkButton ID="btnInsertProduct" OnClientClick="gridCommandCustom('AddRecord')" runat="server" CommandName="InsertProduct" Visible="true" style='display: none;'><img style="border:0px" alt="" src="Images/AddRecord.gif" />- Add New Product</asp:LinkButton>

<asp:LinkButton ID="btnCancelChanges" runat="server" OnClientClick="gridCommandCustom('CancelChanges');" CommandArgument="CancelChanges" CommandName="CancelChanges" Visible="true"><img style="border:0px" alt="" src="Images/Cancel.gif" />- Clear all Changes </asp:LinkButton>

<asp:LinkButton ID="btnSaveChanges" runat="server" CommandArgument="SaveChanges" CommandName="SaveChanges" OnClientClick="gridCommandCustom('SaveChanges');" Visible="true"><img style="border:0px" alt="" src="Images/Update.gif" />- Save All changes</asp:LinkButton>

</td>

</tr>

</table>

</CommandItemTemplate>

<CommandItemSettings ExportToPdfText="Export to PDF"></CommandItemSettings>

<RowIndicatorColumn Visible="false" FilterControlAltText="Filter RowIndicator column"></RowIndicatorColumn>

<ExpandCollapseColumn Visible="false" FilterControlAltText="Filter ExpandColumn column"></ExpandCollapseColumn>

<Columns>

<telerik:GridBoundColumn DataField="TransactionID"

FilterControlAltText="Filter TransactionID column" HeaderText="TransactionID"

SortExpression="TransactionID" UniqueName="TransactionID" DataType="System.Int32" ReadOnly="True" Visible="false">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn UniqueName="MemberID" HeaderText="Member" DataField="MemberID" AllowFiltering="false" showfiltericon="false" CurrentFilterFunction="NoFilter">

</telerik:GridBoundColumn>

<telerik:GridBoundColumn UniqueName="CPDistributorID" HeaderText="Distributor" DataField="CPDistributorID" AllowFiltering="false" showfiltericon="false" CurrentFilterFunction="NoFilter">

</telerik:GridBoundColumn>

</Columns>

<EditFormSettings EditFormType="Template" >

<FormTemplate>

<div><br />

<table width="920px" cellspacing="0" cellpadding="0">

<tr valign="top">

<td width="200px"><asp:Label ID="lblCompanyName" runat="server" Text="Member" Font-Bold="true"></asp:Label></td>

<td width="220px"><asp:Label ID="lblShipTop" runat="server" Text="Ship To" Font-Bold="true"></asp:Label></td>

<td width="498px"><asp:Label ID="lblPurchaseDate" runat="server" Text="Purchase Date" Font-Bold="true"></asp:Label></td>

</tr>

<tr valign="top">

<td width="200px"> <telerik:RadComboBox ID="ddlMember" runat="server" AppendDataBoundItems="true" AutoPostBack="false"

EmptyMessage="Select..." DataSourceID="dsMembers" DataTextField="CompanyName" DataValueField="MemberID"

SelectedValue='<%# Bind("MemberID") %>' MarkFirstMatch="true" DropDownWidth="400px" HighlightTemplatedItems="true" Width="190px" Height="250px"  ClientEvents-OnKeyPress="KeyPressed" EnableLoadOnDemand="true" OnClientSelectedIndexChanging="LoadShipTo"  >

<HeaderTemplate>

<ul>

<li class="colCompanyName">Member</li>

<li class="colCPMember">CP Member</li

</ul>

</HeaderTemplate>

<ItemTemplate>

<ul>

<li class="colCompanyName"><%# Eval("CompanyName")%></li>

<li class="colCPMember" ><%# Eval("CPMember")%></li>

</ul>

</ItemTemplate>

</telerik:RadComboBox></td>

<td width="220px">

<telerik:RadComboBox ID="ddlShipTo" runat="server"

datatextfield="ShipTo" DataValueField="ShipToID"

MarkFirstMatch="true" DropDownWidth="200px" HighlightTemplatedItems="true" Width="200px" EnableLoadOnDemand="true" OnClientItemsRequested="ShipToLoaded"

OnItemsRequested="ddlShipTo_ItemsRequested" ClientEvents-OnKeyPress="KeyPressed" ></telerik:RadComboBox>

</td>

<td width="400px"><telerik:RadDatePicker ID="txtPurchaseDate" runat="server" ClientEvents-OnKeyPress="KeyPressed" Width="140px" AutoPostBack="false"

DateInput-EmptyMessage="" MinDate="01/01/1000" MaxDate="01/01/3000" dbSelectedDate='<%# Bind("PurchaseDate") %> '>

<Calendar ID="Calendar1" runat="server" ClientEvents-OnKeyPress="KeyPressed">

<SpecialDays>

<telerik:RadCalendarDay Repeatable="Today" ItemStyle-CssClass="rcToday" />

</SpecialDays>

</Calendar>

</telerik:RadDatePicker></td>

</tr>

</table>

<table width="920px" border="0" cellpadding="1" cellspacing="0">

<tr>

<td width="180px" align="left"><asp:Label ID="Label8" runat="server" Text="Distributor" Font-Bold="true"></asp:Label></td>

<td width="100px" align="left"><asp:Label ID="Label9" runat="server" Text="Invoice #" Font-Bold="true"></asp:Label></td>

<td width="175px" align="left"><asp:Label ID="Label16" runat="server" Text="Product" Font-Bold="true"></asp:Label></td>

<td width="75px" align="left"><asp:Label ID="Label17" runat="server" Text="Size" Font-Bold="true"></asp:Label></td>

<td width="150px" align="left"><asp:Label ID="Label18" runat="server" Text="Manufacturer" Font-Bold="true"></asp:Label></td>

<td width="75px" align="left"><asp:Label ID="Label19" runat="server" Text="Quantity" Font-Bold="true"></asp:Label></td>

<td width="75px" align="left"><asp:Label ID="Label20" runat="server" Text="Price" Font-Bold="true"></asp:Label></td>

<td width="74px" align="left"><asp:Label ID="Label21" runat="server" Text="Extension" Font-Bold="true"></asp:Label></td>

</tr>

<tr>

<td width="180px" align="left"><telerik:RadComboBox ID="ddlDistributors" runat="server" AppendDataBoundItems="false" AutoPostBack="false"

EmptyMessage="Select..." DataSourceID="dsDistributors" DataTextField="DistributorName" DataValueField="CPDistributorID"

SelectedValue='<%# Bind("CPDistributorID") %>' MarkFirstMatch="true" DropDownWidth="200px" HighlightTemplatedItems="true" Width="170px" Height="250px"   ClientEvents-OnKeyPress="KeyPressed" ></

telerik:RadComboBox>

</td>

<td width="100px" align="left">

<telerik:RadTextBox ID="txtInvoiceNumber" Text='<%# Bind("InvoiceNumber") %>' runat="server" width="90px"></telerik:RadTextBox>

</td>

<td width="175px" align="left"><telerik:RadComboBox ID="ddlProduct" runat="server" EnableLoadOnDemand="true" DataTextField="Product"

OnItemsRequested="ddlProduct_ItemsRequested" DataValueField="CPProductID" AutoPostBack="false" HighlightTemplatedItems="true" Width="170px" Height="250px" DropDownWidth="500px" ClientEvents-OnKeyPress="KeyPressed" markfirstmatch="true" Filter="contains">

<HeaderTemplate>

<ul>

<li class="colProductName">Product Name</li>

<li class="colSize">Pkg Size</li

<li class="colSuppleer">Manufacturer</li

</ul>

</HeaderTemplate>

<ItemTemplate>

<ul>

<li class="colProductName"> <%# DataBinder.Eval(Container, "Text")%></li>

<li class="colSize" > <%# DataBinder.Eval(Container, "Attributes['Size']")%></li>

<li class="colSuppleer"> <%# DataBinder.Eval(Container, "Attributes['SupplierName']")%></li>

</ul>

</ItemTemplate>

</telerik:RadComboBox></td>

<td width="75px" align="left"><telerik:RadTextBox ID="txtSize" Text='<%# Eval("Size") %>' runat="server" ReadOnly="true" Width="70px" ></telerik:RadTextBox></td>

<td width="150px" align="left"><telerik:RadTextBox ID="txtManufacturer" Text='<%# Eval("SupplierName") %>' runat="server" ReadOnly="true" Width="145px"></telerik:RadTextBox></td>

<td width="75px" align="left"><telerik:RadNumericTextBox incrementsettings-interceptarrowskeys="false" incrementsettings-interceptmousewheel="false" ID="txtQuantity" NumberFormat-DecimalDigits="3" runat="server" Type="number" width="55px" NumberFormat-DecimalSeparator="." NumberFormat-GroupSeparator="" invalidstyleduration="100" Dbvalue='<%# Bind("Quantity") %>' EmptyMessage="0.000" ><EmptyMessageStyle Width="55px" /><ReadOnlyStyle Width="55px" /> </telerik:RadNumericTextBox></td>

<td width="75px" align="left"><telerik:RadNumericTextBox incrementsettings-interceptarrowskeys="false" incrementsettings-interceptmousewheel="false" ID="txtPrice" runat="server" Type="currency" width="65px" EmptyMessageStyle-Width="65px" MinValue="0.000" NumberFormat-DecimalSeparator="." Dbvalue='<%# Bind("Price") %>' NumberFormat-DecimalDigits="3" EmptyMessage="0.000" ><EmptyMessageStyle Width="55px" /><ReadOnlyStyle Width="55px" /></telerik:RadNumericTextBox></td>

<td width="74px" align="left"><telerik:RadNumericTextBox incrementsettings-interceptarrowskeys="false" incrementsettings-interceptmousewheel="false" ID="txtExtension" runat="server" Type="currency" width="65px" EmptyMessageStyle-Width="65px" NumberFormat-DecimalSeparator="." Dbvalue='<%# Bind("Extension") %>' NumberFormat-DecimalDigits="2" NumberFormat-NegativePattern="$- n" ><EmptyMessageStyle Width="55px" /><ReadOnlyStyle Width="55px" /></telerik:RadNumericTextBox></td>

</tr>

</table>

<asp:Label id="lblMissing" runat="server" Text="All fields required except Extension." ForeColor="Red" Font-Bold="true" Visible="false"></asp:Label><br /></div>

</FormTemplate>

</EditFormSettings>

</MasterTableView>

<ClientSettings AllowKeyboardNavigation="false">

<ClientEvents OnKeyPress="CatchKeyPress" OnCommand="gridCommand" ></ClientEvents>

<Selecting AllowRowSelect="true" />

<Scrolling AllowScroll="true" UseStaticHeaders="true" />

</ClientSettings>

</telerik:RadGrid>

<asp:SqlDataSource ID="SqlDataSource1" runat="server"

ConnectionString="<%$ ConnectionStrings:csPrairielandAg %>"

ProviderName="<%$ ConnectionStrings:csPrairielandAg.ProviderName %>"

UpdateCommand="UPDATE dbo.tblCropProtectionTransactionsTEMP SET MemberID = @MemberID, ShipToID = @ShipToID, PurchaseDate = @PurchaseDate, CPDistributorID = @CPDistributorID, InvoiceNumber = @InvoiceNumber, CPProductID = @CPProductID, Quantity = @Quantity, Price = @Price, Extension = @Extension where TransactionID = @TransactionID"

InsertCommand="INSERT INTO dbo.tblCropProtectionTransactions(MemberID, ShipToID, CPDistributorID, PurchaseDate, InvoiceNumber, CPProductID, Quantity, Price, Extension, NetPricing, DPS) VALUES (@MemberID, @ShipToID, @CPDistributorID, @PurchaseDate, @InvoiceNumber, @CPProductID, @Quantity, @Price, @Extension, @NetPricing, @DPS)">

<InsertParameters>

<asp:Parameter Name="MemberID" />

<asp:Parameter Name="ShipToID" />

<asp:Parameter Name="CPDistributorID" />

<asp:Parameter Name="PurchaseDate" />

<asp:Parameter Name="InvoiceNumber" />

<asp:Parameter Name="CPProductID" />

<asp:Parameter Name="Quantity" />

<asp:Parameter Name="Price" />

<asp:Parameter Name="Extension" />

<asp:Parameter Name="NetPricing" DefaultValue="0" />

<asp:Parameter Name="DPS" DefaultValue="0" />

</InsertParameters>

<UpdateParameters>

<asp:Parameter Name="TransactionID" />

<asp:Parameter Name="MemberID" />

<asp:Parameter Name="ShipToID" />

<asp:Parameter Name="PurchaseDate" />

<asp:Parameter Name="CPDistributorID" />

<asp:Parameter Name="InvoiceNumber" />

<asp:Parameter Name="CPProductID" />

<asp:Parameter Name="Quantity" />

<asp:Parameter Name="Price" />

<asp:Parameter Name="Extension" />

</UpdateParameters>

</asp:SqlDataSource>

<asp:SqlDataSource ID="dsSupplier" runat="server"

ConnectionString="<%$ ConnectionStrings:csPrairielandAg %>"

ProviderName="<%$ ConnectionStrings:csPrairielandAg.ProviderName %>"

SelectCommand="SELECT CPSupplierID, SupplierName FROM dbo.tblCropProtectionSuppliers" >

</asp:SqlDataSource>

<asp:SqlDataSource ID="dsProducts" runat="server"

ConnectionString="<%$ ConnectionStrings:csPrairielandAg %>"

ProviderName="<%$ ConnectionStrings:csPrairielandAg.ProviderName %>"

SelectCommand="SELECT CPProductID,Product,Size,SupplierName from tblCropProtectionProducts a join tblCropProtectionSuppliers b on a.CPSupplierID = b.CPSupplierID

order by PRoduct,Size,SupplierName" >

</asp:SqlDataSource>

<asp:SqlDataSource ID="dsDistributors" runat="server"

ConnectionString="<%$ ConnectionStrings:csPrairielandAg %>"

ProviderName="<%$ ConnectionStrings:csPrairielandAg.ProviderName %>"

SelectCommand="select CPDistributorID, DistributorName from tblCropProtectionDistributors order by DistributorName" >

</asp:SqlDataSource>

<asp:SqlDataSource ID="dsMembers" runat="server"

ConnectionString="<%$ ConnectionStrings:csPrairielandAg %>"

ProviderName="<%$ ConnectionStrings:csPrairielandAg.ProviderName %>"

SelectCommand="SELECT distinct tblMembers.MemberId, tblMembers.CompanyName, tblMembers.Email, case [CropProtection] when 1 then 'Yes' when 0 then 'No' end AS [CPMember] FROM tblMembers ORDER BY tblMembers.CompanyName" >

</asp:SqlDataSource>

<asp:SqlDataSource ID="dsShipTo" runat="server"

ConnectionString="<%$ ConnectionStrings:csPrairielandAg %>"

ProviderName="<%$ ConnectionStrings:csPrairielandAg.ProviderName %>"

SelectCommand="SELECT ShipToId, ShipTo from tblMemberShipTo where MemberID = @MemberID order by IsDefault desc, ShipTo asc">

<SelectParameters>

<asp:Parameter Name="MemberID" />

</SelectParameters>

</asp:SqlDataSource>

<br />

</div>

</asp:Content>

aspx.vb:

Imports System

Imports System.Data

Imports System.Configuration

Imports System.Collections

Imports System.Web

Imports System.Web.Security

Imports System.Web.UI

Imports System.Web.UI.WebControls

Imports System.Web.UI.WebControls.WebParts

Imports System.Web.UI.HtmlControls

Imports Telerik.Web.UI

Imports System.Data.OleDb

Imports System.Data.SqlClient

Imports System.Collections.Generic

Imports System.Data.Common

Imports System.Diagnostics

Imports System.ComponentModel

Imports System.Web.SessionState

Imports System.Web.Mail

Imports System.Net.Mail

Imports System.Xml

Partial Public Class CP_TransactionsAdd

Inherits System.Web.UI.Page

Dim strMode As String = ""

Dim strSelectCommand As String = ""

Dim strInsertCommand As String = ""

Dim strSQL As String = ""

Dim total As Integer

Dim msg As String = ""

Dim member As MembershipUser = Membership.GetUser(User.Identity.Name)

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

' RadGrid1.Enabled = True

' RadGrid1.Visible = True

Session("Refresh") = "Yes"

strSelectCommand = "select TransactionID, MemberID, ShipToID, PurchaseDate, CPDistributorID, InvoiceNumber, a.CPProductID,Product,Size,SupplierName, Quantity, Price, Extension, Comments from tblCropProtectionTransactionsTEMP a left join tblCropProtectionProducts b on a.CPProductID = b.CPProductID left join tblCropProtectionSuppliers c on b.CPSupplierID = c.CPSupplierID where UserName = '" & member.UserName & "' order by TransactionID asc"

SqlDataSource1.SelectCommand = strSelectCommand

If (Not Page.IsPostBack) Then

Try

Using conn As New SqlConnection(ConnectionString)

Dim cmdInsert As New SqlCommand()

conn.Open()

cmdInsert.Connection = conn

cmdInsert.CommandType = CommandType.Text

cmdInsert.CommandText = "Delete from tblCropProtectionTransactionsTEMP where UserName = '" & member.UserName & "'"

cmdInsert.ExecuteNonQuery()

End Using

lblError.Visible = False

msg = ""

Catch exSQL As SqlException

Select Case exSQL.Number

Case Else

lblError.Text = exSQL.Message.ToString() & " If this error persists, contact EERC Research Information Systems for help."

lblError.Visible = True

End Select

Catch ex As Exception

lblError.Text = ex.Message.ToString() & " If this error persists, contact EERC Research Information Systems for help."

' lblError.visible = true

End Try

End If

End Sub

Protected Sub RadAjaxManager1_AjaxRequest(sender As Object, e As AjaxRequestEventArgs)

' RadGrid1.Items.Item(1).FireCommandEvent("Update", String.Empty)

End Sub

Protected Sub RadGrid1_ItemCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.ItemCommand

If e.CommandName = "RefreshGrid" Then

strMode = "Refresh"

e.Item.OwnerTableView.Rebind()

ElseIf e.CommandName = "SaveChanges" Then

RadGrid1_UpdateCommand(sender, e)

'e.Item.OwnerTableView.Rebind()

strMode = "Save"

ElseIf e.CommandName = "CancelChanges" Then

strMode = "Cancel"

For Each column As GridColumn In RadGrid1.MasterTableView.Columns

column.CurrentFilterFunction = GridKnownFunction.NoFilter

column.CurrentFilterValue = String.Empty

Next

RadGrid1.MasterTableView.FilterExpression = String.Empty

e.Item.OwnerTableView.Rebind()

ElseIf e.CommandName = "Sort" Then

strMode = "Sort"

ElseIf e.CommandName = "Page" Then

strMode = "Page"

ElseIf e.CommandName = "ChangePageSize" Then

RadGrid1.EditIndexes.Clear()

End If

If e.CommandName = "DeleteRow" Then

Dim intTransactionID = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("CPProductID").ToString

Try

Dim deleteQuery As String = "Delete from tblCropProtectionProducts where TransactionID='" & intTransactionID & "'"

Dim strConn As String = ConfigurationManager.ConnectionStrings("csPrairielandAg").ConnectionString

Using connection As New SqlConnection(strConn)

connection.Open()

Using Command As New SqlCommand(deleteQuery, connection)

Command.CommandType = Data.CommandType.Text

Command.CommandText = deleteQuery

Command.ExecuteNonQuery()

SetMessage("Transaction deleted")

End Using

connection.Close()

End Using

RadGrid1.Rebind()

Catch ex As Exception

If InStr(ex.Message, "The DELETE statement conflicted with the REFERENCE constraint", CompareMethod.Text) > 0 Then

SetMessage("Cannot delete this Transaction.")

Else

SetMessage(ex.Message)

End If

End Try

End If

End Sub

Protected Sub RadGrid1_PageIndexChanged(sender As Object, e As Telerik.Web.UI.GridPageChangedEventArgs) Handles RadGrid1.PageIndexChanged

If RadGrid1.Items.Item(1).IsInEditMode = True Then

e.Item.FireCommandEvent("Update", String.Empty)

End If

End Sub

Protected Sub RadGrid1_PreRender(sender As Object, e As System.EventArgs) Handles RadGrid1.PreRender

For i As Integer = 0 To RadGrid1.Items.Count

RadGrid1.EditIndexes.Add(i)

Next

RadGrid1.Rebind()

For Each item As GridDataItem In RadGrid1.MasterTableView.Items

item.Display = False

Next

End Sub

Protected Sub RadGrid1_UpdateCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.UpdateCommand

If RadGrid1.EditItems.Count > 0 Then

For Each item As GridDataItem In RadGrid1.EditItems

Dim dataItem As GridEditFormItem = DirectCast(item.EditFormItem, GridEditFormItem)

' Dim newValues As New Hashtable()

'Dim eeditedItem As GridEditableItem = TryCast(e.Item, GridEditableItem)

Dim intTransactionID As Integer = dataItem.OwnerTableView.DataKeyValues(dataItem.ItemIndex)("TransactionID")

Dim test As RadComboBox = TryCast(dataItem.OwnerTableView.FindControl("ddlProduct"), RadComboBox)

' RadGrid1.MasterTableView.ExtractValuesFromItem(newValues, dataItem)

Dim productCombo As RadComboBox = TryCast(dataItem.FindControl("ddlProduct"), RadComboBox)

Dim memberCombo As RadComboBox = TryCast(dataItem.FindControl("ddlMember"), RadComboBox)

Dim shiptoCombo As RadComboBox = TryCast(dataItem.FindControl("ddlShipTo"), RadComboBox)

Dim txtPurchaseDate As RadDatePicker = TryCast(dataItem.FindControl("txtPurchaseDate"), RadDatePicker)

Dim ddlDistributors As RadComboBox = TryCast(dataItem.FindControl("ddlDistributors"), RadComboBox)

Dim txtInvoiceNumber As RadTextBox = TryCast(dataItem.FindControl("txtInvoiceNumber"), RadTextBox)

Dim txtQuantity As RadNumericTextBox = TryCast(dataItem.FindControl("txtQuantity"), RadNumericTextBox)

Dim txtPrice As RadNumericTextBox = TryCast(dataItem.FindControl("txtPrice"), RadNumericTextBox)

Dim txtExtension As RadNumericTextBox = TryCast(dataItem.FindControl("txtExtension"), RadNumericTextBox)

SqlDataSource1.UpdateParameters("TransactionID").DefaultValue = intTransactionID

SqlDataSource1.UpdateParameters("MemberID").DefaultValue = memberCombo.SelectedValue

SqlDataSource1.UpdateParameters("ShipToID").DefaultValue = shiptoCombo.SelectedValue

SqlDataSource1.UpdateParameters("CPDistributorID").DefaultValue = ddlDistributors.SelectedValue

SqlDataSource1.UpdateParameters("PurchaseDate").DefaultValue = txtPurchaseDate.DbSelectedDate

SqlDataSource1.UpdateParameters("InvoiceNumber").DefaultValue = txtInvoiceNumber.Text

SqlDataSource1.UpdateParameters("CPProductID").DefaultValue = productCombo.SelectedValue

SqlDataSource1.UpdateParameters("Quantity").DefaultValue = txtQuantity.Text

SqlDataSource1.UpdateParameters("Price").DefaultValue = txtPrice.Text

SqlDataSource1.UpdateParameters("Extension").DefaultValue = txtExtension.Text

Try

SqlDataSource1.Update()

lblError.Visible = False

' e.Canceled = True

' RadGrid1.EditIndexes.Clear()

Catch ex As Exception

SetMessage(Server.HtmlEncode("Unable to update Transaction. Reason: " + ex.Message).Replace("'", "'").Replace(vbCrLf, "<br />"))

End Try

Next

Else

Exit Sub

End If

End Sub

Private Sub SetMessage(ByVal message As String)

lblError.Text = String.Format("<span style='color:red'>{0}</span>", message)

lblError.Visible = True

End Sub

Protected Sub ddlProduct_ItemDataBound(o As Object, e As RadComboBoxItemEventArgs)

Dim row As DataRowView = TryCast(e.Item.DataItem, DataRowView)

Dim selectedItem As New RadComboBoxItem()

' selectedItem.Text = DirectCast(e.Item.DataItem, DataRowView)("Product").ToString()

selectedItem.Value = DirectCast(e.Item.DataItem, DataRowView)("CPProductID").ToString()

selectedItem.Attributes.Add("Size", DirectCast(e.Item.DataItem, DataRowView)("Size").ToString())

selectedItem.Attributes.Add("SupplierName", DirectCast(e.Item.DataItem, DataRowView)("SupplierName").ToString())

o.Items.Add(selectedItem)

selectedItem.DataBind()

End Sub

Protected Sub ddlProduct_ItemsRequested(ByVal o As Object, ByVal e As RadComboBoxItemsRequestedEventArgs)

Dim sql As String = dsProducts.SelectCommand.ToString

Dim connection As New SqlConnection(ConfigurationManager.ConnectionStrings("csPrairielandAg").ConnectionString)

Dim adapter As New SqlDataAdapter(sql, connection)

Dim dt As New DataTable()

adapter.Fill(dt)

Dim comboBox As RadComboBox = DirectCast(o, RadComboBox)

comboBox.Items.Clear()

For Each row As DataRow In dt.Rows

Dim item As New RadComboBoxItem()

item.Text = row("Product").ToString()

item.Value = row("CPProductID").ToString()

'item.Attributes.Add("Product", row("Product").ToString())

item.Attributes.Add("Size", row("Size").ToString())

item.Attributes.Add("SupplierName", row("SupplierName").ToString())

comboBox.Items.Add(item)

item.DataBind()

Next

End Sub

Protected Sub OnItemDataBoundHandler(ByVal sender As Object, ByVal e As GridItemEventArgs)

If e.Item.IsInEditMode Then

Dim item As GridEditableItem = DirectCast(e.Item, GridEditableItem)

If Not (TypeOf e.Item Is IGridInsertItem) Then

Dim combo As RadComboBox = DirectCast(item.FindControl("ddlProduct"), RadComboBox)

Dim selectedItem As New RadComboBoxItem()

If DirectCast(e.Item.DataItem, DataRowView)("Product").ToString() <> "" Then

selectedItem.Text = DirectCast(e.Item.DataItem, DataRowView)("Product").ToString()

selectedItem.Value = DirectCast(e.Item.DataItem, DataRowView)("CPProductID").ToString()

selectedItem.Attributes.Add("Size", DirectCast(e.Item.DataItem, DataRowView)("Size").ToString())

selectedItem.Attributes.Add("SupplierName", DirectCast(e.Item.DataItem, DataRowView)("SupplierName").ToString())

combo.Items.Add(selectedItem)

selectedItem.DataBind()

End If

' Session("CPProductID") = selectedItem.Value

End If

End Sub

Protected Function LoadShipTo(MemberID As String) As DataTable

Dim connection As New SqlConnection(ConfigurationManager.ConnectionStrings("csPrairielandAg").ConnectionString)

'select a country based on the continentID

Dim adapter As New SqlDataAdapter("SELECT ShipToId, ShipTo from tblMemberShipTo where MemberId=@MemberID order by IsDefault desc, ShipTo asc", connection)

adapter.SelectCommand.Parameters.AddWithValue("@MemberID", MemberID)

Dim dt As New DataTable()

adapter.Fill(dt)

Return dt

End Function

Protected Sub RadGrid1_ItemDataBound(sender As Object, e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound

If TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode Then

Dim editedItem As GridEditableItem = TryCast(e.Item, GridEditableItem)

Dim dataSourceRow As DataRowView = DirectCast(e.Item.DataItem, DataRowView)

Dim memberCombo As RadComboBox = TryCast(editedItem.FindControl("ddlMember"), RadComboBox)

Dim shiptoCombo As RadComboBox = TryCast(editedItem.FindControl("ddlShipto"), RadComboBox)

shiptoCombo.DataSource = LoadShipTo(memberCombo.SelectedValue)

shiptoCombo.DataBind()

shiptoCombo.SelectedValue = dataSourceRow("ShipToID").ToString()

Dim productCombo As RadComboBox = TryCast(editedItem.FindControl("ddlProduct"), RadComboBox)

Dim txtSize As RadTextBox = TryCast(editedItem.FindControl("txtSize"), RadTextBox)

Dim txtManufacturer As RadTextBox = TryCast(editedItem.FindControl("txtManufacturer"), RadTextBox)

If productCombo.SelectedValue <> "" Then

txtSize.Text = productCombo.SelectedItem.Attributes("Size").ToString

txtManufacturer.Text = productCombo.SelectedItem.Attributes("SupplierName").ToString

End If

If TypeOf e.Item Is GridPagerItem Then

Dim pager As GridPagerItem = DirectCast(e.Item, GridPagerItem)

Dim PageSizeComboBox As RadComboBox = DirectCast(pager.FindControl("PageSizeComboBox"), RadComboBox)

PageSizeComboBox.Visible = False

Dim changePageSizelbl As Label = DirectCast(pager.FindControl("ChangePageSizeLabel"), Label)

changePageSizelbl.Visible = False

End If

End Sub

Protected Sub RadGrid1_ItemCreated(sender As Object, e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemCreated

If TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode Then

Dim editedItem As GridEditableItem = TryCast(e.Item, GridEditableItem)

Dim productCombo As RadComboBox = TryCast(editedItem.FindControl("ddlProduct"), RadComboBox)

productCombo.OnClientSelectedIndexChanged() = "function (button,args){Selected('" & editedItem.ItemIndex & "',args);}"

Dim memberCombo As RadComboBox = TryCast(editedItem.FindControl("ddlMember"), RadComboBox)

Dim shiptoCombo As RadComboBox = TryCast(editedItem.FindControl("ddlShipTo"), RadComboBox)

Dim txtPurchaseDate As RadDatePicker = TryCast(editedItem.FindControl("txtPurchaseDate"), RadDatePicker)

Dim ddlDistributors As RadComboBox = TryCast(editedItem.FindControl("ddlDistributors"), RadComboBox)

Dim txtInvoiceNumber As RadTextBox = TryCast(editedItem.FindControl("txtInvoiceNumber"), RadTextBox)

Dim txtQuantity As RadNumericTextBox = TryCast(editedItem.FindControl("txtQuantity"), RadNumericTextBox)

Dim txtPrice As RadNumericTextBox = TryCast(editedItem.FindControl("txtPrice"), RadNumericTextBox)

Dim txtExtension As RadNumericTextBox = TryCast(editedItem.FindControl("txtExtension"), RadNumericTextBox)

memberCombo.Attributes.Add("ddItemIndex", editedItem.ItemIndex)

memberCombo.Attributes.Add("ddClientID", shiptoCombo.ClientID)

productCombo.Attributes.Add("onchange", "return updateEdit();")

memberCombo.Attributes.Add("onchange", "return updateEdit();")

shiptoCombo.Attributes.Add("onchange", "return updateEdit();")

txtPurchaseDate.Attributes.Add("onchange", "return updateEdit();")

ddlDistributors.Attributes.Add("onchange", "return updateEdit();")

txtInvoiceNumber.Attributes.Add("onchange", "return updateEdit();")

txtQuantity.Attributes.Add("onchange", "return updateEdit();")

txtQuantity.ClientEvents.OnValueChanged() = "function (button,args){UpdateExtension('" & editedItem.ItemIndex & "','" & txtExtension.ClientID & "',args);}"

txtPrice.Attributes.Add("onchange", "return updateEdit();")

txtPrice.ClientEvents.OnValueChanged() = "function (button,args){UpdateExtension('" & editedItem.ItemIndex & "','" & txtExtension.ClientID & "',args);}"

End If

End Sub

Protected Sub ddlShipTo_ItemsRequested(ByVal o As Object, ByVal e As RadComboBoxItemsRequestedEventArgs)

o.DataTextField = "ShipTo"

o.DataValueField = "ShipToId"

o.DataSource = LoadShipTo(e.Text)

o.DataBind()

End Sub

Protected Sub RadGrid1_NeedDataSource(sender As Object, e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource

RadGrid1.DataSource = SqlDataSource1

' Session("Refresh") = "Yes"

End Sub

Public ReadOnly Property ConnectionString() As String

Get

Return ConfigurationManager.ConnectionStrings("csPrairielandAg").ConnectionString

End Get

End Property

Protected Sub btnGrid_Click(sender As Object, e As System.EventArgs) Handles btnGrid.Click

If ddlDistributors.SelectedValue = "" Or txtRows.Text = "" Then

SetMessage("Please choose a distributor and # of Rows")

Session("Refresh") = "No"

Exit Sub

End If

Dim strSQL As String

Dim msg As String = ""

lblError.Text = ""

Dim member As MembershipUser = Membership.GetUser(User.Identity.Name)

Try

Using conn As New SqlConnection(ConnectionString)

Dim cmdInsert As New SqlCommand()

conn.Open()

cmdInsert.Connection = conn

For i As Integer = 1 To txtRows.Text

strSQL = "INSERT INTO tblCropProtectionTransactionsTEMP (CPDistributorID,UserName) values(" & ddlDistributors.SelectedValue & ",'" & member.UserName & "')"

cmdInsert.CommandText = strSQL

cmdInsert.ExecuteNonQuery()

Next

End Using

msg = ""

lblError.Visible = False

Session("Refresh") = "Yes"

RadGrid1.Rebind()

Catch exSQL As SqlException

Select Case exSQL.Number

Case Else

lblError.Text = exSQL.Message.ToString() & " If this error persists, contact EERC Research Information Systems for help."

lblError.Visible = True

End Select

Catch ex As Exception

lblError.Text = ex.Message.ToString() & " If this error persists, contact EERC Research Information Systems for help."

lblError.Visible = True

End Try

End Sub

End Class

Grid

answered on 11 Dec 2012

6 answers

239 views

Multiple Gridviews scrolling horizontally

431 Points

148 Posts

Multiple Gridviews scrolling horizontally

6 minutes ago|LINK

Hi friends,

I searched but could not find. I want to make such an arrangement that my all 8 gridview scroll horizontally like the 'coverflow' style. But just want them to scroll horizontally and do not want to turn those other then the current one.

Just in the case you are having troubles understanding the 'coverflow' here is the ref link : http://en.wikipedia.org/wiki/File:Coverflowitunes7mac.png

But I do not want the inactive ones to turn outside as shown at the link above, I just want simple horizontal scrolling of multiple asp:GrdiViews along the width there are almost 15 - 18 gridviews on my Telerik enebled (asp.net 3.5) web page.

The solution can be anything like jQuery / JS / Ajax / Telerik ...

Thanks for your help in advance,
-Aarsh

Tags:

COVERFLOW, HORIZONTAL, SCROLL, HORIZONTAL SCROLL, GRIDVIEW

Documentation and Tutorials

answered on 11 Dec 2012

4 answers

139 views

asp GridView(s) in rotator

I am using custom controls (containing grid 1 view) as the rotator items, and want to reuse the same control with different tables (fyi - the control itself has no problems, there are no other controls in the custom control but SQL data-source)

Now -

I do not want to let the frames cut off
I want to display one frame at a time (and so I want the 1st item)
Is there any way out to replicate the exact behavior as this (https://www.dreamspark.com/Student/Software-Catalog.aspx) page's "Developer & Designer Tools" and "Servers & Applications" section ? (I would love to have the horizontal scroll-bar !)
As I am having gridviews in the frame, I want to persist rotator's index after sorting

I tried to set the item width equal to the rotator's "Window" size, and said false to wrapping but still they sit one UNDER another (I have two "frames" of my custom user control )

Rotator

answered on 11 Dec 2012

5 answers

202 views

Change size of Points

How would one change the size of the Points in a Chart Series?

Thanks.

Chart (Obsolete)

answered on 11 Dec 2012

1 answer

141 views

ComboBox not working after upgraded to Framework 4

Hi,

Please help me on this situation.

We have a Web Application on Framework 3.5 using RadComboBox in Telerik 2009.3.1103.35 with Office 2007 Skins
At first, we run on Application Pool 2.0, it works fine.
By now, we want to let it run on Application Pool 4.0. But something happened:

There are errors on WebResource.axd of Telerik. We figured out that it happened because the version Telerik, so we upgraded to 2012. It's fine by now (No error).
The Style of Combobox is completed destroyed. At first, it generated the class "ComboBox_Office2007", So it works fine with our theme. But After upgraded to Application Pool 4.0, it automatically generate the class "ComboBoxItemHover_Office2007" ??? Why, and how to make it behave normally ???
And now we can't select anything that drop down by the RadComboBox ???
There are places we using RadAjaxManager like this:

    <radA:RadAjaxManager ID="RadAjaxManager" runat="server" OnAjaxRequest="On_AjaxRequest">
        <ajaxsettings>
             <radA:AjaxSetting AjaxControlID="uxDeviationTypeList"> <-- This is a ASP.NET ComboBox 
                <UpdatedControls>
                    <radA:AjaxUpdatedControl ControlID="uxCategory" LoadingPanelID="Loadingpanel" />
                    <radA:AjaxUpdatedControl ControlID="uxHiddenCategory" />
                    <radA:AjaxUpdatedControl ControlID="liType" LoadingPanelID="Loadingpanel" />
                </UpdatedControls>
            </radA:AjaxSetting> 
        </ajaxsettings>
    </radA:RadAjaxManager>

At first, it works fine. But now, it has error like this:

	SyntaxError: missing ) after argument list

...tControler$uxDeviationTypeList\',\'\', 'CP_uxDeviationEditControler_RadAjaxManag...

I found out that if I did that AjaxSetting, there is no error. Why this?

(Editted: After looked at all over the project, almost our Comboxs are Telerik.WebControls.RadCombobox.Net2, I think it is pretty old - v2.7.1.0)

Please take a look at this.
Thanks in advance.

ComboBox

answered on 11 Dec 2012

1 answer

81 views

Javascript unable to find the selected rowID when used in a Master/Content page.

Here we are attempting to get the DataKeyValue (the ID of the data record) when using the javascript below. This code works fine in a a straigh APSX page but doesn't work in the content page of the Master/Content design.

var rowID;

function RowClick(sender, eventArgs) {
    var radmenu = document.getElementByID('<%= Page.Master.FindControl("MainContent").FindControl("RadGrid1").Client.ID %>');
    if (radmenu.get_masterTableView().get_selectedItem()[0] != null) {
        rowID = radmenu.get_masterTableView().get_selectedItem()[0].getDataKeyValue("ID");
    }
}

<telerik:RadGrid ...
    <ClientSettings>
        <ClientEvent OnRowClick="RowClick"></ClientEvent>

Here I get the for the radGrid.get_masterTableView().get_selectedItem()[0].getDataKeyValue("ID"): The error is: Object doesn't support this property or method.

Thanks,

Steve Holdorf

Grid

answered on 11 Dec 2012

Top users last month