|
Помогите доработать код Прикрепление внешних файлов к документам |
☑ |
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) вот ссылка на конфиг
|
|
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
|
Это студент. да
Отладчик включается и ошибок нат
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший