Имя: Пароль:
1C
1С v8
Вывести макет ценника на страницу в три строки по три клоноки
0 55reg
 
03.03.23
16:48
Есть макет ценника - все работает, выводится в ТабличномДокументе, но в одну колонку и вниз! Нужно заполнить макет в цикле N раз что бы на А4 было три по горизонтали на три по вертикали (итого на А4 6 ценников номенклатур). Вопрос это как то можно сделать имея один макет? Просто перезаполняя его и присоединяя как нужно ... В Рознице 2.3 так можно выводить ценники указав кол во по горизонтали и вертикали на страницу...
1 АгентБезопасной Нацио
 
03.03.23
16:54
И что мешает сделать?
2 formista2000
 
03.03.23
16:55
ТабличныйДокумент (SpreadsheetDocument)
Присоединить (Join)
3 55reg
 
06.03.23
09:35
(2) присоединяется но справа тогда! А мне нужно получить квадрат заполненный макетом 3х3 на А4 т е первая стрка выводим 3 макета, 2 строка еще 3 макета, 3 строка еще 3 макета. Далее новый лист А4 и все по новой! Но имея один макет - заполняется либо в строку либо в колонку.  

&НаСервере
Функция СформироватьПечатнуюФорму(Таблиц1)
    
    ТабличныйДокумент1 = Новый ТабличныйДокумент;
    ТабличныйДокумент = Новый ТабличныйДокумент;
    
    ТабличныйДокумент.АвтоМасштаб = Истина;
    
    Обработка =  РеквизитФормыВЗначение("Объект");
    
    МакетОбработки = Обработка.ПолучитьМакет("Макет");
    
    Для Каждого ТекущаяСтрока из Таблиц1 Цикл
        
        ОбластьКолонка                        = МакетОбработки.ПолучитьОбласть("Колонка1");    
        ОбластьСтрока
        Область.Параметры.Описание = ТекущаяСтрока.Номенклатура.Описание;
        ФайлКартинки                          = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ТекущаяСтрока.Номенклатура, "ФайлКартинки");
        
        Если ЗначениеЗаполнено(ФайлКартинки.Наименование) Тогда
            ДвоичныеДанныеФайла                   = РаботаСФайлами.ДвоичныеДанныеФайла(ФайлКартинки);    
            Если ТипЗнч(ДвоичныеДанныеФайла)      = Тип("Картинка") Тогда
                Картинка                          = ДвоичныеДанныеФайла;
            ИначеЕсли ТипЗнч(ДвоичныеДанныеФайла) = Тип("ДвоичныеДанные") Тогда
                Картинка                          = Новый Картинка(ДвоичныеДанныеФайла);
            Иначе
                Картинка                          = Новый Картинка;
            КонецЕсли;
            Область.Параметры.Фото1         = Картинка;
        КонецЕсли;
        
        
        ЗначениеШтрихкода = "1111234567890";
        
        Если ЗначениеЗаполнено(ЗначениеШтрихкода) Тогда
            
            ПараметрыШтрихкода = Новый Структура;
            ПараметрыШтрихкода.Вставить("Ширина",          90);
            ПараметрыШтрихкода.Вставить("Высота",          40);
            ПараметрыШтрихкода.Вставить("Штрихкод",        ЗначениеШтрихкода);
            ПараметрыШтрихкода.Вставить("ТипКода",         "EAN13");
            ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
            ПараметрыШтрихкода.Вставить("РазмерШрифта",    12);
            ПараметрыШтрихкода.Вставить("УголПоворота",        0);
            ПараметрыШтрихкода.Вставить("УровеньКоррекцииQR",    0);
            
            КартинкаШКСфоримровать = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
            
            Если КартинкаШКСфоримровать <> Неопределено Тогда
                Область.Рисунки.КартинкаШК.Картинка = КартинкаШКСфоримровать;
            КонецЕсли;
            
        КонецЕсли;
        
        ТабличныйДокумент1.Вывести(Область);
        
        
        //Обл = ТабличныйДокумент1.ПолучитьОбласть("Товары1");
        //Обл.ТекущаяОбласть.Текст = "";
        //ТабличныйДокумент.Вывести(Обл);
        
    КонецЦикла;
    
    Возврат ТабличныйДокумент1;
    
КонецФункции
4 KJlag
 
06.03.23
09:36
(3) комбинирование Присоединить и Вывести?
5 55reg
 
06.03.23
09:56
(4) Ну заработало )) Только в макете имя присвоил области Строка|Колонка - Присоединить-строки, Вывести-колонки выводит ))) Переменную счетчик кол-ва макетов на лист считаем и выводим соотв...
6 55reg
 
06.03.23
09:58
Наоборот только! Присоединить-колонки , Вывести-строки
выводит ...
7 Bigbro
 
06.03.23
10:01
поздравляю) первые успехи всегда окрыляют) когда это проклятая железяка начинает слушаться))
8 АгентБезопасной Нацио
 
06.03.23
11:06
(7) через 10 лет достигнуты первые успехи...
9 Bigbro
 
06.03.23
11:09
может человек на 7ке сидел все эти годы) как некоторые))
10 55reg
 
06.03.23
11:38
(8) )))) Не возможно же все знать )) Задачи разные подкидывают ))
11 АгентБезопасной Нацио
 
06.03.23
11:59
(9) на клюшках это делается точно так же.
12 АгентБезопасной Нацио
 
06.03.23
12:00
(10) а это и не надо "знать". Но не столкнуться за 10 лет с Вывести() и Присоединить() - странно. Не суметь прочитать об этом в СП - тоже странно.
13 Злопчинский
 
07.03.23
14:00
(12) это в 77 СП можно почитать.
А в 8 - запросто заблудиться...