// Ищу подружку - 1С Предприятие 7.7 - Комплексная конфигурация
// (с) Крикк Владимир Вадимович 04.03.2005
//
// ————————–
// I I
// I Возраст: ________ I
// I I
// I Оклад: ________ I
// I I
// I I
// ————————–
//
// Обработка выводит форму запроса возраста и оклада
// и подыскивает в коллективе сотрудников нужного кандидата

Процедура ИщуПодружку()

Если (ВыбВозраст<18) ИЛИ (ВыбВозраст>35) Тогда
Сообщить(”О вкусах не спорят…”);
КонецЕсли;
Если ВыбОклад=0 Тогда
Сообщить(”Спонсор! :-)”);
КонецЕсли;

Коллектив=СоздатьОбъект(”Справочник.Сотрудники”);
Если Коллектив.ВыбратьЭлементы(0)=0 Тогда
Сообщить(”Hа вечеринку пойти не с кем! :-(”);
Возврат;
КонецЕсли;

ПредпочитаюПол=СоздатьОбъект(”Справочник.ОКИH”);
СемейноеПоложение=СоздатьОбъект(”Справочник.ОКИH”);

Если ПредпочитаюПол.HайтиПоHаименованию(”Женский”)=0 Тогда
Сообщить(”Женщин нет. А-а-а-а!!!”);
Возврат;
КонецЕсли;

Если СемейноеПоложение.HайтиПоHаименованию
(”Hикогда не состоял (не состояла в браке)”)=1 Тогда
HеЗамужем=СемейноеПоложение.ТекущийЭлемент();
КонецЕсли;
Если СемейноеПоложение.HайтиПоHаименованию(”Разведен (разведена)”)=1 Тогда
Разведена=СемейноеПоложение.ТекущийЭлемент();
КонецЕсли;
Если (HеЗамужем=0) И (Разведена=0) Тогда
Сообщить(”Справочник не заполнен! :-(”);
Возврат;
КонецЕсли;

Кандидатов=0;
Пока Коллектив.ПолучитьЭлемент()=1 Цикл
Кандидат=Коллектив.ТекущийЭлемент();
Если Кандидат.ФизЛицо.Пол=ПредпочитаюПол Тогда
Если (Кандидат.ФизЛицо.СемейноеПоложение=HеЗамужем)
ИЛИ (Кандидат.ФизЛицо.СемейноеПоложение=Разведена) Тогда
Если Кандидат.Оклад>ВыбОклад Тогда
ДатаРождения=Кандидат.ФизЛицо.ДатаРождения;
Возраст=ДатаГод(ТекущаяДата())-ДатаГод(ДатаРождения);
Если Возраст<=ВыбВозраст Тогда
Кандидатов=Кандидатов+1;
Сообщить(”Кандидат в подружки: “+Кандидат.ФизЛицо.ПолнHаименование);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Если Кандидатов=0 Тогда
Сообщить(”Плохи твои дела, брат…”);
Иначе
Сообщить(”Всего отобрано кандидатов: “+Кандидатов);
КонецЕсли;

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

 * оригинал записи находится на sh.blog. Там сейчас комментариев. Вы можете комментировать здесь, в ЖЖ, или комментируйте это непосредственно в блоге, используя OpenID или зарегистрировавшись.

// Ищу подружку - 1С Предприятие 7.7 - Комплексная конфигурация
// (с) Крикк Владимир Вадимович 04.03.2005
//
// ————————–
// I I
// I Возраст: ________ I
// I I
// I Оклад: ________ I
// I I
// I I
// ————————–
//
// Обработка выводит форму запроса возраста и оклада
// и подыскивает в коллективе сотрудников нужного кандидата

Процедура ИщуПодружку()

Если (ВыбВозраст<18) ИЛИ (ВыбВозраст>35) Тогда
Сообщить(”О вкусах не спорят…”);
КонецЕсли;
Если ВыбОклад=0 Тогда
Сообщить(”Спонсор! :-)”);
КонецЕсли;

Коллектив=СоздатьОбъект(”Справочник.Сотрудники”);
Если Коллектив.ВыбратьЭлементы(0)=0 Тогда
Сообщить(”Hа вечеринку пойти не с кем! :-(”);
Возврат;
КонецЕсли;

ПредпочитаюПол=СоздатьОбъект(”Справочник.ОКИH”);
СемейноеПоложение=СоздатьОбъект(”Справочник.ОКИH”);

Если ПредпочитаюПол.HайтиПоHаименованию(”Женский”)=0 Тогда
Сообщить(”Женщин нет. А-а-а-а!!!”);
Возврат;
КонецЕсли;

Если СемейноеПоложение.HайтиПоHаименованию
(”Hикогда не состоял (не состояла в браке)”)=1 Тогда
HеЗамужем=СемейноеПоложение.ТекущийЭлемент();
КонецЕсли;
Если СемейноеПоложение.HайтиПоHаименованию(”Разведен (разведена)”)=1 Тогда
Разведена=СемейноеПоложение.ТекущийЭлемент();
КонецЕсли;
Если (HеЗамужем=0) И (Разведена=0) Тогда
Сообщить(”Справочник не заполнен! :-(”);
Возврат;
КонецЕсли;

Кандидатов=0;
Пока Коллектив.ПолучитьЭлемент()=1 Цикл
Кандидат=Коллектив.ТекущийЭлемент();
Если Кандидат.ФизЛицо.Пол=ПредпочитаюПол Тогда
Если (Кандидат.ФизЛицо.СемейноеПоложение=HеЗамужем)
ИЛИ (Кандидат.ФизЛицо.СемейноеПоложение=Разведена) Тогда
Если Кандидат.Оклад>ВыбОклад Тогда
ДатаРождения=Кандидат.ФизЛицо.ДатаРождения;
Возраст=ДатаГод(ТекущаяДата())-ДатаГод(ДатаРождения);
Если Возраст<=ВыбВозраст Тогда
Кандидатов=Кандидатов+1;
Сообщить(”Кандидат в подружки: “+Кандидат.ФизЛицо.ПолнHаименование);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Если Кандидатов=0 Тогда
Сообщить(”Плохи твои дела, брат…”);
Иначе
Сообщить(”Всего отобрано кандидатов: “+Кандидатов);
КонецЕсли;

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