1C com соединение от обычного к управляемому

[Rika]

Доброго времени суток!
Вот и дошла моя очередь ковырять управляемое приложение. НО  возникла сложность при передаче данных через com соединение ОТ обычного приложения К управляемому.
Самое соединение отрабатывает, НО при создании документа выдает ошибку:

{ВнешняяОбработка.ВыгрузкаКассовыхДокументов.Форма.Форма.Форма(38)}: Поле объекта не обнаружено (документы)
НовыйДокумент       = БазаБП.документы.ПоступлениеТоваровУслуг.СОздатьобъект();

Прилагаю код:

Процедура проверка1(Элемент)
   соедсерв();
КонецПроцедуры


процедура соедсерв();
   
   Состояние("Выполняется подключение к базе ...");
   
   COMОбъектБазы = Новый COMОбъект("V8" + Формат(ВерсияПлатформы, "ЧГ=0") + ".ComConnector");
   
   Попытка
      COMОбъектБазы.Connect(.....)   
                сообщить("Подключение прошло успешно!");
      
      БазаБП = COMОбъектБазы;
      Если БазаБП = Неопределено Тогда
         сообщить("Соединение не установлено.");
         Возврат;
      КонецЕсли;
      
   Исключение
      Предупреждение("База данных не открыта!!!
      |" + ОписаниеОшибки());
      Возврат;
   КонецПопытки;
   
   НовыйДокумент       = БазаБП.документы.ПоступлениеТоваровУслуг.СОздатьобъект();
   НовыйДокумент.Дата   = ТекущаяДата();
   НовыйДокумент.СуммаДокумента = 10;
   НовыйДокумент.комментарий = "Ура!!!!!!!";
   НовыйДокумент.Записать();
   
   сообщить(сокрлп(НовыйДокумент.ссылка));
   
конецпроцедуры

Объясните если не сложно!

[MuI_I_Ika]

СоздатьДокумент() надо писать

[Rika]

СоздатьДокумент() надо писать

Ругается на "документы"
НовыйДокумент       = БазаБП.документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
там да исправлено

[MuI_I_Ika]

А не заметил.

Надо поменять :
 

Код Выделить Развернуть

COMОбъектБазы.Connect(.....)   
                сообщить("Подключение прошло успешно!");
     
      БазаБП = COMОбъектБазы;

На:

Код Выделить Развернуть

  БазаБП = COMОбъектБазы.Connect(.....)   
                сообщить("Подключение прошло успешно!");
     
     

[Rika]

А не заметил.

Надо поменять :
 

Код Выделить Развернуть

COMОбъектБазы.Connect(.....)   
                сообщить("Подключение прошло успешно!");
     
      БазаБП = COMОбъектБазы;

На:

Код Выделить Развернуть

  БазаБП = COMОбъектБазы.Connect(.....)   
                сообщить("Подключение прошло успешно!");
     
     

СПАСИБО ЗАРАБОТАЛО!!!!!!!!!!!!!!!!!!!!!!!