Sedang Disiapkan

FINANCIAL GRID: TRUE GRID VER 7.0 – INVOICING APPLICATION

FINANCIAL GRID: TRUE GRID VER 7.0 – INVOICING APPLICATION

We are using the above grid (bound) in our invoicing application (vb6 NOT .net) and wish to add a feature in the programming whereby the User can select an Invoice from one of the previous months for the current month invoice with only the date of the invoice and next invoice number having to change. The financial grid is required to recalculate the “imported” recurring invoice line items and update the relevant column totals (unbound) as well as the totals for all the lines in the grid.

We are presently using the following Sub to handle the updating of the relevant column totals which works just fine for normal invoicing ie where the line items are being manually entered into the grid but for some strange reason, this code is not working when we import the line items for the Recurring Invoice:

Private Sub TDBGrid1_UnboundColumnFetch(Bookmark As Variant, ByVal Col As Integer, value As Variant)

On Error Resume Next

Dim Exclusive As Double

Dim Vat As Double

Dim Inclusive As Double

Exclusive = ([url removed, login to view]("Quantity").CellText(Bookmark) * [url removed, login to view]("Unit Price").CellText(Bookmark) * (100 - [url removed, login to view]("Discount").CellText(Bookmark)) / 100)

Vat = (([url removed, login to view]("Quantity").CellText(Bookmark) * [url removed, login to view]("Unit Price").CellText(Bookmark) * (100 - [url removed, login to view]("Discount").CellText(Bookmark)) / 100)) * Val([url removed, login to view]("Vat%").CellText(Bookmark)) / 100

Call Total

Select Case [url removed, login to view](Col).Caption

Case "Exclusive"

value = Exclusive

Case "Vat"

value = Vat

Case "Inclusive"

value = Val(Exclusive) + Val(Vat)

End Select

End Sub

The Sub for calculating the “Total” is as follows:

Private Sub Total()

On Error Resume Next

Dim r As Double

Dim s As Double

'Intialize the SubTotal and the BookMark

r = 0

For i = 1 To [url removed, login to view]

r = r + ([url removed, login to view]("Quantity").CellText(i) * [url removed, login to view]("Unit Price").CellText(i) * (100 - [url removed, login to view]("Discount").CellText(i)) / 100)

Next i

'Intialize the SubTotal and the BookMark

s = 0

For i = 1 To [url removed, login to view]

s = s + ([url removed, login to view]("Quantity").CellText(i) * [url removed, login to view]("Unit Price").CellText(i) * (100 - [url removed, login to view]("Discount").CellText(i)) / 100) * Val([url removed, login to view]("Vat%").CellText(i)) / 100

Next i

txtExclusive = r

txtExclusive = Format(txtExclusive, "Fixed")

txtVat = s

txtVat = Format(txtVat, "Fixed")

txtInclusive = r + s

txtInclusive = Format(txtInclusive, "Fixed")

End Sub

If are familiar with the above or similar code and have DIRECT experience with True Grid V 7.0 or later, then please bid.

In addition, you MUST be contactable on skype and preferably have a headset so that we may talk through this project. The easiest way for you to resolve our problem will be via TeamViewer connection.

If needs be, we can send a mini project with the relevant forms and underlying code but it is too large to send via GAF.

Priority Level: URGENT

Kemahiran: Perakaunan, Pemasukan Data, Pemprosesan Data, Visual Basic

Lihat lebih lanjut: tdbgrid1, invoice grid, true grid price, vb6 invoicing application, financial grid, truegrid price, vb6 grid true, you ver, user experience resume, updating resume, priority one, double programming, direct update, caption call, invoicing application using grid, vb6 tdbgrid1, invoice grid vb6, grid invoice vb6, tdbgrid1 celltext, tdbgrid1bookmark celltext, subtotal grid vb6, vb6 grid large, grid invoice code, datagrid invoicing, supported grid bound truegrid

Tentang Majikan:
( 16 ulasan ) Plettenberg Bay, South Africa

ID Projek: #308049