Имя: Пароль:
1C
1С v8
заполнение документа через COMОбъект
0 lero4ka23
 
24.03.16
12:01
В ЗУП 3.0 создала свою обработку в которой есть табличная часть часовая ставка, в ней заполняются через запрос колонки сотрудник,сумма. Далее через COMОбъект подключаюсь в другой базе, создаю там документ и выгружаю всё содержимое табличной части часовая ставка в документ с токой же ТЧ и колонками. Проблема - сумма выгружается, а сотрудник нет. Помогите сделать, чтоб и сотрудники выгрузались. Пытала через НайтиПоНаименованию не получилось. Может у кого пример завалялся подобного.
Процедура Заполнить()
     V8= Новый COMОбъект("V83.COMConnector");
     Попытка
         Открытие= V8.Connect("Srvr=1c; Ref="" Тестовая"";Usr = ""Иванов Иван Иванович""; Pwd= 123456");
     Исключение
         Сообщить("База данных не открыта!!!");
         Возврат;
    КонецПопытки;
    
    
    МенеджерДокумента = Открытие.Документы.Обмен;
    Документ = МенеджерДокумента.СоздатьДокумент();                       
    Документ.Дата = ТекущаяДата();            
    Для каждого Стр Из Объект.ЧасоваяСтавка Цикл
        НовСтр = Документ.ЧасоваяСтавка.Добавить();
        ЗаполнитьЗначенияСвойств(НовСтр, Стр);
    КонецЦикла;  
            
КонецПроцедуры
1 ДенисЧ
 
24.03.16
12:03
А где поиск сотрудника?
2 lero4ka23
 
24.03.16
12:04
(1) делала вот так не получилось  

НовСтр.Сотрудник = МенеджерСправочника.НайтиПоНаименованию(Объект.ЧасоваяСтавка);
3 lero4ka23
 
24.03.16
12:04
все колонки заполняет кроме сотрудника
4 ДенисЧ
 
24.03.16
12:05
А что такое МенеджерСправочника ?
5 ДенисЧ
 
24.03.16
12:05
И сотрудник и ЧасоваяСтавка????
6 ObjectRelation Model
 
24.03.16
12:05
НовСтр.Сотрудник = МенеджерСправочника.НайтиПоНаименованию(Стр.ЧасоваяСтавка);
7 lero4ka23
 
24.03.16
12:05
(4)     МенеджерСправочника = Открытие.Справочники.СотрудникиОрганизаций;
8 lero4ka23
 
24.03.16
12:06
ну я говорю что я не правильно сделала и это не работает, я не знаю как правильно
9 ДенисЧ
 
24.03.16
12:08
НовСтр.Сотрудник = МенеджерСправочника.НайтиПоНаименованию(Стр.Сотрудник.Наименование);
??
10 lero4ka23
 
24.03.16
12:10
(9) всё равно пусто
11 lero4ka23
 
24.03.16
12:15
(9) Вообщем так когда я пишу НовСтр.Сотрудник = МенеджерСправочника.НайтиПоНаименованию(Стр.Сотрудник.Наименование);
ЗаполнитьЗначенияСвойств(НовСтр, НовСтр.Сотрудник ); тогда заполняет, а сумма исчезает
12 hhhh
 
24.03.16
12:15
(10) вы это после ЗаполнитьЗначенияСвойств пишете.
13 lero4ka23
 
24.03.16
12:18
V8= Новый COMОбъект("V83.COMConnector");
     Попытка
         Открытие= V8.Connect("Srvr=1c; Ref=""СУЗ (Тестовая)"";Usr = ""Воронова Валерия Николаевна""; Pwd= 4s2DK6FE");
     Исключение
         Сообщить("База данных не открыта!!!");
         Возврат;
    КонецПопытки;
    
    
    МенеджерДокумента = Открытие.Документы.Обмен;
    Документ = МенеджерДокумента.СоздатьДокумент();                       
    Документ.Дата = ТекущаяДата();            
    Для каждого Стр Из Объект.ЧасоваяСтавка Цикл
        НовСтр = Документ.ЧасоваяСтавка.Добавить();
            МенеджерСправочника = Открытие.Справочники.СотрудникиОрганизаций;
            НовСтр.Сотрудник = МенеджерСправочника.НайтиПоНаименованию(Стр.Сотрудник.Наименование);

            ЗаполнитьЗначенияСвойств(НовСтр, НовСтр.Сотрудник);
            
    КонецЦикла;
14 lero4ka23
 
24.03.16
12:19
вот так заполняет, но тогда всё остальное пропадает
15 lero4ka23
 
24.03.16
12:19
Когда пишу ЗаполнитьЗначенияСвойств(НовСтр, Стр);
тогда сотрудники исчезают
16 ObjectRelation Model
 
24.03.16
12:20
ЗаполнитьЗначенияСвойств(НовСтр, Стр);
НовСтр.Сотрудник = МенеджерСправочника.НайтиПоНаименованию(Стр.Сотрудник.Наименование);
17 hhhh
 
24.03.16
12:22
(15) реально так пишете? Или шутите?
18 ObjectRelation Model
 
24.03.16
12:22
(17) она не понимает, что пишет
19 lero4ka23
 
24.03.16
12:22
(16) спасибо огромное получилось, моя невнимательность не туда написала
Программист всегда исправляет последнюю ошибку.