Any relevant note about the stock lot.
object.Note
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISStockLot interface |
string
Display the number of the stock lots loaded on the basis of the selected filter and some information about them, including the notes.
Dim aFilter
Dim aStockLots
Dim aStockLot
Dim aMessage
Dim i
Set aFilter = InventoryUtils.CreateStockLotFilter
aFilter.LocationID = 990
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
next
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Note can be found in .