The code to assign attributes to the carriers is:
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 DATA"
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
|
|
