![]() |
|
#1
|
|||
|
|||
![]() Приветствую.
Нужный раздел не нашел, пишу сюда. У кого есть опыт работы с 1с из Delphi? Не как не получается преобразовать значение ResQ_ole.Тип к читабельному виду. Ссылка идет на объект, как достучаться до свойства объекта в котором хранится строковое значение имени типа (например: Телефон, Адрес, АдресЭлектроннойПочты и т.д.) Код:
OleQuery := s1C8_ole.NewObject('Запрос'); sQueryText:=''; sQueryText:=sQueryText+' ВЫБРАТЬ '; sQueryText:=sQueryText+' КонтактнаяИнформация.Объект КАК Объект, '; sQueryText:=sQueryText+' КонтактнаяИнформация.Представление КАК Представление, '; sQueryText:=sQueryText+' КонтактнаяИнформация.Тип КАК Тип '; sQueryText:=sQueryText+' ИЗ '; sQueryText:=sQueryText+' РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация '; sQueryText:=sQueryText+' ГДЕ '; sQueryText:=sQueryText+' Объект = &Объект1 '; OleQuery.УстановитьПараметр('Объект1', Result[0].Contragent); OleQuery.Текст := sQueryText; ResQ_ole := OleQuery.Выполнить().Выбрать(); while ResQ_ole.Следующий() do begin // Условие не выполняется, выдает ошибку if ResQ_ole.Тип = s1C8_ole.Метаданные.Перечисления.ТипыКонтактнойИнформации.ЗначенияПеречисления.Получить(1) //телефон then ShowMessage('Оооооо да заработало !!! Как я рад! Даст ист фантастиш') end |
#2
|
||||
|
||||
![]() Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 09.12.2013 в 03:14. |