"т+с 9.2 Общий журнал документов<br>хочу сделать сортировку документов по кассам, на подобие как и по складам<br>к примеру , вывести все документы где в реквизитах упоминается касса №2<br><br>написал код по аналогии кода по сортировке по складам, визуально все работает, но только не сортирует документ а выводит весь список, как буд то нету сортировки<br><br><br>оброзец кода, с сравнением с кодом под склад<br><br> СкладДляОтбора, ВидДокументаДляОтбора, АвторДляОтбора, ПроектДляОтбора, КассаДляОтбора; // Переменные для отбора<br><br><br>Процедура ПриВыбореСклада() <br> <br> Если СкладДляОтбора.Выбран()>0 Тогда<br> УстановитьОтбор("Склад", СкладДляОтбора);<br> СкладДляОтбора = СкладДляОтбора.ТекущийЭлемент();<br> Иначе<br> УстановитьОтбор("""");<br> КонецЕсли;<br> <br>КонецПроцедуры // ПриВыбореСклада()<br><br>Процедура ПриВыбореКассы() <br> Если КассаДляОтбора.Выбран()>0 Тогда <br> УстановитьОтбор("Касса", КассаДляОтбора); <br> КассаДляОтбора = КассаДляОтбора.ТекущийЭлемент(); <br> Иначе <br> УстановитьОтбор(""""); <br> КонецЕсли; <br> <br>КонецПроцедуры // ПриВыбореКассы() <br><br><br>Процедура ПриВыбореСклада() <br> <br> Если СкладДляОтбора.Выбран()>0 Тогда<br> УстановитьОтбор("Склад", СкладДляОтбора);<br> СкладДляОтбора = СкладДляОтбора.ТекущийЭлемент();<br> Иначе<br> УстановитьОтбор("""");<br> КонецЕсли;<br> <br>КонецПроцедуры // ПриВыбореСклада()<br><br>Процедура ПриВыбореКассы() <br> Если КассаДляОтбора.Выбран()>0 Тогда <br> УстановитьОтбор("Касса", КассаДляОтбора); <br> КассаДляОтбора = КассаДляОтбора.ТекущийЭлемент(); <br> Иначе <br> УстановитьОтбор(""""); <br> КонецЕсли; <br> <br>КонецПроцедуры // ПриВыбореКассы() <br><br><br><br> ИначеЕсли ОтборПо = "по складу" Тогда<br> ПриВыбореСклада();<br> ЗначениеВВидеСтроки=Строка(СкладДляОтбора);<br><br> ИначеЕсли ОтборПо = "по кассе" Тогда <br> ПриВыбореПроекта(); <br> ЗначениеВВидеСтроки=Строка(КассаДляОтбора); <br> <br><br><br>ИначеЕсли ОтборПо = "по складу" Тогда<br> СтароеЗначение=СкладДляОтбора;<br> ВыбЗначение = СоздатьОбъект("Справочник.Склады");<br> Если ВыбЗначение.Выбрать("Выбор склада",)=1 Тогда<br> СкладДляОтбора = ВыбЗначение;<br> Если ВыбЗначение<>СтароеЗначение Тогда<br> ЗначениеИзменилось=1; <br> КонецЕсли; <br> КонецЕсли; <br><br> <br> ИначеЕсли ОтборПо = "по кассе" Тогда <br> СтароеЗначение=КассаДляОтбора; <br> ВыбЗначение = СоздатьОбъект("Справочник.Кассы"); <br> Если ВыбЗначение.Выбрать("Выбор кассы",)=1 Тогда <br> КассаДляОтбора = ВыбЗначение; <br> Если ВыбЗначение<>СтароеЗначение Тогда //<br> ЗначениеИзменилось=1; <br> КонецЕсли; <br> КонецЕсли; <br><br> // определение склада для отбора<br> СкладДляОтбора =ВосстановитьЗначение("СкладОтбораЖурнала");<br> СкладДляОтбора= ?(ПустоеЗначение(СкладДляОтбора)=1, ПолучитьПустоеЗначение("Справочник.Склады"), СкладДляОтбора);<br><br><br> // определение Кассы для отбора <br> КассаДляОтбора =ВосстановитьЗначение("КассаОтбораЖурнала"); <br> КассаДляОтбора= ?(ПустоеЗначение(КассаДляОтбора)=1, ПолучитьПустоеЗначение("Справочник.Кассы"), КассаДляОтбора); <br> <br><br> ИначеЕсли ОтборПо = "по складу" Тогда<br> Если глЕстьРеквизитШапки("Склад", ТекДок.Вид()) = 1 Тогда<br> СкладДляОтбора = ТекДок.Склад;<br><br> ИначеЕсли ОтборПо = "по кассе" Тогда <br> Если глЕстьРеквизитШапки("Касса", ТекДок.Вид()) = 1 Тогда<br> КассаДляОтбора = ТекДок.Касса; // общий реквизит документов <br><br> СохранитьЗначение("СкладОтбораЖурнала",СкладДляОтбора);<br><br> СохранитьЗначение("КассаДляОтбораЖурнала",КассаДляОтбора); <br><br><br>ВидОтбора.ДобавитьЗначение("по складу");<br>ВидОтбора.ДобавитьЗначение("по кассе")<br><br><br>СкладДляОтбора = СоздатьОбъект("Справочник.Склады");<br><br>КассаДляОтбора = СоздатьОбъект("Справочник.Кассы"); <br><br><br><br>"