Имя: Пароль:
1C
1С v8
Хранилище дополнительной информации (УПП)
,
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
теперь нужно допилить перезапись и сохранение только что загруженного