-- Шаблон создан мастером бланков
-- 20.11.2006 14:43:34
--
БланкСШаблоном "Общпит";
Кнопка1:Object;
Кнопка2: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.919  от 19.09.2011";
надпись1:объект;
--Надпись1.Caption=Inf;
proc ПриОткрытии(Отк:Logical);
  Надпись1.Caption=Inf;
  corp;


proc ВыборПриНажатии(Кнопка:String);
  if Кнопка='Кнопка1':ОткрытьКартотеку("CPS_раскладка","");
    |Кнопка='Кнопка2':ОткрытьКартотеку("CPS_Выдача","");
    |Кнопка='Кнопка3':ОткрытьКартотеку("CPS_Нормы_прод","");
    |Кнопка='Кнопка5':ОткрытьКартотеку("CPS_ПродТипы","");
    |Кнопка='Кнопка6':ОткрытьКартотеку("CPS_Апарам","");
    |Кнопка='Кнопка7':ОткрытьКартотеку("Рпо_операцииднфа","Бол(АН_ДНФА)='РАСХ.ПРОД'");
    |Кнопка='Кнопка8':OpenBlank("Управление.УНФА");
    |Кнопка='Кнопка9':ОткрытьКартотеку("CPS_Воинзвание","");
    |Кнопка='Кнопка10':OpenBlank("Продукты.НормНед",false);
    |Кнопка='Кнопка11':OpenBlank("Продукты.Ведомость",false);
    |Кнопка='Кнопка12':OpenBlank("Продукты.Ведомость_ПР_мол",false);
    |Кнопка='Кнопка13':ОткрытьКартотеку("РПО_НФА","соотв(ГрНфа,'105.?2')");
    |Кнопка='Кнопка14':ОткрытьКартотеку("CPS_СводнаяВыдача","");
    |Кнопка='Кнопка15':ОткрытьКартотеку("CPS_Блюда","");




  fi;
end;

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



Конец
