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

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

select cashbank.name, plpor.*, fpstbud.name, soprhoz.*, katorg.name, fpco.name
from plpor, fpstbud, aktofp, aktperf, cashbank, katorg, fpco, soprhoz, clearing, fpoborot, mrk, met
where
((
begper           <<= soprhoz.datob and
endper           >>= soprhoz.datob and
soprhoz.csoprdoc /== plpor.nrec and
soprhoz.nrec     /== aktperf.csoprhoz and
aktperf.caktofp  /== aktofp.nrec and
aktofp.cpodr     /== fpco.nrec and
aktofp.nrec      /== clearing.caktofp and
823               == fpoborot.tidk and
clearing.nrec    /== fpoborot.csoprdoc and
150               == fpoborot.kodreg (noindex) and
fpoborot.cstbud  /== fpstbud.nrec and
met.fnr          /== fpco.nrec and
plpor.cpol       /== katorg.nrec and
2                 == cashbank.razdel and
plpor.cbankplat   == cashbank.cpodr
))
bounds postat = mrk.fnr /== fpstbud.nrec;
order by soprhoz.datob, plpor.nrec;

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

   RunDialog('InpVar', prizn);
   if prizn=0 then
   begin
     RunInterface('F_FPCATALOG::GETSTBUD', 3);
     MarkSt:=InitMarker('GetSomeFPStBud', 8, 1, 1);
     for(MarkIn:=0; MarkIn<=GetMarkerCount(MarkSt)-1; MarkIn:=MarkIn+1)
     begin
       if GetMarker(MarkSt, MarkIn, nr) then
       stb.insert mrk set
         mrk.fnr:=nr;
     end;
     DoneMarker(MarkSt, 'GetSomeFPStBud');
     opl.PushBounds(opl.tbpostat);
   end
   else
     opl.PopBounds(opl.tbpostat);