Всем здравствуйте! Мне нужно по сотрудника в должности отобрать вредные условия.
Написал код:
   Сотрудник = СоздатьОбъект("Справочник.Сотрудники");
   Сотрудник.ВыбратьЭлементы();
   ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.зимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;

Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ПодземныеИВредныеРаботы Тогда

Пишет ошибку:Поле агрегатного объекта не обнаружено (ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией)
Где Ошибка?

У тебя один сотрудник?

ПолучитьЭлемент забыл

".зимаются" не?

Нет ПолучиьЭлемент()

и (2) конечно

Сотрудник не один

(6) Какой сотрудник тебе нужен?

Мне нужно чтоб он переберал сотров с вредными и с тяжеломи условиями

(8) Значит, должен быть цикл. Не так ли?

Ну выборку ты открыл.
А где Цикл по справочнику?

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

Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ПодземныеИВредныеРаботы Тогда
КонецЦикла;
ТАК?

ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.зимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;

+(12) ошибка же тут "зимаются"

(11) нет

(11) КонецЕсли не забудь.

Это я уже сам увидел

(16) это вместо "спасибо ребята" ?

+(15) И зачем тебе промежуточная переменная?

Спасибо! Извините если обидел!

Мне нужно выгрузить в DBF, базу для начисления ПФР доп.тарифы
чтоб делил вредные и тяжелое

Все равно ошибку выдает Поле агрегатного объекта не обнаружено (ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией)

А у тебя в справочнике такой реквизит то хоть есть?

структуру справочника озвучь.

А сейчас выяснить что просто на группу наткнулись..

Сделал так:
   Должность = СоздатьОбъект("Справочник.Должности");
   Должность.ИспользоватьВладельца(Сотрудник);
   Должность.ВыбратьЭлементы();
   Пока Должность.ПолучитьЭлемент() = 1 Цикл
   ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;
         
           
Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ПодземныеИВредныеРаботы Тогда
           
           Z.VSUMMA1 = НачПФР1;
           Z.VSUMMA2 = НачПФР2;
           Z.VSUMMA3 = НачПФР3;
       иначе
           Z.VSUMMA1 = 0;
           Z.VSUMMA2 = 0;
           Z.VSUMMA3 = 0;
       КонецЕсли;    
Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ТяжелыеИПрочиеРаботы Тогда        
           Z.TSUMMA1 = НачПФР1;
           Z.TSUMMA2 = НачПФР2;
           Z.TSUMMA3 = НачПФР3;
       иначе
           Z.TSUMMA1 = 0;
           Z.TSUMMA2 = 0;
           Z.TSUMMA3 = 0;
       КонецЕсли;
КонецЦикла;        
Выдает Ошибку:ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;
{Отчет.КарточкаУчетаПоСтраховымВзносам.Форма.Модуль(413)}: Значение не представляет агрегатный объект (Должность)

(23) дадада, я все время про это забываю.

аутор. обрати внимание на (23)

Как можно по справочнику сотрудники проверить должность? :(

(26) проверяй ЭтоГруппа()=0

Я только начинаю программировать в 1с, как проверить ЭтоГруппа()=0?

если сотрудник.этогруппа()=0 тогда

аще исчо может быть должность периодической тогде ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией будет тольке тогда кагда должность будет получена явно на момент времени, имхается мне

(30) В таком случае сообщение будет другое...

Может так попробывать
ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.Получить(ДатаМесяца)(ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;

(31) с чего бы?

(31) +(33) как раз такое и будет, т.к. тип значения Периодический и у него нет такой каки....

(32) Невверно, ИМХО.

(24) И что вы делаете ?
Перебираем должности, а пытаемся найти Сотрудник.Должность
У справочника Сотрудники есть поле Должность и в нём справочник Должности - или как ?

написал код:
Сотрудник = СоздатьОбъект("Справочник.Сотрудники");
Сотрудник.ВыбратьЭлементы();
ДатаМесяца=КонМесяца(Дата(Год));
Пока Сотрудник.ПолучитьЭлемент()=1 Цикл
ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.Получить(ДатаМесяца).ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;
           
Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ПодземныеИВредныеРаботы Тогда
Получаю одни нули в DBF
           
           Z.VSUMMA1 = НачПФР1;
           Z.VSUMMA2 = НачПФР2;
           Z.VSUMMA3 = НачПФР3;
       иначе
           Z.VSUMMA1 = 0;
           Z.VSUMMA2 = 0;
           Z.VSUMMA3 = 0;
       КонецЕсли;    
Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ТяжелыеИПрочиеРаботы Тогда        
           Z.TSUMMA1 = НачПФР1;
           Z.TSUMMA2 = НачПФР2;
           Z.TSUMMA3 = НачПФР3;
       иначе
           Z.TSUMMA1 = 0;
           Z.TSUMMA2 = 0;
           Z.TSUMMA3 = 0;
       КонецЕсли;
КонецЦикла;

не видит ВидыРаботСДосрочнойПенсией:(

ДатаМесяца=КонМесяца(Дата(Год));
Сотрудники = СоздатьОбъект("Справочник.Сотрудники");
Сотрудник.ИспользоватьДату(ДатаМесяца,1);
Сотрудник.ВыбратьЭлементы();
Пока Сотрудник.ПолучитьЭлемент()=1 Цикл
ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;
           
Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ПодземныеИВредныеРаботы Тогда
//Получаю одни нули в DBF
           
           Z.VSUMMA1 = НачПФР1;
           Z.VSUMMA2 = НачПФР2;
           Z.VSUMMA3 = НачПФР3;
       иначе
           Z.VSUMMA1 = 0;
           Z.VSUMMA2 = 0;
           Z.VSUMMA3 = 0;
       КонецЕсли;    
Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ТяжелыеИПрочиеРаботы Тогда        
           Z.TSUMMA1 = НачПФР1;
           Z.TSUMMA2 = НачПФР2;
           Z.TSUMMA3 = НачПФР3;
       иначе
           Z.TSUMMA1 = 0;
           Z.TSUMMA2 = 0;
           Z.TSUMMA3 = 0;
       КонецЕсли;
КонецЦикла;

А вообще-то что за херь:
Z.TSUMMA1 = НачПФР1;
           Z.TSUMMA2 = НачПФР2;
           Z.TSUMMA3 = НачПФР3;

Откеда берутся все енти НачПФР{1,2,3};????

Сотрудники = СоздатьОбъект("Справочник.Сотрудники");
: Попытка присвоить значение недоступной для записи переменной (Сотрудники)

глЗаполнитьКарточкаУчетаПоСтраховымВзносам

(41) Ты очепятку исправить сам уже не в состоянии? :)

И зачем бегать по всему справочнику, наверное, там надо кому-то конкретно что-то считать али присвоить, не?

Z.Добавить();      
           Фамилия = ""; Имя = ""; Отчество = "";
           глФамилияИмяОтчество(ФизЛицо,Фамилия,Имя,Отчество);    
           Z.KOD = ФизЛицо.Код;

           глЗаполнитьКарточкаУчетаПоСтраховымВзносам(ФизЛицо,Год,1,ДоходыВычетыНалогиСотрудников,СтрокаИтоговойТаблицы,Буфер,ПоследнийМесяц);  
           
ФизЛицо.СтраховойНомерПФР;
                       
           Z.NOMPFR = ФизЛицо.СтраховойНомерПФР;

           Z.SUMMA1 = НачВсего1;
           Z.SUMMA2 = НачВсего2;
           Z.SUMMA3 = НачВсего3;
           Z.SUMMAPFR1 = НачПФР1;
           Z.SUMMAPFR2 = НачПФР2;
           Z.SUMMAPFR3 = НачПФР3;
           
ДатаМесяца=КонМесяца(Дата(Год));
Сотрудники = СоздатьОбъект("Справочник.Сотрудники");
Сотрудник.ИспользоватьДату(ДатаМесяца,1);
Сотрудник.ВыбратьЭлементы();
Пока Сотрудник.ПолучитьЭлемент()=1 Цикл
ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;
           
Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ПодземныеИВредныеРаботы Тогда
       
           Z.VSUMMA1 = НачПФР1;
           Z.VSUMMA2 = НачПФР2;
           Z.VSUMMA3 = НачПФР3;
       иначе
           Z.VSUMMA1 = 0;
           Z.VSUMMA2 = 0;
           Z.VSUMMA3 = 0;
       КонецЕсли;    
Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ТяжелыеИПрочиеРаботы Тогда        
           Z.TSUMMA1 = НачПФР1;
           Z.TSUMMA2 = НачПФР2;
           Z.TSUMMA3 = НачПФР3;
       иначе
           Z.TSUMMA1 = 0;
           Z.TSUMMA2 = 0;
           Z.TSUMMA3 = 0;
       КонецЕсли;
КонецЦикла;


      вот эти в dbf выводятся правильно :                      Z.SUMMA1
           Z.SUMMA2
           Z.SUMMA3
           Z.SUMMAPFR1
           Z.SUMMAPFR2 =
           Z.SUMMAPFR3 =

(45) Долбобей № 2?

В смысли

?

(47) В том, что ты сам-то понял что ты делаешь?
У тебя же передано ФизЛицо, а ты перебираешь весь справочник "Сотрудники" даже не проверяя, группа там или нет :(

попробовать так :

 Сотрудник = СоздатьОбъект("Справочник.Сотрудники");
  Сотрудник.ВыбратьЭлементы();
  Пока Сотрудник.ПолучитьЭлемент()=1 Цикл
     Если Сотрудник.ЭтоГруппа()=1 Тогда
        Продолжить;
     КонецЕсли;

ДатаМесяца=КонМесяца(Дата(Год));
Сотрудники = СоздатьОбъект("Справочник.Сотрудники");
Сотрудник.ИспользоватьДату(ДатаМесяца,1);

Если ФизЛицо.Вид()="Сотрудники" Тогда
     Сотрудник.НайтиЭлемент(ФизЛицо);
Иначе
     Сотрудник.НайтиПоРеквизиту("ФизЛицо",ФизЛицо);
КонецЕсли;
ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;

(50) А если подумать? :(

(50) Ну с заглушкой против групп ты сообразил, поздравляю.

Поправил выводит нули

(54) Что ты поправил?

ДатаМесяца=КонМесяца(Дата(Год));
Сотрудник = СоздатьОбъект("Справочник.Сотрудники");
Сотрудник.ИспользоватьДату(ДатаМесяца,1);

Если ФизЛицо.Вид()="Сотрудники" Тогда
     Сотрудник.НайтиЭлемент(ФизЛицо);
Иначе
     Сотрудник.НайтиПоРеквизиту("ФизЛицо",ФизЛицо);
КонецЕсли;

     Если Сотрудник.ЭтоГруппа()=1 Тогда
        Продолжить;
     КонецЕсли;


ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;

  Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ПодземныеИВредныеРаботы Тогда

(56)
ДатаМесяца=КонМесяца(Дата(Год));
Сотрудник = СоздатьОбъект("Справочник.Сотрудники");
Сотрудник.ИспользоватьДату(ДатаМесяца,1);

Если ФизЛицо.Вид()="Сотрудники" Тогда
     Сотрудник.НайтиЭлемент(ФизЛицо);
Иначе
     Сотрудник.НайтиПоРеквизиту("ФизЛицо",ФизЛицо);
КонецЕсли;

     Если Сотрудник.ЭтоГруппа()=1 Тогда
        Продолжить;
     КонецЕсли;


ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;

Сообщить("ф/л:"+ФизЛицо+"; Сотрудник:"+Сотрудник+";ВидыРаботСДосрочнойПенсией:"+ВидыРаботСДосрочнойПенсией);

+(57) Смотри что выводит.
Я бы еще добавил

Сообщить("ф/л:"+ФизЛицо+"; Сотрудник:"+Сотрудник+";ВидыРаботСДосрочнойПенсией:"+ВидыРаботСДосрочнойПенсией+" ; НачПФР1="+НачПФР1+";НачПФР2="+НачПФР2+";НачПФР3="+НачПФР3);

ф/л:Сальников Александр Николаевич; Сотрудник:Сальников Александр Николаевич;ВидыРаботСДосрочнойПенсией:
ф/л:Калачик Галина Юрьевна; Сотрудник:Калачик Галина Юрьевна;ВидыРаботСДосрочнойПенсией:

ф/л:Калачик Галина Юрьевна; Сотрудник:Калачик Галина Юрьевна;ВидыРаботСДосрочнойПенсией:
ф/л:Калачик Галина Юрьевна; Сотрудник:Калачик Галина Юрьевна;ВидыРаботСДосрочнойПенсией: ; НачПФР1=10909.23;НачПФР2=8524.39;НачПФР3=9141.76
ф/л:Сальников Александр Николаевич; Сотрудник:Сальников Александр Николаевич;ВидыРаботСДосрочнойПенсией:
ф/л:Сальников Александр Николаевич; Сотрудник:Сальников Александр Николаевич;ВидыРаботСДосрочнойПенсией: ; НачПФР1=11466.07;НачПФР2=16693.05;НачПФР3=16349.48

(60) Значит нет там досрочной пенсии, что не так?
Заполни справочник сотрудников, и тогда все появится :)

(60) Посмотри в конфигураторе у справочника "Должности" часом
ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией не периодический ли?

(61) Да он тупо копипастит не думая.

(60) Текущий фрагмент кода выложи

В Справочнике сотрудник Должность вредные условия

ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией не периодический!

Код:
             Z.Добавить();      
           Фамилия = ""; Имя = ""; Отчество = "";
           глФамилияИмяОтчество(ФизЛицо,Фамилия,Имя,Отчество);    
           Z.KOD = ФизЛицо.Код;

           глЗаполнитьКарточкаУчетаПоСтраховымВзносам(ФизЛицо,Год,1,ДоходыВычетыНалогиСотрудников,СтрокаИтоговойТаблицы,Буфер,ПоследнийМесяц);  
           
           Z.NOMPFR = ФизЛицо.СтраховойНомерПФР;

           Z.SUMMA1 = НачВсего1;
           Z.SUMMA2 = НачВсего2;
           Z.SUMMA3 = НачВсего3;
           Z.SUMMAPFR1 = НачПФР1;
           Z.SUMMAPFR2 = НачПФР2;
           Z.SUMMAPFR3 = НачПФР3;
           
ДатаМесяца=КонМесяца(Дата(Год));
Сотрудник = СоздатьОбъект("Справочник.Сотрудники");
Сотрудник.ИспользоватьДату(ДатаМесяца,1);

Если ФизЛицо.Вид()="Сотрудники" Тогда
     Сотрудник.НайтиЭлемент(ФизЛицо);
Иначе
     Сотрудник.НайтиПоРеквизиту("ФизЛицо",ФизЛицо);
КонецЕсли;

     Если Сотрудник.ЭтоГруппа()=1 Тогда
        Продолжить;
     КонецЕсли;


ВидыРаботСДосрочнойПенсией = Сотрудник.Должность.ВзимаютсяВзносыЗаЗанятыхНаРаботахСДосрочнойПенсией;

Сообщить("ф/л:"+ФизЛицо+"; Сотрудник:"+Сотрудник+";ВидыРаботСДосрочнойПенсией:"+ВидыРаботСДосрочнойПенсией+" ; НачПФР1="+НачПФР1+";НачПФР2="+НачПФР2+";НачПФР3="+НачПФР3);
  Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ПодземныеИВредныеРаботы Тогда  
     
           Z.VSUMMA1 = НачПФР1;
           Z.VSUMMA2 = НачПФР2;
           Z.VSUMMA3 = НачПФР3;
       иначе
           Z.VSUMMA1 = 0;
           Z.VSUMMA2 = 0;
           Z.VSUMMA3 = 0;
       КонецЕсли;    
Если ВидыРаботСДосрочнойПенсией=Перечисление.ВидыРаботСДосрочнойПенсией.ТяжелыеИПрочиеРаботы Тогда        
           Z.TSUMMA1 = НачПФР1;
           Z.TSUMMA2 = НачПФР2;
           Z.TSUMMA3 = НачПФР3;
       иначе
           Z.TSUMMA1 = 0;
           Z.TSUMMA2 = 0;
           Z.TSUMMA3 = 0;
       КонецЕсли;
           НачВсего1=0;
           НачВсего2=0;
           НачВсего3=0;

           НачПФР1=0;
           НачПФР2=0;
           НачПФР3=0;
       
           
           Z.Записать();

(63) Типо Банан v2 ? :)

Сообщить("ф/л:"+ФизЛицо+"; Сотрудник:"+Сотрудник+";Должность:"+Сотрудник.Должность+";ВидыРаботСДосрочнойПенсией:"+ВидыРаботСДосрочнойПенсией+" ; НачПФР1="+НачПФР1+";НачПФР2="+НачПФР2+";НачПФР3="+НачПФР3);

(65) Нам побоку! :)

(67) Странно Ник Влад, в нутри Артем. Кто он?

(66) Поглядим-увидим :)
(68) Ну не совсем. Таки желаю дабы ТС понел, что Сообщить позволяет как бе выводить сообщения и как бе могно поглядеть в чем глюкъ

(69) шизофреник :)

+(67) Вроде он уже привел в (60)

(72) А.. глянь внимательней - там должность влепил что б показывала

(73) Ага.. увидел :)

ф/л:Сальников Александр Николаевич; Сотрудник:Сальников Александр Николаевич;Должность:;ВидыРаботСДосрочнойПенсией: ; НачПФР1=11466.07;НачПФР2=16693.05;НачПФР3=16349.48
ф/л:Калачик Галина Юрьевна; Сотрудник:Калачик Галина Юрьевна;Должность:;ВидыРаботСДосрочнойПенсией: ; НачПФР1=10909.23;НачПФР2=8524.39;НачПФР3=9141.7

(69)
фамилия like '[VL]%'
a - left('artem',1)
отчестьво like '[D]%'

(71)Спасибо за лесную оченку моих умственных способностей

(75) Вот. Теперь понятно.
Нет должности, что, в принципе, ожидаемо.
Вызывает сомнение вот что:
ДатаМесяца=КонМесяца(Дата(Год));
есть еще ПоследнийМесяц
и не уверен, но дату приема тоже надо смотреть (по идее, если нет фильтра выше)


(77) шутка:) см (76)

(77) Посмотри, что с должностью у Сальников Александр Николаевич

(79) Скорей всего нет её, либо она на другую дату :)
(77) Ты на какую дату строишь свой отчет?

+(77) И самое главное, что за Конфигурация?
ЗиК, Бух учет, ТиС или еще чего?

(81) судя по всему, ЗиК

(82) Тогда договор там периодический и при этом точно указан :)

Да ЗиК, отчет за 3 месяца, мжет проверить условием если у него доп.взносы?

Сальников Александр Николаевич Должность 1.01 начальник участка с 1.03 начальник участка вредные условия

Всем спасибо проблема решена