( Для разработчиков )

// Для переноса справочников из 1с ( версия 7.7 ) в фабиус можно воспользоваться функцией Connect1C,

// создающей соединение с базой 1с ( потребуется ввести имя пользователя и пароль )

// например

local conn1c,_r13,_kod,pname,sost

conn1c := Connect1C('V77M.Application','/D"_path"' ,'NO_SPLASH_SHOW')

// _path - путь к файлам dbf 1с

// после этого получаем ссылку на справочник, например, сотрудников

_r13 := ConnectObj1C(conn1c,'Справочник.Сотрудники')

// и перебираем все элементы справочника

CallOleProcedure(_r13,'ВыбратьЭлементы')

// ПолучитьЭлемент - перемещаемся на следующую запись

while CallOleFunction(_r13,'ПолучитьЭлемент') > 0

_kod := AllTrim(CallOleFunction(_r13,'Код'))

// не группа и не удалена

if (len(_kod) > 0) and (CallOleFunction(_r13,'ЭтоГруппа') = 0) and (CallOleFunction(_r13,'ПометкаУдаления') = 0)

// получить значение реквизита

pname := CallOleFunction( _r13 , 'Наименование' )

// получить значение периодического реквизита на дату

sost := CallOleFunction(CallOleFunction(_r13,'СостояниеФизлица'),'Получить',Date())

// получить значение перечисления по ссылке

sost := CallOleFunction( sost,'Идентификатор' )

// в этом месте программы производится запись переменных в справочник фабиуса

end

ProcessMessages()

EndDo

DisConnectObj1C( _r13 )

DisConnect1C(conn1c)