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

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

poly swstos...se eyxaristw poly...

Φίλε Scientist, σε παρακαλώ αφιέρωσε λίγο από τον χρόνο σου για να διαβάσεις τους κανόνες του dotNETZone.gr

• Στο βαθμό που αυτό είναι δυνατό, παρακαλώ πολύ να μη χρησιμοποιείτε greeklish.  Εκτός του ότι δεν μου αρέσουν (ωραίος λόγος, ε?), κάνουν δυσκολότερη την δουλειά του πολύ χρήσιμου “search” καθώς και την ανάγνωση του μηνύματος πράγμα που σημαίνει ότι μειώνονται οι πιθανότητες να απαντηθεί το μήνυμα.
• Όταν λάβουμε σωστή απάντηση σε ερώτηση μας, τότε τη σημειώνουμε πατώντας το ανάλογο ειδικό κουμπάκι που υπάρχει σε κάθε απάντηση. Και αν τελικά λύσουμε το πρόβλημά μας, θέτουμε την ενότητα σε κατάσταση «Έχει επιλυθεί».