Есть свой интерфейс с накладными
Код: Выделить всё
Create View Nakl
var
bdate :date;
edate :date;
markers,FieldMarkers,IndexNo : longint;
vidsopr: word;
marker_str:string;
select
if (SearchMarker(Markers, katsopr.nrec, IndexNo) = True, '√', ' ') (FieldName=Picked),
katsopr.nsopr,
katsopr.dsopr,
katpodr.name,
katpodr1.name
from
katsopr(readonly),katpodr, synonym katpodr katpodr1,sklorder
Where
((
vidsopr==Katsopr.vidsopr and
bdate<<=katsopr.dsopr and
edate>>=katsopr.dsopr and
katsopr.cpodrfrom==katpodr.nrec and
katsopr.cpodrto==katpodr1.nrec
and Katsopr.nrec/==SklOrder.csopr
))
;
Parameters bdate,edate,vidsopr,marker_str;