Спасибо никто получить не хотел = не подсказал, вообщем то вот так сделал, теперь все ок, теперь осталось допилить (цену,артикул нанести), но это уже мелочи ))), вот код, может кому пригодиться
Вставить объект "Текст". Поместить его над картинкой. Убрать рамки.
А где можно почитать или подскажите как "Вставить объект "Текст" ? Рисунок.Текст .... ? Рисунок.РазмещениеТекста ..... ? Это есть но у меня не получается, пытался Рисунок.Текст = "какой то текст"
Получилось, но вот как бы сделать что б прямоугольник текста не перекрывал рисунок, т.е. был просто прозрачный и виден только текст и рамки у самой картики не получается обрезать
ОбластьНоменклатура = Макет.ПолучитьОбласть("Номенклатура"); Изображение = Выборка.Номенклатура.ОсновноеИзображение.Хранилище.Получить(); Если НЕ Изображение = Неопределено Тогда Рисунок = ОбластьНоменклатура.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); Рисунок.Верх = 3; Рисунок.Высота =70; Рисунок.Ширина = 90; Рисунок.Лево = 3.5;
///////////////////////////////////////////////////// Если ЛевыйСтолбец Тогда ТабДок1.Вывести(ОбластьНоменклатура); Иначе ТабДок2.Вывести(ОбластьНоменклатура); КонецЕсли;
Фухх, все получилось, дописал в процедуру ПередЗаписью() запись реквизитов из временную таблицы в "Товары" и в процедуре ЗаполнитьТаблицуЦенФормы() выгрузил из таблицы товаров в колонки соотвествующие, выкладываю свои процедурки, быть может есть косяки
// Сохраним таблицу значений в табличную часть товаров. Товары.Очистить(); КоличествоСтрок = ТаблицаЦен.Количество() - 1; Для Тмп = 0 По КоличествоСтрок Цикл СтрокаТаблицыТиповЦен = ТаблицаЦен[Тмп];
Для Каждого СтрокаТипаЦен Из ТипыЦен Цикл НомерСоответствияТекущейКолонки = мСоответствиеТиповЦен[СтрокаТипаЦен.ТипЦен];
ТекущийИндексСтрокиТаблицыЦен = Неопределено; НоваяСтрока = Неопределено; Для Каждого СтрокаТаблицыТоваров Из ТаблицаТоваров Цикл Если ТекущийИндексСтрокиТаблицыЦен <> СтрокаТаблицыТоваров.ИндексСтрокиТаблицыЦен Или НоваяСтрока.Номенклатура <> СтрокаТаблицыТоваров.Номенклатура Или НоваяСтрока.ХарактеристикаНоменклатуры <> СтрокаТаблицыТоваров.ХарактеристикаНоменклатуры Тогда НоваяСтрока = ТаблицаЦен.Добавить(); НоваяСтрока.Номенклатура = СтрокаТаблицыТоваров.Номенклатура; НоваяСтрока.ХарактеристикаНоменклатуры = СтрокаТаблицыТоваров.ХарактеристикаНоменклатуры; ТекущийИндексСтрокиТаблицыЦен = СтрокаТаблицыТоваров.ИндексСтрокиТаблицыЦен; КонецЕсли;
Мне на этом форуме очень помогают, вот и я решил быть чем то полезным, быть может кому надо весь справочник УКТВЭД в формате dbf, выгрузил из другой программки что б загрузить в 1с
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!