messbox(" Export for Crystal Reports? (y/n) ",1,0,1)
  if ptstr == "y"
    remove(dpath|"X_stk_c.*")
    data query execute "not_del.dfq" data-file dpath|"X_stk_c" fields\
    "[Product_Code;Description_MRC;Product_MRC;RollNr;Width;Unit_Cost;PhysicalBalance;Balance_Value;Location]"
'    "[JobNr;StockOrder;PhysicalBalance;Balance_Value;Width;Unit_Cost;DateRecd;Item_Type;Product_Code;Product_MRC;Description_MRC;Location;RollNr]"
  end if