Перем Обновить;
Перем Расшифровка;
Перем ФСО;

//_____________________________________________________________________________
Функция РасшифровкаОбновить(Обновить)
	Расшифровка.Установить("Обновить", Обновить);
	Возврат Расшифровка;
КонецФункции //РасшифровкаОбновить                                             
//****************************************************************************
Процедура ОбработкаЯчейкиТаблицы(Расшифровка,ФСО,Таб,Адр)
   Если ТипЗначенияСтр(Расшифровка) = "СписокЗначений" Тогда             
      Док = ""; 
      ОткрытьФорму("Документ.Бронь",Док);
	  //Док=СоздатьОбъект("Документ.Бронь");
      //Док.Новый(); 
	  Док.ДатаДок=ТекущаяДата(); 
      Док.НомерКомн = Расшифровка.Получить("НомерК");
	  Док.ДПрибытияБ = Расшифровка.Получить("ДПрибытияБ");
      Док.НомерК = Расшифровка.Получить("НомерК");
      Док.ДатаПрибытияБ = Расшифровка.Получить("ДПрибытияБ"); 
   Иначе
      ФСО = 1;
   КонецЕсли;
КонецПроцедуры
//_____________________________________________________________________________ 
// Процедура генерации запроса Сформировать.                                     
Процедура Сформировать()
	
              Если Обновить = 2 Тогда
	    СтрокаДействийФормы = "#Закрыть";
	КонецЕсли;
	Если (ТипЗначенияСтр(Таб) <> "Таблица") ИЛИ (Обновить = 0) Тогда
	   	Таб = СоздатьОбъект("Таблица");
	Иначе
	 	Таб.Очистить();
	КонецЕсли;

	Таб.ИсходнаяТаблица("Сформировать");
              Расшифровка = СоздатьОбъект("СписокЗначений");
              Расшифровка.Установить("Отчет", "КартаНомеров");
              Расшифровка.Установить("ВыбНачПериода", ВыбНачПериода);
              Расшифровка.Установить("ВыбКонПериода", ВыбКонПериода);

....
	Пока Спр.ПолучитьЭлемент() = 1 Цикл
...
			НомерК=Спр.ТекущийЭлемент(); 
                                          Расшифровка = СоздатьОбъект("СписокЗначений");
			Расшифровка.Установить("НомерК",НомерК);
			Расшифровка.Установить("ДПрибытияБ",Н);
...
	КонецЦикла;
КонецПроцедуры  
//_____________________________________________________________________________
Процедура ПриОткрытии()

	Если глФлагРасшифровки = 1 Тогда
		Обновить = глОбновить;
		ВыбНачПериода = глРасшифровка.Получить("ВыбНачПериода");
		ВыбКонПериода = глРасшифровка.Получить("ВыбКонПериода");
		Если Обновить <> 0 Тогда
			Таб = глТаблица;
		КонецЕсли;

		Если Обновить <> 2 Тогда
			Сформировать();
			СтатусВозврата(0);
			Возврат;
		КонецЕсли;
	Иначе
		Обновить = 0;
	    ВыбНачПериода = РабочаяДата(); 
		ВыбКонПериода = ВыбНачПериода+45;
	КонецЕсли;
КонецПроцедуры //ПриОткрытии