Скорость запроса в интерфейсе
Добавлено: 15 окт 2008, 15:12
Запрос в Support выполняется 2 секунды, а при запуске интерфейса очень долго.
Может кто подскажет - почему?
select
p.tabnmb,p.fio,f.tabn
from otpusk o,factotpusk f, persons p
where ((
o.cfactotpusk==f.nrec and (f.tabn<10000)
and f.person==p.nrec
))
And year(datan)=2008 and month(datan)=6 and f.tabn<>p.tabnmb
;
Interface TestHol 'Тестирование отпусков' EscClose,Gray;
Show At (,,50,25);
Create view
var
YearI :Integer;
MonthI :Integer;
select
p.tabnmb,p.fio,f.tabn
from otpusk o,factotpusk f, persons p
where ((
o.cfactotpusk==f.nrec and (f.tabn<10000)
and f.person==p.nrec
))
condition cAll = (year(datan)=YearI and month(datan)=MonthI and f.tabn<>p.tabnmb)
;
panel Ot
table o
Browse B2 'Разные табельные';
show at(,,,16);
Fields
Tabnmb 'Таб № ' : [10], Protect ;
Fio ' Ф И О ' : [30], Protect ;
Tabn 'Таб № *** ' : [10], Protect ;
End;
end;
//-----------------------------------------------
HANDLEEVENT
cmInit: {
YearI:=integer(Year(Cur_Date)); MonthI:=Month(Cur_Date);
If Rundialog('TestHolD',monthI,yeari) = cmok pushcondition(tccall);
else CloseInterFace(cmDefault); }
cmcancel:
{ CloseInterFace(cmDefault); }
end; //HANDLEEVENT
end.
//-----------------------------------------------
TestHolD DIALOG
fields
IMonth :Integer[2];
IYear :integer [5];
Buttons
cmOk,default;
cmCancel;
<<
Месяц: .@@ Год: .@@@@@
<. ~В~вод .> <.~О~тмена.>
>>
//----------------------------------------------------------------------------
Может кто подскажет - почему?
select
p.tabnmb,p.fio,f.tabn
from otpusk o,factotpusk f, persons p
where ((
o.cfactotpusk==f.nrec and (f.tabn<10000)
and f.person==p.nrec
))
And year(datan)=2008 and month(datan)=6 and f.tabn<>p.tabnmb
;
Interface TestHol 'Тестирование отпусков' EscClose,Gray;
Show At (,,50,25);
Create view
var
YearI :Integer;
MonthI :Integer;
select
p.tabnmb,p.fio,f.tabn
from otpusk o,factotpusk f, persons p
where ((
o.cfactotpusk==f.nrec and (f.tabn<10000)
and f.person==p.nrec
))
condition cAll = (year(datan)=YearI and month(datan)=MonthI and f.tabn<>p.tabnmb)
;
panel Ot
table o
Browse B2 'Разные табельные';
show at(,,,16);
Fields
Tabnmb 'Таб № ' : [10], Protect ;
Fio ' Ф И О ' : [30], Protect ;
Tabn 'Таб № *** ' : [10], Protect ;
End;
end;
//-----------------------------------------------
HANDLEEVENT
cmInit: {
YearI:=integer(Year(Cur_Date)); MonthI:=Month(Cur_Date);
If Rundialog('TestHolD',monthI,yeari) = cmok pushcondition(tccall);
else CloseInterFace(cmDefault); }
cmcancel:
{ CloseInterFace(cmDefault); }
end; //HANDLEEVENT
end.
//-----------------------------------------------
TestHolD DIALOG
fields
IMonth :Integer[2];
IYear :integer [5];
Buttons
cmOk,default;
cmCancel;
<<
Месяц: .@@ Год: .@@@@@
<. ~В~вод .> <.~О~тмена.>
>>
//----------------------------------------------------------------------------