Процедура Сформировать()
Док=СоздатьОбъект("Документ.ПриказОбУвольнении");
Док.ВыбратьДокументы();
Пока Док.ПолучитьДокумент()=1 Цикл
Сообщить(""+Док.Сотрудник.Пол);
Сообщить(""+Док.Сотрудник);
Сообщить(""+Док.Сотрудник.ДатаРождения);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший