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