Имя: Пароль:
1C
1С v8
Загрузка в Штатное расписание
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,помниться их писали в свое время много