Или по рабоче-крестьянски:
Функция ПервыйДок(ДатаНачала)
Док=СоздатьОбъект("Документ");
Док.УстановитьФильтр(1,0);
Док.ВыбратьДокументы(ДатаНачала,ДатаНачала);
Если Док.ПолучитьДокумент() = 1 Тогда
Возврат Док.ТекущийДокумент();
КонецЕсли;
КонецПроцедуры
12 по времени - как то было все равно
главное - чтобы в опр день
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший