Имя: Пароль:
1C
1C 7.7
v7: Необходимо подсчитать количество сотрудников, которые учатся в выбранном унив
0 ЮлияКорж
 
31.08.11
09:49
Мне необходимо подсчитать количество сотрудников, которые учатся в выбранном универчситете как правильно организовать
1 ДенисЧ
 
31.08.11
09:50
Кастую телепатов 80го левела в тему...
2 Ненавижу 1С
 
гуру
31.08.11
09:50
взять ручку и листик, отмечать палочкой, кто учится в выбранном ВУЗе
3 ЮлияКорж
 
31.08.11
09:50
Перем К;
   ФизЛицо=СоздатьОбъект("Справочник.ФизическиеЛица");
ВидОбр=СоздатьОбъект("Справочник.ВидыОбразования");
УчебЗаВ=СоздатьОбъект("Справочник.УчебныеЗаведения");
ФизЛицо.ВыбратьЭлементы();
Пока ФизЛицо.ПолучитьЭлемент()>0 Цикл
ВидОбр.ИспользоватьВладельца(ФизЛицо);
ВидОбр.ВыбратьЭлементы();
Пока ВидОбр.ПолучитьЭлемент()>0 Цикл
   УчебЗаВ.ИспользоватьВладельца(ВидОбр);
   УчебЗаВ.ВыбратьЭлементы();
   К=0;
   Пока  УчебЗаВ.ПолучитьЭлемент()>0 Цикл
       //    Если у.Наименование=Ви
   //Пока ВидОбр.ПолучитьЭлемент()>0 Цикл
       //ОбрСотр.ИспользоватьВладельца(ВидОбр);
       //ОбрСотр.ВыбратьЭлементы();
       //Пока  ОбрСотр.ПолучитьЭлемент()>0 Цикл
           //УчебЗав.ИспользоватьВладельца(ОбрСотр);
       //УчебЗав.ВыбратьЭлементы();
       //Пока  УчебЗаВ.ПолучитьЭлемент()>0 Цикл
       Если УчебЗаВ.ТекущийЭлемент()=УчебЗавед Тогда
       //    ФизЛицо.Наименование;
           //ФизЛицо.Наименование
           //УчебЗаВ.НайтиЭлемент(УчебЗавед);    
           Сообщить(ФизЛицо.Наименование);
       КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
Вот что я наваяла,а дальше как
4 dedmoroz777
 
31.08.11
09:50
Встать на входе и считать
5 zak555
 
31.08.11
09:50
написать запрос к справочнику с типом студент
или эе это отдельный справочник

он то ли подчинён, толи имеет реквизит на справочник балансосодержатель
6 ДенисЧ
 
31.08.11
09:50
учу пользоваться оператором сч = сч +1;
7 ЮлияКорж
 
31.08.11
09:51
Та я знаю куда его сдесь определить
8 Sedoy
 
31.08.11
09:51
(0) Взять побольше денег и сходить в отдел кадров выбранного университета...
9 Ненавижу 1С
 
гуру
31.08.11
09:52
(7) знаешь - молодец
10 Фрид
 
31.08.11
09:59
Казалось бы, зачем убийце убивать убийцу убийцы, но Донцову уже было не остановить... )))


УчебЗаВ.ВыбратьЭлементы(0);
Пока УчебЗаВ.ПолучитьЭлемент(1) > 0 Цикл
   Сообщить(""+ФизЛицо.Владелец.Владелец.Наименование);
КонецЦикла;
11 ЮлияКорж
 
31.08.11
10:34
Ничего не получается
12 KRV
 
31.08.11
10:36
Жаль..
13 Mikeware
 
31.08.11
10:38
(10) Запись учителя в школьном дневнике Дарьи Донцовой: "По биологии подготовила доклад. Читаю уже третью неделю. Надеюсь,что убийца - не зебра..."
14 KRV
 
31.08.11
10:39
15 ЮлияКорж
 
31.08.11
15:20
ФизЛицо=СоздатьОбъект("Справочник.ФизическиеЛица");
ОбразСотр=СоздатьОбъект("Справочник.ОбразованиеСотрудника");
ВидОбр=СоздатьОбъект("Справочник.ВидыОбразования");
Учеб=СоздатьОбъект("Справочник.УчебныеЗаведения");
таб=СоздатьОбъект("Таблица");
таб.ИсходнаяТаблица("Реестр");
//Сотр=СоздатьОбъект("Справочник.Сотрудники");
ФизЛицо.ВыбратьЭлементы();
Пока ФизЛицо.ПолучитьЭлемент()>0 Цикл
   ОбразСотр.ИспользоватьВладельца(ФизЛицо);
   ОбразСотр.ВыбратьЭлементы();
   Пока ОбразСотр.ПолучитьЭлемент()>0 Цикл
        ВидОбр.ВыбратьЭлементы();
       Пока ВидОбр.ПолучитьЭлемент()>0 Цикл
           Учеб.ИспользоватьВладельца(ВидОбр);
       Учеб.ВыбратьЭлементы();
           К=0;
       Пока  Учеб.ПолучитьЭлемент()>0 Цикл
                   Если (Учеб.Наименование="Приазов. держ. технiчний унiверситет") Тогда
                   //    Если (Учеб.Наименование="Карачаево-черкесский гос.университет")Тогда
                       Сообщить(ОбразСотр.Владелец);
               //таб.ВывестиСекцию("Сект");
                   //Сообщить(К);
               КонецЕсли;
           КонецЦикла;
   КонецЦикла;
КонецЦикла;
   КонецЦикла;
//Таб.Показать("Реестр");
//Таб.ТолькоПросмотр(1);
16 ЮлияКорж
 
31.08.11
15:20
Что может быть неверно
17 Сияющий Асинхраль
 
31.08.11
15:26
(7) помнится нас в школе учили: Здесь, Здание, Здоровье - пишутся через "З"
18 AquaMan
 
31.08.11
15:29
(17) Автор с Украины.
19 Ёпрст
 
31.08.11
15:39
(15) ТекущийЭлемент()
20 AquaMan
 
31.08.11
15:39
Что-то не верится, что может быть такая извращенная иерархия справочников. Что это за конфигурация?
21 Mnemonic1C
 
31.08.11
17:34
(18) Поосторожней там
22 lals
 
31.08.11
20:45
Юля напиши мне. данные в личке.
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший