CONST VER = "TEST v.2021-02-05";
//import Globals;

private macro  ovb_tmp_fname()
	return "..\\WorkFile\\tmp-" + string({oper}) + "-" + string(random());
end;

private macro getPath(id):string
	var	rc, dh = TBFile("test2.dbt" ,   "R", 0,     "test2.dbt", "test.def");	// каталог
       var	ret = "";
	while(true)
		dh.rewind;
		dh.rec.id = id;
		if( not dh.getEq() )	break;		end;
		ret = string(dh.rec.name,":",ret);
		id = dh.rec.parent;
	end;
	return ret;
end;

private class T_POINT(rc)
	var	id = rc.id;
	var	name = rc.name;
	macro show()
		return string("(",id,") ",name);
	end;
end;

private macro getPointList( ma, mp, point ):bool
	var	rc, dh = TBFile("test2.dbt" ,   "R", 0,     "test2.dbt", "test.def");	// каталог
	var	    dc = TBFile("test4.dbt" ,   "R", 1,     "test4.dbt", "test.def");	// кросс
	var	    dp = TBFile("test3.dbt" ,   "R", 0,     "test3.dbt", "test.def");	// продукты
       var 	   uni = TBFile("unikey.dbt", "WC+", 0, ovb_tmp_fname(), "test.def");
	var	n;
	ma.size = mp.size = 0;
	dh.rec.id = point;
	if( not dh.getEq() )		return false;
	end;
	ma[0] = T_POINT( dh.rec );
	n=0; while(n<ma.size)
		dc.rewind();	dc.rec.cid = ma[n].id;
		dc.getLt();
		while(dc.next);
			if( dc.rec.cid != ma[n].id )	break;
			end;
			uni.rec.key = dc.rec.pid;
			if(not uni.insert())			continue;
			end;
			dp.rewind();	dp.rec.id = dc.rec.pid;
			dp.getEq();
			mp[mp.size] = string(" (",dp.rec.id,") ",dp.rec.name);
              end;
       	dh.rewind();
		while( dh.next() )	rc = dh.rec;
			if( rc.parent == ma[n].id )		ma[ma.size] = T_POINT( rc );
			end;
		end;
	n=n+1;end;
	return true;
end;

//------------------------------------------------------------------------------    main
//
macro main( point )
	var	i, mp = TArray, ma = TArray;
	msgbox("main");
	getPointList( ma, mp, point );
	[points:];
	i=0;while(i<ma.size)
		[##################################################### ################################################]
		(getPath(ma[i].id),  ma[i].show());
	i=i+1;end;
	[ ];[product list:];
	i=0;while(i<mp.size)
		[########################################################################################################](mp[i]);
	i=i+1;end;
end;//main
//msgbox("Внимание!!! В данное время программа изменяется... Желательно до 18-и часов не запускать..");
[     ##################################################################################](VER);
const ID_ALL   =  1;
const ID_AUTO  =  4;
const ID_KANC  =  2;
const ID_PLAYS =  7;
const ID_FRUT  =  9;
const ID_OPEL  = 15;
const ID_EMPTY = 19;
const ID_ERROR = 33;
//       main(ID_AUTO ) ;
       main(ID_KANC ) ;
//       main(ID_PLAYS) ;
//       main(ID_FRUT ) ;
//       main(ID_OPEL ) ;
//       main(ID_ALL  ) ;
//       main(ID_EMPTY) ;
//       main(ID_ERROR) ;