&& begin zSELLER (parent)
SELECT DISTINCT mparent.sellerk AS sellerk,;
	sell.seller AS seller;
FROM tranzit!mparent;
 LEFT OUTER JOIN tranzit!sell;
  ON  mparent.sellerk = sell.sellerk;
WHERE mparent.dakt!={} .AND. mparent.dsend>=v_rsfrom .AND. mparent.dsend<=v_rsto;
ORDER BY sell.seller ASC;
INTO CURSOR zseller NoFilter
&& end

&& begin zMPAR (child1)
SELECT mparent.sellerk AS sellerk,;
	mparent.dsend AS dsend,;
	stations.station AS station,;
	receive.receiver AS receiver,;
	mparent.vagon AS vagon,;
	mparent.ticket4 AS ticket4,;
	IIF(tariffrtrn=.T.,mparent.tariff,00000 . 00 ) AS tariff,;
	mparent.akt AS akt,;
	mparent.dakt AS dakt;
FROM tranzit!mparent;
 LEFT OUTER JOIN tranzit!stations;
  ON  mparent.sta_sendk = stations.stationk;
 LEFT OUTER JOIN tranzit!receive;
  ON  mparent.receiverk = receive.receiverk;
WHERE mparent.dakt!={} .AND. mparent.dsend>=v_rsfrom .AND. mparent.dsend<=v_rsto;
INTO CURSOR zmpar NoFilter
&& end

SELECT zseller
INDEX ON sellerk TAG sellerk
SELECT zmpar
SET RELATION TO sellerk INTO zseller
SET SKIP TO zseller

REPORT FORM report1.frx PREVIEW