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

        If Not Page.IsPostBack Then
            ddlSupp.DataBind()
            ddlGpinv.DataBind()
            ddlAddr.DataBind()
        End If

        Me.lblName.Text = Session.Item("SEC_Name")
        'imerominia'
        Dim dtNow As DateTime = DateTime.Now
        LblDate.Text = dtNow.ToShortDateString
        '
        Dim Command2 As SqlClient.SqlCommand
        Command2 = GetCommand("web_SuppliersSelect")

        Command2.Connection.Open()

        ddlSupp.DataValueField = "SuppID"
        ddlSupp.DataTextField = "SuppDescr"
        ddlSupp.DataSource = Command2.ExecuteReader
        ddlSupp.DataBind()

        Command2.Dispose()
        '
        Dim Command3 As SqlClient.SqlCommand
        Command3 = GetCommand("web_AddressesSelect")

        Command3.Connection.Open()

        ddlAddr.DataValueField = "AddrID"
        ddlAddr.DataTextField = "AddrDescr"
        ddlAddr.DataSource = Command3.ExecuteReader
        ddlAddr.DataBind()

        Command3.Dispose()
        '
        Dim Command4 As SqlClient.SqlCommand
        Command4 = GetCommand("web_GroupInvoicesSelect")

        Command4.Connection.Open()

        ddlGpinv.DataValueField = "GpinvID"
        ddlGpinv.DataTextField = "GpinvDescr"
        ddlGpinv.DataSource = Command4.ExecuteReader
        ddlGpinv.DataBind()

        Command4.Dispose()
        '

    End Sub

    Private Sub LkBtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LkBtnBack.Click
        Session.Item("Verified") = "True"

        If Session.Item("SEC_Level") = "U" Then
            Response.Redirect("UserPage.aspx")
        End If
    End Sub

    Private Sub btnContinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnContinue.Click

        If Me.txtInvNum.Text = "" Then Exit Sub
        If Me.ddlSupp.SelectedItem.Value = "" Then Exit Sub
        If Me.txtPwovat.Text = "" Then Exit Sub
        If Me.txtItemDescr.Text = "" Then Exit Sub
        If Me.ddlGpinv.SelectedItem.Value = "" Then Exit Sub
        If Me.ddlAddr.SelectedItemValue = "" Then Exit Sub

        Dim Cmd As SqlClient.SqlCommand = Database.GetCommand("dbo.web_UpdateNewInvoice2")
        Cmd.Parameters.Add("@TimSecId", SqlDbType.Int).Value = Session.Item("SEC_ID")
        'Cmd.Parameters.Add("@NoteDate", SqlDbType.DateTime).Value = Now.ToString("yyyy-MM-dd")
        Cmd.Parameters.Add("@TimNum", SqlDbType.Int).Value = Me.txtInvNum.Text
        Cmd.Parameters.Add("@TimSuppId", SqlDbType.Int).Value = Me.ddlSupp.SelectedItem.Value
        Cmd.Parameters.Add("@TimPwovat", SqlDbType.Int).Value = Me.txtPwovat.Text
        Cmd.Parameters.Add("@TimItemDescr", SqlDbType.Int).Value = Me.txtItemDescr.Text
        Cmd.Parameters.Add("@TimGpInvId", SqlDbType.Int).Value = Me.ddlGpinv.SelectedItem.Value
        Cmd.Parameters.Add("@TimAddrId", SqlDbType.Int).Value = Me.ddlAddr.SelectedItem.Value
        'Cmd.Parameters.Add("@NoteText", SqlDbType.VarChar, 2000).Value = Me.txtNotes.Text

        Database.CommandExecuteNonQuery(Cmd, True)
        Me.txtInvNum.Text = ""
        Me.ddlSupp.SelectedItem.Value = ""
        Me.txtPwovat.Text = ""
        Me.txtItemDescr.Text = ""
        Me.ddlGpinv.SelectedItem.Value = ""
        Me.ddlAddr.SelectedItem.Value = ""

        Response.Redirect("ReplyInvoicePage.aspx")
    End Sub

End Class