Перенос документов посредством механизма OLE

[annyz]

Документ создает, но данные записывает только табличной части(контрагент, вид торговли,примечание - все пустое), подскажите,пожалуйста, что не так?

Код: (1C v8)

        ДокИсточник.SelectDocuments(Дата1,Дата2);
        Пока ДокИсточник.GetDocument() = 1 Цикл
                        Если ДокИсточник.проведен()=1 Тогда
                                 ДокПриемник.выбратьДокументы(ДокИсточник.датаДок,ДокИсточник.ДатаДок)  ;
                                 пока ДокПриемник.получитьДокумент()=1 цикл
                                         если (ДокПриемник.пометкаУдаления()=0) и
                                         (сокрлп(ДокПриемник.НомерДок)=сокрлп(ДокИсточник.номерДок)) ТОГДА
                                                документЕсть=1;
                                                СООБЩИТЬ("Документ " +ДокИсточник.номердок+" уже перенесен!") ;
                                                прервать;
                                        КонецЕсли;  
                                конецЦикла;    
                               
                            Если   документЕсть=0 тогда  
                                        Пока ДокПриемник.ПолучитьДокумент()=1 Цикл  
                                                ДокПриемник.Новый();
                                                СООБЩИТЬ("Создаем новый документ "+ДокПриемник.номердок) ;
                                                ДокПриемник.датаДок=ДокИсточник.ДатаДок;  
                                                ДокПриемник.НомерДок=сокрлп(ДокИсточник.номерДок);  
                                               
                                                        ДокПриемник.Фирма=константа.БазФирма;  
                                                        ДокПриемник.Контрагент=ПолучитьКонтрагент(докИсточник);
                                                        ДокПриемник.ВидТорговли=ДокИсточник.ВидТорговли;  
                                                        ДокПриемник.ВидНДС=ДокИсточник.ВидНДС;
                                                        ДокПриемник.Примечание=ДокИсточник.Примечание;
                                                        ДокИсточник.выбратьстроки();  
                                                        // табл.часть  
                                                        пока ДокИсточник.получитьСтроку()=1 Цикл
                                                                ДокПриемник.новаяСтрока();
                                                                ДокПриемник.кво=ДокИсточник.кво;
                                                                ДокПриемник.ценаБезНДС=ДокИсточник.ЦенаБезНДС;
                                                                ДокПриемник.СуммаСНДС=ДокИсточник.суммаСНДС;
                                                                ДокПриемник.СуммаБезНДС=ДокИсточник.суммаБезНДС;
                                                                ДокПриемник.НДС=ДокПриемник.СуммаСНДС-ДокПриемник.СуммаБезНДС;
                                                                ДокПриемник.Услуга=ПолучитьУслугу(докИсточник);
                                                                ДокПриемник.Коэффициент=ДокИсточник.Коэффициент;
                                                                ДокПриемник.СуммаБезСкидки=ДокИсточник.СуммаБезСкидки;
                                                                ДокПриемник.Скидка=ДокИсточник.Скидка;
                                                        конецЦикла;
                                                        ДокПриемник.записать();
                                        КонецЦикла;  
                                КонецЕсли;  
                               

                       
                        КонецЕсли;    
        КонецЦикла;
               
        Состояние("Завершение переноса документов ...");

[Kivals]

1. Используй теги [code=e1cv8][/code] или [code][/code]
2. Отформатируй текст - и читать легче, и тебе легче искать в нем ошибки будет.
3. Не понял как вообще работает блок

Код: (1C v8)

Пока ДокПриемник.ПолучитьДокумент()=1 Цикл  
    ДокПриемник.Новый();
    ...

4. Не знаю что не так с примечанием (по идее это строка, так что все должно получатсья), но поскольку ДокИсточник в базе OLE (согласно названию темы), то:
4а. "ДокПриемник.ВидТорговли=ДокИсточник.ВидТорговли;" - так делать нельзя: ты объекту в этой базе присваиваешь значение из другой базы. Тебе нужно по некоему признаку (код, наименование, ...) найти аналогичный объект в рабочей базе и присвоить его значение в документ.
4б. Абсолютно неясно что делает "ПолучитьКонтрагент(докИсточник);" - есть подозрение, что тоже возвращает OLE объект, а значит - см. (4а)

[annyz]

Kivals, Спасибо огромное!!!!

Все исправила, все работает!!! (на удивление)!!!  )))