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