Преобразование табличного документа в таблицу значений (перебор)
Функция транслирующая данные из табличного документа ТабДок в ТЗ (таблицу значений)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
Функция ТабличныйДокументВТаблицуЗначений(ТабДок) ТаблицаДанныеДокумента = Новый ТаблицаЗначений(); Для СчетчикКолонок = 1 По ТабДок.ШиринаТаблицы Цикл ИмяКолонки = "_" + СчетчикКолонок; ТаблицаДанныеДокумента.Колонки.Добавить(ИмяКолонки); Для СчетчикСтрок = 1 По ТабДок.ВысотаТаблицы Цикл ИндексСтроки = СчетчикСтрок - 1; Если СчетчикКолонок = 1 Тогда СтрокаТаблицы = ТаблицаДанныеДокумента.Добавить(); Иначе СтрокаТаблицы = ТаблицаДанныеДокумента[ИндексСтроки]; КонецЕсли; ТекущаяЯчейка = ТабДок.Область(СчетчикСтрок, СчетчикКолонок); ЗначениеЯчейки = ТекущаяЯчейка.Текст; СтрокаТаблицы[ИмяКолонки] = ЗначениеЯчейки; КонецЦикла КонецЦикла; Возврат ТаблицаДанныеДокумента; КонецФункции |
Если у Вас появились вопросы по статье или остались нерешенные проблемы обсудить их Вы можете на Форуме 1С Вопросы и ответы
(1 голосов, 5,00 из 5)
Загрузка...
Добавить комментарий
Для отправки комментария вам необходимо авторизоваться.