H
Helixpoint
I know this is a lot of code, but I was wandering why this takes forever to
render on the web page????
*************ASPX PAGE******************************
<%@ Register TagPrefix="uc1" TagName="_Header" Src="_Header.ascx" %>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="machine.aspx.vb"
Inherits="ASPNETProduct.ASPNETProduct.machine"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>machine</title>
<meta content="Microsoft Visual Studio.NET 7.0" name=GENERATOR>
<meta content="Visual Basic 7.0" name=CODE_LANGUAGE>
<meta content=JavaScript name=vs_defaultClientScript>
<meta content=http://schemas.microsoft.com/intellisense/ie5
name=vs_targetSchema>
<script src="include/tabbed.js" type=text/javascript></script>
<script src="include/newWindow.js" type=text/javascript></script>
<LINK href="styles.css" type=text/css rel=STYLESHEET >
<script language=JavaScript>
function fnCallDialog(theURL)
{
var res = showModalDialog(theURL,window,"status:false; dialogHide:Yes;
resizable: No; scroll:No; status: No; help: No; edge:
Sunken;dialogWidth:684px;dialogHeight:560px");
if( res == 1 ){
location.href="Quotes/newQuote.aspx";
}
}
</script>
</HEAD>
<body background=images\background.gif MS_POSITIONING="GridLayout">
<uc1:_header id=_Header1 runat="server"></uc1:_header>
<form id=Form1 method=post runat="server"><asp:label id=Label2
style="Z-INDEX: 103; LEFT: 16px; POSITION: absolute; TOP: 64px"
runat="server" CssClass="objtext"
Width="40px">Search</asp:label><asp:textbox id=searchVal style="Z-INDEX:
104; LEFT: 104px; POSITION: absolute; TOP: 56px" runat="server"
CssClass="objtext" Width="272px"></asp:textbox><asp:label id=Label3
style="Z-INDEX: 108; LEFT: 392px; POSITION: absolute; TOP: 64px"
runat="server" CssClass="objtext"
Width="16px">By</asp:label><br> <asp:label id=lblStatus style="Z-INDEX:
101; LEFT: 8px; POSITION: absolute; TOP: 472px" Font-Name="verdana"
ForeColor="#ff0000" Runat="server" Font-Size="12px"></asp:label>
<asp:datagrid id=availMachList style="Z-INDEX: 102; LEFT: 8px; POSITION:
absolute; TOP: 200px" runat="server" Width="100%"
OnItemDataBound="availMachList_ItemDataBound" CellPadding="3"
AllowPaging="True" AllowSorting="True" AutoGenerateColumns="False">
<SelectedItemStyle Font-Size="Smaller" Font-Bold="True" Wrap="False"
BackColor="LightBlue">
</SelectedItemStyle>
<EditItemStyle Font-Size="Smaller" Wrap="False" BackColor="Silver">
</EditItemStyle>
<AlternatingItemStyle Font-Size="11px" Font-Names="Arial" Wrap="False"
BorderStyle="Groove" BackColor="#FFFFCC">
</AlternatingItemStyle>
<ItemStyle Font-Size="11px" Font-Names="Arial" Wrap="False"
BackColor="#FFFFCC">
</ItemStyle>
<HeaderStyle Font-Size="11px" Font-Names="Arial" Wrap="False"
HorizontalAlign="Left" BackColor="#CCFFFF">
</HeaderStyle>
<FooterStyle Wrap="False">
</FooterStyle>
<Columns>
<asp:TemplateColumn HeaderText="Select">
<HeaderStyle Wrap="False" HorizontalAlign="Center" Width="10px">
</HeaderStyle>
<ItemStyle Wrap="False" HorizontalAlign="Center">
</ItemStyle>
<ItemTemplate>
<asp:Checkbox ID="chkSelection" Runat="server" />
<asp:Label ID="hdnStoreID" Visible="False" Text='<%#
DataBinder.Eval(Container.DataItem, "Stock_No") %>' Runat=server />
<asp:Label ID="machineID" Visible="False" Text='<%#
DataBinder.Eval(Container.DataItem, "machineID") %>' Runat=server />
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
</asp:TemplateColumn>
<asp:HyperLinkColumn SortExpression="Stock_No"
DataNavigateURLField="Stock_No"
DataNavigateUrlFormatString="javascript:CenterWindow('machineInfo.aspx?Stock
_No={0}','550', '480');" HeaderText="STOCK NUMBER" DataTextField="Stock_No"
/>
<asp:TemplateColumn SortExpression="MACH_CODE" HeaderText="MACHINE CODE">
<HeaderStyle Wrap="False">
</HeaderStyle>
<ItemStyle Wrap="False">
</ItemStyle>
<ItemTemplate>
<asp:Label id=Label8 runat="server" Text='<%# DataBinder.Eval(Contain
er, "DataItem.MACH_CODE") %>'>
</asp:Label>
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
<EditItemTemplate>
<P>
<asp:TextBox id=txtMACH_CODE runat="server" Width="108px" Text='<%#
DataBinder.Eval(Container, "DataItem.MACH_CODE") %>'>
</asp:TextBox>
<asp:RequiredFieldValidator id="valMACH_CODE" runat="server"
ErrorMessage="MACH_CODE is required" ControlToValidate="txtMACH_CODE"
Display="None"></asp:RequiredFieldValidator></P>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn SortExpression="machineSIZE" HeaderText="machineSIZE">
<HeaderStyle Wrap="False">
</HeaderStyle>
<ItemStyle Wrap="False">
</ItemStyle>
<ItemTemplate>
<asp:Label id=Label9 runat="server" Text='<%#
DataBinder.Eval(Container, "DataItem.machineSIZE") %>'>
</asp:Label>
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
<EditItemTemplate>
<P>
<asp:TextBox id=txtSIZE runat="server" Width="107px" Text='<%#
DataBinder.Eval(Container, "DataItem.SIZE") %>'>
</asp:TextBox>
<asp:RequiredFieldValidator id="valSIZE" runat="server"
ErrorMessage="SIZE is required" ControlToValidate="txtSIZE"
Display="None"></asp:RequiredFieldValidator></P>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn SortExpression="MACHINE" HeaderText="MACHINE">
<HeaderStyle Wrap="False">
</HeaderStyle>
<ItemStyle Wrap="False">
</ItemStyle>
<ItemTemplate>
<asp:Label id=Label7 runat="server" Text='<%#
DataBinder.Eval(Container, "DataItem.MACHINE") %>'>
</asp:Label>
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
<EditItemTemplate>
<P>
<asp:TextBox id=txtMACHINE runat="server" Width="100px" Text='<%#
DataBinder.Eval(Container, "DataItem.MACHINE") %>'>
</asp:TextBox></P>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn SortExpression="ASKING_PRI" HeaderText="Price">
<HeaderStyle Wrap="False">
</HeaderStyle>
<ItemStyle Wrap="False">
</ItemStyle>
<ItemTemplate>
<asp:Label id="Label4" runat="server" Text='<%#
ChangeColor(DataBinder.Eval(Container,
"DataItem.ASKING_PRI"),DataBinder.Eval(Container, "DataItem.Sold_To")) %>'>
</asp:Label>
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
</asp:TemplateColumn>
</Columns>
<PagerStyle ForeColor="Black" Wrap="False" Mode="NumericPages">
</PagerStyle>
</asp:datagrid><asp:label id=Label1 style="Z-INDEX: 105; LEFT: 16px;
POSITION: absolute; TOP: 96px" runat="server" CssClass="objtext"
Width="80px">Machine Code </asp:label><asp:dropdownlist id=theMachCode
style="Z-INDEX: 106; LEFT: 104px; POSITION: absolute; TOP: 88px"
runat="server" CssClass="objtext" DataTextField="FULLDESC"
DataValueField="CATNUM"
OnSelectedIndexChanged="theMachCode_SelectedIndexChanged"
AutoPostBack="True"></asp:dropdownlist><asp:button id=Button1
style="Z-INDEX: 107; LEFT: 328px; POSITION: absolute; TOP: 120px"
runat="server" CssClass="inputSubmit"
Text="Search"></asp:button><asp:dropdownlist id=searchBy style="Z-INDEX:
109; LEFT: 416px; POSITION: absolute; TOP: 56px" runat="server"
CssClass="objtext">
<asp:ListItem Value="0" Selected="True">Optional</asp:ListItem>
<asp:ListItem Value="MACHINE">Machine</asp:ListItem>
<asp:ListItem Value="SERIAL_NO">Serial Number</asp:ListItem>
<asp:ListItem Value="STOCK_NO">Stock Number</asp:ListItem>
</asp:dropdownlist><asp:label id=Label5 style="Z-INDEX: 110; LEFT: 16px;
POSITION: absolute; TOP: 128px" runat="server" CssClass="objtext">View
By</asp:label><asp:dropdownlist id=DropDownView style="Z-INDEX: 111; LEFT:
104px; POSITION: absolute; TOP: 120px" runat="server" CssClass="objtext">
<asp:ListItem Value="1" Selected="True">Inventory</asp:ListItem>
<asp:ListItem Value="2">Sold</asp:ListItem>
<asp:ListItem Value="3">All</asp:ListItem>
</asp:dropdownlist><asp:label id=Label6 style="Z-INDEX: 112; LEFT: 200px;
POSITION: absolute; TOP: 128px" runat="server"
CssClass="objtext">Records</asp:label><asp:dropdownlist id=recordsCount
style="Z-INDEX: 113; LEFT: 256px; POSITION: absolute; TOP: 120px"
runat="server" CssClass="objtext">
<asp:ListItem Value="1000000" Selected="True">All</asp:ListItem>
<asp:ListItem Value="10">10</asp:ListItem>
<asp:ListItem Value="50">50</asp:ListItem>
<asp:ListItem Value="100">100</asp:ListItem>
<asp:ListItem Value="1000">1000</asp:ListItem>
</asp:dropdownlist><asp
anel id=Panel1
style="Z-INDEX: 114; LEFT: 16px; POSITION: absolute; TOP: 168px"
runat="server" Width="104px" Height="6px" Visible="False">
<asp:Button id=Button4 runat="server" CssClass="inputSubmit" Text="View
Machines"></asp:Button></aspanel><aspanel
id=Panel2 style="Z-INDEX: 115; LEFT: 128px; POSITION: absolute; TOP: 168px"
runat="server" Width="104px" Visible="False">
<asp:Button id=Button2 runat="server" CssClass="inputSubmit" Text="Quote
Machines" Visible="True"></asp:Button></aspanel><aspanel
id=Panel3 style="Z-INDEX: 116; LEFT: 240px; POSITION: absolute; TOP: 168px"
runat="server" Width="96px" Height="16px" Visible="False">
<asp:Button id=Button3 runat="server" CssClass="inputSubmit" Text="Add to
Invoice"></asp:Button></aspanel><asp:label id=Label11 style="Z-INDEX: 117;
LEFT: 488px; POSITION: absolute; TOP: 168px" runat="server"
CssClass="objtext" ForeColor="Red" Visible="False"></asp:label>
<aspanel id=Panel4 style="Z-INDEX: 118; LEFT: 352px; POSITION: absolute;
TOP: 168px" runat="server" Width="8px" Visible="False">
<asp:Button id=Button5 runat="server" CssClass="inputSubmit" Text="Add to
Sales"></asp:Button></aspanel></form>
</body>
</HTML>
********************Code
Behind**********************************************************
****************************************************************************
************
Imports System.Data.SqlClient
Namespace ASPNETProduct
Public Class machine
Inherits System.Web.UI.Page
Protected WithEvents availMachList As
System.Web.UI.WebControls.DataGrid
Shared SelSort As String = ""
Protected WithEvents lblStatus As System.Web.UI.WebControls.Label
Protected WithEvents searchVal As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents theMachCode As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents searchBy As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label5 As System.Web.UI.WebControls.Label
Protected WithEvents DropDownView As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label6 As System.Web.UI.WebControls.Label
Protected WithEvents recordsCount As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
Protected WithEvents Button3 As System.Web.UI.WebControls.Button
Protected WithEvents Panel3 As System.Web.UI.WebControls.Panel
Protected WithEvents Button4 As System.Web.UI.WebControls.Button
Protected WithEvents Label11 As System.Web.UI.WebControls.Label
Protected WithEvents RequiredFieldValidator1 As
System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents Panel4 As System.Web.UI.WebControls.Panel
Protected WithEvents Button5 As System.Web.UI.WebControls.Button
Shared SelSortDir As String = "ASC" 'sort direction
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim CheckCookie As HttpCookie
CheckCookie = Request.Cookies("misc")
If CheckCookie Is Nothing Then
Session("pageRedir") = "machine.aspx"
Response.Redirect("mainLog.aspx")
Else
Session("pageRedir") = ""
End If
If Page.IsPostBack = False Then
Dim MachCodeList As New ASPNETProduct.machinedb()
theMachCode.DataSource = MachCodeList.GetAvailMachCodeList()
theMachCode.DataBind()
theMachCode.Items.Insert(0, New ListItem("All", "A0000"))
' FillDataGrid()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
FillDataGrid()
End Sub
'*******************************************************
'
' GetBrowsePath() is a helper method used to create the url
' to the document. If the size of the content stored in the
' database is non-zero, it creates a path to browse that.
' Otherwise, the FileNameUrl value is used.
'
' This method is used in the databinding expression for
' the browse Hyperlink within the DataGrid, and is called
' for each row when DataGrid.DataBind() is called. It is
' defined as a helper method here (as opposed to inline
' within the template) to improve code organization and
' avoid embedding logic within the content template.
'
'*******************************************************'
Function GetBrowsePath(ByVal documentId As Integer) As String
' if there is content in the database, create an
' url to browse it
Return "~/ViewDocument.aspx?DocumentID=" & documentId.ToString()
End Function
Function FillDataGrid()
Dim theSearchVal, theSearchBy, theSearchView, theMachCode1,
thecode As String
theSearchVal = searchVal.Text
theSearchBy = searchBy.SelectedItem.Value
theMachCode1 = theMachCode.SelectedItem.Value
theSearchView = DropDownView.SelectedItem.Value
Dim availMach As New ASPNETProduct.machinedb()
Dim dstMachList As DataSet
dstMachList = availMach.GetAvailMach(theSearchVal, theSearchBy,
theMachCode1, theSearchView, SelSort, SelSortDir)
availMachList.DataSource = dstMachList
Panel1.Visible = True
Panel2.Visible = True
Panel3.Visible = True
Panel4.Visible = True
' If recordsCount.SelectedItem.Value = "all" Then
' availMachList.PageSize = dstMachList.
' Else
availMachList.PageSize = recordsCount.SelectedItem.Value
' Button2.Visible = True
' End If
availMachList.DataBind()
End Function
Private Sub availMachList_ItemCreated(ByVal sender As Object, ByVal
e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles
availMachList.ItemCreated
Dim elemType As ListItemType = e.Item.ItemType
If (elemType = ListItemType.Header) Then
Dim strsortby As String = CStr(viewstate("SortExpression"))
'Get the Field to sort by from the ViewState
Dim strSortAscending As String =
CStr(viewstate("SortAscending"))
Dim strOrder As String
If strSortAscending = "yes" Or IsNothing(strSortAscending)
Then 'Get the direction from the ViewState
strOrder = " 6" 'Down Arrorw
Else
strOrder = " 5" 'Up Arrow
End If
Dim i As Integer
'You must go through each column to determin what one to put
the arrow by
For i = 0 To availMachList.Columns.Count Step +1
If i < availMachList.Columns.Count Then
If strsortby =
availMachList.Columns(i).SortExpression And Not IsNothing(strsortby) Then
Dim cell As TableCell = e.Item.Cells(i)
Dim lblSorted As Label = New Label() 'Make a
new label to put by the sort field
lblSorted.Font.Name = "webdings"
lblSorted.Font.Size = FontUnit.XSmall
lblSorted.ForeColor =
lblSorted.ForeColor.DodgerBlue
lblSorted.Text = strOrder
cell.Controls.Add(lblSorted)
End If
End If
Next i
End If
End Sub
Private Sub availMachList_SortCommand(ByVal source As Object, ByVal
e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles
availMachList.SortCommand
'This helps determine what direction to sort in. If already
Ascending with a field, it will
'do descending and vice versa.
If SelSort = e.SortExpression Then
If SelSortDir = "ASC" Then
SelSortDir = "DESC"
viewstate("SortAscending") = "no"
Else
SelSortDir = "ASC"
viewstate("SortAscending") = "yes"
End If
End If
SelSort = e.SortExpression
viewstate("SortExpression") = e.SortExpression
FillDataGrid()
End Sub
Private Sub availMachList_PageIndexChanged(ByVal source As Object,
ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles
availMachList.PageIndexChanged
availMachList.CurrentPageIndex = e.NewPageIndex
FillDataGrid()
End Sub
Private Sub availMachList_SelectedIndexChanged(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
availMachList.SelectedIndexChanged
availMachList.CurrentPageIndex = 0
FillDataGrid()
End Sub
Sub availMachList_ItemDataBound(ByVal sender As Object, ByVal e As
DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then
e.Item.Attributes.Add("onmouseover",
"this.style.backgroundColor='Silver'")
e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='#ffffcc'")
e.Item.Attributes.Add("onclick",
"this.style.backgroundColor='ffff99'")
' e.Item.Attributes.Remove()
Else
End If
End Sub
Sub btnSelect_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable()
Dim machNum As Integer
machNum = 0
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
machNum = +machNum + 1
' strStoreName =
CType(myDataGridItem.FindControl("Label7"), Label).Text
'strStoreID =
CType(myDataGridItem.FindControl("machineID"), Label).Text
' lblStatus.Text += "The store name is <b>" &
strStoreName & "</b>"
' lblStatus.Text += " and the StoreID is <b>" &
strStoreID & "</b><br>"
End If
Next
Session("hashtest") = MyHashTable
Session("machNum") = machNum
' Dim sUrl As String = "viewMachine.aspx?OrderId=" &
CType(myDataGridItem.FindControl("Label10"), Label).Text
' Dim sFeatures As String =
"'height=500;width=500;left=100;top=50'"
'Dim arr = "showModalDialog('viewMachine.aspx?2', '',
'font-family:Verdana; font-size:12; dialogWidth:30em; dialogHeight:35em')"
' Create a client script to open the window
' Dim sScript As String
' sScript &= "<script language=javascript> "
' sScript &= arr
' sScript &= "window.open('" & sUrl & "',''," & sFeatures &
");"
' sScript &= "</script>"
' Write it into the output stream for immediate execution
' Response.Write(sScript)
' Dim sScript As String
Dim sScript As New System.Text.StringBuilder
sScript.Append("<SCRIPT language=""javascript"">" & vbCrLf)
sScript.Append("fnCallDialog('viewMachine.aspx')" & vbCrLf)
sScript.Append("</SCRIPT>" & vbCrLf)
RegisterStartupScript("ForceDefaultToScript", sScript.ToString)
'Response.Write(sScript)
End Sub
Function ChangeColor(ByVal value, ByVal value1)
If IsDBNull(value) Then
value = 0
End If
If IsDBNull(value1) Then
ChangeColor = Format(value, "#,###.00")
Else
ChangeColor = "<font color='red'>" & Format(value,
"#,###.00") & "</font>"
End If
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable()
Dim machSalesNum As String
machSalesNum = ""
Dim machNum = 0
Dim theval As String
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
machNum = +machNum + 1
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
theval = CType(myDataGridItem.FindControl("machineID"),
Label).Text
machSalesNum = machSalesNum + CStr(theval) + ","
End If
Next
If machNum = 0 Then
Label11.Text = "Please Select at least one machine to Quote"
Label11.Visible = True
Else
Label11.Visible = False
Session("hashQuote") = MyHashTable
Session("machQuoteNum") = machSalesNum
Response.Redirect("quotes/newQuote.aspx")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable
Dim machSalesNum As String
machSalesNum = ""
Dim machNum = 0
Dim theval As String
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
machNum = +machNum + 1
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
theval = CType(myDataGridItem.FindControl("machineID"),
Label).Text
'machNum = machNum + "'" + CStr(theval) + "',"
machSalesNum = machSalesNum + CStr(theval) + ","
End If
Next
If machNum = 0 Then
Label11.Text = "Please Select at least one machine to
Invoice"
Label11.Visible = True
Else
Label11.Visible = False
Session("hashQuote") = MyHashTable
Session("machSalesNum") = machSalesNum
Response.Redirect("quotes/QuoteConvert.aspx")
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable
Dim machNum = 0
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
machNum = +machNum + 1
' strStoreName =
CType(myDataGridItem.FindControl("Label7"), Label).Text
'strStoreID =
CType(myDataGridItem.FindControl("machineID"), Label).Text
' lblStatus.Text += "The store name is <b>" &
strStoreName & "</b>"
' lblStatus.Text += " and the StoreID is <b>" &
strStoreID & "</b><br>"
End If
Next
Session("hashtest") = MyHashTable
Session("machNum") = machNum
' Dim sUrl As String = "viewMachine.aspx?OrderId=" &
CType(myDataGridItem.FindControl("Label10"), Label).Text
' Dim sFeatures As String =
"'height=500;width=500;left=100;top=50'"
'Dim arr = "showModalDialog('viewMachine.aspx?2', '',
'font-family:Verdana; font-size:12; dialogWidth:30em; dialogHeight:35em')"
' Create a client script to open the window
' Dim sScript As String
' sScript &= "<script language=javascript> "
' sScript &= arr
' sScript &= "window.open('" & sUrl & "',''," & sFeatures &
");"
' sScript &= "</script>"
' Write it into the output stream for immediate execution
' Response.Write(sScript)
' Dim sScript As String
If machNum = 0 Then
Label11.Text = "Please Select at least one machine to view"
Label11.Visible = True
Else
Label11.Visible = False
Dim sScript As New System.Text.StringBuilder
sScript.Append("<SCRIPT language=""javascript"">" & vbCrLf)
sScript.Append("fnCallDialog('viewMachine.aspx')" & vbCrLf)
sScript.Append("</SCRIPT>" & vbCrLf)
RegisterStartupScript("ForceDefaultToScript",
sScript.ToString)
'Response.Write(sScript)
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable
Dim machSalesAddNum As String
machSalesAddNum = ""
Dim machNum = 0
Dim theval As String
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
machNum = +machNum + 1
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
theval = CType(myDataGridItem.FindControl("machineID"),
Label).Text
'machNum = machNum + "'" + CStr(theval) + "',"
machSalesAddNum = machSalesAddNum + CStr(theval) + ","
End If
Next
If machNum = 0 Then
Label11.Text = "Please Select at least one machine"
Label11.Visible = True
Else
Label11.Visible = False
Session("hashQuote") = MyHashTable
Session("machSalesAddNum") = machSalesAddNum
Response.Redirect("sales/Sales.aspx")
End If
End Sub
Sub theMachCode_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs)
FillDataGrid()
End Sub
End Class
End Namespace
********************GetAvailMach********************************************
**************
****************************************************************************
************
Public Function GetAvailMach(ByVal theSearchVal As String, ByVal theSearchBy
As String, ByVal MACH_CODE1 As String, ByVal theSearchView As String, ByVal
SelSort As String, ByVal SelSortDir As String) As DataSet
' Create Instance of Connection and Command Object
Dim myConnection As New
SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
Dim myCommand As New SqlDataAdapter("SelectOpenInventory", myConnection)
' Mark the Command as a SPROC
myCommand.SelectCommand.CommandType = CommandType.StoredProcedure
' Add Parameters to SPROC
Dim parametertheSearchVal As New SqlParameter("@theSearchVal",
SqlDbType.NVarChar, 100)
parametertheSearchVal.Value = theSearchVal
myCommand.SelectCommand.Parameters.Add(parametertheSearchVal)
Dim parametertheSearchBy As New SqlParameter("@theSearchBy",
SqlDbType.NVarChar, 100)
parametertheSearchBy.Value = theSearchBy
myCommand.SelectCommand.Parameters.Add(parametertheSearchBy)
Dim parameterMACH_CODE1 As New SqlParameter("@MACH_CODE",
SqlDbType.NVarChar, 50)
parameterMACH_CODE1.Value = MACH_CODE1
myCommand.SelectCommand.Parameters.Add(parameterMACH_CODE1)
Dim parametertheSearchView As New SqlParameter("@theSearchView",
SqlDbType.NVarChar, 50)
parametertheSearchView.Value = theSearchView
myCommand.SelectCommand.Parameters.Add(parametertheSearchView)
Dim parameterSelSort As New SqlParameter("@SelSort", SqlDbType.NVarChar, 50)
parameterSelSort.Value = SelSort
myCommand.SelectCommand.Parameters.Add(parameterSelSort)
Dim parameterSelSortDir As New SqlParameter("@SelSortDir",
SqlDbType.NVarChar, 10)
parameterSelSortDir.Value = SelSortDir
myCommand.SelectCommand.Parameters.Add(parameterSelSortDir)
' Create and Fill the DataSet
Dim myDataSet As New DataSet
myCommand.Fill(myDataSet)
' Return the datareader
Return myDataSet
End Function
********************SelectOpenInventory*************************************
*********************
****************************************************************************
************
CREATE PROCEDURE SelectOpenInventory
(
@theSearchVal nvarchar (100),
@theSearchBy nvarchar (20),
@MACH_CODE nvarchar (50),
@theSearchView nvarchar (2),
@SelSort nvarchar(50),
@SelSortDir nvarchar(10)
)
AS
SET NOCOUNT ON;
DECLARE @SQLString varchar(1050)
SET @SQLString = 'SELECT DISTINCT
InventoryRecord.MACH_CODE,
InventoryRecord.machineSIZE,
InventoryRecord.MACHINE,
InventoryRecord.ASKING_PRI,
InventoryRecord.machineID,
InventoryRecord.STOCK_NO,
InventoryRecord.SOLD_TO,
InventoryRecord.codesID,
MachineCodes.CATNUM,
MachineCodes.DESCRIPTION
FROM
InventoryRecord
INNER JOIN MachineCodes ON InventoryRecord.codesID = MachineCodes.codesID'
IF @theSearchView = '1'
SET @SQLString = @SQLString + '
WHERE InventoryRecord.Sold_To IS NULL '
IF @theSearchView = '2'
SET @SQLString = @SQLString + '
WHERE InventoryRecord.Sold_To IS NOT NULL '
IF @theSearchView = '3'
SET @SQLString = @SQLString + '
WHERE (InventoryRecord.Sold_To IS NULL or InventoryRecord.Sold_To IS NOT
NULL) '
IF @theSearchBy <>'0'
SET @SQLString = @SQLString + '
AND InventoryRecord.' + @theSearchBy + ' like ''' + @theSearchVal + '%'''
IF @MACH_CODE <> 'A0000'
SET @SQLString = @SQLString + '
AND InventoryRecord.mach_Code = ''' + @MACH_CODE + ''''
IF @SelSort = ''
SET @SQLString = @SQLString + '
ORDER BY MachineCodes.CATNUM, InventoryRecord.machineSIZE,
InventoryRecord.MACHINE'
IF @SelSort <> ''
SET @SQLString = @SQLString + '
order by ' + @SelSort + ''
IF @SelSortDir <> ''
SET @SQLString = @SQLString + '
' + @SelSortDir + ''
print @SQLString
EXEC (@SQLString)
GO
--
______________________
David Fetrow
HelixPoint LLC.
http://www.helixpoint.com
(e-mail address removed)
Interested in Affordable Email Marketing?
Check out the HelixMailer at http://www.helixpoint.com/helixmailer.asp
If you are interested in becoming a Reseller of HelixPoint products, contact
(e-mail address removed)
______________________
render on the web page????
*************ASPX PAGE******************************
<%@ Register TagPrefix="uc1" TagName="_Header" Src="_Header.ascx" %>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="machine.aspx.vb"
Inherits="ASPNETProduct.ASPNETProduct.machine"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>machine</title>
<meta content="Microsoft Visual Studio.NET 7.0" name=GENERATOR>
<meta content="Visual Basic 7.0" name=CODE_LANGUAGE>
<meta content=JavaScript name=vs_defaultClientScript>
<meta content=http://schemas.microsoft.com/intellisense/ie5
name=vs_targetSchema>
<script src="include/tabbed.js" type=text/javascript></script>
<script src="include/newWindow.js" type=text/javascript></script>
<LINK href="styles.css" type=text/css rel=STYLESHEET >
<script language=JavaScript>
function fnCallDialog(theURL)
{
var res = showModalDialog(theURL,window,"status:false; dialogHide:Yes;
resizable: No; scroll:No; status: No; help: No; edge:
Sunken;dialogWidth:684px;dialogHeight:560px");
if( res == 1 ){
location.href="Quotes/newQuote.aspx";
}
}
</script>
</HEAD>
<body background=images\background.gif MS_POSITIONING="GridLayout">
<uc1:_header id=_Header1 runat="server"></uc1:_header>
<form id=Form1 method=post runat="server"><asp:label id=Label2
style="Z-INDEX: 103; LEFT: 16px; POSITION: absolute; TOP: 64px"
runat="server" CssClass="objtext"
Width="40px">Search</asp:label><asp:textbox id=searchVal style="Z-INDEX:
104; LEFT: 104px; POSITION: absolute; TOP: 56px" runat="server"
CssClass="objtext" Width="272px"></asp:textbox><asp:label id=Label3
style="Z-INDEX: 108; LEFT: 392px; POSITION: absolute; TOP: 64px"
runat="server" CssClass="objtext"
Width="16px">By</asp:label><br> <asp:label id=lblStatus style="Z-INDEX:
101; LEFT: 8px; POSITION: absolute; TOP: 472px" Font-Name="verdana"
ForeColor="#ff0000" Runat="server" Font-Size="12px"></asp:label>
<asp:datagrid id=availMachList style="Z-INDEX: 102; LEFT: 8px; POSITION:
absolute; TOP: 200px" runat="server" Width="100%"
OnItemDataBound="availMachList_ItemDataBound" CellPadding="3"
AllowPaging="True" AllowSorting="True" AutoGenerateColumns="False">
<SelectedItemStyle Font-Size="Smaller" Font-Bold="True" Wrap="False"
BackColor="LightBlue">
</SelectedItemStyle>
<EditItemStyle Font-Size="Smaller" Wrap="False" BackColor="Silver">
</EditItemStyle>
<AlternatingItemStyle Font-Size="11px" Font-Names="Arial" Wrap="False"
BorderStyle="Groove" BackColor="#FFFFCC">
</AlternatingItemStyle>
<ItemStyle Font-Size="11px" Font-Names="Arial" Wrap="False"
BackColor="#FFFFCC">
</ItemStyle>
<HeaderStyle Font-Size="11px" Font-Names="Arial" Wrap="False"
HorizontalAlign="Left" BackColor="#CCFFFF">
</HeaderStyle>
<FooterStyle Wrap="False">
</FooterStyle>
<Columns>
<asp:TemplateColumn HeaderText="Select">
<HeaderStyle Wrap="False" HorizontalAlign="Center" Width="10px">
</HeaderStyle>
<ItemStyle Wrap="False" HorizontalAlign="Center">
</ItemStyle>
<ItemTemplate>
<asp:Checkbox ID="chkSelection" Runat="server" />
<asp:Label ID="hdnStoreID" Visible="False" Text='<%#
DataBinder.Eval(Container.DataItem, "Stock_No") %>' Runat=server />
<asp:Label ID="machineID" Visible="False" Text='<%#
DataBinder.Eval(Container.DataItem, "machineID") %>' Runat=server />
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
</asp:TemplateColumn>
<asp:HyperLinkColumn SortExpression="Stock_No"
DataNavigateURLField="Stock_No"
DataNavigateUrlFormatString="javascript:CenterWindow('machineInfo.aspx?Stock
_No={0}','550', '480');" HeaderText="STOCK NUMBER" DataTextField="Stock_No"
/>
<asp:TemplateColumn SortExpression="MACH_CODE" HeaderText="MACHINE CODE">
<HeaderStyle Wrap="False">
</HeaderStyle>
<ItemStyle Wrap="False">
</ItemStyle>
<ItemTemplate>
<asp:Label id=Label8 runat="server" Text='<%# DataBinder.Eval(Contain
er, "DataItem.MACH_CODE") %>'>
</asp:Label>
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
<EditItemTemplate>
<P>
<asp:TextBox id=txtMACH_CODE runat="server" Width="108px" Text='<%#
DataBinder.Eval(Container, "DataItem.MACH_CODE") %>'>
</asp:TextBox>
<asp:RequiredFieldValidator id="valMACH_CODE" runat="server"
ErrorMessage="MACH_CODE is required" ControlToValidate="txtMACH_CODE"
Display="None"></asp:RequiredFieldValidator></P>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn SortExpression="machineSIZE" HeaderText="machineSIZE">
<HeaderStyle Wrap="False">
</HeaderStyle>
<ItemStyle Wrap="False">
</ItemStyle>
<ItemTemplate>
<asp:Label id=Label9 runat="server" Text='<%#
DataBinder.Eval(Container, "DataItem.machineSIZE") %>'>
</asp:Label>
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
<EditItemTemplate>
<P>
<asp:TextBox id=txtSIZE runat="server" Width="107px" Text='<%#
DataBinder.Eval(Container, "DataItem.SIZE") %>'>
</asp:TextBox>
<asp:RequiredFieldValidator id="valSIZE" runat="server"
ErrorMessage="SIZE is required" ControlToValidate="txtSIZE"
Display="None"></asp:RequiredFieldValidator></P>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn SortExpression="MACHINE" HeaderText="MACHINE">
<HeaderStyle Wrap="False">
</HeaderStyle>
<ItemStyle Wrap="False">
</ItemStyle>
<ItemTemplate>
<asp:Label id=Label7 runat="server" Text='<%#
DataBinder.Eval(Container, "DataItem.MACHINE") %>'>
</asp:Label>
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
<EditItemTemplate>
<P>
<asp:TextBox id=txtMACHINE runat="server" Width="100px" Text='<%#
DataBinder.Eval(Container, "DataItem.MACHINE") %>'>
</asp:TextBox></P>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn SortExpression="ASKING_PRI" HeaderText="Price">
<HeaderStyle Wrap="False">
</HeaderStyle>
<ItemStyle Wrap="False">
</ItemStyle>
<ItemTemplate>
<asp:Label id="Label4" runat="server" Text='<%#
ChangeColor(DataBinder.Eval(Container,
"DataItem.ASKING_PRI"),DataBinder.Eval(Container, "DataItem.Sold_To")) %>'>
</asp:Label>
</ItemTemplate>
<FooterStyle Wrap="False">
</FooterStyle>
</asp:TemplateColumn>
</Columns>
<PagerStyle ForeColor="Black" Wrap="False" Mode="NumericPages">
</PagerStyle>
</asp:datagrid><asp:label id=Label1 style="Z-INDEX: 105; LEFT: 16px;
POSITION: absolute; TOP: 96px" runat="server" CssClass="objtext"
Width="80px">Machine Code </asp:label><asp:dropdownlist id=theMachCode
style="Z-INDEX: 106; LEFT: 104px; POSITION: absolute; TOP: 88px"
runat="server" CssClass="objtext" DataTextField="FULLDESC"
DataValueField="CATNUM"
OnSelectedIndexChanged="theMachCode_SelectedIndexChanged"
AutoPostBack="True"></asp:dropdownlist><asp:button id=Button1
style="Z-INDEX: 107; LEFT: 328px; POSITION: absolute; TOP: 120px"
runat="server" CssClass="inputSubmit"
Text="Search"></asp:button><asp:dropdownlist id=searchBy style="Z-INDEX:
109; LEFT: 416px; POSITION: absolute; TOP: 56px" runat="server"
CssClass="objtext">
<asp:ListItem Value="0" Selected="True">Optional</asp:ListItem>
<asp:ListItem Value="MACHINE">Machine</asp:ListItem>
<asp:ListItem Value="SERIAL_NO">Serial Number</asp:ListItem>
<asp:ListItem Value="STOCK_NO">Stock Number</asp:ListItem>
</asp:dropdownlist><asp:label id=Label5 style="Z-INDEX: 110; LEFT: 16px;
POSITION: absolute; TOP: 128px" runat="server" CssClass="objtext">View
By</asp:label><asp:dropdownlist id=DropDownView style="Z-INDEX: 111; LEFT:
104px; POSITION: absolute; TOP: 120px" runat="server" CssClass="objtext">
<asp:ListItem Value="1" Selected="True">Inventory</asp:ListItem>
<asp:ListItem Value="2">Sold</asp:ListItem>
<asp:ListItem Value="3">All</asp:ListItem>
</asp:dropdownlist><asp:label id=Label6 style="Z-INDEX: 112; LEFT: 200px;
POSITION: absolute; TOP: 128px" runat="server"
CssClass="objtext">Records</asp:label><asp:dropdownlist id=recordsCount
style="Z-INDEX: 113; LEFT: 256px; POSITION: absolute; TOP: 120px"
runat="server" CssClass="objtext">
<asp:ListItem Value="1000000" Selected="True">All</asp:ListItem>
<asp:ListItem Value="10">10</asp:ListItem>
<asp:ListItem Value="50">50</asp:ListItem>
<asp:ListItem Value="100">100</asp:ListItem>
<asp:ListItem Value="1000">1000</asp:ListItem>
</asp:dropdownlist><asp
anel id=Panel1style="Z-INDEX: 114; LEFT: 16px; POSITION: absolute; TOP: 168px"
runat="server" Width="104px" Height="6px" Visible="False">
<asp:Button id=Button4 runat="server" CssClass="inputSubmit" Text="View
Machines"></asp:Button></asp
anel><aspanelid=Panel2 style="Z-INDEX: 115; LEFT: 128px; POSITION: absolute; TOP: 168px"
runat="server" Width="104px" Visible="False">
<asp:Button id=Button2 runat="server" CssClass="inputSubmit" Text="Quote
Machines" Visible="True"></asp:Button></asp
anel><aspanelid=Panel3 style="Z-INDEX: 116; LEFT: 240px; POSITION: absolute; TOP: 168px"
runat="server" Width="96px" Height="16px" Visible="False">
<asp:Button id=Button3 runat="server" CssClass="inputSubmit" Text="Add to
Invoice"></asp:Button></asp
anel><asp:label id=Label11 style="Z-INDEX: 117;LEFT: 488px; POSITION: absolute; TOP: 168px" runat="server"
CssClass="objtext" ForeColor="Red" Visible="False"></asp:label>
<asp
anel id=Panel4 style="Z-INDEX: 118; LEFT: 352px; POSITION: absolute;TOP: 168px" runat="server" Width="8px" Visible="False">
<asp:Button id=Button5 runat="server" CssClass="inputSubmit" Text="Add to
Sales"></asp:Button></asp
anel></form></body>
</HTML>
********************Code
Behind**********************************************************
****************************************************************************
************
Imports System.Data.SqlClient
Namespace ASPNETProduct
Public Class machine
Inherits System.Web.UI.Page
Protected WithEvents availMachList As
System.Web.UI.WebControls.DataGrid
Shared SelSort As String = ""
Protected WithEvents lblStatus As System.Web.UI.WebControls.Label
Protected WithEvents searchVal As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents theMachCode As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents searchBy As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label5 As System.Web.UI.WebControls.Label
Protected WithEvents DropDownView As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label6 As System.Web.UI.WebControls.Label
Protected WithEvents recordsCount As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
Protected WithEvents Button3 As System.Web.UI.WebControls.Button
Protected WithEvents Panel3 As System.Web.UI.WebControls.Panel
Protected WithEvents Button4 As System.Web.UI.WebControls.Button
Protected WithEvents Label11 As System.Web.UI.WebControls.Label
Protected WithEvents RequiredFieldValidator1 As
System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents Panel4 As System.Web.UI.WebControls.Panel
Protected WithEvents Button5 As System.Web.UI.WebControls.Button
Shared SelSortDir As String = "ASC" 'sort direction
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim CheckCookie As HttpCookie
CheckCookie = Request.Cookies("misc")
If CheckCookie Is Nothing Then
Session("pageRedir") = "machine.aspx"
Response.Redirect("mainLog.aspx")
Else
Session("pageRedir") = ""
End If
If Page.IsPostBack = False Then
Dim MachCodeList As New ASPNETProduct.machinedb()
theMachCode.DataSource = MachCodeList.GetAvailMachCodeList()
theMachCode.DataBind()
theMachCode.Items.Insert(0, New ListItem("All", "A0000"))
' FillDataGrid()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
FillDataGrid()
End Sub
'*******************************************************
'
' GetBrowsePath() is a helper method used to create the url
' to the document. If the size of the content stored in the
' database is non-zero, it creates a path to browse that.
' Otherwise, the FileNameUrl value is used.
'
' This method is used in the databinding expression for
' the browse Hyperlink within the DataGrid, and is called
' for each row when DataGrid.DataBind() is called. It is
' defined as a helper method here (as opposed to inline
' within the template) to improve code organization and
' avoid embedding logic within the content template.
'
'*******************************************************'
Function GetBrowsePath(ByVal documentId As Integer) As String
' if there is content in the database, create an
' url to browse it
Return "~/ViewDocument.aspx?DocumentID=" & documentId.ToString()
End Function
Function FillDataGrid()
Dim theSearchVal, theSearchBy, theSearchView, theMachCode1,
thecode As String
theSearchVal = searchVal.Text
theSearchBy = searchBy.SelectedItem.Value
theMachCode1 = theMachCode.SelectedItem.Value
theSearchView = DropDownView.SelectedItem.Value
Dim availMach As New ASPNETProduct.machinedb()
Dim dstMachList As DataSet
dstMachList = availMach.GetAvailMach(theSearchVal, theSearchBy,
theMachCode1, theSearchView, SelSort, SelSortDir)
availMachList.DataSource = dstMachList
Panel1.Visible = True
Panel2.Visible = True
Panel3.Visible = True
Panel4.Visible = True
' If recordsCount.SelectedItem.Value = "all" Then
' availMachList.PageSize = dstMachList.
' Else
availMachList.PageSize = recordsCount.SelectedItem.Value
' Button2.Visible = True
' End If
availMachList.DataBind()
End Function
Private Sub availMachList_ItemCreated(ByVal sender As Object, ByVal
e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles
availMachList.ItemCreated
Dim elemType As ListItemType = e.Item.ItemType
If (elemType = ListItemType.Header) Then
Dim strsortby As String = CStr(viewstate("SortExpression"))
'Get the Field to sort by from the ViewState
Dim strSortAscending As String =
CStr(viewstate("SortAscending"))
Dim strOrder As String
If strSortAscending = "yes" Or IsNothing(strSortAscending)
Then 'Get the direction from the ViewState
strOrder = " 6" 'Down Arrorw
Else
strOrder = " 5" 'Up Arrow
End If
Dim i As Integer
'You must go through each column to determin what one to put
the arrow by
For i = 0 To availMachList.Columns.Count Step +1
If i < availMachList.Columns.Count Then
If strsortby =
availMachList.Columns(i).SortExpression And Not IsNothing(strsortby) Then
Dim cell As TableCell = e.Item.Cells(i)
Dim lblSorted As Label = New Label() 'Make a
new label to put by the sort field
lblSorted.Font.Name = "webdings"
lblSorted.Font.Size = FontUnit.XSmall
lblSorted.ForeColor =
lblSorted.ForeColor.DodgerBlue
lblSorted.Text = strOrder
cell.Controls.Add(lblSorted)
End If
End If
Next i
End If
End Sub
Private Sub availMachList_SortCommand(ByVal source As Object, ByVal
e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles
availMachList.SortCommand
'This helps determine what direction to sort in. If already
Ascending with a field, it will
'do descending and vice versa.
If SelSort = e.SortExpression Then
If SelSortDir = "ASC" Then
SelSortDir = "DESC"
viewstate("SortAscending") = "no"
Else
SelSortDir = "ASC"
viewstate("SortAscending") = "yes"
End If
End If
SelSort = e.SortExpression
viewstate("SortExpression") = e.SortExpression
FillDataGrid()
End Sub
Private Sub availMachList_PageIndexChanged(ByVal source As Object,
ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles
availMachList.PageIndexChanged
availMachList.CurrentPageIndex = e.NewPageIndex
FillDataGrid()
End Sub
Private Sub availMachList_SelectedIndexChanged(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
availMachList.SelectedIndexChanged
availMachList.CurrentPageIndex = 0
FillDataGrid()
End Sub
Sub availMachList_ItemDataBound(ByVal sender As Object, ByVal e As
DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then
e.Item.Attributes.Add("onmouseover",
"this.style.backgroundColor='Silver'")
e.Item.Attributes.Add("onmouseout",
"this.style.backgroundColor='#ffffcc'")
e.Item.Attributes.Add("onclick",
"this.style.backgroundColor='ffff99'")
' e.Item.Attributes.Remove()
Else
End If
End Sub
Sub btnSelect_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable()
Dim machNum As Integer
machNum = 0
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
machNum = +machNum + 1
' strStoreName =
CType(myDataGridItem.FindControl("Label7"), Label).Text
'strStoreID =
CType(myDataGridItem.FindControl("machineID"), Label).Text
' lblStatus.Text += "The store name is <b>" &
strStoreName & "</b>"
' lblStatus.Text += " and the StoreID is <b>" &
strStoreID & "</b><br>"
End If
Next
Session("hashtest") = MyHashTable
Session("machNum") = machNum
' Dim sUrl As String = "viewMachine.aspx?OrderId=" &
CType(myDataGridItem.FindControl("Label10"), Label).Text
' Dim sFeatures As String =
"'height=500;width=500;left=100;top=50'"
'Dim arr = "showModalDialog('viewMachine.aspx?2', '',
'font-family:Verdana; font-size:12; dialogWidth:30em; dialogHeight:35em')"
' Create a client script to open the window
' Dim sScript As String
' sScript &= "<script language=javascript> "
' sScript &= arr
' sScript &= "window.open('" & sUrl & "',''," & sFeatures &
");"
' sScript &= "</script>"
' Write it into the output stream for immediate execution
' Response.Write(sScript)
' Dim sScript As String
Dim sScript As New System.Text.StringBuilder
sScript.Append("<SCRIPT language=""javascript"">" & vbCrLf)
sScript.Append("fnCallDialog('viewMachine.aspx')" & vbCrLf)
sScript.Append("</SCRIPT>" & vbCrLf)
RegisterStartupScript("ForceDefaultToScript", sScript.ToString)
'Response.Write(sScript)
End Sub
Function ChangeColor(ByVal value, ByVal value1)
If IsDBNull(value) Then
value = 0
End If
If IsDBNull(value1) Then
ChangeColor = Format(value, "#,###.00")
Else
ChangeColor = "<font color='red'>" & Format(value,
"#,###.00") & "</font>"
End If
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable()
Dim machSalesNum As String
machSalesNum = ""
Dim machNum = 0
Dim theval As String
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
machNum = +machNum + 1
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
theval = CType(myDataGridItem.FindControl("machineID"),
Label).Text
machSalesNum = machSalesNum + CStr(theval) + ","
End If
Next
If machNum = 0 Then
Label11.Text = "Please Select at least one machine to Quote"
Label11.Visible = True
Else
Label11.Visible = False
Session("hashQuote") = MyHashTable
Session("machQuoteNum") = machSalesNum
Response.Redirect("quotes/newQuote.aspx")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable
Dim machSalesNum As String
machSalesNum = ""
Dim machNum = 0
Dim theval As String
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
machNum = +machNum + 1
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
theval = CType(myDataGridItem.FindControl("machineID"),
Label).Text
'machNum = machNum + "'" + CStr(theval) + "',"
machSalesNum = machSalesNum + CStr(theval) + ","
End If
Next
If machNum = 0 Then
Label11.Text = "Please Select at least one machine to
Invoice"
Label11.Visible = True
Else
Label11.Visible = False
Session("hashQuote") = MyHashTable
Session("machSalesNum") = machSalesNum
Response.Redirect("quotes/QuoteConvert.aspx")
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable
Dim machNum = 0
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
machNum = +machNum + 1
' strStoreName =
CType(myDataGridItem.FindControl("Label7"), Label).Text
'strStoreID =
CType(myDataGridItem.FindControl("machineID"), Label).Text
' lblStatus.Text += "The store name is <b>" &
strStoreName & "</b>"
' lblStatus.Text += " and the StoreID is <b>" &
strStoreID & "</b><br>"
End If
Next
Session("hashtest") = MyHashTable
Session("machNum") = machNum
' Dim sUrl As String = "viewMachine.aspx?OrderId=" &
CType(myDataGridItem.FindControl("Label10"), Label).Text
' Dim sFeatures As String =
"'height=500;width=500;left=100;top=50'"
'Dim arr = "showModalDialog('viewMachine.aspx?2', '',
'font-family:Verdana; font-size:12; dialogWidth:30em; dialogHeight:35em')"
' Create a client script to open the window
' Dim sScript As String
' sScript &= "<script language=javascript> "
' sScript &= arr
' sScript &= "window.open('" & sUrl & "',''," & sFeatures &
");"
' sScript &= "</script>"
' Write it into the output stream for immediate execution
' Response.Write(sScript)
' Dim sScript As String
If machNum = 0 Then
Label11.Text = "Please Select at least one machine to view"
Label11.Visible = True
Else
Label11.Visible = False
Dim sScript As New System.Text.StringBuilder
sScript.Append("<SCRIPT language=""javascript"">" & vbCrLf)
sScript.Append("fnCallDialog('viewMachine.aspx')" & vbCrLf)
sScript.Append("</SCRIPT>" & vbCrLf)
RegisterStartupScript("ForceDefaultToScript",
sScript.ToString)
'Response.Write(sScript)
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
Dim MyHashTable As New Hashtable
Dim machSalesAddNum As String
machSalesAddNum = ""
Dim machNum = 0
Dim theval As String
For Each myDataGridItem In availMachList.Items
chkSelected = myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
machNum = +machNum + 1
MyHashTable.Add(CType(myDataGridItem.FindControl("machineID"), Label).Text,
CType(myDataGridItem.FindControl("Label7"), Label).Text)
theval = CType(myDataGridItem.FindControl("machineID"),
Label).Text
'machNum = machNum + "'" + CStr(theval) + "',"
machSalesAddNum = machSalesAddNum + CStr(theval) + ","
End If
Next
If machNum = 0 Then
Label11.Text = "Please Select at least one machine"
Label11.Visible = True
Else
Label11.Visible = False
Session("hashQuote") = MyHashTable
Session("machSalesAddNum") = machSalesAddNum
Response.Redirect("sales/Sales.aspx")
End If
End Sub
Sub theMachCode_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs)
FillDataGrid()
End Sub
End Class
End Namespace
********************GetAvailMach********************************************
**************
****************************************************************************
************
Public Function GetAvailMach(ByVal theSearchVal As String, ByVal theSearchBy
As String, ByVal MACH_CODE1 As String, ByVal theSearchView As String, ByVal
SelSort As String, ByVal SelSortDir As String) As DataSet
' Create Instance of Connection and Command Object
Dim myConnection As New
SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
Dim myCommand As New SqlDataAdapter("SelectOpenInventory", myConnection)
' Mark the Command as a SPROC
myCommand.SelectCommand.CommandType = CommandType.StoredProcedure
' Add Parameters to SPROC
Dim parametertheSearchVal As New SqlParameter("@theSearchVal",
SqlDbType.NVarChar, 100)
parametertheSearchVal.Value = theSearchVal
myCommand.SelectCommand.Parameters.Add(parametertheSearchVal)
Dim parametertheSearchBy As New SqlParameter("@theSearchBy",
SqlDbType.NVarChar, 100)
parametertheSearchBy.Value = theSearchBy
myCommand.SelectCommand.Parameters.Add(parametertheSearchBy)
Dim parameterMACH_CODE1 As New SqlParameter("@MACH_CODE",
SqlDbType.NVarChar, 50)
parameterMACH_CODE1.Value = MACH_CODE1
myCommand.SelectCommand.Parameters.Add(parameterMACH_CODE1)
Dim parametertheSearchView As New SqlParameter("@theSearchView",
SqlDbType.NVarChar, 50)
parametertheSearchView.Value = theSearchView
myCommand.SelectCommand.Parameters.Add(parametertheSearchView)
Dim parameterSelSort As New SqlParameter("@SelSort", SqlDbType.NVarChar, 50)
parameterSelSort.Value = SelSort
myCommand.SelectCommand.Parameters.Add(parameterSelSort)
Dim parameterSelSortDir As New SqlParameter("@SelSortDir",
SqlDbType.NVarChar, 10)
parameterSelSortDir.Value = SelSortDir
myCommand.SelectCommand.Parameters.Add(parameterSelSortDir)
' Create and Fill the DataSet
Dim myDataSet As New DataSet
myCommand.Fill(myDataSet)
' Return the datareader
Return myDataSet
End Function
********************SelectOpenInventory*************************************
*********************
****************************************************************************
************
CREATE PROCEDURE SelectOpenInventory
(
@theSearchVal nvarchar (100),
@theSearchBy nvarchar (20),
@MACH_CODE nvarchar (50),
@theSearchView nvarchar (2),
@SelSort nvarchar(50),
@SelSortDir nvarchar(10)
)
AS
SET NOCOUNT ON;
DECLARE @SQLString varchar(1050)
SET @SQLString = 'SELECT DISTINCT
InventoryRecord.MACH_CODE,
InventoryRecord.machineSIZE,
InventoryRecord.MACHINE,
InventoryRecord.ASKING_PRI,
InventoryRecord.machineID,
InventoryRecord.STOCK_NO,
InventoryRecord.SOLD_TO,
InventoryRecord.codesID,
MachineCodes.CATNUM,
MachineCodes.DESCRIPTION
FROM
InventoryRecord
INNER JOIN MachineCodes ON InventoryRecord.codesID = MachineCodes.codesID'
IF @theSearchView = '1'
SET @SQLString = @SQLString + '
WHERE InventoryRecord.Sold_To IS NULL '
IF @theSearchView = '2'
SET @SQLString = @SQLString + '
WHERE InventoryRecord.Sold_To IS NOT NULL '
IF @theSearchView = '3'
SET @SQLString = @SQLString + '
WHERE (InventoryRecord.Sold_To IS NULL or InventoryRecord.Sold_To IS NOT
NULL) '
IF @theSearchBy <>'0'
SET @SQLString = @SQLString + '
AND InventoryRecord.' + @theSearchBy + ' like ''' + @theSearchVal + '%'''
IF @MACH_CODE <> 'A0000'
SET @SQLString = @SQLString + '
AND InventoryRecord.mach_Code = ''' + @MACH_CODE + ''''
IF @SelSort = ''
SET @SQLString = @SQLString + '
ORDER BY MachineCodes.CATNUM, InventoryRecord.machineSIZE,
InventoryRecord.MACHINE'
IF @SelSort <> ''
SET @SQLString = @SQLString + '
order by ' + @SelSort + ''
IF @SelSortDir <> ''
SET @SQLString = @SQLString + '
' + @SelSortDir + ''
print @SQLString
EXEC (@SQLString)
GO
--
______________________
David Fetrow
HelixPoint LLC.
http://www.helixpoint.com
(e-mail address removed)
Interested in Affordable Email Marketing?
Check out the HelixMailer at http://www.helixpoint.com/helixmailer.asp
If you are interested in becoming a Reseller of HelixPoint products, contact
(e-mail address removed)
______________________