v7: Печать в 2 колонки

1C 7.7

13.11.13

✎

17:30

Знаю что на лист влезет по вертикали 5 экземпляров, далее
нужно печатать во вторую колонку как это сделать?

Процедура Сформировать()

    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");

    ВыбратьСтроки();

    Пока ПолучитьСтроку() = 1 Цикл
        Если ПустоеЗначение(Сотрудник.Фото) = 1 Тогда
            Файл = КаталогИБ() + "No.jpg";
        Иначе Файл = Сотрудник.Фото;
        КонецЕсли;

        фио = стрЗаменить(Сотрудник.Наименование, " ", РазделительСтрок);
        Фамилия = СтрПолучитьСтроку(фио,1);
        Имя  = СтрПолучитьСтроку(фио,2);
        Отч  = СтрПолучитьСтроку(фио,3);

        Таб.ВывестиСекцию("Шапка");

    КонецЦикла;

    Таб.Опции(0,0,,0);
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать","");

КонецПроцедуры

1 mikecool

13.11.13

✎

17:31

ПрисоединитьСекцию

2 fff

13.11.13

✎

17:36

(1) А секцию надо создать вертикальную, и она должна быть пустой или содержать что и основной?

3 fff

13.11.13

✎

19:34

Да как ее правильно присоединить, чтоб пустая половина листа заполнялась

4 EvgeniuXP

13.11.13

✎

20:22

(3) через палочку присоединяют

5 EvgeniuXP

13.11.13

✎

20:23

(3) составить правильный алгоритм, что сначала заполняется первая колонка, потом вторая - если еще группировки, то внутри группировки.

6 fff

13.11.13

✎

20:32

Процедура Сформировать()

    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");

    ВыбратьСтроки();

    Нум = 0;

    Пока ПолучитьСтроку() = 1 Цикл
        Если ПустоеЗначение(Сотрудник.Фото) = 1 Тогда
            Файл = КаталогИБ() + "No.jpg";
        Иначе Файл = Сотрудник.Фото;
        КонецЕсли;
        Нум = Нум + 1;
        фио = стрЗаменить(Сотрудник.Наименование, " ", РазделительСтрок);
        Фамилия = СтрПолучитьСтроку(фио,1);
        Имя  = СтрПолучитьСтроку(фио,2);
        Отч  = СтрПолучитьСтроку(фио,3);

        Таб.ВывестиСекцию("Шапка|Шапка2");

        Если Нум = 5 Тогда
            Таб.ПрисоединитьСекцию("Шапка|Шапка2");
            Нум = 0;
        КонецЕсли;

    КонецЦикла;

    Таб.Опции(0,0,,0);
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать","");

КонецПроцедуры

После добавления 5 строк, появляется в правой колонке еще один одинаковый результат, а на следующей странице печатается в две колонки но все одинаковое

7 EvgeniuXP

13.11.13

✎

20:51

каждая нечетная - новая строка, каждая четная - присоединение.

8 EvgeniuXP

13.11.13

✎

20:55

Для Сч=1 По КоличествоТоваров Цикл
        Товар=СЗТовары.ПолучитьЗначение(Сч);
        НазваниеТовара=СокрЛП(Товар.Наименование);
        СтранаПроисхождения=Товар.СтранаПроисхождения;
        Описание=Товар.Описание;
        Розн_Цена=СокрЛП(Формат(Товар.Розн_Цена.Получить(ДатаАктуальности),"Ч6.0. "))+" руб.";
        Код="Код";
        КодТовара=Товар.Код;


//        Розн_Цена=Товар.Розн_Цена.Получить(ДатаАктуальности);
//
//
//        Артикул=Товар.Артикул;
//        КодТовара=Товар.Код;

        // Выводим строку ценника:
        Если Сч=1 Тогда
            // Выводим с новой строки
            ТабличныйДокумент.ВывестиСекцию("Гор_Ценник|Вер_Ценник");
        Иначе
            // Присоединяем к выведенной строке:
            ТабличныйДокумент.ПрисоединитьСекцию("Гор_Ценник|Вер_Ценник");
        КонецЕсли;
    КонецЦикла;

9 EvgeniuXP

13.11.13

✎

20:55

дальше дохимичишь

10 fff

13.11.13

✎

21:12

(9) Спасибо свой код дохимичил, благодаря твоей подсказке
насчет четного и нечетного