|
Хранилище дополнительной информации (УПП) | ☑ | ||
---|---|---|---|---|
0
Нууф-Нууф
08.10.13
✎
09:41
|
коллеги, кто делал управляемую форму списка и элемента для справочника "хранилище дополнительной информации" в УПП?
поделитесь пожалуйста ) |
|||
1
shuhard
08.10.13
✎
09:46
|
(0) возьми в БСП
|
|||
2
Нууф-Нууф
08.10.13
✎
09:47
|
(1) там своя подсистема, а мне нужно просто доступ к уппешной подсистеме файлов (их там уже много добавлено) в тонком клиенте
|
|||
3
eklmn
гуру
08.10.13
✎
09:48
|
(2) давай давай работай, халявы он захотел ))
|
|||
4
Нууф-Нууф
08.10.13
✎
09:49
|
(3) ))))
|
|||
5
eklmn
гуру
08.10.13
✎
09:50
|
(4) как сделаеш, скинь мне :)
|
|||
6
Нуф-Нуф
08.10.13
✎
10:36
|
(5) обязательно ))
|
|||
7
Desna
04.11.13
✎
23:51
|
где взять?
|
|||
8
ДенисЧ
04.11.13
✎
23:55
|
(0)йсколько заплатишь?
|
|||
9
Desna
05.11.13
✎
00:04
|
(8) не по мусульмански это
|
|||
10
Desna
05.11.13
✎
00:45
|
как то так
&НаКлиенте Процедура ВыбратьФайл(Команда) Режим = РежимДиалогаВыбораФайла.Открытие; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытияФайла.ПолноеИмяФайла = ""; Текст = "Изображение PNG"; Фильтр = НСтр(Текст)+"(*.png)|*.png"; ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина; ДиалогОткрытияФайла.МножественныйВыбор = Ложь; ДиалогОткрытияФайла.Заголовок = "Выберите файл..."; Если ДиалогОткрытияФайла.Выбрать() Тогда АдресВХран=""; ПоместитьФайл(АдресВХран,ДиалогОткрытияФайла.ПолноеИмяФайла,,Ложь,УникальныйИдентификатор); АдресФото=АдресВХран; КонецЕсли; КонецПроцедуры &НаСервере Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) Если АдресФото <> Неопределено Тогда Данные = ПолучитьИзВременногоХранилища(АдресФото); ТекущийОбъект.Хранилище = Новый ХранилищеЗначения(Данные); КонецЕсли; КонецПроцедуры &НаСервере Процедура ПриСозданииНаСервере(Отказ,СтандартнаяОбработка) АдресФото = ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Хранилище"); КонецПроцедуры |
|||
11
Desna
05.11.13
✎
00:45
|
на исходность не претендую
|
|||
12
Desna
05.11.13
✎
00:50
|
теперь бы вот еще обратно на диск сохранить
|
|||
13
Desna
05.11.13
✎
02:07
|
книга Разр. упр. приложения
стр 546 &НаКлиенте Процедура СохранитьФайл(Команда) Если Объект.ИмяФайла="" Тогда Предупреждение("Нет файла для сохранения!"); Иначе СсылкаНаФайлВИБ=ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Хранилище"); ПолучитьФайл(СсылкаНаФайлВИБ,Объект.ИмяФайла); КонецЕсли; КонецПроцедуры |
|||
14
Desna
05.11.13
✎
11:39
|
теперь нужно допилить перезапись и сохранение только что загруженного
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |