Имя: Пароль:
1C
1С v8
Перенос данных
0 Саша80
 
31.10.12
12:07
В УПП 8.2 есть документ Переос данных. Гружу в ТЧ документа данные. Спотыкается на строчках, которые закомментированные и не записывает. В чем может быть дело? Проблема в том, что раньше с регистрами не работал

   ОбъектДок = Документ.ПолучитьОбъект();

   Ексель     = Новый  COMОбъект("Excel.Application") ;
   ФайлЕксель = Ексель.Workbooks.Open(ПутьКФайлу);
   
   Для н = НомерСтрокиНачало По НомерСтрокиКонец Цикл
       
       ФИО = Ексель.Sheets(1).Cells(н,7).Value;
       ВИдРасчета=Ексель.Sheets(1).Cells(н,3).Value;
       Результат=Ексель.Sheets(1).Cells(н,8).Value;
       ОтработаноДней=Ексель.Sheets(1).Cells(н,9).Value;
       ОтработаноЧасов=Ексель.Sheets(1).Cells(н,10).Value;
       НормаДней=Ексель.Sheets(1).Cells(н,12).Value;
       НормаЧасов=Ексель.Sheets(1).Cells(н,13).Value;
       Подразделение=Ексель.Sheets(1).Cells(н,21).Value;
       Размер=Ексель.Sheets(1).Cells(н,22).Value;;
       
       
       
       
       ОбработкаПрерыванияПользователя();
       Движение = ОбъектДок.Движения.ОсновныеНачисленияРаботниковОрганизаций.Добавить();
       Движение.ПериодРегистрации = КонецДня(Документ.Дата);
       //Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
       Движение.Регистратор = Документ;
       Движение.Активность=Истина;
       Движение.Организация = Организация;
       Движение.Сотрудник = Справочники.СотрудникиОрганизаций.НайтиПоНаименованию(СокрЛП(ФИО),Истина);
       //Движения.ВидРасчета=ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоНаименованию(ВидРасчета);
       //Движение.Результат=Результат;
       Движение.ОтработаноДней=ОтработаноДней;
       Движение.ОтработаноЧасов=ОтработаноЧасов;
       Движение.НормаДней=НормаДней;
       Движение.НормаЧасов=НормаЧасов;        
       //Движение.ВИдУчетаВремени=ВИдУчетаВРемени;
       //Движение.Размер=РАзмер;
       Движение.ПодразделениеОрганизации=Справочники.ПодразделенияОрганизаций.НайтиПоНаименованию(СокрЛП(Подразделение),Истина);
       Движение.ГрафикРаботы=Справочники.ГрафикиРаботы.НайтиПоНаименованию("Основной график");

       
                       
   КонецЦикла;
   Ексель.Application.Quit();
   ОбъектДок.Движения.ОсновныеНачисленияРаботниковОрганизаций.Записать();
   ОбъектДок.Записать();
1 shuhard
 
31.10.12
12:08
(0) ты уверен, что у этого документа есть ТЧ ?
2 Саша80
 
31.10.12
12:09
есть. Я его создал сначала вручную, там настроил ТЧ, которая по сути своей является регистрами, в моем случае регистрами расчета
3 shuhard
 
31.10.12
12:10
(2)[Я его создал сначала вручную, там настроил ТЧ, которая по сути своей является регистрами]
т.е. ТЧ у документа нет
4 Саша80
 
31.10.12
12:15
т.е. как нет? СОздай документ с такой настройкой-увидишь
5 Classic
 
31.10.12
12:22
(4)
Что значит настроил ТЧ, которые по сути являются регистрами? На форму РегистрСписок выкинул?
6 Dzenn
 
гуру
31.10.12
12:24
Всё сделано через опу, на очень начальном уровне.... вызови специалиста, тут их полно с 22см.
7 Саша80
 
31.10.12
12:27
да нет..уже разобрался....сразу в регистр пулять буду..набором записей