egerLESHIK
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте.
Ситуация такого плана по 1С Торговля и Склад 7.7 (переписанная). Пытаюсь создать новый документ в конфигурации - Расходная накладная для Розницы.
В модуле документа, по аналогии с обычной расходной накладной да и приходной также создаю такой код:
Код: Процедура Подбор()
Если КатегорияЦены.Выбран() = 0 Тогда
Предупреждение ("Не выбрана категория цен! Укажите цену розничной продажи!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если СокрЛП(глПользователь.КодыПодразделений) = "" Тогда
ОткрытьПодбор("ТМЦ",?(сзЮЗЕР.Получить("ПОДБОР_БЕЗ_ГРУПП") = 1,"ДляВыбораБезГрупп","ДляВыбора"),Контекст);
фПоказатьОст=0;
КонецЕсли;
КонецПроцедуры // Подбор
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*//
Процедура ОбработкаПодбора(Выб)
Если глОбработатьПодбор(Контекст,Выб,1) = 1 Тогда
глПриИзмененииТовара(Контекст);
АктивизироватьСтроку();
ИзмТМЦ();
Кол = Количество;
ИзмКво();
КонецЕсли;
Кол = 1;
Если Константа.ЗапрашиватьКоличество = Да Тогда
Если ВвестиЧисло(Кол,"Введите количество",12,3) = 0 Тогда
Возврат;
КонецЕсли;
КонецЕсли;
НоваяСтрока();
Количество = Кол;
Если Выб.Вид()="ТМЦ" Тогда
ТМЦ = Выб;
Ед = ТМЦ.ЕдиницаПоУмолчанию;
Цена = глВернутьЦену(ТМЦ,КатегорияЦены,ДатаДок);
КонецЕсли;
ИзмТМЦ();
КонецПроцедуры
|
Да вот косяк почему-то выскакивает при нажатии на кнопку Подбор, а именно вызов процедуры Подбор():
Цитата: тзВыбТМЦ.Свернуть(тзВыбТМЦ,"ТМЦ,Кво");
{Справочник.ТМЦ.ФормаСписка.ДляВыбора.Модуль(419)}: Значение не представляет агрегатный объект (Свернуть) |
Как понятно из цитаты - это ошибка в коде справочника имеющая форму списка ДляВыбора. Но на что она ругается? Вот в чем вопрос...
Добавлено:
Собственно процедура в справочнике где стопорится ошибка на строке 419:
Процедура ПриВыбореРодителя(Элемент)
КонецПроцедуры
Код: Процедура ПриОткрытии()
Форма.ОбработкаВыбораСтроки(1);
Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
ВнКонтекст = Форма.Параметр;
фВнКонтекст = 1;
ЗаполнитьФорму (ВнКонтекст);
ВнКонтекст.ВыгрузитьТабличнуюЧасть (тзВыбТМЦ,"ТМЦ,Кво");
тзВыбТМЦ.Свернуть(тзВыбТМЦ,"ТМЦ,Кво");
Иначе
фВнКонтекст = 0;
ЗаполнитьФормуПоУмолчанию();
КонецЕсли;
Активизировать("Наименование", 0);
Если (Константа.ИспользоватьСкладМикс = Да) и (ВыбСклад.РежимМикс = 1) Тогда
фСтатОст = 1;
Иначе
фСтатОст = сзЮЗЕР.Получить("ПОДБОР_СТАТИЧЕСКИЕ_ОСТАТКИ");
КонецЕсли;
Если Константа.ПрограммируемаяМиграция = 0 Тогда
Если (фСтатОст =1) и (сзЮЗЕР.Получить("ИСПОЛЬЗОВАТЬ_TOYSQL") = 1) Тогда
ИзмПериодОстатковSQL ();
Иначе
ИзмПериодОстатков();
КонецЕсли;
КонецЕсли;
ЗначФлага =ВосстановитьЗначение("ТМЦ_флагПоказаКодаРучнойПодачи");
Если ПустоеЗначение(ЗначФлага) = 1 Тогда
флагПоказаКодаРучнойПодачи = 0;
ИначеЕсли (ЗначФлага = 1) Тогда
флагПоказаКодаРучнойПодачи = 1;
Иначе
флагПоказаКодаРучнойПодачи = 0;
КонецЕсли;
ПриИзмененииФлагаПоказаКодаРучнойПодачи();
ТочностьКво = ?(сзЮЗЕР.Получить("ПОДБОР_ДРОБНОЕ_КВО") = 1, 3, 0);
КонецПроцедуры // ПриОткрытии |
|
