- Code: Select all
Dim Subscriptlinedata As ISubscriptionLineData
Dim Subscr As Economic.Api.ISubscription
Dim SubscrNr As String
Dim Product As Economic.Api.IProduct
Dim ProductNr As String
Dim ChkInt As Integer
Dim RowCount As Integer = DtContact.Rows.Count
Dim i As Integer
i = 0
For Each Dr In DtContact.Rows
SubscrNr = Dr.item(1)
Subscr = session.Subscription.FindByNumber(SubscrNr)
If Subscr Is Nothing Then
Else
Subscriptlinedata = session.SubscriptionLineData.Create(Subscr)
ProductNr = Dr.item(2)
Product = session.Product.FindByNumber(ProductNr)
Subscriptlinedata.Product = Product
Subscriptlinedata.ProductName = Dr.Item(3) ' navn på faktura
Subscriptlinedata.Quantity = CDec(Dr.Item(4))
If Dr.item(5) = "" Then
Else
Subscriptlinedata.SpecialPrice = CDec(Dr.Item(5))
End If
If Dr.item(6) = "" Then
Else
Subscriptlinedata.Department = Dr.Item(6)
End If
session.SubscriptionLine.CreateFromData(Subscriptlinedata)
Dr.Item("Transfered") = 1
End If
i = i + 1
ToolStripProgressBar1.Value = 100 * i / RowCount
StatusStrip1.Refresh()
Next
session.Disconnect()
When using the above code i get a Subscriptionlinedata object which seems to be fine (number =0, department = nothing, specialprice=nothing, product is found, quantity is 1D), yet when i createfromdata it returns an error {"An internal error has occurred. {id=939146622}"}
Any help as to where i am going wrong, would be greatly appreciated.
