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

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

interface kontr_ras_first;
.......
create view vmain1
as select * from konras,katmc,katusl,katpodr
where ((konras.mc==katmc.nrec
and konras.mc==katusl.nrec
and konras.podr==katpodr.nrec
));

browse bmain1;
show at(,,, 5); 
!table konras;
fields  
  vmain1.katpodr.name 'Podrazdelenie'('podr',,):protect,{Font={Color=3}},[50];
  vmain1.konras.dat 'data'('dat',,):protect,{Font={Color=3}},[5];
  if(vmain1.konras.mcusl=1,vmain1.katmc.name,vmain1.katusl.name) 'mcusl'('mcusl',,):protect,{Font={Color=3}},[5];
  vmain1.konras.in_ost 'ost'('ost',,):protect,{Font={Color=3}},[5];
end;

............