Записки программиста 1с

Загрузка картинок в элемент справочника 1с. Например фотографии сотрудника.

Загрузка картинок в 1с
загрузка картинки в 1с

добавление файла pdf

&НаСервере
Процедура Команда1НаСервере(путь)
	// Готовим файл и помещаем его в хранилище
    ИмяФайлаНаДиске="C:\Users\Vladimir\Desktop\"+объект.Файл.Ссылка+"."+объект.Файл.Расширение;
	//ИмяФайлаНаДиске = "C:\Users\Vladimir\Desktop\Ганзюк (1).pdf";//объект.ПутьКФайлу;//"C:\Users\v.burmistrov\Downloads\ффд12.pdf";	
ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайлаНаДиске);
ВременноеХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
// Подготоваливаем описание файла заполнив все необходимые параметры
ПараметрыФайла = РаботаСФайлами.ПараметрыДобавленияФайла();
ПараметрыФайла.Автор = Пользователи.ТекущийПользователь();
ПараметрыФайла.ВладелецФайлов =объект.Ссылка ;
ПараметрыФайла.ИмяБезРасширения = СтрЗаменить(ИмяФайлаНаДиске,".pdf","");
ПараметрыФайла.РасширениеБезТочки = "pdf";
// Используем функцию БСП и добавляем файл к объекту
РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, ВременноеХранилище);
	
КонецПроцедуры

&НаКлиенте
Процедура Команда1(Команда)
	ПутьКФайлу="";
	ИмяФайла="";
	//Если ПоместитьФайл(ПутьКФайлу,ИмяФайла,истина)=истина тогда
	путь =ПутьКФайлу+ИмяФайла;
	//Объект.ПутьКФайлу=путь;	
	//конецесли;
	Команда1НаСервере(путь);
КонецПроцедуры

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *