Администратор (Все сообщения пользователя)

отправили еще раз
проверьте

проверили, запись выполняется корректно

пришлите доступ к вашей 1с, подключимся проверим

попробуйте сделать восстановление движений по закрытой смене

Отправлено обновление 2.6.1

сформировать сначала любой один документ вручную, выставить все нужные поля и параметры страницы и распечатать
после этого эти параметры будут использоваться при групповой печати

покажите скрин ОРП, вкладку бонусы. Там есть этот чек?

Ниже код

[CODE]ИмяФайла = СформироватьИмяФайлаНоменклатуры(ХранилищеДополнительнойИнформацииСсылка);
КаталогФайлов = Константы.APPLIX_RU_ХДВИ_КаталогХраненияФайлов.Получить();
Путь = НайтиФайлВПодкаталогах(КаталогФайлов, ИмяФайла);


Функция СформироватьИмяФайлаНоменклатуры(ОбъектСсылка) Экспорт
   
   Расширение = ПолучитьЗначениеРеквизитаОбъекта(ОбъектСсылка, "Расширение");
   Если Лев(Расширение, 1)="." Тогда
       Расширение = Сред(Расширение, 2);
   КонецЕсли;
   
   Если Не ЗначениеЗаполнено(Расширение) Тогда
       Попытка
           Расширение = НРег(ОбъектСсылка.Хранилище.Получить().Формат());
       Исключение
           //Расширение = "jpg";
       КонецПопытки;
       
       Если Не ЗначениеЗаполнено(Расширение) Тогда
           ИмяФайла = ПолучитьЗначениеРеквизитаОбъекта(ОбъектСсылка, "ИмяФайла");
           Расширение = APPLIX_RU_ХДВИ_ОбщийМодуль.ПолучитьРасширениеИмениФайла(ИмяФайла);
           
           Если Не ЗначениеЗаполнено(Расширение) Тогда
               Расширение = APPLIX_RU_ПолучитьЗначениеСтруктуры(ОбъектСсылка, "ТипФайла", "");
               Расширение = СтрЗаменить(Расширение, ".", "");
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;
   
   ИмяФайла = Строка(ОбъектСсылка.Ссылка.УникальныйИдентификатор());
   Если ЗначениеЗаполнено(Расширение) Тогда
       ИмяФайла = ИмяФайла + "." + СокрЛП(Расширение);
   КонецЕсли;
   
   Возврат ИмяФайла;
КонецФункции

Функция НайтиФайлВПодкаталогах(Каталог, Маска, ВозможныеРасширения=Неопределено, ИскатьВПодкаталогах = Истина) Экспорт
//сначала просто составим путь из имени без поиска
Подкаталог = Лев(Маска, 4);
тмп = Каталог + "\" + Подкаталог + "\" + Маска;
ф = Новый Файл(тмп);
Если ф.Существует() Тогда
Возврат тмп;
КонецЕсли;

Попытка
ИмяБезРасширения = ф.Путь + ф.ИмяБезРасширения;
Для каждого Расш Из ВозможныеРасширения Цикл
НовоеИмя = ИмяБезРасширения + "." + Расш;
ф = Новый Файл(НовоеИмя);
Если ф.Существует() Тогда
Возврат НовоеИмя;
КонецЕсли;
КонецЦикла;
Исключение
КонецПопытки;

Если ИскатьВПодкаталогах <> Истина Тогда
Возврат "";
КонецЕсли;

МассивФайлов = НайтиФайлы(Каталог, Маска, Истина);
Попытка
ИмяФайла = МассивФайлов[0].ПолноеИмя;
Исключение
ИмяФайла = "";
КонецПопытки;

Возврат ИмяФайла;
КонецФункции

[/CODE]

проверьте активацию бонусной системы

файл по указанной ссылке не скачивается и не открывается

здравствуйте

в нашем решении к сожалению нет обратной загрузки картинок в 1с