Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > 1C: Предприятие, SAP, ERP и учётные системы > com + 1C82 запрос


Автор: larinva 6.12.2012, 16:59
Всем привет пытаюсь разобраться со связкой com + 1C82 выполняю тестовый запрос
Код

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

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



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

Автор: larinva 7.12.2012, 09:17
как обычно задашь вопрос и тишина

Автор: larinva 7.12.2012, 10:53
если кому интересно должно быть так
Код

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

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


Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)