Док = СоздатьОбъект("Документ");
Док.УстановитьФильтр(1,0,0,2,1,1); // проведенные, оперативные
Док.ОбратныйПорядок(1);
Док.ВыбратьДокументы(ПозицияТА,);
Если Док.ПолучитьДокумент() = 1 Тогда
Если Док.ПолучитьПозицию() > ПозицияТА
Тогда // есть проведенные доки после ТА, остатки по базе не соответствуют реальным
УстановитьРезультат(0,"типяБяка");
Возврат;
КонецЕсли;
КонецЕсли;
//*****************************************************************************
Функция глЕстьПроведенныеДокПослеТА() Экспорт
докВсе = СоздатьОбъект("Документ");
докВсе.УстановитьФильтр(1, 0, 0, 2, 0); //только проведенные, только ОперУчет
докВсе.ВыбратьДокументы(ПолучитьПозициюТА(), );
Пока докВсе.ПолучитьДокумент() = 1 Цикл
Если докВсе.ТекущийДокумент() <> ПолучитьДокументТА() Тогда
Возврат 1;
КонецЕсли;
КонецЦикла;
Возврат 0;
КонецФункции //глЕстьПроведенныеДокПослеТА