0
Падаван
19.09.15
✎
13:40
|
Есть файл Excel. Нужно добавить все данные в штатное расписание.
1) Должности повторяются. Как сделать чтобы, если у меня 7 уборщиц чтобы и кол-во ставок было 7 (а не 7 разных позиций).
2) Не могу найти поле "Организация" и присвоить ему значение. А без него не происходит запись Штатного Расписания.
3) Соответствующие поле в Excel есть
Процедура КнопкаВыполнитьНажатие(Кнопка)
Если не ЗначениеЗаполнено(Загрузка) тогда
Предупреждение("Загрузите файл загрузки данных");
Возврат;
КонецЕсли;
ТаблицаФИО = Загрузка.Скопировать();
//Должности
Для Каждого стр Из ТаблицаФИО Цикл
если Справочники.ДолжностиОрганизаций.НайтиПоНаименованию(стр.Должность,ИСТИНА) = Справочники.ДолжностиОрганизаций.ПустаяСсылка() Тогда
НовыйЭлемент = Справочники.ДолжностиОрганизаций.СоздатьЭлемент();
НовыйЭлемент.Прочитать();
НовыйЭлемент.Наименование = стр.Должность;
НовыйЭлемент.Записать();
Конецесли;
КонецЦикла;
//Штатное расписание
Для каждого стр из ТаблицаФИО Цикл
НаборЗаписей = РегистрыСведений.ШтатноеРасписаниеОрганизаций.СоздатьНаборЗаписей();
НаборЗаписей.Прочитать();
Запись = НаборЗаписей.Добавить();
Организация = Справочники.Организации.НайтиПоНаименованию("Гиссар");
Запись.ПодразделениеОрганизации = Справочники.ПодразделенияОрганизаций.НайтиПоНаименованию(Стр.Подразделение);
Запись.Должность = Справочники.ДолжностиОрганизаций.НайтиПоНаименованию(Стр.Должность);
Запись.ВалютаТарифнойСтавки = Справочники.Валюты.НайтиПоНаименованию("TJS");
Запись.МаксимальнаяТарифнаяСтавка = Стр.Оклад;
Запись.Период = ТекущаяДата();
Запись.ВидТарифнойСтавки = Перечисления.ВидыТарифныхСтавок.Месячная;
Запись.КоличествоСтавок = "1";
Запись.ВидОперации = Перечисления.ВидыДействий.Добавить;
//Создание документа
НаборЗаписей.Записать();
КонецЦикла;
КонецПроцедуры
|
|
3
piter3
19.09.15
✎
14:13
|
Организация = Справочники.Организации.НайтиПоНаименованию("Гиссар");
вынести вне цикла,зачем 100500 раз повторять.
может лучше возьмете загрузку из ecxel,помниться их писали в свое время много
|
|