0
Ujcnm99
12.12.13
✎
15:18
|
Меня попросили сделать загрузку в ЗУП (Зарплата и Управление Персоналом, редакция 2.5 (2.5.71.1)) из базы Access документов по перемещению сотрудников, а так, как я не знаю ни ЗУП, ни вообще кадровый учет, то предполагаю, что могу в чем то сильно ошибиться. Бухгалтеры вряд ли смогут помочь, т.к. сами только начинают работать с ЗУПом. Просьба, подскажите, если увидите какие-то недочеты в нижеприведенной процедуре, и вообще как это сделать лучше.
Процедура Загрузить()
Док = Документы.КадровоеПеремещениеОрганизаций.СоздатьДокумент();
Док.Организация = Справочники.Организации.НайтиПоКоду("000000001");
Док.Дата = ВыбрДата;
Для к = 1 по ТЗ.Количество() Цикл
Стр = Док.РаботникиОрганизации.Добавить();
Стр.Сотрудник = Справочники.СотрудникиОрганизаций.НайтиПоКоду(ТЗ.ТабНом);
Стр.ДатаНачала = НачалоДня(Док.Дата);
Стр.ПодразделениеОрганизации = Справочники.ПодразделенияОрганизаций.НайтиПоКоду(ТЗ.Цех);
Стр.Должность = Справочники.ДолжностиОрганизаций.НайтиПоКоду(ТЗ.Должность);
Стр.ГрафикРаботы = Справочники.ГрафикиРаботы.НайтиПоНаименованию("11");
Стр.ЗанимаемыхСтавок = 1;
Стр = Док.ОсновныеНачисления.Добавить();
Стр.Сотрудник = Справочники.СотрудникиОрганизаций.НайтиПоКоду(ТЗ.ТабНом);
Стр.ВидРасчета = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоКоду("00002");
Стр.Действие = Перечисления.ВидыДействияСНачислением.Изменить;
Стр.Показатель1 = ТЗ.Ставка;
Стр.Валюта1 = Справочники.Валюты.НайтиПоКоду("643");
КонецЦикла;
Док.Записать();
КонецПроцедуры
Еще вопрос. Объясните, зачем нужен документ "КадровоеПеремещение", может мне надо использовать его, а не "КадровоеПеремещениеОрганизаций"?
|
|