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