Имя: Пароль:
1C
 
Подключение к 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  тоесть что б не спрашивало точно или не точно вы хотите выйти, в настройках пользователя!
Независимо от того, куда вы едете — это в гору и против ветра!