Public Class ScriptMain
Inherits UserComponent
Private sDeliveryName As String = ""
Private sDeliveryAddress1 As String = ""
Private sDeliveryAddress2 As String = ""
Private sDeliveryAddress3 As String = ""
Private sDeliveryAddress4 As String = ""
Private sDeliveryAddress5 As String = ""
Private sCustomerOrderNumber As String = ""
Private sDespatchDate As String = ""
Private sDeliveryDate As String = ""
Private sOrderNotes1 As String = ""
Private sOrderNotes2 As String = ""
Private sOrderNotes3 As String = ""
Private sErrorLog As String = ""
Private sRow As String()
Const sDelimiter As String = ","
Public Overrides Sub OrderRows_ProcessInputRow(ByVal Row As OrderRowsBuffer)
'
' Add your code here
''
sRow = Row.OrderRow.Split(sDelimiter.ToCharArray())
If sRow(0).ToString.ToUpper = "OH" Then
processHeaderRow()
Row.DirectRowToHeaderRow()
ElseIf sRow(0).ToString.ToUpper = "OL" Then
Row.Address1 = sDeliveryName
Row.Address2 = sDeliveryAddress1
Row.Address3 = sDeliveryAddress2
Row.Address4 = sDeliveryAddress3
Row.Address5 = sDeliveryAddress4
Row.BarCode = ""
Row.BatchNo = ""
Row.BBE = ""
Row.CustomerCode = "TEST"
Row.CustomerGoodsRef = ""
Row.CustOrderNo = sCustomerOrderNumber
Row.CustRef = ""
Row.DeliveryTime = "08:00"
Row.DeliveryDateTime = sDeliveryDate
Row.DeliveryInstructions = sOrderNotes1
Row.Depot = ""
Row.DespatchDate = sDespatchDate
Row.DestLocation = ""
Row.Location = ""
Row.OrderPriority = ""
Row.OrderDate = Date.Today.ToString("dd/MM/yyyy")
Row.OrderField1 = ""
Row.OrderField2 = ""
Row.OrderField3 = ""
Row.OrderField4 = ""
Row.Postcode = sDeliveryAddress5
Row.ProductCode = sRow(1).ToString
Row.Quantity = sRow(7).ToString
Row.TransportOut = ""
Row.UnitsOfOrder = "2"
Row.UserField3 = ""
Row.UserField4 = ""
Row.Warehouse = ""
'Row.ProductDesc = sRow(2).ToString
Row.DirectRowToDetailRows()
End If
End Sub
Private Sub processHeaderRow()
sDeliveryName = sRow(13).ToString
sDeliveryAddress1 = sRow(14).ToString
sDeliveryAddress2 = sRow(15).ToString
sDeliveryAddress3 = sRow(16).ToString
sDeliveryAddress4 = sRow(17).ToString
sDeliveryAddress5 = sRow(18).ToString
sCustomerOrderNumber = sRow(23).ToString
sDespatchDate = sRow(28).ToString
sDeliveryDate = sRow(29).ToString
sOrderNotes1 = sRow(25).ToString
sOrderNotes2 = sRow(26).ToString
sOrderNotes3 = sRow(27).ToString
End Sub