:: Архив конференции по VFP до 2005 года
1с и Visual FoxPro
cka3ochnik
Автор
Нужен пример подключения к 1С из Visual FoxPro
и пример кода для работы с 1с из Visual FoxPro
Ratings: 0 negative/0 positive
Re: 1с и Visual FoxPro
AleksM

Сообщений: 17881
Дата регистрации: 11.11.2003
lc1Cdata=GetShort(GETDIR('C:\Program Files\1Cv77\1S','База данных 1С','Укажите папку'))
go1C = CREATEOBJECT("V77.Application")
luResult = go1C.Initialize(go1C.RMTrade,'/D'+lc1Cdata,'NO_SPLASH_SHOW') && Немонопольный доступ
*
* Ну и далее работаешь с объектами 1С
********************************************************************
* От Равиля
FUNCTION GetShort
** Возвращает путь в стиле DOS, т.к. при открытии базы данных 1С есть проблемы с длинными путями
LPARAMETERS m.lcNAME
IF EMPTY(m.lcNAME)
RETURN ""
ENDIF
DECLARE INTEGER GetShortPathName IN kernel32 STRING lpszLongPath, STRING @lpszShortPath, INTEGER cchBuffer
LOCAL m.lcBUFFER, m.lnRESULT
m.lcBUFFER=REPLICATE(CHR(0),512)
m.lnRESULT=GetShortPathName(m.lcNAME,@lcBUFFER,LEN(m.lcBUFFER))
CLEAR DLLS "GetShortPathName"
RETURN LEFT(m.lcBUFFER,m.lnRESULT)




------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.
Ratings: 0 negative/0 positive
Re: 1с и Visual FoxPro
nosorog

Сообщений: 18
Откуда: Усть-Лабинск
Дата регистрации: 09.02.2005
Вот еще примерчик...
inistr='"C:\Program Files\1Cv77\BIN\"'+'enterprise'+' /d"\\Server\Basis\sqldata" /nhumax /prvsn'
v77 = createobject("V77.Application")
wait window nowait [Initializing V7.7 ]+inistr
v77.initialize(v77.rmtrade,inistr,"NO_SPLASH_SHOW")
metadata = v77.evalexpr("Метаданные")
if vartype(metadata)="O" then
items=v77.evalexpr('CreateObject("Справочник.Контрагенты")')
items.selectitems()
do while items.getitem()=1
if items.isgroup()<>1 then
wait window nowait items.currentitem().getattrib("Наименование")
ufface=items.currentitem().getattrib("ЮрФизЛицо")
sname=alltrim(ufface.getattrib("Наименование"))
fname=alltrim(ufface.getattrib("ПолнНаименование"))
cmnt=alltrim(ufface.getattrib("Комментарий"))
finn=alltrim(ufface.getattrib("ИНН"))
&& И так далее...
endif
enddo
endif
Ratings: 0 negative/0 positive
Re: 1с и Visual FoxPro
piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004
А чего мне ответить не дал - я бы прогнулся ;)




------------------
Часто бывает так, что есть над чем задуматься, а нечем.
Ratings: 0 negative/0 positive
Re: 1с и Visual FoxPro
AleksM

Сообщений: 17881
Дата регистрации: 11.11.2003
Вот када Наталья будет задавать вопрос, я в сторону отойду.




------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.
Ratings: 0 negative/0 positive
Re: 1с и Visual FoxPro
AlexK

Сообщений: 2114
Откуда: Королев,Москва
Дата регистрации: 11.12.2000
forum.foxclub.ru




------------------
Береги природу, мать Вашу. Моя страничка www.genrep.net
Ratings: 0 negative/0 positive
Re: 1с и Visual FoxPro
real

Сообщений: 6
Дата регистрации: 05.02.2005
всем спасибо тема закрыта
все получилось



Отредактировано (25.02.05 15:09)


------------------
Ratings: 0 negative/0 positive


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

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

© 2000-2024 Fox Club 
Яндекс.Метрика