ISStockLevel.Maximum

Example

Display the information about the stock items and linked stock levels, including the data about the stock level that should never be exceed for the item.

Dim aFilter
Dim aStockItems
Dim aStockItem
Dim aMessage
Dim i, j
Dim aStockLevels
Dim aStockLevel

Set aFilter = InventoryUtils.CreateStockItemFilter
aFilter.SKU = "TEST1"  
set aStockItems = InventoryUtils.LoadStockItems(aFilter)

aMessage = "Stock Items Count = " & aStockItems.Count

for i = 0 to aStockItems.Count - 1
  set aStockItem = aStockItems.Item(i)
  aMessage = aMessage & vbNewLine & "-------------------------------" & vbNewLine &_
    " - Description: " & aStockItem.Description 

  set aFilter = InventoryUtils.CreateStockLevelFilter
  aFilter.StockItem = aStockItem
  set aStockLevels = InventoryUtils.LoadStockLevels(aFilter)

  aMessage = aMessage & vbNewLine & "Stock Levels Count = " & aStockLevels.Count
  for j = 0 to aStockLevels.Count - 1
    set aStockLevel = aStockLevels.Item(j)
    aMessage = aMessage & vbNewLine &_
      " - Maximum: " & aStockLevel.Maximum & vbNewLine &_
      " - Minimum: " & aStockLevel.Minimum & vbNewLine &_
      " - Note: " & aStockLevel.Note & vbNewLine &_
      " - Reorder: " & aStockLevel.Reorder & vbNewLine 

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

next 'i                          

Profile.MsgBox(aMessage)