Квк из Visual Foxpro в 1С передать информацию

[Roberts]

Кто подскажет или даст ссылку, как настроить канал между Visual Foxpro и 1С

[booktiger]

Visual Foxpro не юзал

единственный способ стандартно через COM,
а если передать какие нибудь данные ,ТО через третье приложение
(Excel, access, dbf, sql server и коннектиться к ним через ADO)

[WaterSmith]

Цитата: Сообщение от Roberts Кто подскажет или даст ссылку, как настроить канал между Visual Foxpro и 1С

Способов существует как минимум 2, но все они требуют либо знания встроенного языка 1С, либо помощи программиста знающего 1С.
1. Взаимодействие с 1С через OLE.
При этом ты в Фоксе создаешь обьект 1С и даешь ему команды на языке 1С, при этом можеш выполнять любые манипуляции с базой 1С, добавлять элементы справочников, создавать и проводить документы. Соответственно можешь также читать любые данные.
Способ требует сетевой версии 1С, либо (в случае с локальной версией) отсутствия работающих с 1С пользователей в момент взаимодействия с Фоксом.
2. Обмен данными через файловую систему.
В фоксе пишем процедуру выгрузки необходимых данных в файл, (текстовый или DBase). В 1С соответственно пишем процедуру загрузки этих данных.

Крайне не рекомендую ни при каких обстоятельствах работать напрямую с файлами базы данных 1С, соблюсти корректность записей и целостность данных при этом практически невозможно.

Если опишите задачу более подробно смогу дать рекомендации и поточнее.

[Elysee]

Цитата: Сообщение от WaterSmith Способов существует как минимум 2, но все они требуют либо знания встроенного языка 1С, либо помощи программиста знающего 1С. 1. Взаимодействие с 1С через OLE. При этом ты в Фоксе создаешь обьект 1С и даешь ему команды на языке 1С, при этом можеш выполнять любые манипуляции с базой 1С, добавлять элементы справочников, создавать и проводить документы. Соответственно можешь также читать любые данные. Способ требует сетевой версии 1С, либо (в случае с локальной версией) отсутствия работающих с 1С пользователей в момент взаимодействия с Фоксом. 2. Обмен данными через файловую систему. В фоксе пишем процедуру выгрузки необходимых данных в файл, (текстовый или DBase). В 1С соответственно пишем процедуру загрузки этих данных. Крайне не рекомендую ни при каких обстоятельствах работать напрямую с файлами базы данных 1С, соблюсти корректность записей и целостность данных при этом практически невозможно. Если опишите задачу более подробно смогу дать рекомендации и поточнее.

OLE - Наименее трудоемкая вещь, затраты времени и сил вдвое (если не больше...) уменьшаются, по-сравнению с файловим методом

[xilian]

Цитата: Сообщение от Elysee уменьшаются, по-сравнению с файловим методом

С чего это ? Кстати 1С как ole сервер работает намного медленнее. Самый гибкий - через ВК.

[Сли то]

А может и не надо из ВижулФокса ни чего передавать. А просто 1Ской БРАТЬ данные из его БД. Фокс в чем у тя данные гранит, в ДБФах? Вот лезь одноэсиной в них и там все получай. А ОЛЕ соединение у 1Сии крайне не стабильно работает.

[eugeneks]

Цитата: Сообщение от Сли то А может и не надо из ВижулФокса ни чего передавать. А просто 1Ской БРАТЬ данные из его БД. Фокс в чем у тя данные гранит, в ДБФах? Вот лезь одноэсиной в них и там все получай. А ОЛЕ соединение у 1Сии крайне не стабильно работает.

OLE в добавок еще и медленная штука. Но вобщем с основной идеей согласен. Нужно использовать либо ODBC, либо ADO драйвер и читать данные прям из базы фокса.

[АртемArtem]

попробуй ODBC настроить

[SaschaL]

Использование OLE, более перспектино, объясняется это тем что позволяет избежать множества ошибок которые можно было бы получить при использовании например того же ODBC. При этом подразумевается что при использовании Visual Foxpro вы все таки имеет опыт работы с 1С и вледете достаточными знаниями для разработки или редактировния 1С, поскольку вам придется непосредственно работать с объектами 1С.

[andresg]

для 1с 7.7 через OLE:
IF TYPE("_V77")="U"
PUBLIC _V77
ENDIF
IF TYPE("_V77")#"O"
_V77 = CreateObject('V77.Application')
WAIT clea
Endi
IF TYPE("_V77")="O"
IF ISNULL(_V77)
WAIT WINDOW "ISNULL(_V77)"
Retu
ELSE
ENDI
ELSE
MESSAGEB( hErr_Not_Initialize_RMTrade + chr(13)+;
hErr_Not_Initialize_RMTrade_ForUser, 16, _Screen.Caption)
retu
ENDIF

_h1сSect=h1сSect && h1сSect define in "AccTran\A3_1c.h"
*_1n018ssh0= "DefiVal( 'Папка1сТест', 'W:\1c_proba\base\','"+ hPath1cTest_+"')" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
_1n018ssh0= "DefiVal( 'Папка1сТест', 'W:\1c_proba\base\','"+ hPath1cTest_+"',_h1сSect)" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
Path1cTest= &_1n018ssh0
*_1n018ssh0= "DefiVal( 'Папка1сРабочая', 'W:\1c\base\','"+ hPath1cWork_+"')" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
_1n018ssh0= "DefiVal( 'Папка1сРабочая', 'W:\1c\1c\base\','"+ hPath1cWork_+"',_h1сSect)" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
Path1cWork = &_1n018ssh0
*
*_1n018ssh0= "LogValue(DefiVal( 'ВыборБазы1с', '1', '"+ hFl1cSelect_+"'))" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
_1n018ssh0= "LogValue(DefiVal( 'ИспПапку1сТест', '1', '"+ hFl1cTest_+"',_h1сSect))" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
Fl1cTest = &_1n018ssh0
IF Fl1cTest
Path1c=Path1cTest
ELSE
Path1c=Path1cWork
ENDIF
*
IF TYPE("_flini1c")="U"
PUBLIC _flini1c
ENDI
*IniFl= _V77.Initialize(_V77.RMTrade, '/D'+ Path1c+ ' /M', 'NO_SPLASH_SHOW')
IF !_flini1c
* _1n018ssh0= "LogValue(DefiVal( 'ВыборБазы1с', '1', '"+ hFl1cSelect_+"'))" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
_1n018ssh0= "LogValue(DefiVal('ВыборБазы1с', '1', '"+ hFl1cSelect_+"',_h1сSect))" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
Fl1cSelect = &_1n018ssh0
IF Fl1cSelect
_flini1c= _V77.Initialize(_V77.RMTrade, '', '')
ELSE
_flini1c= _V77.Initialize(_V77.RMTrade, '/D'+ Path1c, '')
ENDIF
ENDI
IF _flini1c
WAIT clea
SET MESSAGE TO
IF TYPE([_V77.EvalExpr('CreateObject("Справочник.Контрагент ы")')])="O"
TestCreateObject =_V77.EvalExpr('CreateObject("Справочник.Контраген ты")')
IF TYPE("TestCreateObject ")="O"
IF ISNULL(TestCreateObject)
WAIT WINDOW "ISNULL(TestCreateObject)"
Retu
ELSE
ENDI
ELSE
WAIT WINDOW 'TYPE("TestCreateObject")#"O"'
Retu
ENDI
ELSE
MESSAGEB( hErr_EvalExpr_CreateObject + chr(13)+;
"НЕ создается объект 'Справочник.Контрагенты'"+ chr(13)+;
hErr_EvalExpr_CreateObject_ForUser, 16, _Screen.Caption)
retu
*WAIT WINDOW "TYPE(_V77.EvalExpr('CreateObject(операция)')) #O"
* susp

ENDIF
ELSE
MESSAGEB( hErr_Not_Initialize_RMTrade, 16, _Screen.Caption)
Retu
ENDIF

Добавлено через 2 минуты
Для 1с v.8.2 через OLE:

* Connect1c82.prg
*
*_3hx0vs6ar= 'Author: Andreyuk Sergey G.'
*_3hx0vs6as= 'mailto: [email protected]'
* for Vfp9
* 08.05.2012 14:49:42 - see in end of this file
*
#include "AccTran\A3_1c.h"
_h1сSect=h1сSect && h1сSect define in "AccTran\A3_1c.h"
_1n018ssh0= "logValue(DefiVal( 'Сервер-раб.станция', '0', 'Сервер данных - рабочая станция'))"
IF EMPTY(&_1n018ssh0) && общие параметры
_1n018ssh0= "DefiVal( 'Папка1сТест', 'd:\_RentalCom\DATA1c8\','"+ hPath1cTest_+"',_h1сSect)" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
Path1cTest= &_1n018ssh0
_1n018ssh0= "DefiVal( 'Папка1сРабочая', 'R:\_RentalCom\DATA1c8\','"+ hPath1cWork_+"',_h1сSect)" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
Path1cWork = &_1n018ssh0
ELSE && индивидуальные параметры
_1n018ssh0= "conf_val( 'Папка1сТест', '" + h1сSect+ "', '"+ hPath1cTest_+"', 'D:\_RentalCom\DATA1c8\')"
Path1cTest= &_1n018ssh0
_1n018ssh0= "conf_val( 'Папка1сРабочая', '" + h1сSect+ "', '"+ hPath1cTest_+"', 'R:\_RentalCom\DATA1c8\')"
Path1cWork = &_1n018ssh0
ENDIF
_1n018ssh0= "LogValue(DefiVal( 'ИспПапку1сТест', '1', '"+ hFl1cTest_+"',_h1сSect))" && function DefiVal(cPar, cVal, cComment) in the A3cs.app
Fl1cTest = &_1n018ssh0
IF Fl1cTest
Path1c=Path1cTest
ELSE
Path1c=Path1cWork
ENDIF
*
DO ("WaitWindNo") WITH "Подключение к 1С v8.2.: "+Path1c
*
IF dire(Path1c)
ELSE
MESSAGEB( "Не найдена Папка1с: "+Path1c, 16, _Screen.Caption)
RETURN
ENDIF
IF TYPE("_V82")="U"
PUBLIC _V82
ENDIF
IF TYPE("_V82")="O"
*WAIT WINDOW [TYPE("_V82")="O"] && для тестирования
IF ISNULL(_V82)
*!* WAIT WINDOW "ISNULL(_V82)"
*!* RETURN
_flini1c= _V82.Connect("File="+Path1c+";Usr=;")
* _flini1c= _V82.Connect("File="+Path1c+";Usr=sa;")
IF _flini1c
DO ("WaitWindNo") WITH "Подключение к 1С v8.2.: "+Path1c+ " прошло успешно!"
ELSE
MESSAGEB( "Dog1c82.prg: Ошибка связи с 1Сv82", 16, _Screen.Caption)
Retu
ENDIF
ELSE
DO ("WaitWindNo") WITH "Подключение к 1С v8.2 уже имеет место!"
ENDIF
ELSE
_V82= CreateObject('V82.Application')
*WAIT WINDOW [_V82= CreateObject('V82.Application')] && для тестирования
_flini1c= _V82.Connect("File="+Path1c+";Usr=;")
* _flini1c= _V82.Connect("File="+Path1c+";Usr=sa;")
IF _flini1c
DO ("WaitWindNo") WITH "Подключение к 1С v8.2.: "+Path1c+ " прошло успешно!"
ELSE
MESSAGEB( "Подключение к 1С v8.2: Ошибка связи с 1Сv82", 16, _Screen.Caption)
Retu
ENDIF
ENDIF
*


[andresg]

Цитата: Сообщение от Roberts Кто подскажет или даст ссылку, как настроить канал между Visual Foxpro и 1С

1) через OLE из Visual Foxpro, но не работает на 1сsql- сервере
2) делать обработку на 1с импорта из DBF