Hi
2008-02-26 12:00:46 UTC
Imports System.Web.Mail
Imports SBS.PifTotals
Imports System.Collections
Imports System.IO
Imports System.Text
Imports System.Data.SqlClient
Imports System.Xml
Public Class AddBldToProposalContract
Inherits System.Web.UI.Page
Dim sEquipment As String = ""
Dim bInactive As Byte = 0
#Region " Web Form Designer Generated Code "
Protected WithEvents txtLINote10 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID10 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP10 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY10 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc10 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineID10 As System.Web.UI.WebControls.Label
Protected WithEvents lblID10 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI10 As System.Web.UI.WebControls.DropDownList
Protected WithEvents PanelLI10 As System.Web.UI.WebControls.Panel
Protected WithEvents txtLINote9 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID9 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP9 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY9 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc9 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineID9 As System.Web.UI.WebControls.Label
Protected WithEvents lblID9 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI9 As System.Web.UI.WebControls.DropDownList
Protected WithEvents PanelLI9 As System.Web.UI.WebControls.Panel
Protected WithEvents txtLINote8 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID8 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP8 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY8 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc8 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineId8 As System.Web.UI.WebControls.Label
Protected WithEvents lblID8 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI8 As System.Web.UI.WebControls.DropDownList
Protected WithEvents PanelLI8 As System.Web.UI.WebControls.Panel
Protected WithEvents txtLINote7 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID7 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP7 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY7 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc7 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineID7 As System.Web.UI.WebControls.Label
Protected WithEvents lblID7 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI7 As System.Web.UI.WebControls.DropDownList
Protected WithEvents PanelLI7 As System.Web.UI.WebControls.Panel
Protected WithEvents txtLINote6 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID6 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP6 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY6 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc6 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineID6 As System.Web.UI.WebControls.Label
Protected WithEvents lblID6 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI6 As System.Web.UI.WebControls.DropDownList
Protected WithEvents PanelLI6 As System.Web.UI.WebControls.Panel
Protected WithEvents txtLINote5 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID5 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP5 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY5 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc5 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineId5 As System.Web.UI.WebControls.Label
Protected WithEvents lblID5 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI5 As System.Web.UI.WebControls.DropDownList
Protected WithEvents PanelLI5 As System.Web.UI.WebControls.Panel
Protected WithEvents txtLINote4 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID4 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP4 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY4 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc4 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineID4 As System.Web.UI.WebControls.Label
Protected WithEvents lblID4 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI4 As System.Web.UI.WebControls.DropDownList
Protected WithEvents PanelLI4 As System.Web.UI.WebControls.Panel
Protected WithEvents txtLINote3 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID3 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP3 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY3 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc3 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineID3 As System.Web.UI.WebControls.Label
Protected WithEvents lblID3 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI3 As System.Web.UI.WebControls.DropDownList
Protected WithEvents PanelLI3 As System.Web.UI.WebControls.Panel
Protected WithEvents txtLINote2 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID2 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP2 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY2 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc2 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineID2 As System.Web.UI.WebControls.Label
Protected WithEvents lblID2 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI2 As System.Web.UI.WebControls.DropDownList
Protected WithEvents panelLI2 As System.Web.UI.WebControls.Panel
Protected WithEvents txtLINote1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtLineID1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtUP1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtTPY1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDesc1 As System.Web.UI.WebControls.TextBox
Protected WithEvents lblLineID1 As System.Web.UI.WebControls.Label
Protected WithEvents lblID1 As System.Web.UI.WebControls.Label
Protected WithEvents drpLI1 As System.Web.UI.WebControls.DropDownList
Protected WithEvents lblDivID As System.Web.UI.WebControls.Label
Protected WithEvents DivLbl As System.Web.UI.WebControls.Label
Protected WithEvents divisionList As System.Web.UI.WebControls.DropDownList
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents lblLIID As System.Web.UI.WebControls.Label
'This call is required by the Web Form Designer.
End Sub
Protected WithEvents drpPIFNumber As System.Web.UI.WebControls.DropDownList
Protected WithEvents lstBld As System.Web.UI.WebControls.ListBox
Protected WithEvents lblAddID As System.Web.UI.WebControls.Label
Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
Protected WithEvents lblPIFNumber As System.Web.UI.WebControls.TextBox
Protected WithEvents chkMulti As System.Web.UI.WebControls.CheckBox
Protected WithEvents btnCancel As System.Web.UI.WebControls.Button
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
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
#Region " Variables "
Dim intCustID As Integer
Dim intdivID As Integer
Dim intADDID As Integer
Dim intPIFID As Int64
Private _ActiveDiv As String
Private _ServiceTicketXML As New System.Xml.XmlDocument
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
chkMulti.Checked = True
Session("TitleType") = "Add Building to Proposals and Contracts"
Session("User") = System.Security.Principal.WindowsIdentity.GetCurrent().Name
If Not IsPostBack Then
' If Request.QueryString("AddID") <> String.Empty AndAlso (Request.QueryString("DueDate") <> String.Empty Or Request.QueryString("ScheduledDate") <> String.Empty Or Request.QueryString("ActualDate") <> String.Empty) Then
If Request.QueryString("PIFID") <> String.Empty Then
intPIFID = Request.QueryString("PIFID")
_ActiveDiv = Request.QueryString("activeDivID")
PostBackCustProp(intPIFID)
Else
If Request.QueryString("activeDivID") <> String.Empty Then
_ActiveDiv = Request.QueryString("activeDivID")
If _ActiveDiv = "ALL" Then
intdivID = -1
lblDivID.Text = intdivID
Else
lblDivID.Text = _ActiveDiv
intdivID = lblDivID.Text
End If
Else
_ActiveDiv = "ALL"
intdivID = -1
lblDivID.Text = intdivID
End If
SetupDivisionFilter()
Session("iDivID") = intdivID
SelectCustProp()
End If
End If
If IsPostBack Then
End If
End Sub
Private Sub SetupDivisionFilter()
Dim mySQL As New SQLHelper
Dim myParams(1) As SqlParameter
Dim myDivDS As DataSet
Dim myItem As New ListItem("ALL", "ALL")
myParams(0) = New SqlParameter("@username", System.Security.Principal.WindowsIdentity.GetCurrent().Name)
myDivDS = mySQL.ExecuteDataset(CommandType.StoredProcedure, "DivisionByUser_S", myParams)
If myDivDS.Tables(0).Rows.Count > 1 Then
' DivisionCell.Visible = True
divisionList.DataTextField = "DivName"
divisionList.DataValueField = "DivID"
divisionList.DataSource = myDivDS.Tables(0)
divisionList.DataBind()
divisionList.Items.Insert(0, myItem)
divisionList.SelectedValue = _ActiveDiv
DivLbl.Visible = True
DivLbl.Text = divisionList.SelectedItem.Text.ToString
ElseIf myDivDS.Tables(0).Rows.Count = 1 Then
divisionList.Visible = False
DivLbl.Text = myDivDS.Tables(0).Rows(0).Item("DivName").ToString
DivLbl.Visible = True
Else
DivLbl.Visible = False
End If
'
End Sub
Private Sub DivisionList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles divisionList.SelectedIndexChanged
Response.Redirect("AddBldToProposalContract.aspx?activeDivID=" + divisionList.SelectedValue)
End Sub
Private Sub SelectCustProp()
Dim cn1 As System.Data.SqlClient.SqlConnection
Dim cmd1 As System.Data.SqlClient.SqlCommand
cn1 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cn1.Open()
Dim dtrPifNumber As System.Data.SqlClient.SqlDataReader
cmd1 = New System.Data.SqlClient.SqlCommand("GetProposalContracts", cn1)
cmd1.CommandType = CommandType.StoredProcedure
cmd1.Parameters.Add("@divID", DivLbl.Text)
dtrPifNumber = cmd1.ExecuteReader()
drpPIFNumber.DataSource = dtrPifNumber
drpPIFNumber.DataTextField = "CustProposal"
drpPIFNumber.DataValueField = "pifID"
drpPIFNumber.DataBind()
dtrPifNumber.Close()
cn1.Close()
lblPIFNumber.Text = drpPIFNumber.SelectedItem.Value
intPIFID = lblPIFNumber.Text
BindBlds(intPIFID)
End Sub
Private Sub PostBackCustProp(ByVal intPifID As Int64)
Dim cn1 As System.Data.SqlClient.SqlConnection
Dim cmd1 As System.Data.SqlClient.SqlCommand
cn1 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cn1.Open()
Dim dtrPifNumber As System.Data.SqlClient.SqlDataReader
cmd1 = New System.Data.SqlClient.SqlCommand("GetProposalContracts2", cn1)
cmd1.CommandType = CommandType.StoredProcedure
cmd1.Parameters.Add("@PIFID", intPifID)
dtrPifNumber = cmd1.ExecuteReader()
drpPIFNumber.DataSource = dtrPifNumber
drpPIFNumber.DataTextField = "CustProposal"
drpPIFNumber.DataValueField = "pifID"
drpPIFNumber.DataBind()
dtrPifNumber.Close()
cn1.Close()
lblPIFNumber.Text = drpPIFNumber.SelectedItem.Value
intPifID = lblPIFNumber.Text
BindBlds(intPifID)
End Sub
Sub drpPifNumber_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpPIFNumber.SelectedIndexChanged
Dim intPIFID As Int64
intPIFID = drpPIFNumber.SelectedItem.Value
lblPIFNumber.Text = intPIFID
Session("PIFID") = intPIFID
If intPIFID <> -1 Then
BindBlds(intPIFID)
End If
End Sub
Private Sub BindBlds(ByVal intPifID As Int64)
Dim cn As System.Data.SqlClient.SqlConnection
Dim cmd As System.Data.SqlClient.SqlCommand
cn = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cn.Open()
Dim dtrPIFBld As System.Data.SqlClient.SqlDataReader
cmd = New System.Data.SqlClient.SqlCommand("GetProposalContractBlds", cn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@PIFID_1", intPifID)
dtrPIFBld = cmd.ExecuteReader()
lstBld.DataSource = dtrPIFBld
lstBld.DataTextField = "BuildingName"
lstBld.DataValueField = "addID"
lstBld.DataBind()
dtrPIFBld.Close()
cn.Close()
End Sub
Sub lstBldg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstBld.SelectedIndexChanged
drpLI1.ClearSelection()
drpLI2.ClearSelection()
drpLI3.ClearSelection()
drpLI4.ClearSelection()
drpLI5.ClearSelection()
drpLI6.ClearSelection()
drpLI7.ClearSelection()
drpLI8.ClearSelection()
drpLI9.ClearSelection()
drpLI10.ClearSelection()
txtDesc1.Text = ""
txtDesc2.Text = ""
txtDesc3.Text = ""
txtDesc4.Text = ""
txtDesc5.Text = ""
txtDesc6.Text = ""
txtDesc7.Text = ""
txtDesc8.Text = ""
txtDesc9.Text = ""
txtDesc10.Text = ""
Dim intaddID As Integer
Dim msg As String
For Each li As ListItem In lstBld.Items
If li.Selected Then
msg &= String.Format("{0}", li.Text)
End If
Next
'lblBld.Text = msg
intaddID = lstBld.SelectedItem.Value
If intaddID <> -1 Then
BindBld(intaddID)
End If
End Sub
Sub BindBld(ByVal intAddID As Integer)
Dim conBld As System.Data.SqlClient.SqlConnection
Dim SelectBld As System.Data.SqlClient.SqlCommand
Dim dtrBld As System.Data.SqlClient.SqlDataReader
Dim strBld As String
conBld = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
conBld.Open()
strBld = "Select addID FROM Buildings WHERE addID=@addID_1"
SelectBld = New System.Data.SqlClient.SqlCommand(strBld, conBld)
SelectBld.Parameters.Add("@addID_1", intAddID)
dtrBld = SelectBld.ExecuteReader()
dtrBld.Close()
conBld.Close()
lblAddID.Text = intAddID
Dim cnLI1 As System.Data.SqlClient.SqlConnection
Dim cmdSelect1 As System.Data.SqlClient.SqlCommand
cnLI1 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
Dim dtrLI1 As System.Data.SqlClient.SqlDataReader
cnLI1.Open()
cmdSelect1 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI1)
cmdSelect1.CommandType = CommandType.StoredProcedure
dtrLI1 = cmdSelect1.ExecuteReader()
drpLI1.DataSource = dtrLI1
drpLI1.DataTextField = "LineItemDesc"
drpLI1.DataValueField = "LineItemID"
drpLI1.DataBind()
drpLI1.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI1.Close()
cnLI1.Close()
Dim cnLI2 As System.Data.SqlClient.SqlConnection
Dim cmdSelect2 As System.Data.SqlClient.SqlCommand
cnLI2 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cnLI2.Open()
Dim dtrLI2 As System.Data.SqlClient.SqlDataReader
cmdSelect2 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI2)
dtrLI2 = cmdSelect2.ExecuteReader()
drpLI2.DataSource = dtrLI2
drpLI2.DataTextField = "LineItemDesc"
drpLI2.DataValueField = "LineItemID"
drpLI2.DataBind()
drpLI2.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI2.Close()
cnLI2.Close()
Dim cnLI3 As System.Data.SqlClient.SqlConnection
Dim cmdSelect3 As System.Data.SqlClient.SqlCommand
cnLI3 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cnLI3.Open()
Dim dtrLI3 As System.Data.SqlClient.SqlDataReader
cmdSelect3 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI3)
dtrLI3 = cmdSelect3.ExecuteReader()
drpLI3.DataSource = dtrLI3
drpLI3.DataTextField = "LineItemDesc"
drpLI3.DataValueField = "LineItemID"
drpLI3.DataBind()
drpLI3.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI3.Close()
cnLI3.Close()
Dim cnLI4 As System.Data.SqlClient.SqlConnection
Dim cmdSelect4 As System.Data.SqlClient.SqlCommand
cnLI4 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cnLI4.Open()
Dim dtrLI4 As System.Data.SqlClient.SqlDataReader
cmdSelect4 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI4)
dtrLI4 = cmdSelect4.ExecuteReader()
drpLI4.DataSource = dtrLI4
drpLI4.DataTextField = "LineItemDesc"
drpLI4.DataValueField = "LineItemID"
drpLI4.DataBind()
drpLI4.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI4.Close()
cnLI4.Close()
Dim cnLI5 As System.Data.SqlClient.SqlConnection
Dim cmdSelect5 As System.Data.SqlClient.SqlCommand
cnLI5 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cnLI5.Open()
Dim dtrLI5 As System.Data.SqlClient.SqlDataReader
cmdSelect5 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI5)
dtrLI5 = cmdSelect5.ExecuteReader()
drpLI5.DataSource = dtrLI5
drpLI5.DataTextField = "LineItemDesc"
drpLI5.DataValueField = "LineItemID"
drpLI5.DataBind()
drpLI5.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI5.Close()
cnLI5.Close()
Dim cnLI6 As System.Data.SqlClient.SqlConnection
Dim cmdSelect6 As System.Data.SqlClient.SqlCommand
cnLI6 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cnLI6.Open()
Dim dtrLI6 As System.Data.SqlClient.SqlDataReader
cmdSelect6 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI6)
dtrLI6 = cmdSelect6.ExecuteReader()
drpLI6.DataSource = dtrLI6
drpLI6.DataTextField = "LineItemDesc"
drpLI6.DataValueField = "LineItemID"
drpLI6.DataBind()
drpLI6.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI6.Close()
cnLI6.Close()
Dim cnLI7 As System.Data.SqlClient.SqlConnection
Dim cmdSelect7 As System.Data.SqlClient.SqlCommand
cnLI7 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cnLI7.Open()
Dim dtrLI7 As System.Data.SqlClient.SqlDataReader
cmdSelect7 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI7)
dtrLI7 = cmdSelect7.ExecuteReader()
drpLI7.DataSource = dtrLI7
drpLI7.DataTextField = "LineItemDesc"
drpLI7.DataValueField = "LineItemID"
drpLI7.DataBind()
drpLI7.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI7.Close()
cnLI7.Close()
Dim cnLI8 As System.Data.SqlClient.SqlConnection
Dim cmdSelect8 As System.Data.SqlClient.SqlCommand
cnLI8 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cnLI8.Open()
Dim dtrLI8 As System.Data.SqlClient.SqlDataReader
cmdSelect8 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI8)
dtrLI8 = cmdSelect8.ExecuteReader()
drpLI8.DataSource = dtrLI8
drpLI8.DataTextField = "LineItemDesc"
drpLI8.DataValueField = "LineItemID"
drpLI8.DataBind()
drpLI8.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI8.Close()
cnLI8.Close()
Dim cnLI9 As System.Data.SqlClient.SqlConnection
Dim cmdSelect9 As System.Data.SqlClient.SqlCommand
cnLI9 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cnLI9.Open()
Dim dtrLI9 As System.Data.SqlClient.SqlDataReader
cmdSelect9 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI9)
dtrLI9 = cmdSelect9.ExecuteReader()
drpLI9.DataSource = dtrLI9
drpLI9.DataTextField = "LineItemDesc"
drpLI9.DataValueField = "LineItemID"
drpLI9.DataBind()
drpLI9.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI9.Close()
cnLI9.Close()
Dim cnLI10 As System.Data.SqlClient.SqlConnection
Dim cmdSelect10 As System.Data.SqlClient.SqlCommand
cnLI10 = New System.Data.SqlClient.SqlConnection(Convert.ToString(Application("salesReportConnectionString")))
cnLI10.Open()
Dim dtrLI10 As System.Data.SqlClient.SqlDataReader
cmdSelect10 = New System.Data.SqlClient.SqlCommand("spOrderLineItems", cnLI10)
dtrLI10 = cmdSelect10.ExecuteReader()
drpLI10.DataSource = dtrLI10
drpLI10.DataTextField = "LineItemDesc"
drpLI10.DataValueField = "LineItemID"
drpLI10.DataBind()
drpLI10.Items.Insert(0, New ListItem("None Selected", -1))
dtrLI10.Close()
cnLI10.Close()
End Sub
Private Sub drpLI1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI1.SelectedIndexChanged
Dim intLI1ID As Integer
Dim strLI1 As String
For Each cboLI1 As ListItem In drpLI1.Items
If cboLI1.Selected Then
strLI1 &= String.Format("{0}", cboLI1.Text)
End If
Next
lblID1.Text = strLI1
If intLI1ID <> -1 Then
BindLI1(intLI1ID)
End If
intLI1ID = drpLI1.SelectedItem.Value
End Sub
Sub BindLI1(ByVal intLI1ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI1ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub drpLI2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI2.SelectedIndexChanged
Dim intLI2ID As Integer
Dim strLI2 As String
For Each cboLI2 As ListItem In drpLI2.Items
If cboLI2.Selected Then
strLI2 &= String.Format("{0}", cboLI2.Text)
End If
Next
lblID2.Text = strLI2
If intLI2ID <> -1 Then
BindLI2(intLI2ID)
End If
intLI2ID = drpLI2.SelectedItem.Value
End Sub
Sub BindLI2(ByVal intLI2ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI2ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub drpLI3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI3.SelectedIndexChanged
Dim intLI3ID As Integer
Dim strLI3 As String
For Each cboLI3 As ListItem In drpLI3.Items
If cboLI3.Selected Then
strLI3 &= String.Format("{0}", cboLI3.Text)
End If
Next
lblID3.Text = strLI3
If intLI3ID <> -1 Then
BindLI3(intLI3ID)
End If
intLI3ID = drpLI3.SelectedItem.Value
End Sub
Sub BindLI3(ByVal intLI3ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI3ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub drpLI4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI4.SelectedIndexChanged
Dim intLI4ID As Integer
Dim strLI4 As String
For Each cboLI4 As ListItem In drpLI4.Items
If cboLI4.Selected Then
strLI4 &= String.Format("{0}", cboLI4.Text)
End If
Next
lblID4.Text = strLI4
intLI4ID = drpLI4.SelectedItem.Value
If intLI4ID <> -1 Then
BindLI4(intLI4ID)
End If
End Sub
Sub BindLI4(ByVal intLI4ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI4ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub drpLI5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI5.SelectedIndexChanged
Dim intLI5ID As Integer
Dim strLI5 As String
For Each cboLI5 As ListItem In drpLI5.Items
If cboLI5.Selected Then
strLI5 &= String.Format("{0}", cboLI5.Text)
End If
Next
lblID5.Text = strLI5
intLI5ID = drpLI5.SelectedItem.Value
If intLI5ID <> -1 Then
BindLI5(intLI5ID)
End If
End Sub
Sub BindLI5(ByVal intLI5ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI5ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub drpLI6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI6.SelectedIndexChanged
Dim intLI6ID As Integer
Dim strLI6 As String
For Each cboLI6 As ListItem In drpLI6.Items
If cboLI6.Selected Then
strLI6 &= String.Format("{0}", cboLI6.Text)
End If
Next
lblID6.Text = strLI6
intLI6ID = drpLI6.SelectedItem.Value
If intLI6ID <> -1 Then
BindLI6(intLI6ID)
End If
End Sub
Sub BindLI6(ByVal intLI6ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI6ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub drpLI7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI7.SelectedIndexChanged
Dim intLI7ID As Integer
Dim strLI7 As String
For Each cboLI7 As ListItem In drpLI7.Items
If cboLI7.Selected Then
strLI7 &= String.Format("{0}", cboLI7.Text)
End If
Next
lblID7.Text = strLI7
intLI7ID = drpLI7.SelectedItem.Value
If intLI7ID <> -1 Then
BindLI7(intLI7ID)
End If
End Sub
Sub BindLI7(ByVal intLI7ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI7ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub drpLI8_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI8.SelectedIndexChanged
Dim intLI8ID As Integer
Dim strLI8 As String
For Each cboLI8 As ListItem In drpLI8.Items
If cboLI8.Selected Then
strLI8 &= String.Format("{0}", cboLI8.Text)
End If
Next
lblID8.Text = strLI8
intLI8ID = drpLI8.SelectedItem.Value
If intLI8ID <> -1 Then
BindLI8(intLI8ID)
End If
End Sub
Sub BindLI8(ByVal intLI8ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI8ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub drpLI9_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI9.SelectedIndexChanged
Dim intLI9ID As Integer
Dim strLI9 As String
For Each cboLI9 As ListItem In drpLI9.Items
If cboLI9.Selected Then
strLI9 &= String.Format("{0}", cboLI9.Text)
End If
Next
lblID9.Text = strLI9
intLI9ID = drpLI9.SelectedItem.Value
If intLI9ID <> -1 Then
BindLI9(intLI9ID)
End If
End Sub
Sub BindLI9(ByVal intLI9ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI9ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub drpLI10_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpLI10.SelectedIndexChanged
Dim intLI10ID As Integer
Dim strLI10 As String
For Each cboLI10 As ListItem In drpLI10.Items
If cboLI10.Selected Then
strLI10 &= String.Format("{0}", cboLI10.Text)
End If
Next
lblID10.Text = strLI10
intLI10ID = drpLI10.SelectedItem.Value
If intLI10ID <> -1 Then
BindLI10(intLI10ID)
End If
End Sub
Sub BindLI10(ByVal intLI10ID As Integer)
Dim cnLI As System.Data.SqlClient.SqlConnection
Dim cmdSelect As System.Data.SqlClient.SqlCommand
Dim strSelect As String
Dim dtrLI As System.Data.SqlClient.SqlDataReader
cnLI = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cnLI.Open()
strSelect = "Select LineItemID From LineItems Where LineItemID=@LineItemID"
cmdSelect = New System.Data.SqlClient.SqlCommand(strSelect, cnLI)
cmdSelect.Parameters.Add("@LineItemID", intLI10ID)
dtrLI = cmdSelect.ExecuteReader()
dtrLI.Close()
End Sub
Private Sub txtUP1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP1.TextChanged
Try
IsNumeric(txtUP1.Text)
UP1 = FormatNumber(txtUP1.Text, 2)
Catch ex As Exception
End Try
'UP1 = FormatNumber(txtUP1.Text, 2)
End Sub
Private Sub txtTPY1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY1.TextChanged
Try
IsNumeric(txtTPY1.Text)
TPY1 = txtTPY1.Text.ToString
Catch ex As Exception
End Try
'TPY1 = txtTPY1.Text.ToString
End Sub
Private Sub txtUP2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP2.TextChanged
Try
IsNumeric(txtUP2.Text)
UP2 = FormatNumber(txtUP2.Text, 2)
Catch ex As Exception
End Try
'UP2 = FormatNumber(txtUP2.Text, 2)
End Sub
Private Sub txtTPY2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY2.TextChanged
Try
IsNumeric(txtTPY2.Text)
TPY2 = txtTPY2.Text.ToString
Catch ex As Exception
End Try
'TPY2 = txtTPY2.Text.ToString
End Sub
Private Sub txtUP3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP3.TextChanged
Try
IsNumeric(txtUP3.Text)
UP3 = FormatNumber(txtUP3.Text, 2)
Catch ex As Exception
End Try
'UP3 = FormatNumber(txtUP3.Text, 2)
End Sub
Private Sub txtTPY3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY3.TextChanged
Try
IsNumeric(txtTPY3.Text)
TPY3 = txtTPY3.Text.ToString
Catch ex As Exception
End Try
'TPY3 = txtTPY3.Text.ToString
End Sub
Private Sub txtUP4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP4.TextChanged
Try
IsNumeric(txtUP4.Text)
UP4 = FormatNumber(txtUP4.Text, 2)
Catch ex As Exception
End Try
' UP4 = FormatNumber(txtUP4.Text, 2)
End Sub
Private Sub txtTPY4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY4.TextChanged
Try
IsNumeric(txtTPY4.Text)
TPY4 = txtTPY4.Text.ToString
Catch ex As Exception
End Try
' TPY4 = txtTPY4.Text.ToString
End Sub
Private Sub txtUP5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP5.TextChanged
Try
IsNumeric(txtUP5.Text)
UP5 = FormatNumber(txtUP5.Text, 2)
Catch ex As Exception
End Try
' UP5 = FormatNumber(txtUP5.Text, 2)
End Sub
Private Sub txtTPY5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY5.TextChanged
Try
IsNumeric(txtTPY5.Text)
TPY5 = txtTPY5.Text.ToString
Catch ex As Exception
End Try
' TPY5 = txtTPY5.Text.ToString
End Sub
Private Sub txtUP6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP6.TextChanged
Try
IsNumeric(txtUP6.Text)
UP6 = FormatNumber(txtUP6.Text, 2)
Catch ex As Exception
End Try
'UP6 = FormatNumber(txtUP6.Text, 2)
End Sub
Private Sub txtTPY6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY6.TextChanged
Try
IsNumeric(txtTPY6.Text)
TPY6 = txtTPY6.Text.ToString
Catch ex As Exception
End Try
'TPY6 = txtTPY6.Text.ToString
End Sub
Private Sub txtUP7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP7.TextChanged
Try
IsNumeric(txtUP7.Text)
UP7 = FormatNumber(txtUP7.Text, 2)
Catch ex As Exception
End Try
'UP7 = FormatNumber(txtUP7.Text, 2)
End Sub
Private Sub txtTPY7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY7.TextChanged
Try
IsNumeric(txtTPY7.Text)
TPY7 = txtTPY7.Text.ToString
Catch ex As Exception
End Try
'TPY7 = txtTPY7.Text.ToString
End Sub
Private Sub txtUP8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP8.TextChanged
Try
IsNumeric(txtUP8.Text)
UP8 = FormatNumber(txtUP8.Text, 2)
Catch ex As Exception
End Try
' UP8 = FormatNumber(txtUP8.Text, 2)
End Sub
Private Sub txtTPY8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY8.TextChanged
Try
IsNumeric(txtTPY8.Text)
TPY8 = txtTPY8.Text.ToString
Catch ex As Exception
End Try
' TPY8 = txtTPY8.Text.ToString
End Sub
Private Sub txtUP9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP9.TextChanged
Try
IsNumeric(txtUP9.Text)
UP9 = FormatNumber(txtUP9.Text, 2)
Catch ex As Exception
End Try
'UP9 = FormatNumber(txtUP9.Text, 2)
End Sub
Private Sub txtTPY9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY9.TextChanged
Try
IsNumeric(txtTPY9.Text)
TPY9 = txtTPY9.Text.ToString
Catch ex As Exception
End Try
' TPY9 = txtTPY9.Text.ToString
End Sub
Private Sub txtUP10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUP10.TextChanged
Try
IsNumeric(txtUP10.Text)
UP10 = FormatNumber(txtUP10.Text, 2)
Catch ex As Exception
End Try
'UP10 = FormatNumber(txtUP10.Text, 2)
End Sub
Private Sub txtTPY10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTPY10.TextChanged
Try
IsNumeric(txtTPY10.Text)
TPY10 = txtTPY10.Text.ToString
Catch ex As Exception
End Try
'TPY10 = txtTPY10.Text.ToString
End Sub
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
If lblPIFNumber.Text <> "" And lblAddID.Text <> "" Then
InsertPIF1()
InsertPIF2()
InsertPIF3()
InsertPIF4()
InsertPIF5()
InsertPIF6()
InsertPIF7()
InsertPIF8()
InsertPIF9()
InsertPIF10()
'Response.Redirect("AddBldToProposalContract.aspx")
Response.Redirect("AddBldToProposalContract.aspx?PIFID=" + Session("PIFID") + "&activeDivID=" + lblDivID.Text)
End If
End Sub
Private Sub InsertPIF1()
If drpLI1.SelectedItem.Value <> -1 Or txtDesc1.Text <> "" And TPY1 <> 0 Then
Dim cn1 As System.Data.SqlClient.SqlConnection
Dim cmd1 As System.Data.SqlClient.SqlCommand
cn1 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd1 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn1)
cmd1.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd1.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd1.Parameters.Add("@addID_4", lblAddID.Text)
cmd1.Parameters.Add("@LI_6", (lblID1.Text & " " & txtDesc1.Text))
cmd1.Parameters.Add("@tpy_7", txtTPY1.Text)
cmd1.Parameters.Add("@up_8", txtUP1.Text)
cmd1.Parameters.Add("@oldLID_9", txtLineID1.Text)
cmd1.Parameters.Add("@LineItemInactive_10", bInactive)
cmd1.Parameters.Add("@equipment_11", sEquipment)
cmd1.Parameters.Add("@LINote_12", txtLINote1.Text)
' Execute Command
cn1.Open()
cmd1.ExecuteNonQuery()
cn1.Close()
End If
End Sub
Private Sub InsertPIF2()
If drpLI2.SelectedItem.Value <> -1 Or txtDesc2.Text <> "" And TPY2 <> 0 Then
Dim cn2 As System.Data.SqlClient.SqlConnection
Dim cmd2 As System.Data.SqlClient.SqlCommand
cn2 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd2 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn2)
cmd2.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd2.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd2.Parameters.Add("@addID_4", lblAddID.Text)
cmd2.Parameters.Add("@LI_6", (lblID2.Text & " " & txtDesc2.Text))
cmd2.Parameters.Add("@tpy_7", txtTPY2.Text)
cmd2.Parameters.Add("@up_8", txtUP2.Text)
cmd2.Parameters.Add("@oldLID_9", txtLineID2.Text)
cmd2.Parameters.Add("@LineItemInactive_10", bInactive)
cmd2.Parameters.Add("@equipment_11", sEquipment)
cmd2.Parameters.Add("@LINote_12", txtLINote2.Text)
' Execute Command
cn2.Open()
cmd2.ExecuteNonQuery()
cn2.Close()
End If
End Sub
Private Sub InsertPIF3()
If drpLI3.SelectedItem.Value <> -1 Or txtDesc3.Text <> "" And TPY3 <> 0 Then
Dim cn3 As System.Data.SqlClient.SqlConnection
Dim cmd3 As System.Data.SqlClient.SqlCommand
cn3 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd3 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn3)
cmd3.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd3.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd3.Parameters.Add("@addID_4", lblAddID.Text)
cmd3.Parameters.Add("@LI_6", (lblID3.Text & " " & txtDesc3.Text))
cmd3.Parameters.Add("@tpy_7", txtTPY3.Text)
cmd3.Parameters.Add("@up_8", txtUP3.Text)
cmd3.Parameters.Add("@oldLID_9", txtLineID3.Text)
cmd3.Parameters.Add("@LineItemInactive_10", bInactive)
cmd3.Parameters.Add("@equipment_11", sEquipment)
cmd3.Parameters.Add("@LINote_12", txtLINote3.Text)
' Execute Command
cn3.Open()
cmd3.ExecuteNonQuery()
cn3.Close()
End If
End Sub
Private Sub InsertPIF4()
If drpLI4.SelectedItem.Value <> -1 Or txtDesc4.Text <> "" And TPY4 <> 0 Then
Dim cn4 As System.Data.SqlClient.SqlConnection
Dim cmd4 As System.Data.SqlClient.SqlCommand
cn4 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd4 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn4)
cmd4.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd4.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd4.Parameters.Add("@addID_4", lblAddID.Text)
cmd4.Parameters.Add("@LI_6", (lblID4.Text & " " & txtDesc4.Text))
cmd4.Parameters.Add("@tpy_7", txtTPY4.Text)
cmd4.Parameters.Add("@up_8", txtUP4.Text)
cmd4.Parameters.Add("@oldLID_9", txtLineID4.Text)
cmd4.Parameters.Add("@LineItemInactive_10", bInactive)
cmd4.Parameters.Add("@equipment_11", sEquipment)
cmd4.Parameters.Add("@LINote_12", txtLINote4.Text)
' Execute Command
cn4.Open()
cmd4.ExecuteNonQuery()
cn4.Close()
End If
End Sub
Private Sub InsertPIF5()
If drpLI5.SelectedItem.Value <> -1 Or txtDesc5.Text <> "" And TPY5 <> 0 Then
Dim cn5 As System.Data.SqlClient.SqlConnection
Dim cmd5 As System.Data.SqlClient.SqlCommand
cn5 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd5 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn5)
cmd5.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd5.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd5.Parameters.Add("@addID_4", lblAddID.Text)
cmd5.Parameters.Add("@LI_6", (lblID5.Text & " " & txtDesc5.Text))
cmd5.Parameters.Add("@tpy_7", txtTPY5.Text)
cmd5.Parameters.Add("@up_8", txtUP5.Text)
cmd5.Parameters.Add("@oldLID_9", txtLineID5.Text)
cmd5.Parameters.Add("@LineItemInactive_10", bInactive)
cmd5.Parameters.Add("@equipment_11", sEquipment)
cmd5.Parameters.Add("@LINote_12", txtLINote5.Text)
' Execute Command
cn5.Open()
cmd5.ExecuteNonQuery()
cn5.Close()
End If
End Sub
Private Sub InsertPIF6()
If drpLI6.SelectedItem.Value <> -1 Or txtDesc6.Text <> "" And TPY6 <> 0 Then
Dim cn6 As System.Data.SqlClient.SqlConnection
Dim cmd6 As System.Data.SqlClient.SqlCommand
cn6 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd6 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn6)
cmd6.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd6.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd6.Parameters.Add("@addID_4", lblAddID.Text)
cmd6.Parameters.Add("@LI_6", (lblID6.Text & " " & txtDesc6.Text))
cmd6.Parameters.Add("@tpy_7", txtTPY6.Text)
cmd6.Parameters.Add("@up_8", txtUP6.Text)
cmd6.Parameters.Add("@oldLID_9", txtLineID6.Text)
cmd6.Parameters.Add("@LineItemInactive_10", bInactive)
cmd6.Parameters.Add("@equipment_11", sEquipment)
cmd6.Parameters.Add("@LINote_12", txtLINote6.Text)
' Execute Command
cn6.Open()
cmd6.ExecuteNonQuery()
cn6.Close()
End If
End Sub
Private Sub InsertPIF7()
If drpLI7.SelectedItem.Value <> -1 Or txtDesc7.Text <> "" And TPY7 <> 0 Then
Dim cn7 As System.Data.SqlClient.SqlConnection
Dim cmd7 As System.Data.SqlClient.SqlCommand
cn7 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd7 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn7)
cmd7.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd7.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd7.Parameters.Add("@addID_4", lblAddID.Text)
cmd7.Parameters.Add("@LI_6", (lblID7.Text & " " & txtDesc7.Text))
cmd7.Parameters.Add("@tpy_7", txtTPY7.Text)
cmd7.Parameters.Add("@up_8", txtUP7.Text)
cmd7.Parameters.Add("@oldLID_9", txtLineID7.Text)
cmd7.Parameters.Add("@LineItemInactive_10", bInactive)
cmd7.Parameters.Add("@equipment_11", sEquipment)
cmd7.Parameters.Add("@LINote_12", txtLINote7.Text)
' Execute Command
cn7.Open()
cmd7.ExecuteNonQuery()
cn7.Close()
End If
End Sub
Private Sub InsertPIF8()
If drpLI8.SelectedItem.Value <> -1 Or txtDesc8.Text <> "" And TPY8 <> 0 Then
Dim cn8 As System.Data.SqlClient.SqlConnection
Dim cmd8 As System.Data.SqlClient.SqlCommand
cn8 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd8 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn8)
cmd8.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd8.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd8.Parameters.Add("@addID_4", lblAddID.Text)
cmd8.Parameters.Add("@LI_6", (lblID8.Text & " " & txtDesc8.Text))
cmd8.Parameters.Add("@tpy_7", txtTPY8.Text)
cmd8.Parameters.Add("@up_8", txtUP8.Text)
cmd8.Parameters.Add("@oldLID_9", txtLineID8.Text)
cmd8.Parameters.Add("@LineItemInactive_10", bInactive)
cmd8.Parameters.Add("@equipment_11", sEquipment)
cmd8.Parameters.Add("@LINote_12", txtLINote8.Text)
' Execute Command
cn8.Open()
cmd8.ExecuteNonQuery()
cn8.Close()
End If
End Sub
Private Sub InsertPIF9()
If drpLI9.SelectedItem.Value <> -1 Or txtDesc9.Text <> "" And TPY9 <> 0 Then
Dim cn9 As System.Data.SqlClient.SqlConnection
Dim cmd9 As System.Data.SqlClient.SqlCommand
cn9 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd9 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn9)
cmd9.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd9.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd9.Parameters.Add("@addID_4", lblAddID.Text)
cmd9.Parameters.Add("@LI_6", (lblID9.Text & " " & txtDesc9.Text))
cmd9.Parameters.Add("@tpy_7", txtTPY9.Text)
cmd9.Parameters.Add("@up_8", txtUP9.Text)
cmd9.Parameters.Add("@oldLID_9", txtLineID9.Text)
cmd9.Parameters.Add("@LineItemInactive_10", bInactive)
cmd9.Parameters.Add("@equipment_11", sEquipment)
cmd9.Parameters.Add("@LINote_12", txtLINote9.Text)
' Execute Command
cn9.Open()
cmd9.ExecuteNonQuery()
cn9.Close()
End If
End Sub
Private Sub InsertPIF10()
If drpLI10.SelectedItem.Value <> -1 Or txtDesc10.Text <> "" And TPY10 <> 0 Then
Dim cn10 As System.Data.SqlClient.SqlConnection
Dim cmd10 As System.Data.SqlClient.SqlCommand
cn10 = New System.Data.SqlClient.SqlConnection((Convert.ToString(Application("salesReportConnectionString"))))
cmd10 = New System.Data.SqlClient.SqlCommand("insert_PIF", cn10)
cmd10.CommandType = CommandType.StoredProcedure
' Add Return Value Parameter
cmd10.Parameters.Add("@PIFID_1", lblPIFNumber.Text)
cmd10.Parameters.Add("@addID_4", lblAddID.Text)
cmd10.Parameters.Add("@LI_6", (lblID10.Text & " " & txtDesc10.Text))
cmd10.Parameters.Add("@tpy_7", txtTPY10.Text)
cmd10.Parameters.Add("@up_8", txtUP10.Text)
cmd10.Parameters.Add("@oldLID_9", txtLineID10.Text)
cmd10.Parameters.Add("@LineItemInactive_10", bInactive)
cmd10.Parameters.Add("@equipment_11", sEquipment)
cmd10.Parameters.Add("@LINote_12", txtLINote10.Text)
' Execute Command
cn10.Open()
cmd10.ExecuteNonQuery()
cn10.Close()
End If
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
'Response.Redirect("admin_Multi_PIF.aspx?PID=" + Session("PIF") + "&ContactID=" + Session("ContactID"))
Response.Redirect("AddBldToProposalContract.aspx")
End Sub
End Class