Гони отчёт!
1с и бла-бла-бла
Пример копирования ТЗ (Таблицы значений) с фильтром по какой-либо колонке:
Код:
// Создает копию таблицы значений с фильтром по значению в колонке
// Сортировка при этом может нарушиться
Функция ТЗ_ВыгрузитьСОтбором(тзДанные, ИмяКолонки, ЗначОтбора)
КолСтр = 0;
тзТмп = СоздатьОбъект("ТаблицаЗначений");
тзДанные.Выгрузить(тзТмп);
тзТмп.НоваяКолонка("_Уд");
тзТмп.ВыбратьСтроки();
Пока (тзТмп.ПолучитьСтроку() = 1) Цикл
Если тзТмп.ПолучитьЗначение(тзТмп.НомерСтроки, ИмяКолонки) = ЗначОтбора Тогда // Ссылка на справочник
КолСтр = КолСтр + 1;
тзТмп._Уд = 1;
КонецЕсли;
КонецЦикла;
тзТмп.Сортировать("+_Уд");
тзТмп.УдалитьКолонку("_Уд");
тзБуф = СоздатьОбъект("ТаблицаЗначений");
Если КолСтр = 0 Тогда
тзТмп.УдалитьСтроки(); // Очищаем таблицу
Возврат тзТмп;
КонецЕсли;
тзТмп.Выгрузить(тзБуф, 1, КолСтр);
Возврат тзБуф;
КонецФункции /CODE]
+ симулятор bad block для статьи по восстановлению 1с базы SQL
+ портал на сайт
Hs header
Site logo
Подсветка кода
+ портал на сайт
Hs header
Site logo
Подсветка кода
Для получения списка последовательностей из метаданных используем следующий код:
Код:
Для к = 1 По Метаданные.Последовательность() Цикл
Сообщить(Метаданные.Последовательность(к));
КонецЦикла;
./CODE]
XenPorta 2 PRO
© 8WAYRUN.com