Как получить список документов по контрагенту (1С 7.7, Бухгалтерия)

"Собственно сабж.<br>Сам я в типовой бухгалтерии разбираюсь плохо, пока сделал через бухгалтерские итоги, но думаю может есть способ по проще... <br>Точнее в сабже интересует дата последнего документа по контрагенту, но и список самих документов тоже не помешает.<br>Вот, что сделал:<br>Процедура ПолучитьДату()<br> ВСчет=Счет;<br> ВСубконто=ВыбСубконто1;<br> НДата=НачДата;<br> КДата=КонДата;<br> Ит = СоздатьОбъект("БухгалтерскиеИтоги");<br> Ит.ИспользоватьРазделительУчета(Метаданные.РазделительУчета);<br> Ит.ИспользоватьСубконто(ВСубконто.Вид(), ВСубконто, 2);<br> Ит.ВыполнитьЗапрос(НДата, КДата, ВСчет,,,, "Проводка");<br> Ит.ВыбратьПериоды();<br> Пока Ит.ПолучитьПериод() = 1 Цикл<br> ДДата=Ит.НачДата;<br> КонецЦикла;<br> Сообщить(ДДата);<br>КонецПроцедуры<br><br>Это пока просто набросок так, что прошу сильно не пинать :)"

сделай проще!<br><br>создай список СЗ с видами доков, которых есть реквизит Контрагент<br><br>далее<br>ОбратныйПорядок()<br>ПолучитьДокумент()

> создай список СЗ с видами доков, которых есть реквизит Контрагент<br>Дааа... тут придется по потеть... например Выписка не имеет реквизита Контрагент, а сам контрагент в табличной части как субконто...

> > создай список СЗ с видами доков, которых есть реквизит Контрагент<br>> Дааа... тут придется по потеть... например Выписка не имеет реквизита Контрагент, а сам контрагент в табличной части как субконто...<br><br>ну и какие проблемы?<br>в сз понятно, что ещё засовываются реквизиты/доки, у которых общий тип или вообще неопределённы

Можно сделать НайтиСсылки, но работать будет долго. Зато результат 100%

"Функция НайтиПоследнийДокументПоКонтрагенту(НужныйКонтрагент)<br> Доки=СоздатьОбъект("Документ");<br> Доки.ОбратныйПорядок(1);<br> Доки.ВыбратьПоЗначению(,,"Контрагент",НужныйКонтрагент);<br> Если Доки.ПолучитьДокумент()=1 Тогда<br>      Возврат(Доки.ТекущийДокумент());<br> Иначе<br>      Возврат("""");<br> КонецЕсли;<br>КонецФункции<br><br>P.S. Такое возможно потому что в конфигурации имеется графа отбора "Контрагент". Если список документов тоже нужен, надо дальше цикл перебирать"

Thorvardr, спасибо! Вот я втупил вчера... Куда мои глаза глядели про графы отбора...<br>Пошел в бухгалтерию пробовать.

Thorvardr, еще раз спасибо, все получилось, бухгалтерия тестирует.<br>//Реализовал еще проверку на проведенность документа.

"> Функция НайтиПоследнийДокументПоКонтрагенту(НужныйКонтрагент)<br>> Доки=СоздатьОбъект("Документ");<br>> Доки.ОбратныйПорядок(1);<br>> Доки.ВыбратьПоЗначению(,,"Контрагент",НужныйКонтрагент);<br>> Если Доки.ПолучитьДокумент()=1 Тогда<br>>       Возврат(Доки.ТекущийДокумент());<br>> Иначе<br>>       Возврат("""");<br>> КонецЕсли;<br>> КонецФункции<br>> <br>> P.S. Такое возможно потому что в конфигурации имеется графа отбора "Контрагент". Если список документов тоже нужен, надо дальше цикл перебирать<br><br>ха-ха...<br>про графу-то я и забыл ;-)"

Не проще ли в обработке документов создать реестр документов по выбранному контрагенту?