Имя: Пароль:
1C
1С v8
Открыть карточку контрагента КомОбъекта
,
0 paulic
 
19.10.11
12:43
Подскажите  пожалуйста.

Есть подключение

База = Новый COMОбъект("V82.COMConnector");
ББ = База.Connect("File=""" + КаталогСБазой + """;Usr=""" + Юзер + """;Pwd=""" + Пароль + """;");

Мне необходимо открыть карточку контрагента
для текущего клиента открываю форму легко

Элемент = Справочники.Контрагенты.НайтиПоКоду(КодКонтрагента);
Форма = Элемент.ПолучитьФорму();
Форма.Открыть();

если же пишу

Элемент = ББ.Справочники.Контрагенты.НайтиПоКоду(КодКонтрагента);
Форма = Элемент.ПолучитьФорму();
Форма.Открыть();

Вываливается в ошибку
Произошла исключительная ситуация: Интерактивные операции недоступны

Подскажите пожалуйста как открыть форму КомОбъекта?
1 ДенисЧ
 
19.10.11
12:43
никак,
2 ZanderZ
 
19.10.11
12:43
(0) через ком - никак
3 paulic
 
19.10.11
12:45
Плохо.
4 paulic
 
19.10.11
12:45
Спасибо
5 paulic
 
19.10.11
12:45
А может есть какие-нибудь обходные пути?
6 Alex375
 
19.10.11
12:46
Написать обработку, которая будет подключатся по COM к базе, брать от туда необходимые данные и выводить в поля обработки. Так ты покажешь данные пользователю. А больше ни как :)
7 paulic
 
19.10.11
12:47
(6)
Спасибо, это у меня уже есть!)
8 Defender aka LINN
 
19.10.11
12:49
(7) Месье знает толк в извращениях... А зачем вообще?
9 H A D G E H O G s
 
19.10.11
12:51
Ну через Application
10 ZanderZ
 
19.10.11
12:52
(5) application
11 paulic
 
19.10.11
12:58
(8)
Для синхронизация контрагентов и пользователи хотят иметь возможность просмотреть лично карточку контрагента.

Процедура ПроверитьПодключениеНажатие(Элемент)
   
   Юзер = Пользователь ;
   Пароль = Пароль;
   КаталогСБазой = КаталогБазы;
   Попытка
     База = Новый COMОбъект("V82.application");
       ББ = База.Connect("File=""" + КаталогСБазой + """;Usr=""" + Юзер + """;Pwd=""" + Пароль + """;");
       Сообщить("Успешно!");
       ЭлементыФормы.Заполнить.Доступность = Истина;
 Исключение
   Сообщить("Попытка не удалась!");
       ЭлементыФормы.Заполнить.Доступность = Ложь;
   КонецПопытки;                    
           
КонецПроцедуры


Пробовал, но почему-то зависает.
Вывело сообщение "Успешно" и висит, не разрешает ничего сделать
12 H A D G E H O G s
 
19.10.11
13:09
ББ = База.Connect("File=""" + КаталогСБазой + """;Usr=""" + Юзер + """;Pwd=""" + Пароль + """;");
       Сообщить("Успешно!");
База.Visible=Истина;

И смотри, что у тебя там в подключенной спрашивают.
13 paulic
 
19.10.11
13:27
(12)
Ничего не спрашивают.
открывается Клиент.

Наверное нереального хочу, но скажите пожалуйста, а нельзя как-то организовать без открытия клиента, чтобы только карточка открывалась?
14 paulic
 
19.10.11
13:28
Или это было для проверки почему весит?
15 paulic
 
19.10.11
13:33
Если только для проверки, то ничего не висит, отображается абсолютно чистое окно.
16 Михаил Козлов
 
19.10.11
13:34
В типовых в мониторе настроек обмнна на закладке "Объекты обмна" по действию "Показать объект приемника" открывается (модально) форма объекта.
Код такой:
СсылкаВПриемнике = ТекCOMОбъект.ValueFromStringInternal(СтрокаСсылки);
Если ТекCOMОбъект.ValueIsFilled(СсылкаВПриемнике) Тогда
 СсылкаВПриемнике.GetForm().DoModal();
Иначе
 Предупреждение("Не найдено соответствие в информационной базе приемнике.");
КонецЕсли;
Независимо от того, куда вы едете — это в гору и против ветра!