Advertisement
bluebunny72

JobJobP

Jan 28th, 2017
207
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         Public Sub PostJobTran()
  2.  
  3.             Dim postNegativeInventory As Boolean
  4.             Dim postCompleteTransactions As Boolean
  5.             Dim startingJob As String = Nothing
  6.             Dim startingSuffix As Short?
  7.             Dim startingTransDate As Date?
  8.             Dim startingEmployee As String = Nothing
  9.             Dim startingDepartment As String = Nothing
  10.             Dim startingShift As String = Nothing
  11.             Dim startingUserInitials As String = Nothing
  12.  
  13.             Dim endingJob As String = Nothing
  14.             Dim endingSuffix As Short?
  15.             Dim endingTransDate As Date?
  16.             Dim endingEmployee As String = Nothing
  17.             Dim endingDepartment As String = Nothing
  18.             Dim endingShift As String = Nothing
  19.             Dim endingUserInitials As String = Nothing
  20.  
  21.             Dim hourly As Boolean = True
  22.             Dim salaried As Boolean = True
  23.             Dim nonEmployee As Boolean = True
  24.             Dim warehouse As String = "MAIN"
  25.  
  26.             Dim pl As New InvokeParameterList()
  27.             pl.Add(New InvokeParameter(If(postCompleteTransactions = True, 1, 0)))
  28.             pl.Add(New InvokeParameter(If(postNegativeInventory = True, 1, 0)))
  29.             pl.Add(If(startingJob IsNot Nothing, New InvokeParameter(startingJob), New InvokeParameter()))
  30.             pl.Add(If(endingJob IsNot Nothing, New InvokeParameter(endingJob), New InvokeParameter()))
  31.             pl.Add(If(startingSuffix.HasValue = True, New InvokeParameter(startingSuffix.Value), New InvokeParameter()))
  32.             pl.Add(If(endingSuffix.HasValue = True, New InvokeParameter(endingSuffix.Value), New InvokeParameter()))
  33.             pl.Add(If(startingTransDate.HasValue = True, New InvokeParameter(startingTransDate.Value.Date), New InvokeParameter()))
  34.             pl.Add(If(endingTransDate.HasValue = True, New InvokeParameter(endingTransDate.Value.Date), New InvokeParameter()))
  35.             pl.Add(If(startingEmployee IsNot Nothing, New InvokeParameter(startingEmployee), New InvokeParameter()))
  36.             pl.Add(If(endingEmployee IsNot Nothing, New InvokeParameter(endingEmployee), New InvokeParameter()))
  37.             pl.Add(If(startingDepartment IsNot Nothing, New InvokeParameter(startingDepartment), New InvokeParameter()))
  38.             pl.Add(If(endingDepartment IsNot Nothing, New InvokeParameter(endingDepartment), New InvokeParameter()))
  39.             pl.Add(If(startingShift IsNot Nothing, New InvokeParameter(startingShift), New InvokeParameter()))
  40.             pl.Add(If(endingShift IsNot Nothing, New InvokeParameter(endingShift), New InvokeParameter()))
  41.             pl.Add(If(startingUserInitials IsNot Nothing, New InvokeParameter(startingUserInitials), New InvokeParameter()))
  42.             pl.Add(If(endingUserInitials IsNot Nothing, New InvokeParameter(endingUserInitials), New InvokeParameter()))
  43.             pl.Add(New InvokeParameter(String.Format("{0}{1}{2}", If(hourly = True, "H", "@"), If(salaried = True, "S", "@"), If(nonEmployee = True, "N", "@"))))
  44.             pl.Add(New InvokeParameter(warehouse))
  45.             pl.Add(New InvokeParameter())
  46.             pl.Add(New InvokeParameter())
  47.             pl.Add(New InvokeParameter())
  48.             pl.Add(New InvokeParameter())
  49.             pl.Add(New InvokeParameter())
  50.  
  51.             Dim req As New InvokeRequestData()
  52.             req.IDOName = "SLJobTrans"
  53.             req.MethodName = "JobJobP"
  54.             req.Parameters = pl
  55.  
  56.             ' call ido method...
  57.            Dim invokeResponse As InvokeResponseData
  58.             invokeResponse = Me.IDOClient.Invoke(req)
  59.  
  60.         End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement