Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Загрузка в базу PDF
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.3
Nikitaje
Здравствуйте Друзья.
Конфигурация самописная с нуля, 8.3, обычные формы
Хочу записывать файлы ПДФ в 1с.
Создал Справочник с реквизитом "ФайлПДФ" тип ХранилищеЗначений.

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

Попытка поместить туда. Не знаю на сколько верно но вроде все как по учебнику.
Дальше Мне нужно прочитать что там есть. Заархивировать. Ну а дальше делать что в голову придет.
pablo
А вопрос в чем?
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.