Код: Выделить всё
Interface TMCmove 'Параметры отчета';
Show at (1,1,40,10);
Create view TMCmoveview
var
Begdate,EndDate: Date;
as select *
from
GroupParty, Katparty, SpOrder,KatSopr, SklOrder
where((
1111111111 == GroupParty.Kod and
GroupParty.nRec == Katparty.cGroupParty and
KatParty.nRec == SpOrder.cParty and
SpOrder.cSklOrder == SklOrder.nRec and
SklOrder.cSopr == KatSopr.nrec and
KatMc.nRec == SpOrder.cMc
// begdate <<= sporder.dord and
// enddate >>= sporder.dord
));
Form frm_TMCmove ('TMCmove.out','TMCmove');
Screen TMCmove;
Fields
begdate ('Введите начальную дату'): [,'DD/MM/YYYY'],noprotect;
enddate ('Введите конечную дату'): [,'DD/MM/YYYY'],noprotect;
Buttons
cmOk, default,,'OK';
cmCancel,,,'Отмена';
<<
Начало периода .@@@@@@@@@@
Конец периода .@@@@@@@@@@
<.Принять.> <.Выход.>
>>
end;// Screen
Что это такое и вообще.. я в правильном направлении или нет
