*** Вводим через форму отчетные месяц и год ***

LOCAL iMonth,cYear
iMonth = ThisForm.Spinner1.Value
cYear  = Thisform.Text1.Value

*** Выбираем те записи платежей,которые относятся к отчетным месяцу и году ***

SELECT Payments.date_pay, Payments.name_pay, Payments.sum_pay ;
	FROM cassa!payments ;
	WHERE iMonth == Payments.rep_month AND VAL(cYear) == Payments.rep_year ;
	ORDER BY Payments.date_pay ;
	INTO CURSOR EXPENSE
USE  EXPENSE
IF RECCOUNT()> 0  

*** Если в курсоре EXPENSE есть записи то выводим их в превью отчета ***
	
REPORT FORM cassa\reports\expenses_month.frx TO PRINTER PROMPT PREVIEW IN SCREEN NOCONSOLE
ELSE

*** Иначе выводим превью отчета, который сообщает, что искомых записей не найдено ***

	REPORT FORM cassa\reports\no_records.frx TO PRINTER PROMPT PREVIEW IN SCREEN NOCONSOLE
ENDIF

*** Выходим из этой формы ***
ThisForm.Release()