Галактика в вопросах и ответах

Код: Выделить всё

#component "L_SF"

alter interface JOURNGETSETSF; 
create view lbs_1 as select * 
from synonym schfact schfact_1, basedoc, katnazna 
where ((
    comp(FRGETSCHFACT.nrec) == schfact_1.nrec
and schfact_1.cbasedoc == basedoc.nrec
and basedoc.cnazna == katnazna.nrec));

overload 
DataStream DTS;
end;

DataStream DTS 
(
Table inherited::FRSETSCHFACT 
(
[SetNaz] lbs_1.katnazna.name;
);
)
end; // DataStream
end.

Код: Выделить всё

#component "L_SF"

alter interface JOURNGETSETSF; 
create view lbs_1 as select * 
from synonym schfact schfact_1, basedoc, katnazna 
where ((
    comp(FRGETSCHFACT.nrec) == schfact_1.nrec
and schfact_1.cbasedoc == basedoc.nrec
and basedoc.cnazna == katnazna.nrec));

overload 
DataStream DTS;
end;

DataStream DTS 
(
Table inherited::FRSETSCHFACT 
(
[SetNaz] lbs_1.katnazna.name;
);
)
Handleevent table FRSETSCHFACT
cmOnProcess: {
   if lbs_1.getfirst basedoc = tsOK then {}
}
end;
end; // DataStream
end.

Код: Выделить всё

#component 'L_SF'

alter interface JOURNGETSETSF; 

var crec: comp;
create view lbs_1 as select * 
from synonym schfact schfact_1, 
     synonym basedoc basedoc_1, 
     synonym katnazna katnazna_1 
where ((
    crec == schfact_1.nrec
and schfact_1.cbasedoc == basedoc_1.nrec
and basedoc_1.cnazna   == katnazna_1.nrec))
;


overload 
DataStream DTS;
end;

DataStream DTS 
(
Table inherited::FRSETSCHFACT 
(
[SetNaz] lbs_1.katnazna_1.name;
);
Table inherited::FRGETSCHFACT 
(
[GetNaz] lbs_1.katnazna_1.name;
);
)

Handleevent table FRSETSCHFACT
cmOnProcess: {
   crec:=FRSETSCHFACT.cschf;
   if lbs_1.getfirst schfact_1 = tsOK then 
      if lbs_1.getfirst basedoc_1 = tsOK then
         if lbs_1.getfirst katnazna_1 = tsOK then {}
}
end;

Handleevent table FRGETSCHFACT
cmOnProcess: {
   crec:=FRGETSCHFACT.cschf;
   if lbs_1.getfirst schfact_1 = tsOK then 
      if lbs_1.getfirst basedoc_1 = tsOK then
         if lbs_1.getfirst katnazna_1 = tsOK then {}
}
end;
end; // DataStream
end.

Код: Выделить всё

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  if <Table."Field"> = 'текст' then // здесь программируете нужное вам условие фильтрации
     MasterData1.Visible := false        
  else
     MasterData1.Visible := true;                 
end;

Код: Выделить всё

begin
   // прятать лишние кнопки
   Report.PreviewOptions.AllowEdit := false;
   Report.PreviewOptions.Buttons := 1 + 16 + 32 + 64 + 128 + 1024 + 4096 + 8192 + 16384;

   // масштаб просмотра
   Report.PreviewOptions.Zoom := 1.50;                        
end.