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

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

 _loop spmatpropusk Where ((matpropusk.nRec==spmatpropusk.cmatpropusk))
  {    SeePropuskInfo.PutEventById(feDoLoop, fcSpecif);
       SeePropuskInfo.Write(spmatpropusk.ckatsopr);
    }

 _loop dopmatpropusk Where ((matpropusk.nRec==dopmatpropusk.cmatpropusk))
  {    SeePropuskInfo.PutEventById(feDoLoop, fcDopInfomc);
       SeePropuskInfo.Write(dopmatpropusk.cmc);
    }       

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

.create view kat as select * from katsopr, spsopr,katmc
where((spec==katsopr.nrec
and katsopr.nrec== spsopr.csopr
and spsopr.cmcusl==katmc.nrec));
.create view matc as select katmc.name from katmc
where ((nrec_mc==katmc.nrec
));