Article: Show progress bar on Button Click in ASP.Net
Sir,
As I iquoted that it is not working with me, so here I am placing my entire code for your consideration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Collections
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Threading
Partial Class Audit_cashbook_Default
Inherits System.Web.UI.Page
Private crystalReport As ReportDocument
Private Property CrystalReportViewer1 As Object
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Session("name") = "" Then
Session("myform") = "~\audit\cashbook\DEFAULT.aspx"
Response.Redirect("~\entry\default.aspx")
Else
If Not Me.IsPostBack Then
' HyperLink1.Enabled = False
Dim script As String = "$(document).ready(function () { $('[id*=btnSubmit]').click(); });"
ClientScript.RegisterStartupScript(Me.GetType, "load", script, True)
'refreshpage()
End If
End If
End Sub
Protected Sub cmdcb_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdcb.Click
Dim sql As String
Dim connection As SqlConnection
Dim connectionString As String
'System.Threading.Thread.Sleep(5000)
' System.Threading.Thread.Sleep(5000)
'HyperLink1.Enabled = False
HyperLink1.Visible = False
connectionString = ConfigurationManager.ConnectionStrings("accountsConnectionString").ToString
connection = New SqlConnection(connectionString)
sql = "delete from cashbook"
Dim cmd2 As New SqlCommand(sql, connection)
connection.Open()
cmd2.ExecuteNonQuery()
connection.Close()
sql = "select * from OPBALS where OP_DATE <='" & stdate.Text & "' order by OP_DATE desc "
connection.Open()
Dim cmd As New SqlCommand(sql, connection)
Dim reader As SqlDataReader = cmd.ExecuteReader
Dim baldate As Date
If reader.Read() Then
baldate = reader.Item("op_date")
sql = "insert into cashbook (mytext,r_name,r_date,e_date, op_1283,op_883,op_33,cl_1283,cl_883,cl_33,r_1283,r_883,r_33,tr_date) "
sql = sql & "values('Opening Balance','Opening Balance','" & reader.Item("op_date") & "','" & enddate.Text & "',"
sql = sql & IIf(Not IsDBNull(reader.Item("cr1283")), reader.Item("cr1283"), 0) & ","
sql = sql & IIf(Not IsDBNull(reader.Item("cr883")), reader.Item("cr883"), 0) & ","
sql = sql & IIf(Not IsDBNull(reader.Item("cr33")), reader.Item("cr33"), 0) & ","
sql = sql & IIf(Not IsDBNull(reader.Item("dr1283")), reader.Item("dr1283"), 0) & ","
sql = sql & IIf(Not IsDBNull(reader.Item("dr883")), reader.Item("dr883"), 0) & ","
sql = sql & IIf(Not IsDBNull(reader.Item("dr33")), reader.Item("dr33"), 0) & ", "
sql = sql & IIf(Not IsDBNull(reader.Item("cr1283")), reader.Item("cr1283"), 0) & ","
sql = sql & IIf(Not IsDBNull(reader.Item("cr883")), reader.Item("cr883"), 0) & ","
sql = sql & IIf(Not IsDBNull(reader.Item("cr33")), reader.Item("cr33"), 0) & ","
sql = sql & "'" & reader.Item("op_date") & "')"
Dim cmd3 As New SqlCommand(sql, connection)
'connection.Open()
cmd3.ExecuteNonQuery()
connection.Close()
End If
'If baldate.AddDays(1) <> stdate.Text Or IsDBNull(baldate) Then
' Dim mystdate As Date = stdate.Text
' mystdate = mystdate.AddDays(-1)
' sql = "select date,type,ISNULL(vno,0) VNO,ISNULL(chno,0) CHNO,name,ISNULL(b_acno,'') b_ACNO,spl_type,sum((ISNULL(amount,0)-isnull(twf,0)-isnull(bj,0)-isnull(tds,0)-isnull(vat,0))) as amt from exp where date > '" & baldate & "' and date < '" & stdate.Text & "' and type in ('GEN','FIRM','FNTDS','ARL','EXAM') AND SPL_TYPE IS NULL order by date,vno"
' connection.Open()
'End If
sql = "select a.paymode,A.date,A.type,ISNULL(A.vno,0) VNO,ISNULL(A.chno,0) CHNO,A.name,ISNULL(A.b_acno,'') b_ACNO,A.spl_type,(ISNULL(A.amount,0)-isnull(A.twf,0)-isnull(A.bj,0)-isnull(A.tds,0)-isnull(A.vat,0)) as amt,"
sql = sql & "isnull(A.BJ,0) as BJ,ISNULL(A.TWF,0) as TWF,isNUll(A.TDS,0) as TDS,isnull(A.VAT,0) as VAT,isnull(A.SRTAX,0) as srtax,isnull(A.CODE,0) as code,B.NAME AS BUDNAME,isnull(A.AMOUNT,0) as amount from exp A LEFT JOIN EXPHEAD B ON A.CODE=B.CODE where A.date between '" & stdate.Text & "' and '" & enddate.Text & "' and A.type in ('GEN','FIRM','FNTDS','ARL','EXAM','EMP','SELF') AND A.SPL_TYPE IS NULL order by A.date,A.vno"
connection.Open()
Dim cmd4 As New SqlCommand(sql, connection)
Dim reader1 As SqlDataReader = cmd4.ExecuteReader
Dim AMT As Double
While reader1.Read()
'AMT = IIf(IsDBNull(reader1.Item("AMOUNT")), 0, reader1.Item("AMOUNT"))
'If IsDBNull(reader1.Item("spl_type")) Then
If reader1.Item("amt") >= 0 Then
' If reader1.Item("spl_type") <> "ADVADJ" Then
' If reader.Item("AMOUNT") >= 0 Or IIf(Not IsDBNull(reader.Item("RCT_NO")), reader.Item("RCT_NO"), 0) > 0 Then
sql = "INSERT INTO CASHBOOK (e_mode,E_DATE,E_CHNO,E_VNO,E_name,E_TYPE,BJ,TWF,TDS,VAT,SRTAX,CODE,AMOUNT,BUDNAME,"
If RTrim(reader1.Item("B_ACNO")) <> "680405600033" Then ' And reader1.Item("TYPE") <> "ARADJ"
sql = sql & "E_883) "
Else
sql = sql & "E_33) "
End If
sql = sql & "values('" & reader1.Item("paymode") & "','" & reader1.Item("date") & "'," & reader1.Item("chno") & "," & reader1.Item("vno") & ",'" & reader1.Item("name") & "',"
sql = sql & "'" & reader1.Item("type") & "'," & reader1.Item("BJ") & "," & reader1.Item("TWF") & "," & reader1.Item("TDS") & "," & reader1.Item("VAT") & "," & reader1.Item("SRTAX") & "," & reader1.Item("CODE") & "," & reader1.Item("AMOUNT") & ",'" & reader1.Item("BUDNAME") & "',"
sql = sql & "" & reader1.Item("AMT") & ")"
' connection.Open()
Dim cmd5 As New SqlCommand(sql, connection)
cmd5.ExecuteNonQuery()
'connection.Close()
Else
sql = "INSERT INTO CASHBOOK (r_DATE,R_CHNO,R_VNO,R_name,"
If reader1.Item("B_ACNO") = "680401500883" Then
sql = sql & "R_883) "
Else
sql = sql & "R_33) "
End If
sql = sql & "values('" & reader1.Item("date") & "'," & reader1.Item("chno") & "," & reader1.Item("vno") & ",'" & reader1.Item("name") & "',"
' sql = sql & "'" & reader1.Item("type") & "',"
sql = sql & "" & reader1.Item("AMT") & " * -1)"
Dim cmd6 As New SqlCommand(sql, connection)
cmd6.ExecuteNonQuery()
End If
' reader1.Read()
End While
connection.Close()
cmd4.Dispose()
reader1.Close()
'''' inserting /updating income values
'sql = "select tr_date,pymt_mode,sum(totalpayment) as tp from incomedet_2002_03 where tr_date between '" & stdate.Text & "' and '" & enddate.Text & "' and pymt_mode <> 'SALARY ADJ' group by tr_date,pymt_mode "
'connection.Open()
sql = "select * from ("
sql = sql & " select tr_date,pymt_mode,sum(totalpayment) as tp from incomedet_2002_03 where tr_date between '" & stdate.Text & "' and '" & enddate.Text & "' AND PYMT_MODE in ('CASH','POSTAL ORDER') GROUP BY TR_DATE,PYMT_MODE"
sql = sql & " UNION all"
sql = sql & " SELECT TR_DATE,'DD- ' + MIN(BANK) + '-'+ltrim(str(count(bank))) AS PYMT_MODE,SUM(AMOUNT) as tp from payment_det where tr_date between '" & stdate.Text & "' and '" & enddate.Text & "' group by bank,tr_date "
sql = sql & " union all"
sql = sql & " select tr_date,'DIRECT DEPO' AS PYMT_MODE,TOTALPAYMENT AS TP from INCOMEDET_2002_03 where tr_date between '" & stdate.Text & "' and '" & enddate.Text & "' AND PYMT_MODE='DIRECT DEPOSIT' AND TOTALPAYMENT <> 00"
sql = sql & " ) z order by tr_date "
Dim cmd8 As New SqlCommand(sql, connection)
Dim sqlcb As String
cmd8 = New SqlCommand(sql, connection)
connection.Open()
reader1 = cmd8.ExecuteReader
Dim cbid As Double
While reader1.Read()
sqlcb = "select * from cashbook where e_date='" & reader1.Item("tr_date") & "' AND R_1283 IS nuLL order by e_vno "
Using cmd9 As New SqlCommand(sqlcb, connection)
cmd9.CommandType = CommandType.Text
cmd9.Connection = connection
'connection.Open()
Using sdr As SqlDataReader = cmd9.ExecuteReader
If sdr.Read() Then
cbid = sdr.Item("id")
sql = "update cashbook set r_date='" & reader1.Item("tr_date") & "',r_mode='" & reader1.Item("pymt_mode") & "',r_NAME='" & reader1.Item("pymt_mode") & "',r_1283=" & reader1.Item("tp") & " where id =" & cbid & ""
Using cmd10 As New SqlCommand(sql, connection)
cmd10.Connection = connection
'connection.Open()
Dim i As Integer = cmd10.ExecuteNonQuery()
'connection.Close()
End Using
Else
sql = "insert into cashbook(r_date,r_mode,r_1283,R_NAME) values ('" & reader1.Item("tr_date") & "','" & reader1.Item("pymt_mode") & "'," & reader1.Item("tp") & ",'" & reader1.Item("pymt_mode") & "' ) "
Using cmd10 As New SqlCommand(sql, connection)
cmd10.Connection = connection
'connection.Open()
Dim i As Integer = cmd10.ExecuteNonQuery()
'connection.Close()
End Using
End If
End Using
End Using
End While
connection.Close()
''''' updating transfers
sql = "select * from act_transfers where depo_date between '" & stdate.Text & "' and '" & enddate.Text & "' "
connection.Open()
cmd4 = New SqlCommand(sql, connection)
' Using cmd4 As New SqlCommand(sql, connection)
'Dim reader1 As SqlDataReader = cmd4.ExecuteReader
reader1 = cmd4.ExecuteReader
Dim rfield, efield As String
While reader1.Read()
sql = "insert into cashbook (E_DATE,R_DATE,r_name,e_name,"
If RTrim(reader1.Item("toaccount")) = "1283" Then
rfield = "r_1283"
ElseIf RTrim(reader1.Item("toaccount")) = "0883" Then
rfield = "r_883"
Else
rfield = "r_33"
End If
If RTrim(reader1.Item("fromaccount")) = "1283" Then
efield = "e_1283"
ElseIf RTrim(reader1.Item("fromaccount")) = "0883" Then
efield = "e_883"
Else
efield = "e_33"
End If
sql = sql & "" & rfield & "," & efield & ")"
sql = sql & " values ('" & reader1.Item("depo_date") & "','" & reader1.Item("depo_date") & "','Tr. FROM ' + '" & RTrim(reader1.Item("FROMACCOUNT")) & "',"
sql = sql & " 'Tr. TO ACCOUNT ' + '" & RTrim(reader1.Item("toaccount")) & "'," & reader1.Item("amount") & ", " & reader1.Item("amount") & ")"
Dim cmd7 As New SqlCommand(sql, connection)
cmd7.ExecuteNonQuery()
End While
' connection.Close()
''' updating all dates
sql = "update cashbook set st_date='" & stdate.Text & "' , end_date='" & enddate.Text & "',tr_date = isnull(r_date,e_date) "
Using cmd10 As New SqlCommand(sql, connection)
cmd10.Connection = connection
'connection.Open()
cmd10.ExecuteNonQuery()
'connection.Close()
End Using
Dim TRDATE As Date
sql = "select distinct(tr_date) AS TR_DATE from cashbook order by tr_date"
Using cmd10 As New SqlCommand(sql, connection)
cmd10.Connection = connection
cmd10.CommandType = CommandType.Text
cmd10.Connection = connection
'connection.Open()
Using sdr As SqlDataReader = cmd10.ExecuteReader
While sdr.Read()
TRDATE = sdr.Item("TR_DATE")
' sql = "SELECT SUM(R_1283) AS R_1283,SUM(E_1283) AS E_1283,SUM(R_883) AS R_883,SUM(E_883) AS E_883,SUM(R_33) AS R_33,SUM(E_33) AS E_33 FROM CASHBOOK WHERE TR_DATE <='" & TRDATE & "' WHERE TR_DATE <=" & TRDATE & ""
sql = "SELECT (SUM(isnull(R_1283,0)) - SUM(isnull(E_1283,0))) AS CL1283,(SUM(isnull(R_883,0)) -SUM(isnull(E_883,0))) AS CL883,(SUM(isnull(R_33,0)) -SUM(isnull(E_33,0))) AS CL33 FROM CASHBOOK WHERE TR_DATE <='" & TRDATE & "' "
Using cmd9 As New SqlCommand(sql, connection)
cmd9.Connection = connection
cmd9.CommandType = CommandType.Text
cmd9.Connection = connection
'connection.Open()
Using sdr10 As SqlDataReader = cmd9.ExecuteReader
If sdr10.Read() Then
sql = "UPDATE CASHBOOK SET CL_1283= " & sdr10.Item("CL1283") & ",CL_883=" & sdr10.Item("CL883") & ",CL_33=" & sdr10.Item("CL33") & " WHERE TR_DATE='" & TRDATE & "'"
'Using cmd8 As New SqlCommand(sql, connection)
cmd8 = New SqlCommand(sql, connection)
cmd8.Connection = connection
'connection.Open()
cmd8.ExecuteNonQuery()
sql = "UPDATE CASHBOOK SET op_1283= " & sdr10.Item("CL1283") & ",op_883=" & sdr10.Item("CL883") & ",op_33=" & sdr10.Item("CL33") & " WHERE TR_DATE > '" & TRDATE & "'"
'Using cmd8 As New SqlCommand(sql, connection)
cmd8 = New SqlCommand(sql, connection)
cmd8.Connection = connection
'connection.Open()
cmd8.ExecuteNonQuery()
'connection.Close()
'End Using
End If
End Using
End Using
End While
End Using
End Using
connection.Close()
' resetall()
Server.Transfer("cbreport.aspx", True)
End Sub
Public Sub resetall()
Try
' Your code here
HyperLink1.Enabled = True
Response.Redirect("cbreport.aspx")
Catch ex As Exception
' Log the exception or display it
Console.WriteLine(ex.Message)
End Try
End Sub
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Audit_cashbook_Default" %>
<%@ Register assembly="AjaxControlToolkit" namespace="AjaxControlToolkit" tagprefix="asp" %>
<%@ Register assembly="CrystalDecisions.Web, Version=13.0.4000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" namespace="CrystalDecisions.Web" tagprefix="CR" %>
<asp:Content ID="Content1" ContentPlaceHolderID="HeadContent" Runat="Server">
<style type="text/css">
.style1
{
width: 268px;
}
.style2
{
width: 253px;
}
.style3
{
font-size: large;
color: #000066;
}
.modal
{
position: fixed;
top: 0;
left: 0;
background-color: grey;
z-index: 99;
-moz-opacity: 0.8;
min-height: 100%;
width: 100;
opacity: 0.8;
filter: alpha(opacity=80);
}
.loading
{
font-family: Arial;
font-size: 10pt;
border: 5px solid #67CFF5;
width: 200px;
height: 100px;
display: none;
position: fixed;
background-color: White;
z-index: 999;
}
</style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="MainContent" Runat="Server">
<p class="style3">
<strong>CASH BOOK CREATION</strong></p>
<asp:ScriptManager ID="ScriptManager1" runat="server">
</asp:ScriptManager>
<script src='<%=ResolveUrl("~/crystalreportviewers13/js/crviewer/crv.js")%>' type="text/javascript"></script>
<!-- <script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.7.1/jquery.min.js"></script> -->
<script type="text/javascript" src="https://ajax.googleapis.com/ajax/libs/jquery/1.8.3/jquery.min.js"></script>
<script type="text/javascript">
$(function () {
$('form').on("submit", function () {
ShowProgress();
});
});
function ShowProgress() {
setTimeout(function () {
var modal = $('<div />');
modal.addClass("modal");
$('body').append(modal);
var loading = $(".loading");
loading.show();
var top = Math.max($(window).height() / 2 - loading[0].offsetHeight / 2, 0);
var left = Math.max($(window).width() / 2 - loading[0].offsetWidth / 2, 0);
loading.css({ top: top, left: left });
}, 200);
}
$('form').live("submit", function () {
ShowProgress();
});
</script>
<asp:UpdateProgress ID="UpdateProgress1" runat="server" AssociatedUpdatePanelID="pnldata">
<ProgressTemplate>
<div class="modal">
<div class="center">
<CR:CrystalReportViewer ID="CrystalReportViewer1" runat="server"
AutoDataBind="true" />
</div>
</div>
</ProgressTemplate>
</asp:UpdateProgress>
<div>
<asp:UpdateProgress ID="UpdateProgress" runat="server">
</asp:UpdateProgress>
<!--
<ASP:modalpopupextender ID="modalPopup" runat="server" TargetControlID="UpdateProgress"
PopupControlID="UpdateProgress" BackgroundCssClass="modalPopup" />
<br />
-->
<asp:UpdatePanel ID="pnlData" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Panel ID="Panel1" runat="server">
<table style="width:40%; height: 23px;" align="center">
<tr>
<td class="style1">
Period</td>
<td class="style2">
<asp:TextBox ID="stdate" runat="server" onkeydown="return false;" onpaste ="return false;"></asp:TextBox>
<asp:CalendarExtender ID="stdate_CalendarExtender" runat="server"
Enabled="True" TargetControlID="stdate">
</asp:CalendarExtender>
</td>
<td>
<asp:TextBox ID="enddate" runat="server" onkeydown="return false;" onpaste ="return false;"></asp:TextBox>
<asp:CalendarExtender ID="enddate_CalendarExtender" runat="server"
Enabled="True" TargetControlID="enddate">
</asp:CalendarExtender>
</td>
</tr>
<tr>
<td class="style1">
</td>
<td class="style2">
<asp:Button ID="cmdcb" runat="server" Text="Create CashBook" />
</td>
<td>
</td>
</tr>
<tr>
<td class="style1">
</td>
<td class="style2">
</td>
<td>
</td>
</tr>
<tr>
<td class="style1">
</td>
<td class="style2">
</td>
<td>
</td>
</tr>
</table>
<br />
<br />
If the file not dowloads after wait.. Please click here
<asp:HyperLink ID="HyperLink1" runat="server"
NavigateUrl="~/Audit/cashbook/cbreport.aspx">Download</asp:HyperLink>
<br />
<div class="loading" align="center">
Loading. Please wait.<br />
<br />
<img src="loader.gif" alt="" />
</div>
</asp:Panel>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content>
