FoxClub Forums > Вопросы по 1С > Ole error code Unknown COM status ::

• Войти

Ole error code Unknown COM status
alexandr_f Автор Сообщений: 127 Откуда: Харьков Дата регистрации: 03.03.2006	alexandr_f 15.05.15 11:18:07 Решил вывалить данные из 1С в старую прогу на FoxPRO (еще DOS) Что бы не заморачиваться с заполнением DBF решил сделать на FoxPRO 9 Честно передрал Server="*" basa="" login="" passwd="" obj = Createobject("V82.COMConnector") conString='Srvr="'+Server+'";Ref="'+basa+'";Usr="'+login+'";Pwd="'+passwd+'"' obj1C = obj.Connect(conString) oQue = obj1C.Newobject("Запрос") ! obj.Connect([Srvr="cc-srv-1c-03";Ref="upp_salary_sh_test";Usr="Филипов Александр Владимирович";pwd="alex"]) TEXT TO текст NOSHOW ВЫБРАТЬ РаботникиОрганизацийСрезПоследних.Период, РаботникиОрганизацийСрезПоследних.Регистратор, РаботникиОрганизацийСрезПоследних.Сотрудник.Ссылка, РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Ссылка Как ссылка, РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Код Как Код, РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.ДатаРождения, РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.КодПоДРФО, РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Пол, РаботникиОрганизацийСрезПоследних.Сотрудник.Код, РаботникиОрганизацийСрезПоследних.Должность.Ссылка, РаботникиОрганизацийСрезПоследних.Должность.Код, РаботникиОрганизацийСрезПоследних.Должность.Категория.Ссылка, РаботникиОрганизацийСрезПоследних.Должность.Грейд ИЗ РегистрСведений.РаботникиОрганизаций.СрезПоследних КАК РаботникиОрганизацийСрезПоследних ENDTEXT oQue.Текст=текст oResULT = oQue.Выполнить() oRes = oResULT.Выгрузить() FOR EACH oRow IN oRes ? oRow.Код ENDFOR obj.ЗавершитьРаботуСистемы(.F.) obj=.null. На выделенной строке ошибка - Ole error code Unknown COM status Что не так - я не понимаю еще в этом

alexandr_f
Автор

Сообщений: 127
Откуда: Харьков
Дата регистрации: 03.03.2006

alexandr_f

15.05.15 11:18:07

Решил вывалить данные из 1С в старую прогу на FoxPRO (еще DOS)
Что бы не заморачиваться с заполнением DBF решил сделать на FoxPRO 9
Честно передрал

Server="***"  
  basa="**"  
  login="**"  
  passwd="**"

 obj = Createobject("V82.COMConnector")
 
 conString='Srvr="'+Server+'";Ref="'+basa+'";Usr="'+login+'";Pwd="'+passwd+'"'  
    
  obj1C = obj.Connect(conString)  
oQue = obj1C.Newobject("Запрос") 
*!*    obj.Connect([Srvr="cc-srv-1c-03";Ref="upp_salary_sh_test";Usr="Филипов Александр Владимирович";pwd="alex"])
   TEXT TO текст NOSHOW 
   ВЫБРАТЬ
    РаботникиОрганизацийСрезПоследних.Период,
    РаботникиОрганизацийСрезПоследних.Регистратор,
    РаботникиОрганизацийСрезПоследних.Сотрудник.Ссылка,
    РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Ссылка Как ссылка,
    РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Код Как Код,
    РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.ДатаРождения,
    РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.КодПоДРФО,
    РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Пол,
    РаботникиОрганизацийСрезПоследних.Сотрудник.Код,
    РаботникиОрганизацийСрезПоследних.Должность.Ссылка,
    РаботникиОрганизацийСрезПоследних.Должность.Код,
    РаботникиОрганизацийСрезПоследних.Должность.Категория.Ссылка,
    РаботникиОрганизацийСрезПоследних.Должность.Грейд
    ИЗ
    РегистрСведений.РаботникиОрганизаций.СрезПоследних КАК РаботникиОрганизацийСрезПоследних
   ENDTEXT
   
   
  oQue.Текст=текст    

  oResULT = oQue.Выполнить()  
  oRes = oResULT.Выгрузить()   
    


  FOR EACH oRow IN oRes   
      ? oRow.Код
      

  ENDFOR

 obj.ЗавершитьРаботуСистемы(.F.)        
  obj=.null.

На выделенной строке ошибка - Ole error code Unknown COM status
Что не так - я не понимаю еще в этом

Re: Ole error code Unknown COM status
PaulWist Сообщений: 14696 Дата регистрации: 01.04.2004	PaulWist 15.05.15 12:00:28 В зависимости от версии 1С obj.ВнешнееЗавершениеРаботы() obj1C.ВнешнееЗавершениеРаботы() ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

Re: Ole error code Unknown COM status
alexandr_f Автор Сообщений: 127 Откуда: Харьков Дата регистрации: 03.03.2006	alexandr_f 15.05.15 12:47:53 Тот же результат 1С = 8.2.17.169

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 4 (Гостей: 4)