![]() |
|
Помогите доработать код Прикрепление внешних файлов к документам | ☑ | ||
---|---|---|---|---|
0
demonxp85
05.03.17
✎
10:03
|
//*************************************Загрузка Коммерческих Предложений 1********************************
&НаКлиенте Процедура ВыбратьФайлСДискаИЗаписать() Перем ВыбранноеИмя; Перем АдресВременногоХранилища; НовыйОбъект = Объект.Ссылка.Пустая(); Если ПоместитьФайл(АдресВременногоХранилища, "", ВыбранноеИмя, Истина) Тогда Объект.ИмяКП1 = ВыбранноеИмя; ПоместитьФайлОбъекта(АдресВременногоХранилища); Если НовыйОбъект Тогда ОтобразитьИзменениеДанных(Объект.Ссылка, ВидИзмененияДанных.Добавление); КонецЕсли; КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ПрочитатьФайлИСохранитьНаДиск() Если Объект.Ссылка.Пустая() Тогда Предупреждение(НСтр("ru = 'Данные не записаны'", "ru")); Возврат; КонецЕсли; Если ПустаяСтрока(Объект.ИмяКП1) Тогда Предупреждение(НСтр("ru = 'Имя не задано'", "ru")); Возврат; КонецЕсли; Адрес = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "КПФайл1"); ПолучитьФайл(Адрес, Объект.ИмяКП1, Истина); КонецПроцедуры &НаСервере Процедура ПоместитьФайлОбъекта(АдресВременногоХранилища) ТекущийДокумент = РеквизитФормыВЗначение("Объект"); ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища); ТекущийДокумент.КПФайл1 = Новый ХранилищеЗначения(ДвоичныеДанные); Файл = Новый Файл(ТекущийДокумент.ИмяКП1); ТекущийДокумент.ИмяКП1 = Файл.Имя; ТекущийДокумент.Записать(); Модифицированность = Истина; УдалитьИзВременногоХранилища(АдресВременногоХранилища); ЗначениеВРеквизитФормы(ТекущийДокумент, "Объект"); КонецПроцедуры &НаКлиенте Процедура ЗагрузитьКП1(Команда) ВыбратьФайлСДискаИЗаписать(); Возврат; КонецПроцедуры &НаКлиенте Процедура ПоказатьКП1(Команда) ПрочитатьФайлИСохранитьНаДиск(); Возврат; КонецПроцедуры //*************************************Конец Загрузка Коммерческих Предложений 1******************************** //*************************************Загрузка Комерческих Предложений 2************************************** Как сделать загрузку второго КП2 //*************************************Конец Загрузка Коммерческих Предложений 2******************************** |
|||
1
Мимохожий Однако
05.03.17
✎
10:10
|
Обычно сначала сообщают конфигурацию. Можно подсмотреть в БСП.
|
|||
2
demonxp85
05.03.17
✎
10:44
|
(1) вот ссылка на конфиг https://yadi.sk/d/A3EHYwY03F4BTQ
|
|||
3
Мимохожий Однако
05.03.17
✎
10:49
|
(2) В сюда написать слабо?
|
|||
4
Lexey_
05.03.17
✎
11:06
|
(0) "Как сделать загрузку второго КП2", что мешает сделать так же как и первого?
|
|||
5
sapphire
05.03.17
✎
12:05
|
||||
6
demonxp85
05.03.17
✎
13:59
|
Lexey_
Я уже пробовал не то получается |
|||
7
Lexey_
05.03.17
✎
14:27
|
(6) ну, значит, делаешь не точно так же
|
|||
8
Cyberhawk
05.03.17
✎
14:55
|
Сколько платят за решение вопроса?
|
|||
9
Мимохожий Однако
05.03.17
✎
15:18
|
(8) Это студент. Тарелка супа.
(6) Отладчик включается? |
|||
10
demonxp85
05.03.17
✎
17:17
|
Это студент. да
Отладчик включается и ошибок нат |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |