Adding additional expenes via DI API

Question

Hi folks,
I have an addon which creates an Invoice based upon a Delivery which has been working fine. The client is now using additional expenses and I need to move these across from the Delivery Note to the Invoice.
I am receiving an error of 2028 but with no description.
Here is the code I am using...
For iLineCount = 0 To oDelNotes.Lines.count - 1
With oInv.Lines
                            oDelNotes.Lines.SetCurrentLine iLineCount
If iLineCount <> 0 Then
.Add
End If
.BaseEntry = lDocEntry
.BaseType = 15  'Type Delivery
.BaseLine = oDelNotes.Lines.LineNum
.SalesPersonCode = oDelNotes.SalesPersonCode
'ADD THE EXPENSES
If oDelNotes.Lines.Expenses.LineTotal > 0 Then
  .Expenses.SetCurrentLine iLineCount
  .Expenses.Add
  .Expenses.ExpenseCode = oDelNotes.Expenses.ExpenseCode
  .Expenses.LineTotal = oDelNotes.Lines.Expenses.LineTotal
End If
End With
Next iLineCount
l = oInv.Add
Can anyone see what is incorrect or shed some light on error -2028?
Thanks,
Robin

Answer 1

Hi,
Just in case anyone has a similar issue, I was missing the Vat Group field...
.Expenses.VatGroup = oDelNotes.Lines.Expenses.VatGroup
Thanks,
Robin