Версия для печати темы (https://pro1c.org.ua/index.php?s=79da802e1b1f6263ba80427724dfbf56&showtopic=60695)

Автор: Nikitaje 04.08.20, 7:59

Здравствуйте Друзья.
Конфигурация самописная с нуля, 8.3, обычные формы
Хочу записывать файлы ПДФ в 1с.
Создал Справочник с реквизитом "ФайлПДФ" тип ХранилищеЗначений.

Попытка
        ДиалогФыбораФайла                             = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
        ДиалогФыбораФайла.Заголовок                   = "Выберите файл";                                         
        ДиалогФыбораФайла.ПредварительныйПросмотр     = Истина;
        Если ДиалогФыбораФайла.Выбрать() Тогда
            ИмяФайла         = СтрЗаменить(ДиалогФыбораФайла.ПолноеИмяФайла,ДиалогФыбораФайла.Каталог,"");
            ОписаниеФайла     = ИмяФайла;
            РасширениеФайла = Прав(ИмяФайла,СтрДлина(ИмяФайла)-Найти(ИмяФайла,"."));            
            АдресВХранилище = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ДиалогФыбораФайла.ПолноеИмяФайла));
            //Если бы нужно было сохранить именно в реквизит базы с типом хранилище значений тогда нужно писать
            ФайлПДФ = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ДиалогФыбораФайла.ПолноеИмяФайла));
            Файл = ОписаниеФайла;
            
            
            //МойФайл = Новый ДвоичныеДанные(ДиалогФыбораФайла.ПолноеИмяФайла);
            //ФайлПДФ = Новый ХранилищеЗначения(МойФайл);
        КонецЕсли;
        ОбновитьИнтерфейс();
    Исключение
        ПоказатьОповещениеПользователя("Файл не записан!");        
    КонецПопытки;

Попытка поместить туда. Не знаю на сколько верно но вроде все как по учебнику.
Дальше Мне нужно прочитать что там есть. Заархивировать. Ну а дальше делать что в голову придет.

Автор: pablo 06.08.20, 8:17

А вопрос в чем?