REPORT FORM "poisk_avto1.frx" PREVIEW FOR (rabota2.viezd>=(nach) AND (rabota2.viezd<=(kon)) TO MIN(min_rashodgor)

ldNach=CTOD(ALLTRIM(_screen.ActiveForm.time_nach.value))
ldKon=CTOD(ALLTRIM(_screen.ActiveForm.time_kon.value))

UPDATE rabota2;
 SET rabota2.rashodgor=avtomobil.rashodtop*rabota2.rasstoyani/100;
 FROM avtomobil;
 WHERE rabota2.kod_avto=avtomobil.kod_avto 

SELECT MIN(rashodgor);
 FROM rabota2 t1;
 WHERE t1.viezd>=ldNach AND t1.priezd<=ldKon;
 INTO ARRAY aMinRashod

SELECT t1.*;
FROM rabota2 t1 INNER JOIN avtomobil t2 ON t1.kod_avto=t2.kod_avto;
WHERE t1.viezd>=ldNach AND t1.priezd<=ldKon;
 AND t1.rashodgor = aMinRashod(1,1);
INTO CURSOR curRabota2

IF _TALLY>0 THEN 
 _screen.ActiveForm.prosm.visible=.t.
 _screen.ActiveForm.printer.visible=.t.
ELSE
 MESSAGEBOX('ошибка! в данныый период рейсов не производилось')
ENDIF

nach=CTOD(ALLTRIM(_screen.ActiveForm.time_nach.value))
kon=CTOD(ALLTRIM(_screen.ActiveForm.time_kon.value))

USE avtomobil IN 0
USE rabota2 IN 0
REPLACE ALL rashodgor WITH avtomobil.rashodtop*rabota2.rasstoyani/100

CALCULATE MIN(rabota2.rashodgor) FOR (rabota2.viezd>=m.nach) AND (rabota2.priezd<=m.kon) TO min_rashodgor
COUNT FOR rabota2.rashodgor=m.min_rashodgor TO kolr
IF m.kolr>0 THEN 
 _screen.ActiveForm.prosm.visible=.t.
 _screen.ActiveForm.printer.visible=.t.
 SET FILTER TO (rabota2.viezd>=m.nach) AND (rabota2.priezd<=m.kon) AND (rabota2.rashodgor=m.min_rashodgor)
 GO TOP
ELSE
 MESSAGEBOX('ошибка! в данныый период рейсов не производилось')
ENDIF