1
Ненавижу 1С
гуру
04.05.12
✎
14:40
|
кусок из типовой
Для Каждого СтрокаДвижения ИЗ ТаблицаДвижений Цикл
// имя регистра передается как значение, полученное с помощью
// функции ПолноеИмя() метаданных регистра
ПозицияТочки = Найти(СтрокаДвижения.Имя, ".");
ТипРегистра = Лев(СтрокаДвижения.Имя, ПозицияТочки - 1);
ИмяРегистра = СокрП(Сред(СтрокаДвижения.Имя, ПозицияТочки + 1));
МассивОбрабатываемыхСтрокТаблицыДвижений.Добавить(СтрокаДвижения);
ЕСли ТипРегистра = "РегистрНакопления" Тогда
Набор = РегистрыНакопления[ИмяРегистра].СоздатьНаборЗаписей();
ИначеЕсли ТипРегистра = "РегистрСведений" Тогда
Набор = РегистрыСведений[ИмяРегистра].СоздатьНаборЗаписей();
КонецЕсли;
|
|