Tracker Training Script Key 1

Sub OnMouseUp(x As Long, y As Long, flags As Long)

Dim itemid As String Dim model as String Dim item As New prtItem

For i = 1 To 10

'Prompt user for the Carrier item id and model 'itemid = InputBox$("Enter CARRIER item id, please","Item ID Entry","") 'model = "00"

'Random generate item id Randomize Number = Random(1,5000) itemid = "C" & Number model = "00"

'Set the item properties item.regionid="LOAD_CONV" item.itemid = itemid

item.itemtypeid = model item.regionloc = -1 item.exthold 0 item.groupid = "MAIN" item.inthold 0 'Add the item to PRT item.Add

Next i

Dim Region As New PrtRegion

'Add Attributes for Carriers

Region.Id = "LOAD_CONV" A1$ = "CYCLE COUNT" A2$ = "LAST CYCLE" A3$ = "LAST CLEAN DATE" A4$ = "ON-LINE DATE" A5$ = "SUPPLIER" value$ = " "

Region.GetItemList

j=0

for j = 0 to Region.ItemCount - 1

Region.Item(j).SetAttr A1$, value$ Region.Item(j).SetAttr A2$, value$ Region.Item(j).SetAttr A3$, value$ Region.Item(j).SetAttr A4$, value$ Region.Item(j).SetAttr A5$, value$ Region.Item(j).Modify

Next j

End Sub