Добрый день. помогите решить проблему с обменом документами между базами. Делаю так -
БазаОле=СоздатьОбъект("V77S.Application"); // Получаем доступ к OLE объекту 1С
КаталогБазыОЛе = "C:\program files\1cv77\МояБаза\";
ПользовательОле = "Администратор";
ПарольОле = "qwerty";
МонопольныйРежимOLE = " /m";
ЗапускБезЗаставки = 1;
РезультатПодключения = БазаОле.Initialize ( БазаОле.RMTrade , "/d" +
СокрЛП(КаталогБазыОле) + " /n" + СокрЛП(ПользовательОле)+
" /p" + СокрЛП(ПарольОле) + МонопольныйРежимOLE,
?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW",""));
Если РезультатПодключения = 0 Тогда
Предупреждение("Не удалось подключится к указанной базе - проверьте вводные!");
КонецЕсли;
ДокOLE = БазаОле.CreateObject("Документ.РасходнаяНакладная");
ДокOLE .ВыбратьДокументы(начДата,конДата);
Пока ДокOLE .ПолучитьДокумент()=1 Цикл
Сообщить(ДокOLE.ДатаДок); // !!!!!!!!!!!!!!! - тут все зависает :(
КонецЦикла;
kostya77 @ Сегодня, 12:51
,
Добрый! Сообщение выдает или вообще ничего не происходит? К базе происходит соединение?
denis84 @ Сегодня, 12:05
,
сообщение не выдает. к базе подключается. Ставлю точку останова - база виснет
kostya77 @ Сегодня, 13:06
,
я взял ваш код. и вот что получилось: пользователь мой без пароля - у меня появилось окно авторизации доступа к базе. я нажал "ок" и произошло соединение с базой и сообщило дату документа
а вот такой код этого не делает:
БазаОле = СоздатьОбъект("V77.Application"); // Получаем доступ к OLE объекту 1С
КаталогБазыОЛе = "d:\1c\моя база\";
ПользовательОле = "Админ";
ПарольОле = "";
результатПодключения = базаОЛЕ.Initialize(базаОЛЕ.RMTrade, "/d" + сокрЛП(КаталогБазыОЛе) + " /n" +
сокрЛП(ПользовательОле) + " /p " + сокрЛП(ПарольОле), "");
если результатПодключения = 0 тогда
предупреждение("Не удалось выполнить подключение к указанной БД! Проверьте параметры подключения!");
иначе
состояние("БД инициализирована!");
конецЕсли;
ДокOLE = БазаОле.CreateObject("Документ.РасходнаяНакладная");
ДокOLE .ВыбратьДокументы(начДата,Кондата);
Пока ДокOLE.ПолучитьДокумент()=1 Цикл
Сообщить(ДокOLE.ДатаДок);
КонецЦикла;
база индексации не просит?
kostya77 @ Сегодня, 13:34
,
как я посмотрел из-за монопольного режима. Могу конечно ошибаться, но у меня без него норм отработало. Я никогда его не использовал. и вот так создавал базу оле БазаОле = СоздатьОбъект("V77.Application");
Может, кто - то меня поправит.
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua