Заполнение табличной части

Новая тема
Показывать по 10 20 40 сообщений
Помогите. Как при выборе реквизита в шапке документа вставить весь столбец из справочника в столбец табличной части документа.
Сформулируйте точнее...,опишите контекст.
У меня такая проблема, как заполнить табличную часть документа из справочника дело вот в чем. Документ называется Лимитно заборная карта и  когда при выборе материала в шапке документа становиться актиным реквиз СкладПолучатель там выбираем склад и после этого хотелось чтобы когда мы вибираем СкладПолучатель то  столбцы и все строки из подчиненного справочника Номенклатура Заполнили всю табличную часть.
"У меня в одной из баз в процедуре ОбработкаПодбора документа  такой кусок:
Если ТекТовар.ВидТовара=Перечисление.ВидыТоваров.Комплект Тогда
Кмп=СоздатьОбъект("Справочник.Комплектация");
Кмп.ИспользоватьВладельца(ТекТовар);
Кмп.ВыбратьЭлементы();
Пока Кмп.ПолучитьЭлемент()>0 Цикл  
Если (Кмп.ПометкаУдаления()=1) тогда
Продолжить;
КонецЕсли;
НоваяСтрока();
Товар=Кмп.Товар;
Количество=Кмп.Количество;
РознЦена=Товар.Розн_Цена;
УстанЦеныРасх(Контекст);
Выч_суммы_накл(Контекст);
КонецЦикла;
Кмп=0;
Основание=СокрЛП(СокрЛП(Основание)+" "+СокрЛП(ТекТовар.Наименование));
Иначе

К примеру, менеджер выбрал товар "ТО-30", и все запчасти и расходные материалы для данного ТО (перечисленные в подчиненном справочнике Комплектация) попадают в документ.
"
А можно увидеть всю эту процедуру
ОбработкаПодбора это Предопределенная процедура, она есть и в твоём документе, её надо только подкорректировать. Моя может сильно отличаться, возникнут проблемы.
Ну все равно я бы хотел увидеть твою процедуру может пригодиться на будущеее если ты конечно не против!
"На форме документа лежит кнопка "Подбор по каталогу" с вызовом процедуры Подбор()
//-----------------------------------------------
Процедура Подбор()
ОткрытьПодбор("Товары","ДляПодбора");
КонецПроцедуры
//-----------------------------------------------
Процедура ОбработкаПодбора(ТекТовар)
Если ТекТовар.ВидТовара=Перечисление.ВидыТоваров.Комплект Тогда
Кмп=СоздатьОбъект("Справочник.Комплектация");
Кмп.ИспользоватьВладельца(ТекТовар);
Кмп.ВыбратьЭлементы();
Пока Кмп.ПолучитьЭлемент()>0 Цикл  
Если (Кмп.ПометкаУдаления()=1) тогда
Продолжить;
КонецЕсли;
НоваяСтрока();
Товар=Кмп.Товар;
Количество=Кмп.Количество;
РознЦена=Товар.Розн_Цена;
УстанЦеныРасх(Контекст);
Выч_суммы_накл(Контекст);
КонецЦикла;
Кмп=0;
Основание=СокрЛП(СокрЛП(Основание)+" "+СокрЛП(ТекТовар.Наименование));
Иначе
Если Константа.ЗапрашиватьКоличество=Перечисление.Булево.Да Тогда
Кол=1;
Если ВвестиЧисло(Кол,"Введите количество",10,0)=1 Тогда
НоваяСтрока();
Товар=ТекТовар;
Количество=Кол;
Иначе
Возврат;
КонецЕсли;
Иначе
НоваяСтрока();
Товар=ТекТовар;
Количество=1;
КонецЕсли;
УстанЦеныРасх(Контекст);
Выч_суммы_накл(Контекст);
АктивизироватьСтроку();    
КонецЕсли;
КонецПроцедуры
//------------------------"
А ты бы не мог пояснить строку : Если ТекТовар.ВидТовара=Перечисление.ВидыТоваров.Комплект тогда.
У меня в справочнике Товары (Номенклатура) есть реквизит ВидТовара (Товар, Услуга, Комплект...) Если выбран Товар, у которого данный реквизит = "Комплект", то в табличную часть документа заносится подчиненный справочник к данному товару.
Читают тему
(гостей: 1)

Быстрый переход