ISService.StockItem

Example

Display the number of the services loaded on the basis of the selected filter, some information about them, including the stock items linked to them.

Dim aFilter
Dim aService
Dim aServices
Dim aMessage
Dim i

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Injection"
set aServices = Profile.LoadServicesByFilter(aFilter)

aMessage = "Services Count = " & aServices.Count & vbNewLine
for i = 0 to aServices.Count - 1
  set aService = aServices.Item(i)
  aMessage = aMessage & vbNewLine & "----------------------------" & vbNewLine &_
    "Description: " & aService.Description & vbNewLine &_
    "Code: " & aService.Code & vbNewLine &_
    "Added: " & aService.Added & vbNewLine &_
    "Changed: " & aService.Changed & vbNewLine &_
    "Status: " & aService.Status & vbNewLine &_
    "ID: " & aService.ID & vbNewLine &_
    "Output Code: " & aService.OutputCode & vbNewLine &_
    "Default Delivery Time: " & aService.DefaultDeliveryTime & vbNewLine &_
    "Group ID: " & aService.GroupId & vbNewLine 
    
  if not aService.StockItem is nothing then
    aMessage = aMessage & vbNewLine & "Stock Item: " & aService.StockItem.Description
  end if  
next      

Profile.MsgBox(aMessage)