VPF::com + 1C82 запрос - Форум программистов

larinva

Дата 6.12.2012, 16:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 294
Регистрация: 24.7.2006

Репутация: 1
Всего: 1

Всем привет пытаюсь разобраться со связкой com + 1C82 выполняю тестовый запрос

Код


Процедура КнопкаВыполнитьНажатие(Кнопка)
    ДБ= Новый COMОбъект("V82.COMConnector");
    стрПодключения = "File="""+СокрЛП("C:\1с\")+""";Usr="""";Pwd=""""";
    Сообщить(стрПодключения);
    Попытка 
        База = ДБ.Connect(стрПодключения);
    Исключение
        Сообщить(ОписаниеОшибки());
        Предупреждение("Ошибка подключения");
        ЕстьПодключение = Ложь;
    КонецПопытки;

    Запрос = База.NewObject("Запрос");
    Запрос.Текст =   "ВЫБРАТЬ
                     |    ХозрасчетныйОстаткиИОбороты.Субконто1 КАК Контрагент
                     |ИЗ
                     |    РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты КАК ХозрасчетныйОстаткиИОбороты";
                    
    Счет = Запрос.Выполнить().Выбрать();
    
    Пока Счет.Следующий() Цикл
        Сообщить(Счет.Контрагент);
    КонецЦикла;
КонецПроцедуры

в сообщение вываливает (COMОбъект) что я не доделываю помогите

larinva

Дата 7.12.2012, 09:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 294
Регистрация: 24.7.2006

Репутация: 1
Всего: 1

как обычно задашь вопрос и тишина

larinva

Дата 7.12.2012, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 294
Регистрация: 24.7.2006

Репутация: 1
Всего: 1

если кому интересно должно быть так

Код


Запрос = База.NewObject("Запрос");
    Запрос.Текст =   "ВЫБРАТЬ
                     |    ХозрасчетныйОстаткиИОбороты.Субконто1 КАК Контрагент
                     |ИЗ
                     |    РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты КАК ХозрасчетныйОстаткиИОбороты";
                    

    ТЗ =  База.NewObject("ТаблицаЗначений");
    ТЗ = Запрос.Выполнить().Выбрать();    
    
    Пока ТЗ.Следующий() Цикл
        Сообщить(База.String(ТЗ.Контрагент));
    КонецЦикла;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| 1C: Предприятие, SAP, ERP и учётные системы \| Следующая тема »