Имя: Пароль:
1C
1С v8
А как сделать отступ при печати строки по условию ?
0 budnik
 
14.10.13
12:00
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
    Макет = ВнешнийОтчетОбъект.ПолучитьМакет("Отчет");
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    РеализацияТоваровУслуг.Ссылка,
    |    РеализацияТоваровУслуг.Представление
    |ИЗ
    |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг";

    Результат = Запрос.Выполнить();

    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
    ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
    ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
    ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

    ТабДок.Очистить();
    ТабДок.Вывести(ОбластьЗаголовок);
    ТабДок.Вывести(ОбластьШапкаТаблицы);
    ТабДок.НачатьАвтогруппировкуСтрок();
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        




ОбластьДетальныхЗаписей.ТекущаяОбласть.Отступ = 5;







        ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
        ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());
    КонецЦикла;

    ТабДок.ЗакончитьАвтогруппировкуСтрок();
    ТабДок.Вывести(ОбластьПодвалТаблицы);
    ТабДок.Вывести(ОбластьПодвал);

    //}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ
1 budnik
 
14.10.13
12:09
Не делает отступ ОбластьДетальныхЗаписей.ТекущаяОбласть.Отступ = 5;
2 Godofsin
 
14.10.13
12:09
если твоеУсловие тогда
ОбластьДетальныхЗаписей.ТекущаяОбласть.Отступ = 5;
иначе
ОбластьДетальныхЗаписей.ТекущаяОбласть.Отступ = 0;
КонецЕсли;

Не?
3 1Сергей
 
14.10.13
12:10
(1) Что ты имеешь в иду под словом Отступ?
4 Defender aka LINN
 
14.10.13
12:12
(1) А которая из областей в этой области - текущая?
5 budnik
 
14.10.13
12:12
ОбластьДетальныхЗаписей.ТекущаяОбласть.Отступ = 5;
в печатной форме должен отобразится отступ слева.
(2) условие я сам напишу.
6 budnik
 
14.10.13
12:19
Похоже сложно.Пробелы отсчитаю и вставлю.Спасибо.
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн