В начало

Процедура ПолучитьПроведенные

 

Процедура ПолучитьПроведенные ()

   Док = СоздатьОбъект ("Документ");

   // Откроем выборку документов

   Док.ВыбратьДокументы (ДатаНачала, ДатаКонца);

   // Цикл выбора документов

   Пока Док.ПолучитьДокумент () > 0 Цикл

      Если Док.Проведен () > 0 Тогда

         // для проведенных документов выведем сообщение

         Сообщить (Строка (Док.Вид ()) + " № " + Док.НомерДок + " от " + Док.ДатаДок);

      КонецЕсли;

   КонецЦикла;

КонецПроцедуры