//*************************************Загрузка Коммерческих Предложений 1******************************** &НаКлиенте Процедура ВыбратьФайлСДискаИЗаписать() Перем ВыбранноеИмя; Перем АдресВременногоХранилища; НовыйОбъект = Объект.Ссылка.Пустая(); Если ПоместитьФайл(АдресВременногоХранилища, "", ВыбранноеИмя, Истина) Тогда Объект.ИмяКП1 = ВыбранноеИмя; ПоместитьФайлОбъекта(АдресВременногоХранилища); Если НовыйОбъект Тогда ОтобразитьИзменениеДанных(Объект.Ссылка, ВидИзмененияДанных.Добавление); КонецЕсли; КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ПрочитатьФайлИСохранитьНаДиск() Если Объект.Ссылка.Пустая() Тогда Предупреждение(НСтр("ru = 'Данные не записаны'", "ru")); Возврат; КонецЕсли; Если ПустаяСтрока(Объект.ИмяКП1) Тогда Предупреждение(НСтр("ru = 'Имя не задано'", "ru")); Возврат; КонецЕсли; Адрес = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "КПФайл1"); ПолучитьФайл(Адрес, Объект.ИмяКП1, Истина); КонецПроцедуры &НаСервере Процедура ПоместитьФайлОбъекта(АдресВременногоХранилища) ТекущийДокумент = РеквизитФормыВЗначение("Объект"); ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища); ТекущийДокумент.КПФайл1 = Новый ХранилищеЗначения(ДвоичныеДанные); Файл = Новый Файл(ТекущийДокумент.ИмяКП1); ТекущийДокумент.ИмяКП1 = Файл.Имя; ТекущийДокумент.Записать(); Модифицированность = Истина; УдалитьИзВременногоХранилища(АдресВременногоХранилища); ЗначениеВРеквизитФормы(ТекущийДокумент, "Объект"); КонецПроцедуры &НаКлиенте Процедура ЗагрузитьКП1(Команда) ВыбратьФайлСДискаИЗаписать(); Возврат; КонецПроцедуры &НаКлиенте Процедура ПоказатьКП1(Команда) ПрочитатьФайлИСохранитьНаДиск(); Возврат; КонецПроцедуры //*************************************Конец Загрузка Коммерческих Предложений 1******************************** //*************************************Загрузка Комерческих Предложений 2************************************** Как сделать загрузку второго КП2 //*************************************Конец Загрузка Коммерческих Предложений 2******************************** | 
Документы
