-- Шаблон создан мастером бланков
-- 20.02.2011 2:41:20
--
БланкСШаблоном "Центр управления УРА";

Кнопка1:Object;
Кнопка2:Object;
Кнопка3:Object;
var Inf:String='ООО "Центр ПрограммСистем" '+chr(13)+
                   'Тел: (4832) 75-28-55, (4832) 33-07-05'+chr(13)+
                   'E-mail: cps_main@online.debryansk.ru'+Chr(13)+
                    "Версия: 110909.913  от 13.09.2011";
надпись5:объект;
proc ПриОткрытии(Отк:Logical);
  Надпись5.Caption=Inf;
  corp;



proc ВыборПриНажатии(Кнопка:String);

  if Кнопка='Кнопка1':OpenBlank("CPS_УРА.ЦУП_СПРАВОЧНИКИ",false);
    |Кнопка='Кнопка2':OpenBlank("CPS_УРА.ЦУП_ПУТЕВКИ",false);
    |Кнопка='Кнопка3':OpenBlank("CPS_УРА.Отчеты_ЦУП",false);
    |Кнопка='Кнопка4':OpenBlank("CPS_УРА.Книги_ЦУП",false);
    |Кнопка='Кнопка5':Close;
  fi;
end;


Конец
