Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : ViewTenderInvoice.aspx.vb

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.Configuration
Public Class ViewTenderInvoice
    Inherits System.Web.UI.Page
    Property connstr = WebConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
    Protected Connection = New SqlConnection(CStr(connStr))
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents btnAttach As System.Web.UI.WebControls.Button
    Protected WithEvents R1 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents R2 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents R3 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents R4 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
    Protected WithEvents Label6 As System.Web.UI.WebControls.Label
    Protected WithEvents Label8 As System.Web.UI.WebControls.Label
    Protected WithEvents grdAttachments As System.Web.UI.WebControls.DataGrid
    Protected WithEvents Textbox4 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Dropdownlist1 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lblUser As System.Web.UI.WebControls.Label
#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
        If Page.IsPostBack = False Then
            ' BindGrid()
            notinvoicedfile()
            BindTravels()
            If Session.Contents("name") = "" Then
                Response.Redirect("Login.aspx")
            ElseIf UCase(Session.Contents("name")) = "ESESMNP" Then
                lblUser.Text = "ESES MANAPPARAI"
            ElseIf UCase(Session.Contents("name")) = "ESESMUM" Then
                lblUser.Text = "ESES MUMBAI"
            ElseIf UCase(Session.Contents("name")) = "ESESTRZ" Then
                lblUser.Text = "ESES TRICHY"
            End If
            bindinvoiceno()
            Label8.Visible = False
        End If
    End Sub

Sub bindinvoiceno()
        Dim Connection As New SqlConnection(connstr)
        Dim adapter As New SqlDataAdapter("Select Max(invoiceno)+1 as Trnum from invoice", Connection)
        Dim ds As New DataSet()
        adapter.Fill(ds, "dt")
        Textbox4.Text = ds.Tables("dt").Rows(0).Item("Trnum").ToString()
    End Sub
    Sub BindTravels()
        Dim Connection As New SqlConnection(connstr)
        Dim adapter As New SqlDataAdapter("SELECT [CoName] FROM [GCCDB].[dbo].[MasterInfo]  group by [CoName] order by [coname]", Connection)
        Dim ds As New DataSet()
        adapter.Fill(ds, "staff")
        Dropdownlist1.DataSource = ds.Tables("staff").DefaultView
        Dropdownlist1.DataTextField = "Coname"
        Dropdownlist1.DataValueField = "CoName"
        Dropdownlist1.DataBind()
        Dropdownlist1.Items.Insert(0, New ListItem("ALL", ""))
    End Sub

Sub BindGrid()
        grdAttachments.AllowPaging = True
        If Dropdownlist1.SelectedItem.Text = "ALL" Then
            Dim connection As New SqlConnection(connstr)
            'Dim adapter As New SqlDataAdapter("SELECT TenderNo,Location,Area,Remarks,CONVERT(varchar, ReceivedDate, 103) AS RDate, CONVERT(varchar, ClosingDate, 103) AS CCDate, CONVERT(varchar, TenderSentDate, 103) AS SDate, EnteredBy, CONVERT(varchar, enteredDate, 103) AS EDate,Status FROM TenderInfo where status='N' ORDER BY Srno ", connection)
            Dim adapter As New SqlDataAdapter("select left(MasterInfo.fileno,(len(MasterInfo.fileno)-9)) as Sr,MasterInfo.FileNo,Emailid as Rno, Emailid2 as SNo,Name,Passportno,ContactNo2 as TCountry,visano,visatype,ecrstatus,category,Fee,status,emailid,TotalVisa,CONVERT(varchar, EnteredDate, 103) AS EDate, CONVERT(varchar, letterDate, 103) AS IDate,invoiceNo,Istatus,TravlsName,TotalAmount,CoName FROM MasterInfo  left outer join invoice on MasterInfo.Fileno =Invoice.Fileno  where invoice.istatus in ('N','Y') order by cast(trnumber as integer) desc ", connection)
            Dim ds As New DataSet()
            adapter.Fill(ds)
            grdAttachments.DataSource = ds
            grdAttachments.DataBind()
            If grdAttachments.Items.Count > 0 Then
                grdAttachments.Visible = True
                'Textbox4.Text = grdAttachments.Items.Count
            Else
                ' Textbox4.Text = 0
                grdAttachments.Visible = False
                Response.Write("<scr" & "ipt>" & vbCrLf)
                Response.Write("alert(""Records Not Found..."");" & vbCrLf)
                Response.Write("</scr" & "ipt>")
            End If
        Else
            Dim connection As New SqlConnection(connstr)
            'Dim adapter As New SqlDataAdapter("SELECT TenderNo,Location,Area,Remarks,CONVERT(varchar, ReceivedDate, 103) AS RDate, CONVERT(varchar, ClosingDate, 103) AS CCDate, CONVERT(varchar, TenderSentDate, 103) AS SDate, EnteredBy, CONVERT(varchar, enteredDate, 103) AS EDate,Status FROM TenderInfo where status='N' ORDER BY Srno ", connection)
            Dim adapter As New SqlDataAdapter("select left(MasterInfo.fileno,(len(MasterInfo.fileno)-9)) as Sr,MasterInfo.FileNo,Emailid as Rno, Emailid2 as SNo,Name,Passportno,ContactNo2 as TCountry,visano,visatype,ecrstatus,category,Fee,status,emailid,TotalVisa,CONVERT(varchar, EnteredDate, 103) AS EDate, CONVERT(varchar, letterDate, 103) AS IDate,invoiceNo,Istatus,TravlsName,TotalAmount,CoName FROM MasterInfo  left outer join invoice on MasterInfo.Fileno =Invoice.Fileno where invoice.istatus in ('N','Y') and Coname='" & Dropdownlist1.SelectedItem.Text & "'  order by cast(trnumber as integer) desc ", connection)
            Dim ds As New DataSet()
            adapter.Fill(ds)
            grdAttachments.DataSource = ds
            grdAttachments.DataBind()
            If grdAttachments.Items.Count > 0 Then
                grdAttachments.Visible = True
                'Textbox4.Text = grdAttachments.Items.Count
            Else
                'Textbox4.Text = 0
                grdAttachments.Visible = False
                Response.Write("<scr" & "ipt>" & vbCrLf)
                Response.Write("alert(""Records Not Found..."");" & vbCrLf)
                Response.Write("</scr" & "ipt>")
            End If
        End If

End Sub

Sub BindGrid2()
        grdAttachments.AllowPaging = True
        If Dropdownlist1.SelectedItem.Text = "ALL" Then
            Dim connection As New SqlConnection(connstr)
            'Dim adapter As New SqlDataAdapter("SELECT TenderNo,Location,Area,Remarks,CONVERT(varchar, ReceivedDate, 103) AS RDate, CONVERT(varchar, ClosingDate, 103) AS CCDate, CONVERT(varchar, TenderSentDate, 103) AS SDate, EnteredBy, CONVERT(varchar, enteredDate, 103) AS EDate,Status FROM TenderInfo where status='Y' ORDER BY Srno ", connection)
            Dim adapter As New SqlDataAdapter("select left(MasterInfo.fileno,(len(MasterInfo.fileno)-9)) as Sr,MasterInfo.FileNo,Emailid as Rno, Emailid2 as SNo,Name,Passportno,ContactNo2 as TCountry,visano,visatype,ecrstatus,category,Fee,status,emailid,TotalVisa,CONVERT(varchar, EnteredDate, 103) AS EDate, CONVERT(varchar, letterDate, 103) AS IDate,invoiceNo,Istatus,TravlsName,TotalAmount,CoName FROM MasterInfo  left outer join invoice on MasterInfo.Fileno =Invoice.Fileno where invoice.istatus='Y' order by invoiceNo desc ,trnumber desc ", connection)
            Dim ds As New DataSet()
            adapter.Fill(ds)
            grdAttachments.DataSource = ds
            grdAttachments.DataBind()
            If grdAttachments.Items.Count > 0 Then
                grdAttachments.Visible = True
                ' Textbox4.Text = grdAttachments.Items.Count
            Else
                ' Textbox4.Text = 0
                grdAttachments.Visible = False
                Response.Write("<scr" & "ipt>" & vbCrLf)
                Response.Write("alert(""Records Not Found..."");" & vbCrLf)
                Response.Write("</scr" & "ipt>")
            End If
        Else

Dim connection As New SqlConnection(connstr)
            'Dim adapter As New SqlDataAdapter("SELECT TenderNo,Location,Area,Remarks,CONVERT(varchar, ReceivedDate, 103) AS RDate, CONVERT(varchar, ClosingDate, 103) AS CCDate, CONVERT(varchar, TenderSentDate, 103) AS SDate, EnteredBy, CONVERT(varchar, enteredDate, 103) AS EDate,Status FROM TenderInfo where status='Y' ORDER BY Srno ", connection)
            Dim adapter As New SqlDataAdapter("select left(MasterInfo.fileno,(len(MasterInfo.fileno)-9)) as Sr,MasterInfo.FileNo,Emailid as Rno, Emailid2 as SNo,Name,Passportno,ContactNo2 as TCountry,visano,visatype,ecrstatus,category,Fee,status,emailid,TotalVisa,CONVERT(varchar, EnteredDate, 103) AS EDate, CONVERT(varchar, letterDate, 103) AS IDate,invoiceNo,Istatus,TravlsName,TotalAmount,CoName FROM MasterInfo  left outer join invoice on MasterInfo.Fileno =Invoice.Fileno where invoice.istatus='Y' and Coname='" & Dropdownlist1.SelectedItem.Text & "' order by invoiceNo desc ,trnumber desc  ", connection)

Dim ds As New DataSet()
            adapter.Fill(ds)
            grdAttachments.DataSource = ds
            grdAttachments.DataBind()
            If grdAttachments.Items.Count > 0 Then
                grdAttachments.Visible = True
                ' Textbox4.Text = grdAttachments.Items.Count
            Else
                ' Textbox4.Text = 0
                grdAttachments.Visible = False
                Response.Write("<scr" & "ipt>" & vbCrLf)
                Response.Write("alert(""Records Not Found..."");" & vbCrLf)
                Response.Write("</scr" & "ipt>")
            End If
        End If

End Sub

Sub notinvoicedfile()
        grdAttachments.AllowPaging = False
        Dim connection As New SqlConnection(connstr)
        Dim adapter As New SqlDataAdapter("select left(MasterInfo.fileno,(len(MasterInfo.fileno)-9)) as Sr,MasterInfo.FileNo,Emailid as Rno, Emailid2 as SNo,Name,Passportno,ContactNo2 as TCountry,visano,visatype,ecrstatus,category,Fee,status,emailid,TotalVisa, CONVERT(varchar, EnteredDate, 103) AS EDate, CONVERT(varchar, letterDate, 103) AS IDate,invoiceNo,Istatus,TravlsName,TotalAmount,CoName FROM MasterInfo left outer join invoice on MasterInfo.Fileno =Invoice.Fileno where invoice.istatus='N' order by Trnumber ", connection)
        Dim ds As New DataSet()
        adapter.Fill(ds)
        grdAttachments.DataSource = ds
        grdAttachments.DataBind()
        If grdAttachments.Items.Count > 0 Then
            grdAttachments.Visible = True
            ' Textbox4.Text = grdAttachments.Items.Count
        Else
            '  Textbox4.Text = 0
            grdAttachments.Visible = False
            Response.Write("<scr" & "ipt>" & vbCrLf)
            Response.Write("alert(""Records Not Found..."");" & vbCrLf)
            Response.Write("</scr" & "ipt>")
        End If

End Sub
    Sub BindGrid3()
        grdAttachments.AllowPaging = False
        If Dropdownlist1.SelectedItem.Text = "ALL" Then
            Dim connection As New SqlConnection(connstr)
            Dim adapter As New SqlDataAdapter("select left(MasterInfo.fileno,(len(MasterInfo.fileno)-9)) as Sr,MasterInfo.FileNo,Emailid as Rno, Emailid2 as SNo,Name,Passportno,ContactNo2 as TCountry,visano,visatype,ecrstatus,category,Fee,status,emailid,TotalVisa, CONVERT(varchar, EnteredDate, 103) AS EDate, CONVERT(varchar, letterDate, 103) AS IDate,invoiceNo,Istatus,TravlsName,TotalAmount,CoName FROM MasterInfo left outer join invoice on MasterInfo.Fileno =Invoice.Fileno where invoice.istatus='N' order by trnumber ", connection)
            Dim ds As New DataSet()
            adapter.Fill(ds)
            grdAttachments.DataSource = ds
            grdAttachments.DataBind()
            If grdAttachments.Items.Count > 0 Then
                grdAttachments.Visible = True
                ' Textbox4.Text = grdAttachments.Items.Count
            Else
                '  Textbox4.Text = 0
                grdAttachments.Visible = False
                Response.Write("<scr" & "ipt>" & vbCrLf)
                Response.Write("alert(""Records Not Found..."");" & vbCrLf)
                Response.Write("</scr" & "ipt>")
            End If
        Else
            Dim connection As New SqlConnection(connstr)
            Dim adapter As New SqlDataAdapter("select left(MasterInfo.fileno,(len(MasterInfo.fileno)-9)) as Sr,MasterInfo.FileNo,Emailid as Rno, Emailid2 as SNo,Name,Passportno,ContactNo2 as TCountry,visano,visatype,ecrstatus,category,Fee,status,emailid,TotalVisa,CONVERT(varchar, EnteredDate, 103) AS EDate, CONVERT(varchar, letterDate, 103) AS IDate,invoiceNo,Istatus,TravlsName,TotalAmount,CoName FROM MasterInfo  left outer join invoice on MasterInfo.Fileno =Invoice.Fileno where invoice.istatus='N' and Coname='" & Dropdownlist1.SelectedItem.Text & "' order by trnumber ", connection)
            Dim ds As New DataSet()
            adapter.Fill(ds)
            grdAttachments.DataSource = ds
            grdAttachments.DataBind()
            If grdAttachments.Items.Count > 0 Then
                grdAttachments.Visible = True
                '  Textbox4.Text = grdAttachments.Items.Count
            Else
                '   Textbox4.Text = 0
                grdAttachments.Visible = False
                Response.Write("<scr" & "ipt>" & vbCrLf)
                Response.Write("alert(""Records Not Found..."");" & vbCrLf)
                Response.Write("</scr" & "ipt>")
            End If
        End If

End Sub

Private Sub R1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles R1.CheckedChanged
        If Page.IsPostBack = True Then
            Label8.Visible = False
            BindGrid()
            Label1.Visible = False
            Textbox4.Visible = False
            btnAttach.Visible = False
            bindinvoiceno()
        End If
    End Sub

Private Sub R2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles R2.CheckedChanged
        If Page.IsPostBack = True Then
            Label8.Visible = False
            BindGrid2()
            Label1.Visible = False
            Textbox4.Visible = False
            btnAttach.Visible = False
            bindinvoiceno()
        End If
    End Sub

Private Sub R3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles R3.CheckedChanged
        If Page.IsPostBack = True Then
            Label8.Visible = False
            BindGrid3()
            Label1.Visible = True
            Textbox4.Visible = True
            btnAttach.Visible = True
            bindinvoiceno()
        End If
    End Sub

Private Sub grdAttachments_ItemDataBound(sender As Object, e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles grdAttachments.ItemDataBound

Dim myitem As DataGridItem
        Dim chk1 As System.Web.UI.WebControls.CheckBox
        Dim i As Integer = 0
        Dim istat As Char

For Each myitem In grdAttachments.Items
            chk1 = myitem.FindControl("chk")
            istat = CType(myitem.FindControl("Istat"), Label).Text
            If istat = "Y" Then
                chk1.Checked = True
                chk1.BackColor = Drawing.Color.Green
                myitem.BackColor = Drawing.Color.LightGreen
            End If
        Next
        'If (e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem) Then
        '    If CType(e.Item.FindControl("istat"), Label).Text = "Y" Then
        '        CType(e.Item.FindControl("chk"), CheckBox).Checked = True
        '        CType(e.Item.FindControl("chk"), CheckBox).BackColor = System.Drawing.Color.Green
        '    End If
        'End If
    End Sub

'Private Sub R4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles R4.CheckedChanged
    '    If Page.IsPostBack = True Then
    '        'BindGrid3()
    '    End If
    'End Sub

Private Sub grdAttachments_PageIndexChanged(source As Object, e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles grdAttachments.PageIndexChanged
        grdAttachments.CurrentPageIndex = e.NewPageIndex
        If R1.Checked = True Then
            BindGrid()
        ElseIf R2.Checked = True Then
            BindGrid2()
        ElseIf R3.Checked = True Then
            BindGrid3()
        End If
    End Sub

Private Sub Dropdownlist1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles Dropdownlist1.SelectedIndexChanged
        If Page.IsPostBack = True Then
            If R1.Checked = True Then
                BindGrid()
            ElseIf R2.Checked = True Then
                BindGrid2()
            ElseIf R3.Checked = True Then
                BindGrid3()
            End If
        End If
    End Sub

Private Sub btnAttach_Click(sender As Object, e As System.EventArgs) Handles btnAttach.Click

Dim myitem As DataGridItem
        Dim chk1 As System.Web.UI.WebControls.CheckBox
        Dim i As Integer = 0
        Dim fileno As String
        Dim Connection As New SqlConnection(connstr)
        Dim cmdAddType As New SqlClient.SqlCommand("Addinvoice", Connection)
        cmdAddType.CommandType = CommandType.StoredProcedure
        cmdAddType.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Char, 1))
        cmdAddType.Parameters.Add(New SqlParameter("@UserName", SqlDbType.NVarChar, 50))
        cmdAddType.Parameters.Add(New SqlParameter("@fileno", SqlDbType.NVarChar, 50))
        cmdAddType.Parameters.Add(New SqlParameter("@Ino", SqlDbType.Int, 4))
        Dim OParm As SqlParameter = cmdAddType.Parameters.Add("@OReturn", SqlDbType.Int)
        OParm.Direction = ParameterDirection.Output
        cmdAddType.Parameters("@ino").Value = Textbox4.Text
        If Session.Contents("name") = "" Then
            cmdAddType.Parameters("@UserName").Value = "System"
        Else
            cmdAddType.Parameters("@UserName").Value = Session.Contents("name")
        End If

For Each myitem In grdAttachments.Items
            chk1 = myitem.FindControl("chk")
            If chk1.Checked = True Then
                fileno = CType(myitem.FindControl("fno"), Label).Text
                cmdAddType.Parameters("@Istatus").Value = "Y"
                cmdAddType.Parameters("@fileno").Value = fileno
                Connection.Open()
                cmdAddType.ExecuteNonQuery()
                Dim OReturn As String = cmdAddType.Parameters("@OReturn").Value.ToString
                If CStr(OReturn) = "1" Then
                    Label8.Visible = True
                    Label8.Text = "New Invoice Created Successfully...."
                    'Response.Write("<scr" & "ipt>" & vbCrLf)
                    'Response.Write("alert(""New Invoice Created Successfully...."");" & vbCrLf)
                    'Response.Write("</scr" & "ipt>")
                    Connection.Close()
                    'Exit For
                End If
                ' Else
                'Response.Write("<scr" & "ipt>" & vbCrLf)
                'Response.Write("alert(""Please Select any one of File Number to Create Invoice?"");" & vbCrLf)
                'Response.Write("</scr" & "ipt>")
            End If
        Next
      
        bindinvoiceno()
    End Sub

End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2019-12-12 01:12:50
..	dir	-	0/0	0777	2025-01-23 06:51:44
bin	dir	-	0/0	0777	2016-08-03 05:36:55
Submit.aspx.vb	text/plain	27.36 KB	0/0	0666	2017-03-09 10:41:49
ViewTender.aspx	text/html	13.68 KB	0/0	0666	2017-02-06 08:32:00
ViewTender.aspx.vb	text/plain	8.32 KB	0/0	0666	2016-09-26 04:39:43
ViewTenderInvoice.aspx	text/html	13.87 KB	0/0	0666	2016-10-05 12:23:44
ViewTenderInvoice.aspx.vb	text/plain	19.93 KB	0/0	0666	2016-10-05 12:45:37

Team Anon Force

https://t.me/Professor6T9x