Заполнение табличной части
Показывать по
10
20
40
сообщений
- 1
- 2
16.11.2005
14:05
#1
Помогите. Как при выборе реквизита в шапке документа вставить весь столбец из справочника в столбец табличной части документа.
17.11.2005
09:22
#3
У меня такая проблема, как заполнить табличную часть документа из справочника дело вот в чем. Документ называется Лимитно заборная карта и когда при выборе материала в шапке документа становиться актиным реквиз СкладПолучатель там выбираем склад и после этого хотелось чтобы когда мы вибираем СкладПолучатель то столбцы и все строки из подчиненного справочника Номенклатура Заполнили всю табличную часть.
17.11.2005
10:01
#4
"У меня в одной из баз в процедуре ОбработкаПодбора документа такой кусок:
Если ТекТовар.ВидТовара=Перечисление.ВидыТоваров.Комплект Тогда
Кмп=СоздатьОбъект("Справочник.Комплектация");
Кмп.ИспользоватьВладельца(ТекТовар);
Кмп.ВыбратьЭлементы();
Пока Кмп.ПолучитьЭлемент()>0 Цикл
Если (Кмп.ПометкаУдаления()=1) тогда
Продолжить;
КонецЕсли;
НоваяСтрока();
Товар=Кмп.Товар;
Количество=Кмп.Количество;
РознЦена=Товар.Розн_Цена;
УстанЦеныРасх(Контекст);
Выч_суммы_накл(Контекст);
КонецЦикла;
Кмп=0;
Основание=СокрЛП(СокрЛП(Основание)+" "+СокрЛП(ТекТовар.Наименование));
Иначе
К примеру, менеджер выбрал товар "ТО-30", и все запчасти и расходные материалы для данного ТО (перечисленные в подчиненном справочнике Комплектация) попадают в документ.
"
Если ТекТовар.ВидТовара=Перечисление.ВидыТоваров.Комплект Тогда
Кмп=СоздатьОбъект("Справочник.Комплектация");
Кмп.ИспользоватьВладельца(ТекТовар);
Кмп.ВыбратьЭлементы();
Пока Кмп.ПолучитьЭлемент()>0 Цикл
Если (Кмп.ПометкаУдаления()=1) тогда
Продолжить;
КонецЕсли;
НоваяСтрока();
Товар=Кмп.Товар;
Количество=Кмп.Количество;
РознЦена=Товар.Розн_Цена;
УстанЦеныРасх(Контекст);
Выч_суммы_накл(Контекст);
КонецЦикла;
Кмп=0;
Основание=СокрЛП(СокрЛП(Основание)+" "+СокрЛП(ТекТовар.Наименование));
Иначе
К примеру, менеджер выбрал товар "ТО-30", и все запчасти и расходные материалы для данного ТО (перечисленные в подчиненном справочнике Комплектация) попадают в документ.
"
17.11.2005
12:28
#6
ОбработкаПодбора это Предопределенная процедура, она есть и в твоём документе, её надо только подкорректировать. Моя может сильно отличаться, возникнут проблемы.
17.11.2005
12:32
#7
Ну все равно я бы хотел увидеть твою процедуру может пригодиться на будущеее если ты конечно не против!
17.11.2005
13:23
#8
"На форме документа лежит кнопка "Подбор по каталогу" с вызовом процедуры Подбор()
//-----------------------------------------------
Процедура Подбор()
ОткрытьПодбор("Товары","ДляПодбора");
КонецПроцедуры
//-----------------------------------------------
Процедура ОбработкаПодбора(ТекТовар)
Если ТекТовар.ВидТовара=Перечисление.ВидыТоваров.Комплект Тогда
Кмп=СоздатьОбъект("Справочник.Комплектация");
Кмп.ИспользоватьВладельца(ТекТовар);
Кмп.ВыбратьЭлементы();
Пока Кмп.ПолучитьЭлемент()>0 Цикл
Если (Кмп.ПометкаУдаления()=1) тогда
Продолжить;
КонецЕсли;
НоваяСтрока();
Товар=Кмп.Товар;
Количество=Кмп.Количество;
РознЦена=Товар.Розн_Цена;
УстанЦеныРасх(Контекст);
Выч_суммы_накл(Контекст);
КонецЦикла;
Кмп=0;
Основание=СокрЛП(СокрЛП(Основание)+" "+СокрЛП(ТекТовар.Наименование));
Иначе
Если Константа.ЗапрашиватьКоличество=Перечисление.Булево.Да Тогда
Кол=1;
Если ВвестиЧисло(Кол,"Введите количество",10,0)=1 Тогда
НоваяСтрока();
Товар=ТекТовар;
Количество=Кол;
Иначе
Возврат;
КонецЕсли;
Иначе
НоваяСтрока();
Товар=ТекТовар;
Количество=1;
КонецЕсли;
УстанЦеныРасх(Контекст);
Выч_суммы_накл(Контекст);
АктивизироватьСтроку();
КонецЕсли;
КонецПроцедуры
//------------------------"
//-----------------------------------------------
Процедура Подбор()
ОткрытьПодбор("Товары","ДляПодбора");
КонецПроцедуры
//-----------------------------------------------
Процедура ОбработкаПодбора(ТекТовар)
Если ТекТовар.ВидТовара=Перечисление.ВидыТоваров.Комплект Тогда
Кмп=СоздатьОбъект("Справочник.Комплектация");
Кмп.ИспользоватьВладельца(ТекТовар);
Кмп.ВыбратьЭлементы();
Пока Кмп.ПолучитьЭлемент()>0 Цикл
Если (Кмп.ПометкаУдаления()=1) тогда
Продолжить;
КонецЕсли;
НоваяСтрока();
Товар=Кмп.Товар;
Количество=Кмп.Количество;
РознЦена=Товар.Розн_Цена;
УстанЦеныРасх(Контекст);
Выч_суммы_накл(Контекст);
КонецЦикла;
Кмп=0;
Основание=СокрЛП(СокрЛП(Основание)+" "+СокрЛП(ТекТовар.Наименование));
Иначе
Если Константа.ЗапрашиватьКоличество=Перечисление.Булево.Да Тогда
Кол=1;
Если ВвестиЧисло(Кол,"Введите количество",10,0)=1 Тогда
НоваяСтрока();
Товар=ТекТовар;
Количество=Кол;
Иначе
Возврат;
КонецЕсли;
Иначе
НоваяСтрока();
Товар=ТекТовар;
Количество=1;
КонецЕсли;
УстанЦеныРасх(Контекст);
Выч_суммы_накл(Контекст);
АктивизироватьСтроку();
КонецЕсли;
КонецПроцедуры
//------------------------"
- 1
- 2
Читают тему
(гостей: 1)