select_item_id = thisform.select_item
curr_path=sys(5)+sys(2003)+'\Report\'
*!* wait window (curr_path)
USE (curr_path)+'tree_item.frx' IN 0 EXCL alias curreport
SELECT curreport
cc=MLINE(expr,ATCLINE("ORIENTATION",expr))
* DELETE AND REPLACE
REPLACE expr WITH cc
REPLACE TAG WITH ""
REPLACE TAG2 WITH ""
USE in curreport
report form tree_item prev