Quantcast
Channel: ASP.NET AJAX + Ajax Control Toolkit (ACT)
Viewing all articles
Browse latest Browse all 5678

vb.net UpdatePanel/Functions

$
0
0

I'm having trouble with codebehind functions and update panels. When i click then "Finish Pallet" Button i want it to run through 3 functions. When each function runs i need some label text to change and some divs to show and hide (my div have runat="server" in them). All three Functions work like they should but they run right through till the last function and only shows the changes of the last function. What am i missing??

Thanks In Advanced!!

Code Behind And Html Below

Public Class WebForm2
    Inherits System.Web.UI.Page
    Dim data_source_all = "My SQL DataSource"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Finish_Pallet_Click(sender As Object, e As EventArgs) Handles Finish_Pallet.Click
        If error_array_.Text = "0" Then
        Else
            If hide_all() Then
                If send_error() Then
                    reload_page()
                Else
                End If
            Else
            End If
        End If
    End Sub
    Public Shared Sub send_email(ByVal subject As String, ByVal body As String)
        Dim mail_to_un As String = "UserName1;Username2;Username3"
        Dim mail_to_dn As String = "@MyDomain.com"
        Dim mail As New MailMessage()
        For Each User_ In mail_to_un.Split(";"c)
            mail.To.Add(User_ & mail_to_dn)
        Next
        mail.From = New MailAddress("From@MyDomain.com")
        mail.Subject = subject
        mail.Body = body
        Dim smtp As New SmtpClient()
        smtp.Host = "MyMail.MyDomain.com"
        smtp.Port = "25"
        smtp.Credentials = New NetworkCredential("Auth@MyDomain.com", "AuthPassword")
        smtp.UseDefaultCredentials = False
        smtp.Send(mail)
    End Sub
    Friend TextToBePrinted As String

    Public Sub prt(ByVal text As String, ByVal printer As String)
        TextToBePrinted = text
        Dim prn As New Printing.PrintDocument
        Using (prn)
            prn.PrinterSettings.PrinterName = printer
            AddHandler prn.PrintPage,
               AddressOf Me.PrintPageHandler
            prn.Print()
            RemoveHandler prn.PrintPage,
               AddressOf Me.PrintPageHandler
        End Using
    End Sub

    Private Sub PrintPageHandler(ByVal sender As Object,
       ByVal args As Printing.PrintPageEventArgs)
        Dim myFont As New Font("Courier New", 12)
        args.Graphics.DrawString(TextToBePrinted,
           New Font(myFont, FontStyle.Regular),
           Brushes.Black, 50, 50)
    End Sub
    Public Function hide_all() As Boolean
        create.Visible = False
        finish_me.Visible = False
        display_me.Visible = False
        Display_me_2.Style.Add("display", "block")
        Display_me_2.Visible = True
        err_lbl.Text = "There were errors in this Pallet!"
        err_lbl1.Text = "Please Wait! Error Report Is Printing."
        wrapper_grid.Attributes.Add("class", "red")
        form1.Attributes.Add("class", "red")
        Return True
    End Function
    Public Function send_error() As Boolean
        send_email("Outbound Box Check", error_array_.Text)
        Dim finished As String = "Done"
        Dim constring2 As String = data_source_all
        Using con1 As New SqlConnection(constring2)
            Using cmd2 As New SqlCommand("update TABLE set Data = @DATA  where([Field_] like @MY_id1)", con1)
                cmd2.Parameters.AddWithValue("@DATA", finished)
                cmd2.Parameters.AddWithValue("@MY_id1", pallet_id.Text)
                con1.Open()
                cmd2.ExecuteNonQuery()
                con1.Close()
            End Using
        End Using
        prt(error_array_.Text, "\\Server\Shared Printer")
        err_lbl1.Text = "Error Report Is Printed."
        err_lbl2.Text = "This Page Will Now Reload"
        Return True
    End Function
    Public Sub reload_page()
        Response.Redirect(Request.RawUrl)
    End Sub

End Class
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WebForm2.aspx.vb" Inherits="WebApplication7.WebForm2" %><!DOCTYPE html><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"> </head><body class="noclick"><div id="bodywrapper" class="noclick"><div id="logo" class="noclick"><img id="logoimg" src="images/logo2.png?v=<%=ConfigurationManager.AppSettings("VersionNumber")%>" width="125" height="60" alt="Logo" usemap="#logomenu" class="noclick" /><map name="logomenu"><area shape="rect" coords="8,10,125,60" alt="Menu" href="#menus" /></map></div><div id="lineh" class="noclick"></div><div id="banner" class="deplete noclick"><img class="bannersize noclick" src="images\banners\supplier_box_checkv2.gif?v=<%=ConfigurationManager.AppSettings("VersionNumber")%>" /></div><center><div id="forms" class="noclick"><form id="form1" runat="server" class="noclick"  autocomplete ="off"><asp:ScriptManager runat="server" id="ScriptManager1"></asp:ScriptManager><asp:UpdatePanel runat="server" id="UpdatePanel1"><ContentTemplate><div id="wrapper_grid" runat="server" class="noclick" style="width: 360px;min-height:400px;"><asp:Label ID="err_lbl" runat="server" ForeColor="White"></asp:Label><br /><br /><div id="create" runat="server"><asp:Label ID="Label8" runat="server" Text="P.O.#: " ForeColor="White"></asp:Label><asp:TextBox ID="po_num" runat="server" Width="190px" class="textboxshadow" minlength="1" AutoPostBack="false" AutoCompleteType="Disabled"></asp:TextBox><br /><br /><asp:Button ID="Create_Pallet" runat="server" Text="Create Pallet" CssClass="button"></asp:Button><br /><br /><br /></div><div id="finish_me" runat="server" hidden="hidden"><asp:Label ID="Label3" runat="server" Text="Pallet ID: " ForeColor="White"></asp:Label><asp:Label ID="pallet_id" runat="server" Font-Size="Large" ForeColor="White"></asp:Label><br /><asp:Label ID="Label7" runat="server" Text="P.O.#: " ForeColor="White"></asp:Label><asp:Label ID="po_lbl" runat="server" Font-Size="Large" ForeColor="White"></asp:Label><br /><asp:Label ID="Label6" runat="server" Text="Box ID: " ForeColor="White"></asp:Label><asp:TextBox ID="boxqr" runat="server" Width="190px" class="textboxshadow" minlength="1" AutoPostBack="True" AutoCompleteType="Disabled"></asp:TextBox><br /><br /><asp:Button ID="Finish_Pallet" runat="server" Text="Finish Pallet" CssClass="button"></asp:Button><br /><br /></div><div id="display_me" runat="server"><asp:Label ID="Label2" runat="server" Text="Box ID: " ForeColor="White" CssClass="noclick"></asp:Label><asp:Label ID="box_id_lbl" runat="server" ForeColor="White" CssClass="noclick"></asp:Label><br /><asp:Label ID="Label1" runat="server" Text="Part Number: " ForeColor="White" CssClass="noclick"></asp:Label><asp:Label ID="Part_num_lbl" runat="server" ForeColor="White" CssClass="noclick"></asp:Label><br /><asp:Label ID="Label4" runat="server" Text="Reels Per Box: " ForeColor="White" CssClass="noclick"></asp:Label><asp:Label ID="Reels_Per_Box_lbl" runat="server" ForeColor="White" CssClass="noclick"></asp:Label><br /><asp:Label ID="Label5" runat="server" Text="Reels In Box: " ForeColor="White" CssClass="noclick"></asp:Label><asp:Label ID="Reel_In_Box_lbl" runat="server" ForeColor="White" CssClass="noclick"></asp:Label></div><br /><div id="Display_me_2" runat="server" hidden="hidden"><asp:Label ID="err_lbl1" runat="server" ForeColor="White" Font-Size="X-Large"></asp:Label><br /><asp:Label ID="err_lbl2" runat="server" ForeColor="White" Font-Size="X-Large"></asp:Label><br /></div></div><asp:TextBox ID="error_array_" runat="server" TextMode="MultiLine" Height="505px" Width="295px"></asp:TextBox></ContentTemplate></asp:UpdatePanel></form></div></center></div></body></html>

Viewing all articles
Browse latest Browse all 5678

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>