FUNCTION TempProductCode()
' message "6154//#unitcost is:"&str(#unitcost)
'Itemtype - 6345
'Type     - 6128
'Supplier - 6026
'Product  - 6110
'Backing  - 6131
'Width    - 6133
'Unit of Sale -
'Price        - 6121

'   EnterItemType() ' select B J T W; use this and increasing nr from "TEMPPROD.DAT"

  GetProductCode()

  EnterDetails()

END FUNCTION ' TempProductCode()