Хранилище дополнительной информации (УПП)

1С v8

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

теперь нужно допилить перезапись и сохранение только что загруженного