I am using version 2016.2.504.45 of the Telerik controls.
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="InventoryCycleReconciliation.aspx.vb" Inherits="InventoryCycleReconciliation" %>
<%@ Register assembly="Telerik.Web.UI" namespace="Telerik.Web.UI" tagprefix="telerik" %>
<!DOCTYPE html>
<head runat="server">
<title></title>
<style type="text/css">
.auto-style1 {
width: 960px;
height: 220px;
}
.UnknownClass {
background-color: #FF0000 /* red */;
}
.DifLocClass {
background-color: yellow;
}
.MatchClass {
background-color: #00FF00 /* green */;
}
.UnscannedClass {
background-color: white;
}
body {
margin: 0;
padding: 0;
}
html {
font-size: 120%;
float: left;
text-align: left;
margin-left: 0px;
line-height: 1.2;
}
html .RadMenu .rmLink,
html .RadMenu .rmHorizontal .rmText {
float: none;
padding: 0;
text-align: center;
}
@media (min-width:60em){
html {
font-size: 90%;
padding-top: 10px;
}
}
@media (max-width:360px){
.RadGrid {
width: 300px;
}
}
@media (min-width:361px) and (max-width:768px){
.RadGrid {
width: 360px;
}
}
@media (min-width:769px) and (max-width:1024px){
.RadGrid {
width: 770px;
}
}
@media (min-width:1025px) and (max-width:1280px){
.RadGrid {
width: 955px;
}
}
@media (min-width:1281px){
.RadGrid {
width: 955px;
}
}
</style>
<meta name="viewport" content="width=device-width, initial-scale=1" />
<script type="text/javascript" src="/scripts/jquery.min.js"></script>
<script type = "text/javascript" >
function preventBack() { window.history.forward(); }
setTimeout("preventBack()", 3);
window.onunload = function () { null };
</script>
<script type = "text/javascript" >
function GridCreated(sender, eventArgs) {
//gets the main table scrollArea HTLM element
var scrollArea = document.getElementById(sender.get_element().id + "_GridData");
var row = sender.get_masterTableView().get_selectedItems()[0];
//if the position of the selected row is below the viewable grid area
alert("row = " + row);
if (row) {
if ((row.get_element().offsetTop - scrollArea.scrollTop) + row.get_element().offsetHeight + 5 > scrollArea.offsetHeight) {
//scroll down to selected row
scrollArea.scrollTop = scrollArea.scrollTop + ((row.get_element().offsetTop - scrollArea.scrollTop) +
row.get_element().offsetHeight - scrollArea.offsetHeight) + row.get_element().offsetHeight;
}
//if the position of the the selected row is above the viewable grid area
else if ((row.get_element().offsetTop - scrollArea.scrollTop) < 0) {
//scroll the selected row to the top
scrollArea.scrollTop = row.get_element().offsetTop;
}
}
}
</script>
</head>
<body style="background-color: #3A4459">
<form id="form1" runat="server">
<telerik:RadScriptManager ID="RadScriptManager1" runat="server">
<Scripts>
<asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.Core.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.jQuery.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.jQueryInclude.js">
</asp:ScriptReference>
</Scripts>
</telerik:RadScriptManager>
<telerik:RadCodeBlock ID="RadCodeBlock1" runat="server">
<script type="text/javascript">
function pageLoad() {
var grid = $find("<%=rgInvntCycleReconcl.ClientID%>");
var master = grid.get_masterTableView();
if (master.get_selectedItems().length > 0) {
var item = master.get_selectedItems()[0];
var rowElement = item.get_element();
var offset = rowElement.offsetTop;
setScroll(grid, offset);
}
}
function setScroll(grid, scrollTop) {
var dataDiv = $telerik.findElement(grid.get_element(), grid.get_id() + "_GridData");
dataDiv.scrollTop = scrollTop;
}
</script>
</telerik:RadCodeBlock>
<div>
<telerik:RadPageLayout ID="Radpagelayout1" runat="server" GridType="Fluid" ForeColor="White" ShowGrid="False" EnableAjaxSkinRendering="False" EnableEmbeddedBaseStylesheet="True" EnableEmbeddedScripts="False" EnableEmbeddedSkins="False" HtmlTag="Div" RegisterWithScriptManager="True" RenderMode="Classic">
<Rows>
<telerik:LayoutRow Height="40px" HiddenXs="true" HiddenSm="true" HiddenMd="true">
<Columns>
<telerik:LayoutColumn Span="5" SpanMd="5" SpanSm="10">
<img alt="RSDC of Michigan" class="auto-style1" src="/images/RSDC_Logo2.jpg" />
</telerik:LayoutColumn>
</Columns>
</telerik:LayoutRow>
<telerik:LayoutRow Height="40px" HiddenLg="true" HiddenXl="true">
<Columns>
<telerik:LayoutColumn Span="7" SpanMd="9" SpanSm="12" SpanXs="12">
<br />
<telerik:RadButton ID="rbtnHome" runat="server" Text="HOME" RenderMode="Lightweight">
</telerik:RadButton>
<telerik:RadButton ID="rbtnLogOut" runat="server" Text="LOGOUT" RenderMode="Lightweight">
</telerik:RadButton>
<br />
<br />
</telerik:LayoutColumn>
</Columns>
</telerik:LayoutRow>
<telerik:LayoutRow Height="40px" HiddenXs="true" HiddenSm="true" HiddenMd="true">
<Columns>
<telerik:LayoutColumn Span="5" SpanMd="8" SpanSm="12">
<br />
<telerik:RadMenu ID="RadMenu1" Runat="server" Width="960px" Style="z-index: 50">
<Items>
<telerik:RadMenuItem runat="server" Font-Bold="True" Font-Size="14pt" NavigateUrl="CustomerPortal" Text="Home" Width="475px">
</telerik:RadMenuItem>
<telerik:RadMenuItem runat="server" IsSeparator="True" Text="Sep">
</telerik:RadMenuItem>
<telerik:RadMenuItem runat="server" Font-Bold="True" Font-Size="14pt" ForeColor="Red" Text="Logout" Width="475px">
</telerik:RadMenuItem>
</Items>
</telerik:RadMenu>
<br />
<br />
</telerik:LayoutColumn>
</Columns>
</telerik:LayoutRow>
<telerik:LayoutRow Height="40px">
<Columns>
<telerik:LayoutColumn Span="6" SpanMd="6" SpanSm="12">
<asp:Label ID="Label2" runat="server" Font-Bold="True" ForeColor="White" Width="300px" Text="Inventory Cycle Reconciliation"></asp:Label>
<br />
</telerik:LayoutColumn>
</Columns>
</telerik:LayoutRow>
<telerik:LayoutRow Height="40px">
<Columns>
<telerik:LayoutColumn Span="3" SpanXl="1" SpanLg="1" SpanMd="2" SpanSm="2">
Bay
</telerik:LayoutColumn>
<telerik:LayoutColumn Span="3" SpanXl="2" SpanLg="2" SpanMd="2" SpanSm="4" SpanXs="4">
<telerik:RadComboBox ID="rcbbBay" runat="server" MaxHeight="250px" AutoPostBack="true" Width="115px" RenderMode="Lightweight">
<Items>
<telerik:RadComboBoxItem runat="server" Text="A - Bay" Value="A - Bay" />
<telerik:RadComboBoxItem runat="server" Text="B - Bay" Value="B - Bay" />
<telerik:RadComboBoxItem runat="server" Text="C - Bay" Value="C - Bay" />
<telerik:RadComboBoxItem runat="server" Text="D - Bay" Value="D - Bay" />
<telerik:RadComboBoxItem runat="server" Text="E - Bay" Value="E - Bay" />
<telerik:RadComboBoxItem runat="server" Text="F - Bay" Value="F - Bay" />
<telerik:RadComboBoxItem runat="server" Text="G - Bay" Value="G - Bay" />
</Items>
</telerik:RadComboBox>
</telerik:LayoutColumn>
<telerik:LayoutColumn Span="3" SpanXl="3" SpanLg="3" SpanMd="3" SpanSm="3">
<telerik:RadTextBox ID="rtxtSerialNbr" Runat="server" EmptyMessage="Enter Serial#" Width="125px" RenderMode="Lightweight">
<EmptyMessageStyle Resize="None"></EmptyMessageStyle>
<ReadOnlyStyle Resize="None"></ReadOnlyStyle>
<FocusedStyle Resize="None"></FocusedStyle>
<DisabledStyle Resize="None"></DisabledStyle>
<InvalidStyle Resize="None"></InvalidStyle>
<HoveredStyle Resize="None"></HoveredStyle>
<EnabledStyle Resize="None"></EnabledStyle>
</telerik:RadTextBox>
</telerik:LayoutColumn>
</Columns>
</telerik:LayoutRow>
<telerik:LayoutRow Height="40px">
<Columns>
<telerik:LayoutColumn Span="3" SpanXl="1" SpanLg="1" SpanMd="2" SpanSm="2">
Column
</telerik:LayoutColumn>
<telerik:LayoutColumn Span="3" SpanXl="2" SpanLg="2" SpanMd="2" SpanSm="4" SpanXs="4">
<telerik:RadComboBox ID="rcbbCol1" runat="server" MaxHeight="250px" Width="115px" AutoPostBack="true" RenderMode="Lightweight">
</telerik:RadComboBox>
</telerik:LayoutColumn>
<telerik:LayoutColumn Span="3" SpanMd="3" SpanSm="3">
<telerik:RadButton ID="rbtnScan" runat="server" Text="SCAN" RenderMode="Lightweight" ValidationGroup="Submit">
</telerik:RadButton>
</telerik:LayoutColumn>
</Columns>
</telerik:LayoutRow>
<telerik:LayoutRow>
<Columns>
<telerik:LayoutColumn Span="3" SpanXl="1" SpanLg="1" SpanMd="2" SpanSm="2">
Row
</telerik:LayoutColumn>
<telerik:LayoutColumn Span="3" SpanXl="2" SpanLg="2" SpanMd="2" SpanSm="4" SpanXs="4">
<telerik:RadComboBox ID="rcbbRow1" runat="server" MaxHeight="250px" Width="115px" AutoPostBack="true" RenderMode="Lightweight">
<Items>
<telerik:RadComboBoxItem runat="server" Text="01" Value="01" />
<telerik:RadComboBoxItem runat="server" Text="02" Value="02" />
<telerik:RadComboBoxItem runat="server" Text="03" Value="03" />
<telerik:RadComboBoxItem runat="server" Text="04" Value="04" />
<telerik:RadComboBoxItem runat="server" Text="05" Value="05" />
<telerik:RadComboBoxItem runat="server" Text="06" Value="06" />
<telerik:RadComboBoxItem runat="server" Text="07" Value="07" />
<telerik:RadComboBoxItem runat="server" Text="08" Value="08" />
<telerik:RadComboBoxItem runat="server" Text="09" Value="09" />
<telerik:RadComboBoxItem runat="server" Text="10" Value="10" />
<telerik:RadComboBoxItem runat="server" Text="11" Value="11" />
<telerik:RadComboBoxItem runat="server" Text="12" Value="12" />
<telerik:RadComboBoxItem runat="server" Text="13" Value="13" />
<telerik:RadComboBoxItem runat="server" Text="14" Value="14" />
<telerik:RadComboBoxItem runat="server" Text="15" Value="15" />
<telerik:RadComboBoxItem runat="server" Text="16" Value="16" />
<telerik:RadComboBoxItem runat="server" Text="17" Value="17" />
<telerik:RadComboBoxItem runat="server" Text="18" Value="18" />
<telerik:RadComboBoxItem runat="server" Text="19" Value="19" />
<telerik:RadComboBoxItem runat="server" Text="20" Value="20" />
<telerik:RadComboBoxItem runat="server" Text="21" Value="21" />
<telerik:RadComboBoxItem runat="server" Text="22" Value="22" />
<telerik:RadComboBoxItem runat="server" Text="23" Value="23" />
<telerik:RadComboBoxItem runat="server" Text="24" Value="24" />
<telerik:RadComboBoxItem runat="server" Text="25" Value="25" />
<telerik:RadComboBoxItem runat="server" Text="26" Value="26" />
<telerik:RadComboBoxItem runat="server" Text="27" Value="27" />
<telerik:RadComboBoxItem runat="server" Text="28" Value="28" />
<telerik:RadComboBoxItem runat="server" Text="29" Value="29" />
<telerik:RadComboBoxItem runat="server" Text="30" Value="30" />
<telerik:RadComboBoxItem runat="server" Text="31" Value="31" />
<telerik:RadComboBoxItem runat="server" Text="32" Value="32" />
<telerik:RadComboBoxItem runat="server" Text="33" Value="33" />
<telerik:RadComboBoxItem runat="server" Text="34" Value="34" />
<telerik:RadComboBoxItem runat="server" Text="35" Value="35" />
<telerik:RadComboBoxItem runat="server" Text="36" Value="36" />
<telerik:RadComboBoxItem runat="server" Text="37" Value="37" />
<telerik:RadComboBoxItem runat="server" Text="38" Value="38" />
<telerik:RadComboBoxItem runat="server" Text="39" Value="39" />
<telerik:RadComboBoxItem runat="server" Text="40" Value="40" />
<telerik:RadComboBoxItem runat="server" Text="41" Value="41" />
<telerik:RadComboBoxItem runat="server" Text="42" Value="42" />
<telerik:RadComboBoxItem runat="server" Text="43" Value="43" />
<telerik:RadComboBoxItem runat="server" Text="44" Value="44" />
<telerik:RadComboBoxItem runat="server" Text="45" Value="45" />
<telerik:RadComboBoxItem runat="server" Text="46" Value="46" />
<telerik:RadComboBoxItem runat="server" Text="47" Value="47" />
<telerik:RadComboBoxItem runat="server" Text="48" Value="48" />
<telerik:RadComboBoxItem runat="server" Text="49" Value="49" />
<telerik:RadComboBoxItem runat="server" Text="50" Value="50" />
<telerik:RadComboBoxItem runat="server" Text="51" Value="51" />
<telerik:RadComboBoxItem runat="server" Text="52" Value="52" />
<telerik:RadComboBoxItem runat="server" Text="53" Value="53" />
<telerik:RadComboBoxItem runat="server" Text="54" Value="54" />
<telerik:RadComboBoxItem runat="server" Text="55" Value="55" />
<telerik:RadComboBoxItem runat="server" Text="56" Value="56" />
<telerik:RadComboBoxItem runat="server" Text="57" Value="57" />
<telerik:RadComboBoxItem runat="server" Text="58" Value="58" />
<telerik:RadComboBoxItem runat="server" Text="59" Value="59" />
<telerik:RadComboBoxItem runat="server" Text="60" Value="60" />
<telerik:RadComboBoxItem runat="server" Text="61" Value="61" />
<telerik:RadComboBoxItem runat="server" Text="62" Value="62" />
<telerik:RadComboBoxItem runat="server" Text="63" Value="63" />
<telerik:RadComboBoxItem runat="server" Text="64" Value="64" />
<telerik:RadComboBoxItem runat="server" Text="65" Value="65" />
<telerik:RadComboBoxItem runat="server" Text="66" Value="66" />
<telerik:RadComboBoxItem runat="server" Text="67" Value="67" />
<telerik:RadComboBoxItem runat="server" Text="68" Value="68" />
<telerik:RadComboBoxItem runat="server" Text="69" Value="69" />
<telerik:RadComboBoxItem runat="server" Text="70" Value="70" />
<telerik:RadComboBoxItem runat="server" Text="81" Value="81" />
<telerik:RadComboBoxItem runat="server" Text="82" Value="82" />
<telerik:RadComboBoxItem runat="server" Text="83" Value="83" />
<telerik:RadComboBoxItem runat="server" Text="84" Value="84" />
<telerik:RadComboBoxItem runat="server" Text="85" Value="85" />
<telerik:RadComboBoxItem runat="server" Text="86" Value="86" />
<telerik:RadComboBoxItem runat="server" Text="87" Value="87" />
<telerik:RadComboBoxItem runat="server" Text="88" Value="88" />
<telerik:RadComboBoxItem runat="server" Text="89" Value="89" />
<telerik:RadComboBoxItem runat="server" Text="90" Value="90" />
<telerik:RadComboBoxItem runat="server" Text="91" Value="91" />
<telerik:RadComboBoxItem runat="server" Text="92" Value="92" />
<telerik:RadComboBoxItem runat="server" Text="93" Value="93" />
<telerik:RadComboBoxItem runat="server" Text="94" Value="94" />
<telerik:RadComboBoxItem runat="server" Text="95" Value="95" />
<telerik:RadComboBoxItem runat="server" Text="96" Value="96" />
<telerik:RadComboBoxItem runat="server" Text="97" Value="97" />
<telerik:RadComboBoxItem runat="server" Text="98" Value="98" />
<telerik:RadComboBoxItem runat="server" Text="99" Value="99" />
</Items>
</telerik:RadComboBox>
</telerik:LayoutColumn>
</Columns>
</telerik:LayoutRow>
<telerik:LayoutRow Height="40px">
<Columns>
<telerik:LayoutColumn Span="4" SpanXl="12" SpanLg="12" SpanMd="9" SpanSm="10" SpanXs="8">
<br />
<telerik:RadLabel ID="rlblMessage" runat="server" RenderMode="Lightweight"></telerik:RadLabel>
</telerik:LayoutColumn>
</Columns>
</telerik:LayoutRow>
<telerik:LayoutRow Height="40px">
<Columns>
<telerik:LayoutColumn Span="4" SpanXl="12" SpanLg="12" SpanMd="9" SpanSm="10" SpanXs="8">
<br />
<telerik:RadGrid ID="rgInvntCycleReconcl" runat="server" GroupPanelPosition="Top" Height="246px" AutoGenerateColumns="False" AllowPaging="false" RenderMode="Auto"
OnNeedDataSource="rgInvntCycleReconcl_NeedDataSource">
<GroupingSettings CollapseAllTooltip="Collapse all groups" />
<ExportSettings IgnorePaging="True">
<Pdf AllowPrinting="False">
</Pdf>
<Excel FileExtension="xlsx" Format="Xlsx" />
</ExportSettings>
<ClientSettings>
<Scrolling AllowScroll="True" UseStaticHeaders="True" SaveScrollPosition="true" />
<Selecting AllowRowSelect="True" />
</ClientSettings>
<MasterTableView EnableViewState="true" Font-Size="Medium" DataKeyNames="SERIAL_NO">
<Columns>
<telerik:GridBoundColumn DataField="SERIAL_NO" FilterControlAltText="Filter column column" HeaderText="Serial No." ReadOnly="True" UniqueName="SerialNbr">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="LOCATION" FilterControlAltText="Filter column1 column" HeaderText="Location" ReadOnly="True" UniqueName="Location">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="STATUS" FilterControlAltText="Filter column2 column" HeaderText="Status" ReadOnly="True" UniqueName="Status">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="SCAN_LOC" FilterControlAltText="Filter column3 column" HeaderText="Scan Location" ReadOnly="True" UniqueName="ScanLocation">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="WEIGHT_KGS" FilterControlAltText="Filter column4 column" HeaderText="Weight KGS" ReadOnly="True" UniqueName="WeightKGS">
</telerik:GridBoundColumn>
</Columns>
</MasterTableView>
<PagerStyle Mode="NextPrevNumericAndAdvanced" />
</telerik:RadGrid>
</telerik:LayoutColumn>
</Columns>
</telerik:LayoutRow>
</Rows>
</telerik:RadPageLayout>
</div>
</form>
</body>
</html>
Imports System.Data
Imports System.Text.RegularExpressions
Imports Telerik.Web.UI
Partial Class InventoryCycleReconciliation
Inherits System.Web.UI.Page
Private sql As String
Private bHasError As Boolean = False, strErrorMsg As String
Private strSQLResult As String
Private myDSData As DataSet
Private Sub SetFilterFields()
Try
Dim ABayColNbrList As New ArrayList, BBayColNbrList As New ArrayList, CBayColNbrList As New ArrayList
Dim DEFGBayColNbrList As New ArrayList
Dim strBay As String = "A"
Dim strColumn As String = "", strRow As String = ""
Dim strScanLoc As String = ""
Dim strUser As String = "", strDecUser As String = ""
If Not Session("UserName") Is Nothing Then
strUser = CType(Session("UserName"), String)
strDecUser = DataEncryption.base64Decode(strUser)
strDecUser = DataEncryption.base64Decode(strDecUser)
strDecUser = DataEncryption.base64Decode(strDecUser)
strUser = strDecUser
End If
' Display Table name for specific users.
'If strUser = "KMJ9263" Or strUser = "DLM4221" Then
' lblTable.Text = "( VIEW_PLEX_ACTIVE_INVENTORY )"
'End If
' A - Bay Column Number List
For x As Integer = 1 To 4
ABayColNbrList.Add(x.ToString("00"))
Next
' B - Bay Column Number List
For x As Integer = 5 To 8
BBayColNbrList.Add(x.ToString("00"))
Next
' C - Bay Column Number List
For x As Integer = 9 To 12
CBayColNbrList.Add(x.ToString("00"))
Next
' Column Number List for D-Bay, E-Bay, F-Bay, and G-Bay.
For x As Integer = 1 To 26
DEFGBayColNbrList.Add(x.ToString("00"))
Next
' Save Column Numbers in Session variables.
Session("INVNTRYCYCLERECONCLABAYCOLNBRS") = ABayColNbrList
Session("INVNTRYCYCLERECONCLBBAYCOLNBRS") = BBayColNbrList
Session("INVNTRYCYCLERECONCLCBAYCOLNBRS") = CBayColNbrList
Session("INVNTRYCYCLERECONCLDEFGBAYCOLNBRS") = DEFGBayColNbrList
' Bay
If Not (Session("INVNTRYCYCLERECONCLBAY") Is Nothing) Then
rcbbBay.Items.FindItemByValue(CType(Session("INVNTRYCYCLERECONCLBAY"), String)).Selected = True
strBay = Left(rcbbBay.SelectedValue.Trim, 1)
End If
' Column Range
If rcbbCol1.Items.Count > 0 Then
rcbbCol1.DataSource = Nothing
rcbbCol1.Items.Clear()
End If
Select Case strBay
Case "A"
rcbbCol1.DataSource = ABayColNbrList
rcbbCol1.DataBind()
Case "B"
rcbbCol1.DataSource = BBayColNbrList
rcbbCol1.DataBind()
Case "C"
rcbbCol1.DataSource = CBayColNbrList
rcbbCol1.DataBind()
Case Else
rcbbCol1.DataSource = DEFGBayColNbrList
rcbbCol1.DataBind()
End Select
If Not (Session("INVNTRYCYCLERECONCLCOLNBR") Is Nothing) Then
rcbbCol1.Items.FindItemByValue(CType(Session("INVNTRYCYCLERECONCLCOLNBR"), String)).Selected = True
End If
strColumn = rcbbCol1.SelectedValue.ToString()
' Row Range
If strBay = "D" Or strBay = "E" Or strBay = "F" Or strBay = "G" Then
rcbbRow1.Enabled = False
strScanLoc = strBay & strColumn
Else
If Not (Session("INVNTRYCYCLERECONCLROWNBR") Is Nothing) Then
rcbbRow1.Items.FindItemByValue(CType(Session("INVNTRYCYCLERECONCLROWNBR"), String)).Selected = True
End If
strRow = rcbbRow1.SelectedValue.ToString()
strScanLoc = strBay & strColumn & "R" & strRow
End If
' Set up SQL statement for Grid.
sql = "SELECT SERIAL_NO, LOCATION, STATUS, SCAN_LOC, WEIGHT_KGS FROM ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY WHERE LOCATION = '" & strScanLoc & "' OR SCAN_LOC = '" & strScanLoc & "' ORDER BY SERIAL_NO"
Session("INVNTRYCYCLERECONCLSQLSTRING") = sql
' Set focus to Serial Number textbox
rtxtSerialNbr.Focus()
rtxtSerialNbr.Attributes.Add("onfocus", "this.select();")
Catch ex As Exception
strErrorMsg = "Procedure: SetFilterFields() - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
Try
Dim strUser As String = ""
Dim strDecUser As String = ""
Dim strAppName As String = "IPMENUINVNTRYCYCLERECONCLTN"
If Request.IsAuthenticated Then
'If IsPostBack Then
'End If
If Not Session("UserName") Is Nothing Then
strUser = CType(Session("UserName"), String)
strDecUser = DataEncryption.base64Decode(strUser)
strDecUser = DataEncryption.base64Decode(strDecUser)
strDecUser = DataEncryption.base64Decode(strDecUser)
strUser = strDecUser
End If
If LoginValidation.IsValidAppAccess(strUser, strAppName) Then
UserFunctions.UpdateAppActivity(strUser, strAppName)
SetFilterFields()
Else
Response.Redirect("CustomerPortal")
End If
Else
FormsAuthentication.RedirectToLoginPage()
End If
Catch ex As Exception
strErrorMsg = "Procedure: Page_Init - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Protected Sub rcbbBay_SelectedIndexChanged(sender As Object, e As RadComboBoxSelectedIndexChangedEventArgs) Handles rcbbBay.SelectedIndexChanged
Try
Dim ABayColNbrList As New ArrayList, BBayColNbrList As New ArrayList, CBayColNbrList As New ArrayList
Dim DEFGBayColNbrList As New ArrayList
Dim strBay As String = ""
Dim strColumn As String = "", strRow As String = ""
Dim strScanLoc As String = ""
' Column Number List for each Bay.
ABayColNbrList = CType(Session("INVNTRYCYCLERECONCLABAYCOLNBRS"), ArrayList)
BBayColNbrList = CType(Session("INVNTRYCYCLERECONCLBBAYCOLNBRS"), ArrayList)
CBayColNbrList = CType(Session("INVNTRYCYCLERECONCLCBAYCOLNBRS"), ArrayList)
DEFGBayColNbrList = CType(Session("INVNTRYCYCLERECONCLDEFGBAYCOLNBRS"), ArrayList)
' Bay
strBay = Left(rcbbBay.SelectedValue.Trim, 1)
' Column Range
If rcbbCol1.Items.Count > 0 Then
rcbbCol1.DataSource = Nothing
rcbbCol1.Items.Clear()
End If
Select Case strBay
Case "A"
rcbbCol1.DataSource = ABayColNbrList
rcbbCol1.DataBind()
rcbbRow1.Enabled = True
Case "B"
rcbbCol1.DataSource = BBayColNbrList
rcbbCol1.DataBind()
rcbbRow1.Enabled = True
Case "C"
rcbbCol1.DataSource = CBayColNbrList
rcbbCol1.DataBind()
rcbbRow1.Enabled = True
Case Else
rcbbCol1.DataSource = DEFGBayColNbrList
rcbbCol1.DataBind()
rcbbRow1.Enabled = False
End Select
strColumn = rcbbCol1.SelectedValue.ToString()
If rcbbRow1.Enabled Then
strRow = rcbbRow1.SelectedValue.ToString()
strScanLoc = strBay & strColumn & "R" & strRow
Else
strScanLoc = strBay & strColumn
End If
' Rebind grid with the records for the new Scan Location.
sql = "SELECT SERIAL_NO, LOCATION, STATUS, SCAN_LOC, WEIGHT_KGS FROM ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY WHERE LOCATION = '" & strScanLoc & "' OR SCAN_LOC = '" & strScanLoc & "' ORDER BY SERIAL_NO"
Session("INVNTRYCYCLERECONCLSQLSTRING") = sql
Session("INVNTRYCYCLERECONCLBAY") = rcbbBay.SelectedValue.Trim
Session("INVNTRYCYCLERECONCLCOLNBR") = rcbbCol1.SelectedValue.Trim
Session("INVNTRYCYCLERECONCLROWNBR") = rcbbRow1.SelectedValue.Trim
rgInvntCycleReconcl.Rebind()
' Set focus to Serial Number textbox
rtxtSerialNbr.Focus()
rtxtSerialNbr.Attributes.Add("onfocus", "this.select();")
Catch ex As Exception
strErrorMsg = "Procedure: rcbbBay_SelectedIndexChanged - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Protected Sub rcbbCol1_SelectedIndexChanged(sender As Object, e As RadComboBoxSelectedIndexChangedEventArgs) Handles rcbbCol1.SelectedIndexChanged
Try
Dim strBay As String = ""
Dim strColumn As String = "", strRow As String = ""
Dim strScanLoc As String = ""
' Bay
strBay = Left(rcbbBay.SelectedValue.Trim, 1)
' Column
strColumn = rcbbCol1.SelectedValue.ToString()
' Row
If rcbbRow1.Enabled Then
strRow = rcbbRow1.SelectedValue.ToString()
strScanLoc = strBay & strColumn & "R" & strRow
Else
strScanLoc = strBay & strColumn
End If
' Rebind grid with the records for the new Scan Location.
sql = "SELECT SERIAL_NO, LOCATION, STATUS, SCAN_LOC, WEIGHT_KGS FROM ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY WHERE LOCATION = '" & strScanLoc & "' OR SCAN_LOC = '" & strScanLoc & "' ORDER BY SERIAL_NO"
Session("INVNTRYCYCLERECONCLSQLSTRING") = sql
Session("INVNTRYCYCLERECONCLBAY") = rcbbBay.SelectedValue.Trim
Session("INVNTRYCYCLERECONCLCOLNBR") = rcbbCol1.SelectedValue.Trim
Session("INVNTRYCYCLERECONCLROWNBR") = rcbbRow1.SelectedValue.Trim
rgInvntCycleReconcl.Rebind()
' Set focus to Serial Number textbox
rtxtSerialNbr.Focus()
rtxtSerialNbr.Attributes.Add("onfocus", "this.select();")
Catch ex As Exception
strErrorMsg = "Procedure: rcbbCol1_SelectedIndexChanged - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Protected Sub rcbbRow1_SelectedIndexChanged(sender As Object, e As RadComboBoxSelectedIndexChangedEventArgs) Handles rcbbRow1.SelectedIndexChanged
Try
Dim strBay As String = ""
Dim strColumn As String = "", strRow As String = ""
Dim strScanLoc As String = ""
' Bay
strBay = Left(rcbbBay.SelectedValue.Trim, 1)
' Column
strColumn = rcbbCol1.SelectedValue.ToString()
' Row
If rcbbRow1.Enabled Then
strRow = rcbbRow1.SelectedValue.ToString()
strScanLoc = strBay & strColumn & "R" & strRow
Else
strScanLoc = strBay & strColumn
End If
' Rebind grid with the records for the new Scan Location.
sql = "SELECT SERIAL_NO, LOCATION, STATUS, SCAN_LOC, WEIGHT_KGS FROM ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY WHERE LOCATION = '" & strScanLoc & "' OR SCAN_LOC = '" & strScanLoc & "' ORDER BY SERIAL_NO"
Session("INVNTRYCYCLERECONCLSQLSTRING") = sql
Session("INVNTRYCYCLERECONCLBAY") = rcbbBay.SelectedValue.Trim
Session("INVNTRYCYCLERECONCLCOLNBR") = rcbbCol1.SelectedValue.Trim
Session("INVNTRYCYCLERECONCLROWNBR") = rcbbRow1.SelectedValue.Trim
rgInvntCycleReconcl.Rebind()
' Set focus to Serial Number textbox
rtxtSerialNbr.Focus()
rtxtSerialNbr.Attributes.Add("onfocus", "this.select();")
Catch ex As Exception
strErrorMsg = "Procedure: rcbbRow1_SelectedIndexChanged - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Protected Sub rbtnHome_Click(sender As Object, e As EventArgs) Handles rbtnHome.Click
Try
Response.Redirect("CustomerPortal")
Catch ex As Exception
strErrorMsg = "Procedure: rbtnHome_Click - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Protected Sub rbtnLogOut_Click(sender As Object, e As EventArgs) Handles rbtnLogOut.Click
Try
LoginValidation.LogoutUser()
Catch ex As Exception
strErrorMsg = "Procedure: rbtnLogOut_Click - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Protected Sub rbtnScan_Click(sender As Object, e As EventArgs) Handles rbtnScan.Click
Try
Dim strBay As String = ""
Dim strColumn As String = "", strRow As String = ""
Dim strScanLoc As String = "", strLocationFound As String = ""
Dim strSerialNbr As String = rtxtSerialNbr.Text.Trim.ToUpper
Dim dsSerialNbr As DataSet
Dim bValidSerialNbr As Boolean = False, bSerialNbrChecked As Boolean = False
Dim strStatus As String = ""
' Reset label for messages.
rlblMessage.Font.Bold = False
rlblMessage.ForeColor = Drawing.Color.White
rlblMessage.BackColor = Drawing.ColorTranslator.FromHtml("#3A4459")
rlblMessage.Text = ""
' Check if valid Serial Number
' Note 1: Valid Serial Numbers start with A, B, K, or M.
' Note 2: If Serial Number scanned (starts with S and has 9 digits starting with 3) or (does not start with S and has 9 digits starting with 3) then need to query VIEW_PLEX_ACTIVE_INVENTORY where
' RSDCID equals the 9 digits to find the SERIAL_NO. If it is found then use the Serial Number to check the Scan location and such.
If Not String.IsNullOrWhiteSpace(strSerialNbr) Then
If Regex.IsMatch(strSerialNbr, "^[A-Z0-9]*$") Then ' Is Serial Number only Letters and/or Numbers
' Serial Number has S prefix?
If Mid(strSerialNbr, 1, 1) = "S" Then
strSerialNbr = Mid(strSerialNbr, 2) ' Strip off the S prefix.
If Len(strSerialNbr) = 9 Then
If IsNumeric(strSerialNbr) Then
If Mid(strSerialNbr, 1, 1) = "3" Then
sql = "SELECT SERIAL_NO FROM VIEW_PLEX_ACTIVE_INVENTORY WHERE RSDCID = '" & strSerialNbr & "'"
dsSerialNbr = DataSetConfiguration.OracleDataSet(sql, "S01")
If dsSerialNbr.Tables(0).Rows.Count > 0 Then
strSerialNbr = IIf(Not IsDBNull(dsSerialNbr.Tables(0).Rows(0)(0)), dsSerialNbr.Tables(0).Rows(0)(0).ToString, "")
If Not String.IsNullOrWhiteSpace(strSerialNbr) Then
bValidSerialNbr = True
bSerialNbrChecked = True
Else
strStatus = "UNKNOWN"
bSerialNbrChecked = True
End If
Else
strStatus = "UNKNOWN"
bSerialNbrChecked = True
End If
Else
bSerialNbrChecked = True
End If
Else
bSerialNbrChecked = True
End If
Else
bSerialNbrChecked = True
End If
End If
' Serial Number start with 3?
If Not bSerialNbrChecked Then ' Check Serial Number if not already checked.
If Mid(strSerialNbr, 1, 1) = "3" Then
If Len(strSerialNbr) = 9 Then
If IsNumeric(strSerialNbr) Then
If Mid(strSerialNbr, 1, 1) = "3" Then
sql = "SELECT SERIAL_NO FROM VIEW_PLEX_ACTIVE_INVENTORY WHERE RSDCID = '" & strSerialNbr & "'"
dsSerialNbr = DataSetConfiguration.OracleDataSet(sql, "S01")
If dsSerialNbr.Tables(0).Rows.Count > 0 Then
strSerialNbr = IIf(Not IsDBNull(dsSerialNbr.Tables(0).Rows(0)(0)), dsSerialNbr.Tables(0).Rows(0)(0).ToString, "")
If Not String.IsNullOrWhiteSpace(strSerialNbr) Then
bValidSerialNbr = True
bSerialNbrChecked = True
Else
strStatus = "UNKNOWN"
bSerialNbrChecked = True
End If
Else
strStatus = "UNKNOWN"
bSerialNbrChecked = True
End If
Else
bSerialNbrChecked = True
End If
Else
bSerialNbrChecked = True
End If
Else
bSerialNbrChecked = True
End If
End If
End If
' Serial Number start with A, B, K, or M?
If Not bSerialNbrChecked Then ' Check Serial Number if not already checked.
If Mid(strSerialNbr, 1, 1) = "A" Or Mid(strSerialNbr, 1, 1) = "B" Or Mid(strSerialNbr, 1, 1) = "K" Or Mid(strSerialNbr, 1, 1) = "M" Then
bValidSerialNbr = True
End If
End If
End If
' Bay
strBay = Left(rcbbBay.SelectedValue.Trim, 1)
' Column
strColumn = rcbbCol1.SelectedValue.ToString()
' Row
If rcbbRow1.Enabled Then
strRow = rcbbRow1.SelectedValue.ToString()
strScanLoc = strBay & strColumn & "R" & strRow
Else
strScanLoc = strBay & strColumn
End If
If bValidSerialNbr And String.IsNullOrWhiteSpace(strStatus) Then
' Check if Serial Number scanned/entered exists in the Scan Location.
sql = "SELECT LOCATION, STATUS FROM ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY WHERE (LOCATION = '" & strScanLoc & "') AND (SERIAL_NO = '" & strSerialNbr & "') ORDER BY SERIAL_NO"
dsSerialNbr = DataSetConfiguration.OracleDataSet(sql, "S01")
If dsSerialNbr.Tables(0).Rows.Count > 0 Then
strStatus = UCase(dsSerialNbr.Tables(0).Rows(0)(1).ToString)
If strStatus = "UN-SCANNED" Then
' Update the Status.
sql = "UPDATE ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY SET STATUS = 'MATCH', SCAN_LOC = '" & strScanLoc & "' WHERE (LOCATION = '" & strScanLoc & "') AND SERIAL_NO = '" & strSerialNbr & "'"
strSQLResult = SQLExecution.SQLCommand(sql, "S01")
If Not String.IsNullOrWhiteSpace(strSQLResult) Then
strErrorMsg = "Procedure: rbtnScan_Click - InventoryCycleReconciliation" & vbCrLf & "Error Message: Update error - " & strSQLResult
UserFunctions.UserMsgBox(Me, strErrorMsg)
End If
End If
Else
' Check if Serial Number scanned/entered exists in the Temp table (PLEX_ACTIVE_CYCLE_INVENTORY).
sql = "SELECT LOCATION, STATUS FROM ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY WHERE SERIAL_NO = '" & strSerialNbr & "' ORDER BY SERIAL_NO"
dsSerialNbr = DataSetConfiguration.OracleDataSet(sql, "S01")
If dsSerialNbr.Tables(0).Rows.Count > 0 Then
strStatus = UCase(dsSerialNbr.Tables(0).Rows(0)(1).ToString)
If strStatus = "UN-SCANNED" Then
strLocationFound = IIf(Not IsDBNull(dsSerialNbr.Tables(0).Rows(0)(0)), dsSerialNbr.Tables(0).Rows(0)(0).ToString, "")
If Not String.IsNullOrWhiteSpace(strLocationFound) Then
If strLocationFound <> strScanLoc Then
' Update the Status.
sql = "UPDATE ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY SET STATUS = 'DIF-LOC', SCAN_LOC = '" & strScanLoc & "' WHERE SERIAL_NO = '" & strSerialNbr & "'"
strSQLResult = SQLExecution.SQLCommand(sql, "S01")
If Not String.IsNullOrWhiteSpace(strSQLResult) Then
strErrorMsg = "Procedure: rbtnScan_Click - InventoryCycleReconciliation" & vbCrLf & "Error Message: Update error - " & strSQLResult
UserFunctions.UserMsgBox(Me, strErrorMsg)
End If
End If
End If
End If
Else
' Check if Serial Number scanned/entered exists in VIEW_PLEX_ACTIVE_INVENTORY.
sql = "SELECT LOCATION FROM VIEW_PLEX_ACTIVE_INVENTORY WHERE SERIAL_NO = '" & strSerialNbr & "' ORDER BY SERIAL_NO"
dsSerialNbr = DataSetConfiguration.OracleDataSet(sql, "S01")
If dsSerialNbr.Tables(0).Rows.Count > 0 Then
strLocationFound = IIf(Not IsDBNull(dsSerialNbr.Tables(0).Rows(0)(0)), dsSerialNbr.Tables(0).Rows(0)(0).ToString, "")
If Not String.IsNullOrWhiteSpace(strLocationFound) Then
' Insert record into Temp table (PLEX_ACTIVE_CYCLE_INVENTORY).
sql = "INSERT INTO ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY (SERIAL_NO, LOCATION, STATUS, SCAN_LOC) VALUES('" & strSerialNbr & "','" & strLocationFound & "','DIF-LOC','" & strScanLoc & "')"
strSQLResult = SQLExecution.SQLCommand(sql, "S01")
If Not String.IsNullOrWhiteSpace(strSQLResult) Then
strErrorMsg = "Procedure: rbtnScan_Click - InventoryCycleReconciliation" & vbCrLf & "Error Message: Insert error - " & strSQLResult
UserFunctions.UserMsgBox(Me, strErrorMsg)
End If
Else
' Insert record into Temp table (PLEX_ACTIVE_CYCLE_INVENTORY).
sql = "INSERT INTO ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY (SERIAL_NO, LOCATION, STATUS, SCAN_LOC) VALUES('" & strSerialNbr & "','" & strLocationFound & "','UNKNOWN','" & strScanLoc & "')"
strSQLResult = SQLExecution.SQLCommand(sql, "S01")
If Not String.IsNullOrWhiteSpace(strSQLResult) Then
strErrorMsg = "Procedure: rbtnScan_Click - InventoryCycleReconciliation" & vbCrLf & "Error Message: Insert error - " & strSQLResult
UserFunctions.UserMsgBox(Me, strErrorMsg)
End If
End If
Else
' Insert record into Temp table (PLEX_ACTIVE_CYCLE_INVENTORY).
sql = "INSERT INTO ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY (SERIAL_NO, STATUS, SCAN_LOC) VALUES('" & strSerialNbr & "','UNKNOWN','" & strScanLoc & "')"
strSQLResult = SQLExecution.SQLCommand(sql, "S01")
If Not String.IsNullOrWhiteSpace(strSQLResult) Then
strErrorMsg = "Procedure: rbtnScan_Click - InventoryCycleReconciliation" & vbCrLf & "Error Message: Insert error - " & strSQLResult
UserFunctions.UserMsgBox(Me, strErrorMsg)
End If
End If
End If
End If
' Rebind Grid to show status of scan.
rgInvntCycleReconcl.Rebind()
' Select Row with Serial Number
Dim gdiItem As GridDataItem = rgInvntCycleReconcl.MasterTableView.FindItemByKeyValue("SERIAL_NO", strSerialNbr)
If Not gdiItem Is Nothing Then
gdiItem.Selected = True
End If
Else
If Not String.IsNullOrWhiteSpace(strStatus) Then
' Check if Serial Number scanned/entered exists in the Temp table (PLEX_ACTIVE_CYCLE_INVENTORY).
sql = "SELECT LOCATION FROM ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY WHERE SERIAL_NO = '" & strSerialNbr & "' ORDER BY SERIAL_NO"
dsSerialNbr = DataSetConfiguration.OracleDataSet(sql, "S01")
If dsSerialNbr.Tables(0).Rows.Count = 0 Then
' Insert record into Temp table (PLEX_ACTIVE_CYCLE_INVENTORY).
sql = "INSERT INTO ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY (SERIAL_NO, STATUS, SCAN_LOC) VALUES('" & strSerialNbr & "','" & strStatus & "','" & strScanLoc & "')"
strSQLResult = SQLExecution.SQLCommand(sql, "S01")
If Not String.IsNullOrWhiteSpace(strSQLResult) Then
strErrorMsg = "Procedure: rbtnScan_Click - InventoryCycleReconciliation" & vbCrLf & "Error Message: Insert error - " & strSQLResult
UserFunctions.UserMsgBox(Me, strErrorMsg)
End If
' Rebind Grid to show status of scan.
rgInvntCycleReconcl.Rebind()
' Select Row with Serial Number
Dim gdiItem As GridDataItem = rgInvntCycleReconcl.MasterTableView.FindItemByKeyValue("SERIAL_NO", strSerialNbr)
If Not gdiItem Is Nothing Then
gdiItem.Selected = True
End If
Else
' Select Row with Serial Number
Dim gdiItem As GridDataItem = rgInvntCycleReconcl.MasterTableView.FindItemByKeyValue("SERIAL_NO", strSerialNbr)
If Not gdiItem Is Nothing Then
gdiItem.Selected = True
End If
End If
Else
strErrorMsg = "Invalid Serial Number!"
rlblMessage.ForeColor = Drawing.Color.Red
rlblMessage.BackColor = Drawing.Color.White
rlblMessage.Text = strErrorMsg
End If
End If
Else
strErrorMsg = "No Serial # scanned\entered!"
rlblMessage.ForeColor = Drawing.Color.Red
rlblMessage.BackColor = Drawing.Color.White
rlblMessage.Text = strErrorMsg
End If
' Set focus to Serial Number textbox
rtxtSerialNbr.Focus()
rtxtSerialNbr.Attributes.Add("onfocus", "this.select();")
Catch ex As Exception
strErrorMsg = "Procedure: rbtnScan_Click - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Protected Sub rgInvntCycleReconcl_ItemDataBound(sender As Object, e As GridItemEventArgs) Handles rgInvntCycleReconcl.ItemDataBound
Try
'Is it a GridDataItem
If (TypeOf (e.Item) Is GridDataItem) Then
'Get the instance of the right type
Dim dataBoundItem As GridDataItem = CType(e.Item, GridDataItem)
'when "INACTIVE" then Red
'when "MATCH" then Green
'when "DIF-LOC" then Yellow
'when "UNKNOWN" then Red
Select Case dataBoundItem("Status").Text.ToUpper
Case "INACTIVE"
dataBoundItem("Status").CssClass = "UnknownClass"
Case "MATCH"
dataBoundItem("Status").CssClass = "MatchClass"
Case "DIF-LOC"
dataBoundItem("Status").CssClass = "DifLocClass"
Case "UNKNOWN"
dataBoundItem("Status").CssClass = "UnknownClass"
Case Else
'dataBoundItem("Status").CssClass = "UnscannedClass"
End Select
End If
Catch ex As Exception
strErrorMsg = "Procedure: rgInvntCycleReconcl_ItemDataBound - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Protected Sub rgInvntCycleReconcl_NeedDataSource(sender As Object, e As GridNeedDataSourceEventArgs) Handles rgInvntCycleReconcl.NeedDataSource
Try
If (Session("INVNTRYCYCLERECONCLSQLSTRING") Is Nothing) Then
sql = "SELECT SERIAL_NO, LOCATION, STATUS, SCAN_LOC, WEIGHT_KGS FROM ADMIN.PLEX_ACTIVE_CYCLE_INVENTORY ORDER BY SERIAL_NO"
Else
sql = CType(Session("INVNTRYCYCLERECONCLSQLSTRING"), String)
End If
myDSData = DataSetConfiguration.OracleDataSet(sql, "S01")
rgInvntCycleReconcl.DataSource = myDSData
Catch ex As Exception
strErrorMsg = "Procedure: rgInvntCycleReconcl_NeedDataSource - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
Protected Sub RadMenu1_ItemClick(sender As Object, e As RadMenuEventArgs) Handles RadMenu1.ItemClick
Try
Dim currentItem As RadMenuItem = RadMenu1.FindItemByText("Logout")
If Not currentItem Is Nothing Then
If currentItem.Selected Then
LoginValidation.LogoutUser()
End If
End If
Catch ex As Exception
strErrorMsg = "Procedure: RadMenu1_ItemClick - InventoryCycleReconciliation" & vbCrLf & "Error Message: " & ex.Message & vbCrLf & "Source: " & ex.Source
UserFunctions.UserMsgBox(Me, strErrorMsg)
End Try
End Sub
End Class