SELECT *;
 FROM cassa!payments;
 WHERE Payments.type_pay = "основные";
 ORDER BY Payments.date_pay DESC;
 INTO CURSOR Query
 REPORT FORM cassa\reports\incomes.frx

LOCAL dStart,dEnd

dStart = ThisForm.Text1.Value
dEnd   = Thisform.Text2.Value

SELECT Payments.date_pay, Payments.name_pay, Payments.sum_pay;
	FROM cassa!payments;
	WHERE Payments.date_pay BETWEEN dStart AND dEnd;
	ORDER BY Payments.date_pay
INTO CURSOR Query
REPORT FORM cassa\reports\incomes.frx TO PRINTER PROMPT PREVIEW IN SCREEN NOCONSOLE
	

*----------закрытие формы
_screen.ActiveForm.Release()