Private Sub InitializeDetailsGrid() dtDetails.Columns.Add("ProductID", GetType(Integer)) dtDetails.Columns.Add("ProductName", GetType(String)) dtDetails.Columns.Add("Quantity", GetType(Decimal)) dtDetails.Columns.Add("Rate", GetType(Decimal)) dtDetails.Columns.Add("TaxableValue", GetType(Decimal)) dtDetails.Columns.Add("CGST", GetType(Decimal)) dtDetails.Columns.Add("SGST", GetType(Decimal)) dgvDetails.DataSource = dtDetails End Sub
Private Sub btnSaveInvoice_Click(sender As Object, e As EventArgs) Handles btnSaveInvoice.Click If dtDetails.Rows.Count = 0 Then MessageBox.Show("Add at least one product") Return End If vbnet+billing+software+source+code
lblSubtotal.Text = subTotal.ToString("N2") lblTotalCGST.Text = totalCGST.ToString("N2") lblTotalSGST.Text = totalSGST.ToString("N2") lblGrandTotal.Text = (subTotal + totalCGST + totalSGST).ToString("N2") End Sub Private Sub InitializeDetailsGrid() dtDetails
' Insert Details For Each row As DataRow In dtDetails.Rows Dim detailCmd As New SqlCommand("INSERT INTO tbl_Invoice_Details (InvoiceNo, ProductID, Quantity, Rate, TaxableValue, CGST_Amount, SGST_Amount) VALUES (@invNo, @pid, @qty, @rate, @taxable, @cgst, @sgst)", conn, transaction) detailCmd.Parameters.AddWithValue("@invNo", txtInvoiceNo.Text) detailCmd.Parameters.AddWithValue("@pid", row("ProductID")) detailCmd.Parameters.AddWithValue("@qty", row("Quantity")) detailCmd.Parameters.AddWithValue("@rate", row("Rate")) detailCmd.Parameters.AddWithValue("@taxable", row("TaxableValue")) detailCmd.Parameters.AddWithValue("@cgst", row("CGST")) detailCmd.Parameters.AddWithValue("@sgst", row("SGST")) detailCmd.ExecuteNonQuery() Next SGST_Amount) VALUES (@invNo
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click If String.IsNullOrWhiteSpace(txtProductName.Text) Then MessageBox.Show("Enter product name") Return End If
Introduction In the world of desktop application development, Visual Basic .NET (VB.NET) remains a powerful, rapid application development (RAD) tool for creating business solutions. One of the most common requests from junior developers and IT students is for vbnet billing software source code —a ready-to-study, functional invoicing system.
Private Sub btnAddProduct_Click(sender As Object, e As EventArgs) Handles btnAddProduct.Click ' Assume a popup product search form returns selected product Dim frm As New frmProductSearch() If frm.ShowDialog() = DialogResult.OK Then Dim newRow As DataRow = dtDetails.NewRow() newRow("ProductID") = frm.SelectedProductID newRow("ProductName") = frm.SelectedProductName newRow("Quantity") = 1 newRow("Rate") = frm.Rate ' Tax calculation will be done row-by-row based on GST% Dim gstPercent As Decimal = frm.GSTPercent Dim taxable As Decimal = newRow("Quantity") * newRow("Rate") newRow("TaxableValue") = taxable newRow("CGST") = Math.Round(taxable * (gstPercent / 100) / 2, 2) newRow("SGST") = Math.Round(taxable * (gstPercent / 100) / 2, 2) dtDetails.Rows.Add(newRow) CalculateTotals() End If End Sub