Hi, Im trying to use some classes that will hold invoice data and I cant seem to get it working. I just want it to save details of an invoice in an array. Heres the code, maybe someone can figure it out.
Also id like for the LineItems to take a random number of product items, not sure how to do that yet.
[vba]
Sub webservicetest()
Dim NewOrder As New struct_XOrder
Dim LineItems(1 To 2) As Variant
Dim Xline As New struct_LineItem
'NewOrder.LineItems = new LineItem[2]; // initialize to correct number of line items
'LineItem XLine;
'XLine = new LineItem();
'NewOrder.LineItems[0] = XLine
NewOrder.ClientShortName = "DemoClient"
NewOrder.OrderNumber = "12345"
'Dim Xline As New LineItems
Xline = New LineItem
Xline.ItemComment = "item1"
Xline.Qty = 5
'Set Xline = NewOrder.LineItems
Debug.Print NewOrder.ClientShortName
Debug.Print NewOrder.OrderNumber
Debug.Print Xline
End Sub
'''''' This is how it works in c# '''''
NewOrder.LineItems = new LineItem[2]; // initialize to correct number of line items
LineItem XLine;
XLine = new LineItem(); // create a new line item
XLine.ProductSKU = "abcde"; // populate it
XLine.Qty = 3;
XLine.UnitPrice = "19.95";
XLine.ItemComment = "ignore this";
NewOrder.LineItems[0] = XLine; // place it to the array
XLine = new LineItem(); // and so on
XLine.ProductSKU = "aabbc";
XLine.Qty = 2;
XLine.UnitPrice = "4.99";
XLine.ItemComment = "ignore this also";
NewOrder.LineItems[1] = XLine;
'''''''''''''''''''''''''''''''''''''
[/vba]