Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub PostJobTran()
- Dim postNegativeInventory As Boolean
- Dim postCompleteTransactions As Boolean
- Dim startingJob As String = Nothing
- Dim startingSuffix As Short?
- Dim startingTransDate As Date?
- Dim startingEmployee As String = Nothing
- Dim startingDepartment As String = Nothing
- Dim startingShift As String = Nothing
- Dim startingUserInitials As String = Nothing
- Dim endingJob As String = Nothing
- Dim endingSuffix As Short?
- Dim endingTransDate As Date?
- Dim endingEmployee As String = Nothing
- Dim endingDepartment As String = Nothing
- Dim endingShift As String = Nothing
- Dim endingUserInitials As String = Nothing
- Dim hourly As Boolean = True
- Dim salaried As Boolean = True
- Dim nonEmployee As Boolean = True
- Dim warehouse As String = "MAIN"
- Dim pl As New InvokeParameterList()
- pl.Add(New InvokeParameter(If(postCompleteTransactions = True, 1, 0)))
- pl.Add(New InvokeParameter(If(postNegativeInventory = True, 1, 0)))
- pl.Add(If(startingJob IsNot Nothing, New InvokeParameter(startingJob), New InvokeParameter()))
- pl.Add(If(endingJob IsNot Nothing, New InvokeParameter(endingJob), New InvokeParameter()))
- pl.Add(If(startingSuffix.HasValue = True, New InvokeParameter(startingSuffix.Value), New InvokeParameter()))
- pl.Add(If(endingSuffix.HasValue = True, New InvokeParameter(endingSuffix.Value), New InvokeParameter()))
- pl.Add(If(startingTransDate.HasValue = True, New InvokeParameter(startingTransDate.Value.Date), New InvokeParameter()))
- pl.Add(If(endingTransDate.HasValue = True, New InvokeParameter(endingTransDate.Value.Date), New InvokeParameter()))
- pl.Add(If(startingEmployee IsNot Nothing, New InvokeParameter(startingEmployee), New InvokeParameter()))
- pl.Add(If(endingEmployee IsNot Nothing, New InvokeParameter(endingEmployee), New InvokeParameter()))
- pl.Add(If(startingDepartment IsNot Nothing, New InvokeParameter(startingDepartment), New InvokeParameter()))
- pl.Add(If(endingDepartment IsNot Nothing, New InvokeParameter(endingDepartment), New InvokeParameter()))
- pl.Add(If(startingShift IsNot Nothing, New InvokeParameter(startingShift), New InvokeParameter()))
- pl.Add(If(endingShift IsNot Nothing, New InvokeParameter(endingShift), New InvokeParameter()))
- pl.Add(If(startingUserInitials IsNot Nothing, New InvokeParameter(startingUserInitials), New InvokeParameter()))
- pl.Add(If(endingUserInitials IsNot Nothing, New InvokeParameter(endingUserInitials), New InvokeParameter()))
- pl.Add(New InvokeParameter(String.Format("{0}{1}{2}", If(hourly = True, "H", "@"), If(salaried = True, "S", "@"), If(nonEmployee = True, "N", "@"))))
- pl.Add(New InvokeParameter(warehouse))
- pl.Add(New InvokeParameter())
- pl.Add(New InvokeParameter())
- pl.Add(New InvokeParameter())
- pl.Add(New InvokeParameter())
- pl.Add(New InvokeParameter())
- Dim req As New InvokeRequestData()
- req.IDOName = "SLJobTrans"
- req.MethodName = "JobJobP"
- req.Parameters = pl
- ' call ido method...
- Dim invokeResponse As InvokeResponseData
- invokeResponse = Me.IDOClient.Invoke(req)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement