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

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

const
cmWriteDopInfo = 9011;
Title3_2   = 9991;
End;
alter interface PLPOR;
function _MnPlanName  (nPlPor: comp): string; forward;
var BaseDocNrec, PlPorNrec                         : comp;
Create view
var sDop: string;
(ZakNar) as select _MnPlanName(Plpor.Nrec), * from attrval attrval_vd, attrval attrval_co, attrval attrval_rz, fpco, katnazna,
                             stepdoc stepdoc_p, mnplan, objacct;
Create view v_dog
as Select * from plpor, soprhoz,  basedoc, stepdoc, EXCLASSVAL, EXCLASSSEG, calplan
where (( PlPorNrec == plpor.nrec              and
         word(1) == soprhoz.tidkgal           and  
         PlPorNrec == soprhoz.csoprdoc     and 
         soprhoz.cstepdoc == stepdoc.nrec     and
         stepdoc.cbasedoc == basedoc.nrec     and
         basedoc.nrec == exclassval.crec      and
         word(30)     == exclassval.CLASSCODE and
         word(1102)   == exclassval.wtable    and
         exclassval.cclassseg == exclassseg.nrec and
         basedoc.ccalplan == calplan.nrec
      ));
...