Присоединить область в табличном документе

@juristbrn · Регистрация: 21.04.2014

Студворк — интернет-сервис помощи студентам

Пытаюсь вывести колонками в ТД через присоединение областей и при выводе выводит после каждой строки пустую область. Подскажите, как исправить...
Макет: http://skrinshoter.ru/s/290617/YG9sgwPV?a
Результат:http://skrinshoter.ru/s/290617/bmd8er7q?a
Код:

1C

 ОбластьСвойстваСтрока = Макет.ПолучитьОбласть("СтрокаСвойстваЛинз");
    ОбластьСвойстваСтрокаЛинза = Макет.ПолучитьОбласть("ЛинзаВ|СтрокаСвойстваЛинз");
    ОбластьСвойстваСтрокаЛинзаСвойства = Макет.ПолучитьОбласть("СвойстваЛинзыВ|СтрокаСвойстваЛинз");
 
    Для каждого Строка из  МассивЛинз Цикл
 
        ОбластьСвойстваСтрокаЛинза.Параметры.Линза = Строка;
        ВременныйТабДокумент.Присоединить(ОбластьСвойстваСтрокаЛинза);
 
        НайтиСтрокиПоЛинзе =  ПараметрыДиагностикиДЗ.НайтиСтроки(Новый Структура("Линза",Строка));
        
        Для каждого НайденныеСтроки из НайтиСтрокиПоЛинзе Цикл
            Если ЗначениеЗаполнено(НайденныеСтроки.ЗначениеЛевыйГлаз) ИЛИ ЗначениеЗаполнено(НайденныеСтроки.ЗначениеПравыйГлаз) Тогда
                Позиция=Найти(НайденныеСтроки.ПредставлениеПараметра,",");
                ОбластьСвойстваСтрокаЛинзаСвойства.Параметры.Владелец=Лев(НайденныеСтроки.ПредставлениеПараметра,Позиция-1);
                ОбластьСвойстваСтрокаЛинзаСвойства.Параметры.ЗначениеПравыйГлаз="OD "+Строка(НайденныеСтроки.ЗначениеПравыйГлаз);
                ОбластьСвойстваСтрокаЛинзаСвойства.Параметры.ЗначениеЛевыйГлаз= "OS "+Строка(НайденныеСтроки.ЗначениеЛевыйГлаз);
                ВременныйТабДокумент.Присоединить(ОбластьСвойстваСтрокаЛинзаСвойства);
                ВыводитьСвойства = Истина;
                
            КонецЕсли;
            
        КонецЦикла;
        
        ВременныйТабДокумент.Вывести(ОбластьСвойстваСтрока);
 
    КонецЦикла;

@Dethmontt · 29.06.2017, 11:58

juristbrn,

1C

ТабДокРезультат = Новый ТабличныйДокумент;
ОбластьСвойстваСтрока = Макет.ПолучитьОбласть("СтрокаСвойстваЛинз");
ОбластьСвойстваСтрокаЛинза = Макет.ПолучитьОбласть("ЛинзаВ|СтрокаСвойстваЛинз");
ОбластьСвойстваСтрокаЛинзаСвойства = Макет.ПолучитьОбласть("СвойстваЛинзыВ|СтрокаСвойстваЛинз");
 Для каждого Строка из  МассивЛинз Цикл
      ВременныйТабДокумент = Новый ТабличныйДокумент;
      ОбластьСвойстваСтрокаЛинза.Параметры.Линза = Строка;
      ВременныйТабДокумент.Вывести(ОбластьСвойстваСтрокаЛинза);
 
НайтиСтрокиПоЛинзе =  ПараметрыДиагностикиДЗ.НайтиСтроки(Новый Структура("Линза",Строка));
        
        Для каждого НайденныеСтроки из НайтиСтрокиПоЛинзе Цикл
            Если ЗначениеЗаполнено(НайденныеСтроки.ЗначениеЛевыйГлаз) ИЛИ ЗначениеЗаполнено(НайденныеСтроки.ЗначениеПравыйГлаз) Тогда
                Позиция=Найти(НайденныеСтроки.ПредставлениеПараметра,",");
                ОбластьСвойстваСтрокаЛинзаСвойства.Параметры.Владелец=Лев(НайденныеСтроки.ПредставлениеПараметра,Позиция-1);
                ОбластьСвойстваСтрокаЛинзаСвойства.Параметры.ЗначениеПравыйГлаз="OD "+Строка(НайденныеСтроки.ЗначениеПравыйГлаз);
                ОбластьСвойстваСтрокаЛинзаСвойства.Параметры.ЗначениеЛевыйГлаз= "OS "+Строка(НайденныеСтроки.ЗначениеЛевыйГлаз);
                ВременныйТабДокумент.Присоединить(ОбластьСвойстваСтрокаЛинзаСвойства);
                ВыводитьСвойства = Истина;
                
            КонецЕсли;
            
        КонецЦикла;
        
        ТабДокРезультат.Вывести(ВременныйТабДокумент);
 
    КонецЦикла;

Опции темы