|
|
Как перебрать табличные части любого документа? |
☑ |
|
0
DJ Anthon
17.04.12
✎
05:23
|
Что-то забыл и поисковик не помогает ((
нужно что-то типа
Для Каждого ТЧ Из Док.ТабличныеЧасти Цикл
КонецЦикла;
|
|
|
1
Cube
17.04.12
✎
05:26
|
|
|
|
2
DJ Anthon
17.04.12
✎
05:28
|
(1) спасибо, я не лентяй (( просто проснулся недавно и полмесяца на 7.7 сидел, а ищу уже полчаса
|
|
|
3
Cube
17.04.12
✎
05:31
|
(2) Да ладно, не льсти себе))
|
|
|
4
DJ Anthon
17.04.12
✎
05:58
|
блин, ну кое-как победил этот цикл
Для Сч = 0 По Док.Метаданные().ТабличныеЧасти.Количество() - 1 Цикл
ТЧ = Док[Док.Метаданные().ТабличныеЧасти[Сч].Имя];
Для Сч2 = 0 По Док.Метаданные().ТабличныеЧасти[Сч].Реквизиты.Количество() - 1 Цикл
Если Док.Метаданные().ТабличныеЧасти[Сч].Реквизиты[Сч2].Тип.СодержитТип(Тип("ПеречислениеСсылка.КВД")) Тогда
Для Каждого Строка Из ТЧ Цикл
Если Строка[Док.Метаданные().ТабличныеЧасти[Сч].Реквизиты[Сч2].Имя] <> КВФ Тогда
Строка[Док.Метаданные().ТабличныеЧасти[Сч].Реквизиты[Сч2].Имя] = КВФ;
Записать = Истина;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
может, как-нить попроще можно сделать?
|
|
|
5
ZanderZ
17.04.12
✎
06:08
|
Для Каждого ТЧ Из Док.Метаданные().ТабличныеЧасти Цикл
Для Каждого Реквизит ИЗ ТЧ.Реквизиты Цикл
Если Реквизиты.Тип.СодержитТип(Тип("ПеречислениеСсылка.КВД")) Тогда
Для Каждого Строка Из ТЧ Цикл
Если Строка[Реквизиты.Имя] <> КВФ Тогда
Строка[Реквизиты.Имя] = КВФ;
Записать = Истина;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
|
|
|
6
ZanderZ
17.04.12
✎
06:08
|
Реквизиты.Имя = Реквизит.Имя
|
|
|
7
DJ Anthon
17.04.12
✎
06:18
|
(5) и тебе спасибо, мил человек
|
|
