Tracker Training Script Key 2
Sub OnMouseUp(x As Long, y As Long, flags As Long)
Dim itemid As String Dim model as String Dim item As New prtItem
Randomize
For i = 1 To 10
'Prompt user for item id and model 'itemid = InputBox$("Enter BLOCK item id, please","Item ID Entry","") 'model = InputBox$("Enter BLOCK model type, please (valid entries: 25,36,60,99)","Model Type Entry","")
'Random generate item id and model type Number = Random(1,5000) itemid = "B" & Number If (number Mod 4) = 0 Then
model = "25"
ElseIf (number Mod 4) = 1 Then
model = "36"
ElseIf (number Mod 4) = 2 Then
model = "60"
Else
model = "99"
End If
'Set the item properties item.regionid="SCHEDULE" 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
Region.Id = "SCHEDULE"
A1$ = "CUST ORDER #" A2$ = "COLOR" A3$ = "CPU SER #" A4$ = "BASE PLATFORM" A5$ = "DRIVE HOUSING" A6$ = "SUB_ASSEMBLY A" A7$ = "SUB_ASSEMBLY B" A8$ = "ASSEMBLY HOUSING" A9$ = "POWER SUPPLY" A10$ = "PROD START TIME" A11$ = "AUTOCELL MACHINE" A12$ = "AUTOCELL TEMP" A13$ = "AUTOCELL PRESS" A14$ = "AUTOCELL TIME" A15$ = "DVD" A16$ = "MANUALS" A17$ = "WARRANTY" A18$ = "PACK TIME" value$ = " "
Region.GetItemList
j=0
for j = 0 to Region.ItemCount - 1
'***Random cust. order numbers and colors************************************
Order$ = " " Color$ = " " Number = Random(5000,9999) Order$ = Number If (Number Mod 3) = 0 Then
Color$ = "RED"
ElseIf (Number Mod 3) = 1 Then
Color$ = "GREEN"
Else
Color$ = "BLUE"
End If
'***End Random generation*************************************************
Region.Item(j).SetAttr A1$, Order$ Region.Item(j).SetAttr A2$, Color$ Region.Item(j).SetAttr A3$, value$ Region.Item(j).SetAttr A4$, value$ Region.Item(j).SetAttr A5$, value$ Region.Item(j).SetAttr A6$, value$ Region.Item(j).SetAttr A7$, value$ Region.Item(j).SetAttr A8$, value$ Region.Item(j).SetAttr A9$, value$ Region.Item(j).SetAttr A10$, value$ Region.Item(j).SetAttr A11$, value$ Region.Item(j).SetAttr A12$, value$ Region.Item(j).SetAttr A13$, value$ Region.Item(j).SetAttr A14$, value$ Region.Item(j).SetAttr A15$, value$ Region.Item(j).SetAttr A16$, value$ Region.Item(j).SetAttr A17$, value$ Region.Item(j).SetAttr A18$, value$ Region.Item(j).Modify
Next j
End Sub