![]() |
![]() |
![]() |
|
Подключение к 1с 8.1 из 1с 7.7 | ☑ | ||
---|---|---|---|---|
0
recovery_man
01.02.10
✎
15:32
|
Здравствуйте Ув.Эксперты. Дело вот в чём:
Необходимо считывать Реквизит документы из 1с8.1 в 1с 7.7 если одинаковые тогда какое то действие ...... а каким механизмом OLE ADO или ещё чем к ней подключатся???? есть конфа по переносу справочников и документов, но это не то что нужно! Прошу пращения если Повторяюсь!(но пахожей темы не нашол!).Псб |
|||
1
ДенисЧ
01.02.10
✎
15:33
|
По ОЛЕ. В книжке из коробки написано
|
|||
2
recovery_man
01.02.10
✎
15:34
|
В которой книжке из Коробки? как называется????
|
|||
3
sdaf
01.02.10
✎
16:22
|
Процедура ИнициализацияПриемника8();
V81 = СоздатьОбъект("V81.Application"); СерверОткрыт = V81.Connect("File=""P:\Bases\1cv8-Buh"";Usr=""ОЛЕ"";Pwd=""12345"""); КонецПроцедуры Процедура ЗапросК8ре ИнициализацияПриемника8(); ТЗ2=СоздатьОбъект("ТаблицаЗначений"); ТЗ2.НоваяКолонка("НомерДок"); ТЗ2.НоваяКолонка("ДатаДок"); ТЗ2.НоваяКолонка("Сумма"); ТЗ2.НоваяКолонка("НаимКонтр"); ИмпЗапрос=V81.NewObject("Запрос"); Текст= "ВЫБРАТЬ | РеализацияТоваровУслуг.Дата, | РеализацияТоваровУслуг.Номер, | РеализацияТоваровУслуг.СуммаДокумента, | РеализацияТоваровУслуг.Контрагент.Код КАК КодКонтр, | РеализацияТоваровУслуг.Сдана КАК Сдача, | РеализацияТоваровУслуг.Контрагент.Наименование КАК НаимКонтр |ИЗ | Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг |ГДЕ | РеализацияТоваровУслуг.Дата МЕЖДУ &НачДата И &КонДата"; //| РеализацияТоваровУслуг.Сдана <> &Сдана"; ИмпЗапрос.Текст=Текст; ИмпЗапрос.УстановитьПараметр("НачДата",НачДата); ИмпЗапрос.УстановитьПараметр("КонДата",КонДата); //ИмпЗапрос.УстановитьПараметр("Сдана",КонДата); ИмпТЗ=ИмпЗапрос.Выполнить().Выгрузить(); Для Н = 1 По ИмпТЗ.Количество() Цикл Если ИмпТЗ.Получить(Н-1).Сдача=0 Тогда ТЗ2.НоваяСтрока(); ТЗ2.НомерДок=СокрЛП(ИмпТЗ.Получить(Н-1).Номер); ТЗ2.ДатаДок=Дата(ИмпТЗ.Получить(Н-1).Дата); ТЗ2.Сумма=Число(ИмпТЗ.Получить(Н-1).СуммаДокумента); ТЗ2.НаимКонтр=СокрЛП(ИмпТЗ.Получить(Н-1).НаимКонтр); КонецЕсли; КонецЦикла; КонецПроцедуры |
|||
4
recovery_man
01.02.10
✎
17:11
|
Ув. sdaf Примного Благодарен!!!
|
|||
5
recovery_man
05.02.10
✎
11:02
|
Последний вапрос а если не файловая а клиент сервер, тоесть ms sql крутится???? тогда как ????
|
|||
6
ГолодныйВолк
05.02.10
✎
11:04
|
(5) тогда строка подключения немного другая будет...
|
|||
7
recovery_man
05.02.10
✎
11:05
|
какая? можно пример?
|
|||
8
dk
05.02.10
✎
11:16
|
Automation сервер
Connect (Connect) Синтаксис: Connect(<Строка соединения>) Параметры: <Строка соединения> (обязательный) Тип: Строка. Строка параметров, используемая 1С:Предприятием для соединения с информационной базой. Строка соединения представляет собой набор параметров, каждый из которых является фрагментом вида: <Имя параметра=><Значение>, где Имя параметра — имя параметра, а Значение — его значение. Фрагменты отделяются друг от друга символами ';'. Если значение содержит пробельные символы, то оно должно быть заключено в двойные кавычки ("). Для файлового варианта определен параметр: File — каталог информационной базы (файловый режим); Для клиент-серверного варианта определены параметры: Srvr — имя сервера 1С:Предприятия; Ref — имя информационной базы на сервере; Для всех вариантов определены параметры: Usr — имя пользователя; Pwd — пароль и UC<Код доступа> позволяет выполнить установку соединения с информационной базой, на которую установлена блокировка установки соединений. Если при установке блокировки задан непустой код доступа, то для установки соединения необходимо в параметре /UC указать этот код доступа. Возвращаемое значение: Тип: Булево. Истина - инициализация прошла удачно, Ложь - в противном случае. Описание: Выполняет соединение системы 1С:Предприятие с информационной базой. |
|||
9
recovery_man
05.02.10
✎
11:49
|
Спасибо!
|
|||
10
recovery_man
05.02.10
✎
18:31
|
Папробовал
Процедура ЗапросК8рке() V81 = СоздатьОбъект("V81.ComConnector"); ctl = V81.Connect("Srvr=192.168.10.79;Ref=1c_Upp_dev;Usr=my;Pwd=1234"); СпрКонтрагенты=ctl.Справочники.Номенклатура; Выборка=СпрКонтрагенты.Выбрать(); пока Выборка.Следующий()=1 Цикл Сообщить(Выборка.Наименование); КонецЦикла КонецПроцедуры Тупо ничего не сообщило !!! Способ описанный выше SDAF Синтаксических ошибок не обнаружено! СпрКонтрагенты=ctl.Справочники.Номенклатура; {C:\DOCUMENTS AND SETTINGS\ANGEL\РАБОЧИЙ СТОЛ\proba.ERT(5)}: Значение не представляет агрегатный объект (Справочники) Кто подскажет что делать? |
|||
11
recovery_man
18.02.10
✎
10:42
|
РАЗОБРАЛСЯ !!! вот пример!!!
Процедура Импорт1с8() V81=СоздатьОбъект("V81.Application"); con=V81.Connect("Srvr=192.168.10.151;Ref=1c_Upp_Work;Usr=Angel;Pwd=зйтЯпЗч"); ТЗ=СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("НомерДок"); ТЗ.НоваяКолонка("Дата"); ИмпЗапрос=V81.NewObject("Запрос"); Текст= "ВЫБРАТЬ |Номер Но незнаю терь как его закрыть, соединение в 1с 7.7?????????????? :( |
|||
12
ДенисЧ
18.02.10
✎
10:52
|
ИмпЗапрос="";
con=""; |
|||
13
recovery_man
18.02.10
✎
11:04
|
как что б само ответило на вопрос точно хотите закончить работу? ответить ДА !????
|
|||
14
recovery_man
18.02.10
✎
15:18
|
13 поборол траблу отключением вопроса в 8 тоесть что б не спрашивало точно или не точно вы хотите выйти, в настройках пользователя!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |