CREATE TABLE 'CATEGORY.DBF' NAME 'CATEGORY' (CATEGID I NOT NULL, ;
                       PARENTID I NOT NULL, ;
                       NAMECAT C( 100 ) NOT NULL, ;
                       KOMMENS M NOT NULL)

CREATE TABLE 'PRODUCTS.DBF' NAME 'PRODUCTS' (PRODUCTID I NOT NULL, ;
                       CATEGORYID I NOT NULL, ;
                       PRODNAME C( 100 ) NOT NULL, ;
                       PRODNAMFUL C( 100 ) NOT NULL, ;
                       PRODDESCR M NOT NULL, ;
                       UNITORDER N( 10 ,  2 ) NOT NULL, ;
                       UNITPRICE N( 10 ,  2 ) NOT NULL, ;
                       KOMMENTS M NOT NULL)

m.id =  2 
  m.lev =  1 
  SELECT categId, parentid, namecat, m.lev as level FROM category ;
   WHERE categId = m.id INTO CURSOR Items READWRITE 
   
  DO WHILE _TALLY >  0  
     m.lev = m.lev +  1  
     INSERT INTO Items (categId, parentid, namecat,level ) ;
      SELECT categId, parentid, namecat, m.lev FROM category ;
       WHERE parentid in (select categId from Items ) ;
         AND categId NOT in (select categId from Items )
  ENDDO 
 
 *Выборка продуктов 
 SELECT Products.*;
 FROM labdata!products;
 WHERE Products.categoryid in (select categId from Items );
 INTO CURSOR Query2 READWRITE NOFILTER

LOCAL lnLevel,lnKeyID
m.lnLevel  =  0 
lnKeyID= 2 

CREATE CURSOR  Result (KeyID I, Lev I)

INSERT INTO Result (KeyID, Lev) ;
SELECT categId, m.lnLevel FROM category WHERE categId= m.lnKeyID
DO WHILE _TALLY >  0 
m.lnLevel = m.lnLevel +  1 
INSERT INTO Result (KeyID, Lev) ;
SELECT category.categId, m.lnLevel FROM category ;
INNER JOIN Result ON category.ParentID = Result.KeyID AND Result.Lev = m.lnLevel -  1 
ENDDO

 *Выборка продуктов 
 SELECT Products.*;
 FROM products;
 WHERE Products.categoryid in (select categId from Result);
 INTO CURSOR Query2 READWRITE NOFILTER