
use (fn_karty)   IN 0
use (fn_skupiny) IN 0

SELECT skupiny
REPLACE ALL label WITH .F.
SET ORDER TO druh

SELECT karty
REPLACE ALL label WITH .F.

SET RELATION TO druh INTO skupiny
SET FILTER TO ! EMPTY(druh) .and. EMPTY(c_druh) .and. ! EMPTY(skupiny.c_druh)
REPLACE ALL c_druh WITH skupiny.c_druh, label WITH .T., skupiny.label WITH .T.


SET RELATION TO druh_skl INTO skupiny
SET FILTER TO ! EMPTY(druh_skl) .and. EMPTY(c_druhs) .and. ! EMPTY(skupiny.c_druh) 
REPLACE ALL c_druhs WITH skupiny.c_druh, label WITH .T., skupiny.label WITH .T.


SET RELATION TO druh_kalk INTO skupiny
SET FILTER TO ! EMPTY(druh_kalk) .and. EMPTY(c_druhk) .and. ! EMPTY(skupiny.c_druh) 
REPLACE ALL c_druhk WITH skupiny.c_druh, label WITH .T., skupiny.label WITH .T.


SET FILTER TO (! EMPTY(druh)      .and. EMPTY(c_druh))  ;
       .or.   (! EMPTY(druh_skl)  .and. EMPTY(c_druhs)) ;
       .or.   (! EMPTY(druh_kalk) .and. EMPTY(c_druhk))
BROWSE FIELDS c_karty :w=.F., nazev :w=.F., druh, c_druh, druh_skl, c_druhs, druh_kalk, c_druhk nodele noappe noedit

