Имя: Пароль:
1C
1C 7.7
v7: Вычислить мин зарплату сотрудника
0 8troyan8
 
14.12.12
18:17
Есть справочник сотрудники
Реквизиты Должность, Оклад.

Нужно вычислить сотрудника с минимальным окладом.
Помогите решить плиз.
1 KRV
 
14.12.12
18:24
Гы?..... пятница?
2 DirecTwiX
 
14.12.12
18:28
внутреннее соединение с минимальными итогами
3 DirecTwiX
 
14.12.12
18:39
Или Выбрать Первые 1 из отсортированного списка.

П.с. v7 не знаю) Не видел)
4 8troyan8
 
14.12.12
19:04
Вот так заработало

Процедура СотрудникСМинимальнойЗарплатой()

   СпрСотр=СоздатьОбъект("Справочник.Сотрудники");
   ТабЗнач=СоздатьОбъект("ТаблицаЗначений");
   
   ТабЗнач.НоваяКолонка("Сотрудник");
   ТабЗнач.НоваяКолонка("Должность");
   ТабЗнач.НоваяКолонка("Оклад");
   
   СпрСотр.ВыбратьЭлементы();
   
   Пока СпрСотр.ПолучитьЭлемент()=1 Цикл  
       СпрСотр.ТекущийЭлемент();
       ТабЗнач.НоваяСтрока();
       ТабЗнач.Сотрудник=СпрСотр.Наименование;
       ТабЗнач.Должность=СпрСотр.Должность;
       ТабЗнач.Оклад=СпрСотр.Оклад;
   КонецЦикла;  
   
   ТабЗнач.Сортировать("Оклад");
   ТабЗнач.ПолучитьСтрокуПоНомеру(1);
   
Предупреждение("Работник с минимальной зарплатой" ""+ТабЗнач.Сотрудник+"" ""+ТабЗнач.Должность+"" +ТабЗнач.Оклад)
   

КонецПроцедуры
5 MaxxiMiliSanM
 
14.12.12
19:12
(4) надо было через запрос делать...
6 DrunkAnimal
 
14.12.12
19:24
(5) gjxtve&
7 DrunkAnimal
 
14.12.12
19:24
почему?
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший