Menu
ВыбранноеЗначение = Люди.ОтметитьЭлементы(«Выберите человека»);
Для каждого Человек Из Люди Цикл Если Человек.Пометка Тогда Сообщить(Человек); КонецЕсли; КонецЦикла; КонецПроцедуры
//работаем с файлом по полной…
КонецФункции
Функция ПроверитьСуществованиеКаталога(ИмяКаталога) Экспорт КаталогНаДиске = Новый Файл(ИмяКаталога); Если КаталогНаДиске.Существует() Тогда Возврат Истина; Иначе Ответ = Вопрос(«Каталог не существует. Создать?», РежимДиалогаВопрос.ОКОтмена); Если Ответ = КодВозвратаДиалога.ОК Тогда СоздатьКаталог(ИмяКаталога); Возврат Истина; Иначе Возврат Ложь; КонецЕсли; КонецЕсли; КонецФункции
Архив = ЗаписьZipФайл(ИмяАрхива); Архив.Добавить(Файл); Архив.Закрыть();
Запись = Новый ЗаписьТекста(ИмяПлатежа, КодировкаТекста.ANSI); Запись.Записать(ОбщийТекст); Запись.Записать(СокрЛП(ОкончаниеОбщегоСчета)+Символы.ПС+Символы.ВК+»КонецФайла»); Запись.Закрыть();
//Выводим табличный документ ТабДок.АвтоМасштаб=Истина; // уместить на одну страницу ТабДок.ТолькоПросмотр=Истина; ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Портрет; ТабДок.ОтображатьСетку=Ложь; ТабДок.ОтображатьЗаголовки=Ложь; ТабДок.ПолеСлева = 2; ТабДок.ПолеСправа = 2; ТабДок.Показать(«Подтверждение депозита»);
//Или использовать функцию ТекстовогоДокумента в поток //Записать(, , , )