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 = (TDBGrid1.Columns("Quantity").CellText(Bookmark) * TDBGrid1.Columns("Unit Price").CellText(Bookmark) * (100 - TDBGrid1.Columns("Discount").CellText(Bookmark)) / 100)

Vat = ((TDBGrid1.Columns("Quantity").CellText(Bookmark) * TDBGrid1.Columns("Unit Price").CellText(Bookmark) * (100 - TDBGrid1.Columns("Discount").CellText(Bookmark)) / 100)) * Val(TDBGrid1.Columns("Vat%").CellText(Bookmark)) / 100

Call Total

Select Case TDBGrid1.Columns(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 TDBGrid1.ApproxCount
r = r + (TDBGrid1.Columns("Quantity").CellText(i) * TDBGrid1.Columns("Unit Price").CellText(i) * (100 - TDBGrid1.Columns("Discount").CellText(i)) / 100)
Next i

'Intialize the SubTotal and the BookMark
s = 0
For i = 1 To TDBGrid1.ApproxCount
s = s + (TDBGrid1.Columns("Quantity").CellText(i) * TDBGrid1.Columns("Unit Price").CellText(i) * (100 - TDBGrid1.Columns("Discount").CellText(i)) / 100) * Val(TDBGrid1.Columns("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