Hi There
Am using the below code for SO creation, but it keeps failing at the enum sections (e_ ...) with object reference not set, error, kindly advise on what I'm doing wrong
Dim SalesOrderType As New JiwaSales.SalesOrder.SalesOrder.NewSalesOrderTypes
SalesOrderType = JiwaSales.SalesOrder.SalesOrder.NewSalesOrderTypes.e_NewSalesOrder
.BackOrderMode = JiwaSales.SalesOrder.SalesOrder.SalesOrderBackOrderModes.e_SalesOrderAutomatic
.BillType = JiwaSales.SalesOrder.SalesOrder.SalesOrderBillTypes.e_SalesOrderShipAndBill
.Branch.BranchID = BranchID
.DefaultInvoiceType = JiwaSales.SalesOrder.SalesOrder.SalesOrderTypes.e_SalesOrderNormalSalesOrder
.ExpectedDeliveryDate = CType(Row("RequestDate"), Date)
.InitiatedDate = CType(Row("OrderDate"), Date)
.OrderNo = Row("PONo").ToString
.SalesOrderType = JiwaSales.SalesOrder.SalesOrder.SalesOrderTypes.e_SalesOrderNormalSalesOrder
If Trim(IN_LogicalID) = "ZZZZZZZZZZ0000000000" Then
'.OrderType = JiwaSalesOrder.SalesOrderOrderTypes.e_SalesOrderOrderTypeInvoiceOrder 'commented on 02/03/2015
.OrderType = JiwaSales.SalesOrder.SalesOrder.SalesOrderOrderTypes.e_SalesOrderOrderTypeReserveOrder
ElseIf Trim(IN_LogicalID) <> "ZZZZZZZZZZ0000000000" Then
.OrderType = JiwaSales.SalesOrder.SalesOrder.SalesOrderOrderTypes.e_SalesOrderOrderTypeReserveOrder
End If
.Staff.StaffID = Std.JiwaID("HR_Staff", "Admin")
.WholeSaleInvoice = True
.InvoiceNo = 'test1234'