Pasted

        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