Версия для печати темы (https://pro1c.org.ua/index.php?showtopic=14617)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 7.7 _ Сложности с построением таблицы

Автор: l2d808 03.10.13, 11:58

Добрый день уважаемое сообщество. Платформа 7.7.

ЧислоСтрок=0;
    Столбик=1;
    Ряд=0;
    ВыбратьСтроки();
    Пока ПолучитьСтроку() = 1 Цикл
             ЧислоСтрок=ЧислоСтрок+1;
            Если Столбик=0 Тогда    
                Столбик=1;
                Ряд=Ряд;
            ИначеЕсли Столбик=1 Тогда
                Столбик=0;
                Ряд=Ряд+1;
            КонецЕсли;    
            Если Ряд>60 Тогда
                Таб.НоваяСтраница();
                Ряд=1;
            КонецЕсли;
            Если Столбик=0 Тогда
                Таб.ВывестиСекцию("Строка|Колонка");
            Иначе
                Таб.ПрисоединитьСекцию("Строка|Колонка");
            КонецЕсли;
            Продолжить;
            Состояние("В отчет выведено "+ЧислоСтрок+" строк.");
    КонецЦикла;  
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Печать Передача_На_Склад","");

В Выше приведенном коде, я получил таблицу которая выводится:
1 2
3 4
5 6
7 8
9
Данная таблица иметь должна вид:
1 6
2 7
3 8
4 9
5

Подскажите, где популярно и подробно, а желательно и популярно описывался принцып построения. Киньте пожалуйста ссылку. Или помогите с кодом. Буду примного признателен Вам.

Автор: Домовик 03.10.13, 13:07

код ваш исполняется верно ), формулы в таблице вы не показываете. там должно быть в формулах, числоСтрок и ЧислоСтрок+5


или в коде меняйте:

           ЧислоСтрок=ЧислоСтрок+1; 
            Если Столбик=0 Тогда    
                Столбик=1;
                Ряд=числоСтрок;
            ИначеЕсли Столбик=1 Тогда
                Столбик=0;
                Ряд=ЧислоСтрок+5;
            КонецЕсли;    
            Если Ряд>60 Тогда
                Таб.НоваяСтраница();
                Ряд=1;
            КонецЕсли;


если нужно с новой страницы опять начинать с 1, введите ЧислоСтрокНастранице, только обновляйте при переходе и работайте с ней.

вообще или задачу не понимаю, или.. в чем проблема?

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua