ISStockLot.Location

Example

Display the number of the stock lots loaded on the basis of the selected filter and some information about them, including the description and the code of the location.

Dim aFilter
Dim aStockLots
Dim aStockLot
Dim aMessage
Dim i

Set aFilter = InventoryUtils.CreateStockLotFilter
aFilter.Batch = 12
set aStockLots = InventoryUtils.LoadStockLots(aFilter)

aMessage = "Stock Lots Count = " & aStockLots.Count
for i = 0 to aStockLots.Count - 1
  set aStockLot = aStockLots.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
  "Details: " & vbNewLine &_
  " - Batch: " & aStockLot.Batch & vbNewLine &_ 
  " - Expiry: " & aStockLot.Expiry & vbNewLine &_
  " - Note: " & aStockLot.Note & vbNewLine &_
  " - Order Number: " & aStockLot.OrderNum & vbNewLine &_
  " - Quantity: " & aStockLot.Quantity


  if not aStockLot.Location is nothing then
    aMessage = aMessage & vbNewLine & " - Location: " &_
      aStockLot.Location.Description & " (" & aStockLot.Location.Code &_ 
      ")" & vbNewLine
  end if       
next         

Profile.MsgBox(aMessage)