-- Шаблон создан мастером бланков
-- 20.11.2006 14:43:34
--
БланкСШаблоном "Учет вещевки";
Кнопка1:Object;
Кнопка2:Object;
Кнопка3:Object;
--версия:S='сборка от 08.09.2011';
--var DateBuild:Date=01.07.2005; 2-- Дата сборки

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";
надпись1:объект;
--Надпись1.Caption=Inf;
proc ПриОткрытии(Отк:Logical);
--var Учет:S;
--  Учет=PlanVar("Учет");
--  Учет=if(Учет="162н":"БЮДЖЕТНЫЙ УЧЕТ-162Н"|Учет="174н":"БУХГАЛТЕРСКИЙ УЧЕТ-174Н"|Учет="183н":"БУХГАЛТЕРСКИЙ УЧЕТ-183Н"|True:"УЧЕТ 157Н");
  Надпись1.Caption=Inf;
  corp;

proc ВыборПриНажатии(Кнопка:String);
var БРО_НФА:s;
var БРО_НФА_лок,ss:s;

БРО_НФА    =ПеремПБ('НФА')+'\Картотеки\';
БРО_НФА_лок=ПеремПБ('LocalData')+'\Картотеки\';

  if Кнопка='Кнопка1':ОткрытьКартотеку("CPS_Износ","");
    |Кнопка='Кнопка5':ОткрытьКартотеку("CPS_Норма" ,"");
   -- |Кнопка='Кнопка6':OpenBlank('Вещ.Отчнорм' ,false);
    --|Кнопка='Кнопка6':OpenBlank('Вещ.Отчистексрок' ,false);
    |Кнопка='Кнопка6':ОткрытьКартотеку("CPS_Отчистек" ,"");
    |Кнопка='Кнопка9':ОткрытьКартотеку("CPS_Доспис" ,"");
--    |Кнопка='Кнопка7':
--    ss=БРО_НФА_лок+'ВыборНФА.bro';
--	if ЕстьФайл(ss):OpenCardFile(ss);
--	 | true:OpenCardFile(БРО_НФА+'ВыборНФА.bro');
--	fi;
    |Кнопка='Кнопка7':ОткрытьКартотеку("РПО_НФА" ,"СООТВ(ГРНФА,'*105.?5*') или СООТВ(ГРНФА,'*105.?6*')");
    |Кнопка='Кнопка8':ОткрытьКартотеку("РПО_ОПЕРАЦИИДНФА" ,"АН_ДНФА='ВНПР.ХЭ_вещ'");
    |Кнопка='Кнопка10':OpenBlank("Управление.УНФА",false);
    |Кнопка='Кнопка11':ОткрытьКартотеку("CPS_ВоинЗвание","");
  --  |Кнопка='Кнопка12':OpenBlank("Вещ.компенс",false);
    |Кнопка='Кнопка12':ОткрытьКартотеку("CPS_КОМПЕНС","");
    |Кнопка='Кнопка2':OpenBlank("Вещ.ОтчетПоФиз",false);
    |Кнопка='Кнопка13':ОткрытьКартотеку("CPS_ИстекСрок","");
    |Кнопка='Кнопка14':ОткрытьКартотеку("CPS_ВЕД","");
--    |Кнопка='Кнопка15':ОткрытьКартотеку("CPS_АрмКарт","");
    |Кнопка='Кнопка16':OpenBlank("Вещ.ЦУПНАЧВЕЩ",false);
    |Кнопка='Кнопка17':ОткрытьКартотеку("CPS_акт","");
    |Кнопка='Кнопка18':OpenBlank("Вещ.Сервис",false);


--	УПРАВЛЕНИЕ.НФА.ДОКУМЕНТЫ.Заголовок='ДВИЖЕНИЕ НФА [УНФА]';
--	УПРАВЛЕНИЕ.НФА.ДОКУМЕНТЫ.ИменаБланков='НФА.ЖУР.*';
--	OpenBlank('УПРАВЛЕНИЕ.НФА.ДОКУМЕНТЫ',false);
  fi;
end;

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



Конец
