Всем привет!
Никто не подскажет почему не работает ниже указанный код.
Цель простая.
Собрать все реквизиты указанного Справочника/Документа и вставить нужные значения в ТЗ. .. для того что бы все это записать на сервер.
заполнив одну строку ... т.е. все реквизиты одной строки ..
Вроде задаче не сильно сложная но блииин ... опять .. барьеры ... опять ... так нельзя ..сьяк нельзя..
Вот набросок:
&НаСервере
Процедура ТЗ_СобратьРеквизиты(МетаДанныеГруппа,МетаДанныеИмя)
//========================================================
Попытка
Если МетаДанныеГруппа="Справочники" тогда
МетаданныеИсточника=Метаданные.Справочники[МетаДанныеИмя];
ИначеЕсли МетаДанныеГруппа="Документы" тогда
МетаданныеИсточника=Метаданные.Документы[МетаДанныеИмя];
Иначе
Возврат;
КонецЕсли;
Исключение
Сообщить("Не коректные параметры метаданных!");
Возврат;
КонецПопытки;
ТЗ_Реквизиты = новый ТаблицаЗначений();
Для Каждого Реквизит Из МетаданныеИсточника.Реквизиты Цикл
РеквизитИмя=""+Реквизит;
ТЗ_Реквизиты.Колонки.Добавить(РеквизитИмя);
НоваяСтрока=ТЗ_Реквизиты.Добавить();
КонецЦикла;
Для Каждого Колонка Из ТЗ_Реквизиты.Колонки Цикл
КолонкаИмя=Колонка.Имя;
Сообщить(КолонкаИмя);
НоваяСтрока=ТЗ_Реквизиты.Добавить();
НоваяСтрока.КолонкаИмя="ЗначениеЗаписи"; // ВЫДАЕТ ПОЛЕ НЕ НАЙДЕНО -- С...А
КонецЦикла;
КонецПроцедуры
НоваяСтрока.КолонкаИмя="ЗначениеЗаписи"
ТЗ_Реквизиты = новый ТаблицаЗначений();
ТЗ_Реквизиты.Колонки.Добавить("РеквизитыИмена");
ТЗ_Реквизиты.Колонки.Добавить("Значения");
Для Каждого РеквизитИмя Из МетаданныеИсточника.Реквизиты Цикл
НоваяСтрока=ТЗ_Реквизиты.Добавить();
НоваяСтрока.РеквизитыИмена=РеквизитИмя;
КонецЦикла;
// и т.д.
НоваяСтрока=ТЗ_Реквизиты.Добавить();
Для Каждого РеквизитИмя Из МетаданныеИсточника.Реквизиты Цикл
НоваяСтрока[КолонкаИмя]="ЗначениеЗаписи";
КонецЦикла;
Flexy @ Сегодня, 15:31
,
Спасибо!
Блиин ... как сам не догнал ... ведь знал, что можно и так...
Короче ... хоть и не люблю выходить на форум... но не получается без него.
Роешь в поисковике ... целыми часами ... натыкаешься в основном на шаблоны по учебнику..
А тут за две минуты получил, что было нужно
Ладно спасибо!
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua