1 Imports System.Data.SqlClient
2
3
4 Public Class frmTrialBalance
5
6
7 Sub Reset()
8 dtpDateFrom.Text = Today
9 dtpDateTo.Text = Now
10 End Sub
11 Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
12 Reset()
13 End Sub
14
15
16 Private Sub btnClose_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
17 Me.Close()
18 End Sub
19
20 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
21 Try
22 Cursor = Cursors.WaitCursor
23 Timer2.Enabled = True
24 con = New SqlConnection(cs)
25 con.Open()
26 cmd = New SqlCommand("Select Name,CASE WHEN (Sum(Debit)-Sum(Credit))<= 0 THEN 0 ELSE (Sum(Debit)-Sum(Credit)) END AS Debit,CASE WHEN (Sum(Credit)-Sum(Debit))<= 0 THEN 0 ELSE (Sum(Credit)-Sum(debit)) END AS Credit from LedgerBook where Date between @d1 and @d2 Group By Name order by Name", con)
27 cmd.Parameters.Add("@d1", SqlDbType.DateTime, 30, "Date").Value = dtpDateFrom.Value.Date
28 cmd.Parameters.Add("@d2", SqlDbType.DateTime, 30, "Date").Value = dtpDateTo.Value
29 adp = New SqlDataAdapter(cmd)
30 dtable = New DataTable()
31 adp.Fill(dtable)
32 con.Close()
33 ds = New DataSet()
34 ds.Tables.Add(dtable)
35 ds.WriteXmlSchema("TrialBalanceAccounting.xml")
36 Dim rpt As New rptTrialBalance
37 rpt.SetDataSource(ds)
38 rpt.SetParameterValue("p1", dtpDateFrom.Value.Date)
39 rpt.SetParameterValue("p2", dtpDateTo.Value.Date)
40 frmReport.CrystalReportViewer1.ReportSource = rpt
41 frmReport.ShowDialog()
42 Catch ex As Exception
43 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
44 End Try
45 End Sub
46
47 Private Sub frmSalesReport_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
48
49 End Sub
50
51 Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
52 Cursor = Cursors.Default
53 Timer2.Enabled = False
54 End Sub
55 End Class