on 11-18-2004 8:36 PM
Hi
I wrote an add-on that save an invoice when the user click on the add button in the invoice form (133). My program add automatically some additional expenses to the document. If I save the invoice with a VATGRoup as CA the invoice is created, if I use the VATGRoup V2 I have this error "-2028 OACT No match record found". If I save the invoice without my add-on and I use VATGroup V2 the document is created.
Can you help me?
Thanks
Rita
Hi
I have found the problem to this message "-2028 OACT No match record found".... really the problem is that the total of the document is not correct.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hi Rita,
It would be very usefull if you could post the code you use to save the invoice.
I can suppose that you create a document and some accounting data is missing, perhaps AccountCode. Did you asign any value to it?
Regards,
Ibai Peñ
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hi
If I use my add-on on another database it saves the invoice correctly.
vFattura.DocNum = .Items("8").Specific.String
If .Items("78").Specific.Checked = True Then
vFattura.HandWritten = tYES
Else
vFattura.HandWritten = tNO
End If
vFattura.DocCurrency = "EUR"
vFattura.DocObjectCode = oInvoices
vFattura.CardCode = Trim(.Items("4").Specific.String)
vFattura.CardName = .Items("54").Specific.String
vFattura.Address = .Items("6").Specific.String
vFattura.DocDate=.Items"10").Specific.String
vFattura.DocDueDate =.Items("12").Specific.String
vFattura.NumAtCard = .Items("123").Specific.String
vFattura.Comments = .Items("16").Specific.String
vFattura.JournalMemo = .Items("18").Specific.String
vFattura.TaxDate=.Items("46").Specific.String
dTotDoc =.Items("29").Specific.String
dIVA=.Items.("27").Specific.String
vFattura.PaymentGroupCode = .Items("47").Specific.Selected.Value
If .Items("3").Specific.Selected.Value = "I" Then
vFattura.DocType = dDocument_Items
Else
vFattura.DocType = dDocument_Service
End If
For i = 1 To matRighe.RowCount - 1
Set colRead = matRighe.Columns.Item("1")
Set txtRead = colRead.Cells.Item(i).Specific
If txtRead.String <> "" Then
vFattura.Lines.ItemCode = txtRead.String
Set colRead = matRighe.Columns.Item("3")
Set txtRead = colRead.Cells.Item(i).Specific
vFattura.Lines.ItemDescription = txtRead.String
Set colRead = matRighe.Columns.Item("11")
Set txtRead = colRead.Cells.Item(i).Specific
vFattura.Lines.Quantity = txtRead.String
Set colRead = matRighe.Columns.Item("17")
Set txtRead = colRead.Cells.Item(i).Specific
vFattura.Lines.Price=txtRead.String
vFattura.Lines.Price = Mid(txtRead.String, 5)
vfattura.lines.Vatgroup="V2"
vFattura.Lines.AccountCode = "310101"
If i < matRighe.RowCount - 1 Then
vFattura.Lines.Add
end If
......
User | Count |
---|---|
95 | |
11 | |
11 | |
6 | |
6 | |
4 | |
4 | |
3 | |
3 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.