Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
03 мар 2025, 04:54

Работа с 1с через OLE

Автор Alxndr, 13 мая 2014, 19:41

0 Пользователей и 1 гость просматривают эту тему.

Alxndr

Глав. бух попросила, чтобы из 1с УПП (8.2), при нажатии на кнопку открывался список "Входящие документы" в базе 1с Документооборот, по выбранному в 1с УПП
Контрагенту(Корреспондент в 1с Документооборот).
Открытие базы, списка документов сделать сделал. А вот как присвоить реквизиту "Отправитель" на форме списка Входящего Документа значение Контрагент из 1с УПП, чтобы произошел отбор документов?
Функция ПолучитьПодключениеКСервернойБД()
Данные = ЭлементыФормы.ЖурналДокументовСписок.ТекущиеДанные;
Контр    = Строка(Данные.Контрагент);

ИмяСервера      = "1csrvr";                 
ИмяБазы         = "1c_test_corp";
ИмяПользователя = Строка(ПолноеИмяПользователя());

Попытка
Параметры = "Srvr="+ИмяСервера+";Ref="+ИмяБазы+";Usr="+Символ(34)+ИмяПользователя+Символ(34)+";";
_V82a = Новый COMОбъект("V82.Application");
          ОткрытиеA = _V82a.Connect(Параметры);

Сообщить("Подключение прошло успешно");

                //////
МенеджерСправочника = ОткрытиеA .Справочники.Корреспонденты;
КорреспондетOLE    = МенеджерСправочника.НайтиПоНаименованию(Контр).Ссылка;
//////

_ФормаСпр = _V82a.ПолучитьФорму("Справочник.ВходящиеДокументы.Форма.ФормаСписка");
                _ФормаСпр.Отправитель = КорреспондетOLE;
_ФормаСпр.Открыть();

Исключение
Предупреждение ("Ошибка подключения!"+ОписаниеОшибки());
КонецПопытки;

КонецФункции



Besart

П = Новый Структура("Ключ", Поставщик);
Форма = ПолучитьФорму("Справочник.Контрагенты.ФормаОбъекта", П);
Форма.Открыть();

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск