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

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

      case RunMenu('PrihUsl111') of
        cmCancel  : Exit;
        cmAllVo   : set SpSopr.PrMC := 3;
        cmAllVos  : set SpSopr.PrMC := 4;
        cmAllVosM : set SpSopr.PrMC := 5;
        cmAllVosV : set SpSopr.PrMC := 6;
        cmValue1  : set SpSopr.PrMC := 7;
        cmValue2  : set SpSopr.PrMC := 8;
        else        set SpSopr.PrMC := 2;
      end;
.................................
PrihUsl111 Menu
{
 - '~%~ к МЦ(%)', cmAllVo, 'Выберите признак для распределения стоимости услуги';
 - '~C~умма к МЦ(C)', cmAllVos, 'Выберите признак для распределения стоимости услуги';
 - 'Для распределения по ~в~есу(В)', cmAllVosM, 'Выберите признак для распределения стоимости услуги';
 - 'Для распределения по ~о~бъему(О)', cmAllVosV, 'Выберите признак для распределения стоимости услуги';
 - 'Для распределения по ~к~оличеству(К)', cmValue1, 'Выберите признак для распределения стоимости услуги';
 - 'Для распределения по ко~л~ичеству позиций(КП)', cmValue2, 'Выберите признак для распределения стоимости услуги';
}