Печать прайс-листа с картинками для 1С Предприятие 7.7 Торговля и Склад 9.2 - пример реализации
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
//Путь к картинке формируется на основе кода номенклатуры
//возможны варианты: наименования картинок формируются на основе
//артикулов или при необходимости, добавляем реквизит в справочник
//Номенклатура и храним путь к картинке в нем
чет у меня в этой фразе не сходится мысли
//возможны варианты: наименования картинок формируются на основе
//артикулов или при необходимости, добавляем реквизит в справочник
//Номенклатура и храним путь к картинке в нем
чет у меня в этой фразе не сходится мысли
(1) путь к картинке формируется на основе кода номенклатуры
ниже есть пример
"D:\1SBase\ПрайсСКартинками\"+ТекЭлем.Код+".jpg";
то есть, например:
D:\1SBase\ПрайсСКартинками\00011123.jpg
Возможны варианты - наименования (имена файлов) картинок могут формироваться на основе артикула, то есть, например:
D:\1SBase\ПрайсСКартинками\112S-35.jpg
или можно добавить реквизит в справочник Номенклатура, обозвать его ПутьККартинке и писать туда путь к файлу.
ниже есть пример
"D:\1SBase\ПрайсСКартинками\"+ТекЭлем.Код+".jpg";
то есть, например:
D:\1SBase\ПрайсСКартинками\00011123.jpg
Возможны варианты - наименования (имена файлов) картинок могут формироваться на основе артикула, то есть, например:
D:\1SBase\ПрайсСКартинками\112S-35.jpg
или можно добавить реквизит в справочник Номенклатура, обозвать его ПутьККартинке и писать туда путь к файлу.
(14)
Путь = КаталогИБ() + "IMAGE.DIR\" + СокрЛП(ТекЭлем.Артикул)+".jpg";
Если ФС.СуществуетФайл(Путь)=0 Тогда
Путь = "";
ИсхТабл.ПрисоединитьСекцию("Номенклатура|БезФото");
Иначе
ИсхТабл.ПрисоединитьСекцию("Номенклатура|Фото");
КонецЕсли;
и вот еще кусочек кода:
Наименование = ТекЭлем.ПолнНаименование + ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(ТекЭлем.Артикул), "");
//Наименование = ТекЭлем.ПолнНаименование;
Артикул = ТекЭлем.Артикул;
ИсхТабл.ВывестиСекцию("Номенклатура|Название");
Путь = КаталогИБ() + "IMAGE.DIR\" + СокрЛП(ТекЭлем.Артикул)+".jpg";
Если ФС.СуществуетФайл(Путь)=0 Тогда
Путь = "";
ИсхТабл.ПрисоединитьСекцию("Номенклатура|БезФото");
Иначе
ИсхТабл.ПрисоединитьСекцию("Номенклатура|Фото");
КонецЕсли;
и вот еще кусочек кода:
Наименование = ТекЭлем.ПолнНаименование + ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(ТекЭлем.Артикул), "");
//Наименование = ТекЭлем.ПолнНаименование;
Артикул = ТекЭлем.Артикул;
ИсхТабл.ВывестиСекцию("Номенклатура|Название");
Прикрепленные файлы: