Имя: Пароль:
1C
1С v8
Помогите доработать код Прикрепление внешних файлов к документам
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
Это студент. да
Отладчик включается и ошибок нат