1C OLE Delphi #158413

Помогите, пожалуйста, решить проблему!!! Подключаюсь к примеру к базе 1С: Зарплата и кадры (через OLE), и хочу из справочника "Сотрудники" получить поля: Код, Наименование, Должность. Первые два поля - проблем не возникает, а третье не дает, говорит что "Invalid Variant Operation"!!! И вообще она не хочит отдавать поля у которых тип указан в виде, например, как у должности -  Справочник.Должности. Я уже все перепробовал. Подскажите решение проблемы... Код:     OleSotr:=Ole1C.CreateObject('Справочник.Сотрудники');     if not VarIsEmpty(OleSotr) then begin       if OleSotr.ВыбратьЭлементы>0 then begin          while OleSotr.ПолучитьЭлемент>0 do

Имхо, дело тут не в Delphi, а в чём-то другом. Сделай сначала свою обработку для работы из другой базы 1С, а когда в ней отловишь баги - перепишешь на Delphi.

Может, OleSotr.Должность.Наименование?

Должность - это агрегатный тип данных, в каком виде ты бы собирался получить его в дельфи?) ему нет у тебя соответствия

В виде поля Наименование из справочника Должности!!! Что можно сделать?

пробовал?

Не помогло, выдало ошибку "метод Наименование not supported by automation object" :(

Должность - периодический реквизит

И что делать? Как мне получить текущее (на сегодняшний день) значение этого аттрибута для конкретной записи???

Как-то так наверно:

Не помогло:(

ListBox1.Items.Add(OleSotr.Код+'  '+OleSotr.Наименование+'  '+ OleSotr.GetAttrib('Должность'));

а стоп, должность это ж справочник наверное

А StufPost - это что такое? OleVariant?

Ну да по идее. Хранит ссылку на объект должность StufPost := OleSotr.GetAttrib('Должность');

Что-то тогда эта идея не работает:(

Не помню, давно игрался. Попробуй тут посмотреть

Я читал, статья для начинающих, не более

а-а-а-. ну извини.

"Должность"-справочник и периодический элемент,тогда:  try    if isPeriodic(FName,id)=1 then        if cur_period.ИспользоватьОбъект(CVar(id),CDisp(FRef.ТекущийЭлемент))=0 then

+19 где Fv77.Periodically это: CreateObject("Периодический"), Fv77 это v77.Application

Через ОЛЕ невозможно получить значения, отличные от простых типов: числа, строки, даты...

А если попробовать что-то вроде OleSotr.EvalExpr('Строка(' + OleSotr.Должность + ')')

еще как можно.

+23 приведенный код-рабочий

Ну да, надо приводить к строке, потом передавать. Например, вместо элемента справочника передавать его код, а вместо документа - ЗначениеВСТроку.

не так,щас неявно ты подразумевал маршаллинг,а ты заметил в приведение к типам CVar=OleVariant и CDisp=IDispatch? так вот,здесь маршаллинг обеспечивается самой технологией COM/OLE

Спасибо за большое количество вариантов, сейчас попробую:)