Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 06:42

Выборка документов в журнале

Автор Yura063, 14 мая 2012, 17:24

0 Пользователей и 1 гость просматривают эту тему.

Yura063

Доброе время суток! Самописная конфигурация 7.7! Проблема в ошибке УстановитьОтбор("Точка", КонтрагентДляОтбора); неверное имя реквизита!

Процедура ПриВыбореКонтрагента()   
Если КонтрагентДляОтбора.Выбран()>0 Тогда
УстановитьОтбор("Точка", КонтрагентДляОтбора);
КонтрагентДляОтбора = КонтрагентДляОтбора.ТекущийЭлемент();
Иначе
УстановитьОтбор("");
КонецЕсли;

КонецПроцедуры // ПриВыбореКонтрагента()


Процедура ПриУстановкеБыстрогоОтбора()
Перем ТекущДок;                           

    //В форме журнала подчиненных документов отбора нет
Если ПустоеЗначение(ДокументОснованиеЖурнала) = 0  Тогда
Возврат;
КонецЕсли;

ТекущДок = ТекущийДокумент;

       
Форма.кнЗначение.Доступность(1);

ПриВыбореКонтрагента();
ЗначениеВВидеСтроки=Строка(КонтрагентДляОтбора);


ВидыОтбора("");

//КонецЕсли;

Попытка
АктивизироватьОбъект(ТекущДок);
Исключение
Сообщить(ОписаниеОшибки(),"!");
КонецПопытки;

КонецПроцедуры // ПриУстановкеБыстрогоОтбора()

Процедура ПоКнопкеЗначение() 
Перем ЗначениеИзменилось,СтароеЗначение,ВыбЗначение;                     

ЗначениеИзменилось=0;     


СтароеЗначение=КонтрагентДляОтбора;
ВыбЗначение = СоздатьОбъект("Справочник.МестаХранения");
Если ВыбЗначение.Выбрать("Выбор контрагента","ДляВыбора")=1 Тогда
КонтрагентДляОтбора = ВыбЗначение;
Если ВыбЗначение<>СтароеЗначение Тогда
ЗначениеИзменилось=1;
КонецЕсли;
КонецЕсли;

Если ЗначениеИзменилось=1 Тогда
ПриУстановкеБыстрогоОтбора();
КонецЕсли;

КонецПроцедуры // ПоКнопкеЗначение() 

Извините за корявость в написании! код с типовой ТиС, сделал под свою конфигурацию на скорую руку!
Помогли, отблагодари!

Yura063

Журнал Чеков
Графы: Инв,Точка
Помогли, отблагодари!

iq_se7en

(Возможная причина) "Точка" должна иметь установленный флажок "Отбор по реквизиту" в свойствах реквизита справочника

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск