Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Конфигуратор, помогите с написанием кода на сортировку документов по определенным реквизит

Алекс Crazy
читатель
офлайн
Дата регистрации: 13.01.2010
Сообщений: 83
Пост №1
 
13.01.2010 23:20

"т+с 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>"

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №2
 
13.01.2010 23:25

кого-кого сделать?

BelikovS
читатель
офлайн
Дата регистрации: 05.03.2007
Сообщений: 1701
Пост №3
 
14.01.2010 10:31

В "Графы отбора" кассу добавляли?

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №4
 
14.01.2010 12:08

> В "Графы отбора" кассу добавляли?<br><br>а потом база будет тупить...

Алекс Crazy
читатель
офлайн
Дата регистрации: 13.01.2010
Сообщений: 83
Пост №5
 
14.01.2010 21:06

> В "Графы отбора" кассу добавляли?<br><br>http://img705.imageshack.us/img705/1310/s15l.jpg<br><br&gt;

Thorvardr
читатель
офлайн
Дата регистрации: 25.02.2005
Сообщений: 3082
Пост №6
 
14.01.2010 21:14

Отбор он и есть отбор - фильтрация, проще говоря, а по графам отбора сортировок нет. В журнале документов всегда один способ упорядочивания - по шкале времени. По крайней мере, в 7.7

Алекс Crazy
читатель
офлайн
Дата регистрации: 13.01.2010
Сообщений: 83
Пост №7
 
14.01.2010 21:18

если вы не заметили то там реализация, а в ней нету вообще реквизитов по кассе, и в отборе не числиться<br>рко и пко по разным кассам<br>как я и писал в первом посте вообще нету отбора, выводит полный список документов

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №8
 
15.01.2010 09:22

сделай "журнал" на ТЗ и выводи, как хочешь (в какой последовательности) свои доки

Алекс Crazy
читатель
офлайн
Дата регистрации: 13.01.2010
Сообщений: 83
Пост №9
 
15.01.2010 20:50

> сделай "журнал" на ТЗ и выводи, как хочешь (в какой последовательности) свои доки<br><br>поясни плиз

Thorvardr
читатель
офлайн
Дата регистрации: 25.02.2005
Сообщений: 3082
Пост №10
 
15.01.2010 20:54

"я картинку посмотрел, примерно понял о чем вопрос. может поэтому неверно?<br><br>> ИначеЕсли ОтборПо = "по кассе" Тогда                   <br>> ПриВыбореПроекта();<br>> ЗначениеВВидеСтроки=Строка(КассаДляОтбора); "

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация