8.х Помогите как правильно расположить макет

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Raideres, 14 сен 2016.

  1. TopicStarter Overlay
    Raideres
    Offline

    Raideres Опытный в 1С

    Регистрация:
    9 фев 2016
    Сообщения:
    200
    Симпатии:
    0
    Баллы:
    26
    Добрый день. суть проблемы не знаю как вывести правую часть ..вот скриншот с проблемой думаю по нему все будет понятно.

    [​IMG]
  2. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    14.781
    Симпатии:
    509
    Баллы:
    204
    Используйте метод Присоединить(), почитайте про него в СП.
  3. TopicStarter Overlay
    Raideres
    Offline

    Raideres Опытный в 1С

    Регистрация:
    9 фев 2016
    Сообщения:
    200
    Симпатии:
    0
    Баллы:
    26
    можете примерно написать как это выглядит


    Сейчас у меня структура в грубую вот такая :


    Код:
    План = ПолучитьМакет("План1");
    
    
       Шапка  = План.ПолучитьОбласть("Шапка|Начало");
       ШапкаТаблицы  = План.ПолучитьОбласть("ШапкаТаблицы|Начало");
       СтрокаТаблицы = План.ПолучитьОбласть("СтрокаТаблицы|Начало");
       ИтогТара  = План.ПолучитьОбласть("ИтогТара|Начало");
       ВсегоТара  = План.ПолучитьОбласть("ВсегоТара|Начало");
       ВсегоЖ  = План.ПолучитьОбласть("ВсегоЖ|Начало");
       ВсегоВ  = План.ПолучитьОбласть("ВсегоВ|Начало");
       СтрокаПродажи =   План.ПолучитьОбласть("СтрокаПродажи|Начало");
       Область1  =   План.ПолучитьОбласть("Область1|Начало");
       Область2  =   План.ПолучитьОбласть("Область2|Начало");
       шапкакор  =   План.ПолучитьОбласть("шапкакор|Начало");
       ОбластьКоректир =   План.ПолучитьОбласть("ОбластьКоректир|Начало");
       ШапкаТаблицыСокр  = План.ПолучитьОбласть("ШапкаТаблицыСокр|Начало");
       СтрокаТаблицыСокр = План.ПолучитьОбласть("СтрокаТаблицыСокр|Начало");
       ВсегоСокр  = План.ПолучитьОбласть("ВсегоСокр|Начало");
       ШапкаТаблицыСтекло  = План.ПолучитьОбласть("ШапкаТаблицыСтекло|Начало");
       СтрокаТаблицыСтекло = План.ПолучитьОбласть("СтрокаТаблицыСтекло|Начало");
       ВсегоСтекло  = План.ПолучитьОбласть("ВсегоСтекло|Начало");
    
    
    
    ТабДок.Вывести(Шапка);
    ТабДок.Вывести(ШапкаТаблицы);
    ТабДок.Вывести(СтрокаТаблицы  );
    ТабДок.Вывести(ИтогТара  );
    ТабДок.Вывести(ВсегоТара  );
    ТабДок.Вывести(ВсегоЖ  );
    ТабДок.Вывести(ВсегоВ  );
    ТабДок.Вывести(СтрокаПродажи  );
    ТабДок.Вывести(Область1  );
    ТабДок.Вывести(Область2  );
    и т.д.
  4. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    14.781
    Симпатии:
    509
    Баллы:
    204
    Вот :D:
    Код:
    ТабДок = Новый ТабличныйДокумент;
    Секция = ТабДок.ПолучитьОбласть("R1C1");
    ТабДок.НачатьАвтогруппировкуКолонок();
    Секция.Область("R1C1").Текст = "Параметр";
    ТабДок.Вывести(Секция,1,"Группа 1",Ложь);
    Для К=1 По 10 Цикл
        Секция = ТабДок.ПолучитьОбласть("R1C1");
        Секция.Область().Текст = "А"+К;
        Секция.Область().ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
        ТабДок.Присоединить(Секция,2,"Группа 2",Истина);
    КонецЦикла;
    Секция.Область("R1C1").Текст = "Итого:";
    ТабДок.Присоединить(Секция,1,"Группа 2",Ложь);
    Секция.Область("R1C1").Текст = "Значение";
    ТабДок.Вывести(Секция,1,"Группа 2",Ложь);
    Цена = 10; Итог = Цена;
    Для К=1 По 10 Цикл
        Секция = ТабДок.ПолучитьОбласть("R1C1");
        Секция.Область().Текст = Цена;
        ТабДок.Присоединить(Секция,2,"Группа 2",Истина);
        Цена = Цена + 10;
        Итог = Итог + Цена;
    КонецЦикла;
    Секция.Область("R1C1").Текст = Итог;
    ТабДок.Присоединить(Секция,1,"Группа 2",Ложь);
    ТабДок.ЗакончитьАвтогруппировкуКолонок();
    ТабДок.ИтогиСправа = Истина;
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Истина;
    ТабДок.Показать("Пример использования гор. автогруппировки");

Поделиться этой страницей