Создания документа из одной базы в другой бп2.0 в бп 2.0
По теме из базы знаний
- Эх... МоментВремени() !
- Конструктор документов Microsoft WORD на платформе 8.2
- Алкогольная декларация для 1С 8.1, 8.2, 8.3 (1, 2, 3, 4, 5, 6, 7, 8 формы) УТ10.2/10.3, УТ11, УПП, КА, БП2.0/3.0, БП КОРП, Розница 1.0/2.1, Далион, Астор, УТАП и др. с подписью и шифрованием, редакция 2.3
- Как организовать консолидацию данных из трех десятков предприятий, не привлекая программистов на местах?
Найденные решения
(19)
Осталось только понять как провести
Процедура КнопкаВыполнитьНажатие(Кнопка)
СтрокаПодключения =
"file='C:\Users\Fin3\Desktop\Новая папка (2)\KVVK_8_2\'; usr='Администратор3'; pwd='123';";
ComConnector = ПолучитьCOMОбъектПоВерсииПлатформы();
СообщениеПользователю = Новый СообщениеПользователю;
Попытка
ComConnection = COMConnector.Connect(СтрокаПодключения);
Исключение
СообщениеПользователю.Текст = "Ошибка подключения: " + ОписаниеОшибки();
СообщениеПользователю.Сообщить();
Возврат;
КонецПопытки;
МенеджерДокумента = ComConnection.Документы.РеализацияТоваровУслуг;
ComConnection.УстановитьБезопасныйРежим(Ложь);
ComConnection.УстановитьПривилегированныйРежим(Истина);
Документ = МенеджерДокумента.СоздатьДокумент();
Документ.Дата = ТекущаяДата();
Документ.Организация = ComConnection.Справочники.Организации.НайтиПоКоду("000000001");
Документ.Контрагент = ComConnection.Справочники.Контрагенты.НайтиПоКоду("БП0005005");
Документ.ДоговорКонтрагента =ComConnection.Справочники.ДоговорыКонтрагентов.НайтиПоКоду("БП0005005");
Документ.СчетУчетаРасчетовПоАвансам= ComConnection.ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.02");
Документ.СчетУчетаРасчетовСКонтрагентом = ComConnection.ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.02");
Документ.СпособЗачетаАвансов = ComConnection.Перечисления.СпособыЗачетаАвансов.Автоматически;
Документ.ВалютаДокумента = ComConnection.Справочники.Валюты.НайтиПоНаименованию("руб.");
Документ.ВидОперации= ComConnection.перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;
Документ.ОбменДанными = Истина;
Документ.Записать(Режимзаписидокумента.Запись);
//Документ.Записать();
КонецПроцедуры
Функция ПолучитьCOMОбъектПоВерсииПлатформы() Экспорт
// Определяем имя COM-объекта по версии платформы
ИмяComОбъекта = "";
Инфо = Новый СистемнаяИнформация;
Если Найти(Инфо.ВерсияПриложения, "8.3") > 0 Тогда
ИмяComОбъекта = "V83.COMConnector";
ИначеЕсли Найти(Инфо.ВерсияПриложения, "8.2") > 0 Тогда
ИмяComОбъекта = "V82.COMConnector";
Иначе
ВызватьИсключение "Не удалось определить версию платформы";
КонецЕсли;
// Инициализируем COM-объект и соединение
COMConnector = Новый COMОбъект(ИмяComОбъекта);
Возврат COMConnector;
КонецФункции
ПоказатьОсталось только понять как провести
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Ну вот если кратко то можно так, через ком-соединение
V8 = Новый COMОбъект("V82.ComConnector");
База = V8.Connect ("File=""D:\Локальная_УПП\""; Usr=""Юзер"";Pwd=""Пароль"";");
Запрос = База.NewObject("Запрос");
Запрос.Текст ="Выбрать Ссылка Из Документы.РеализацияТоваровУслуг";
ВыборкаРезультата = Запрос.выполнить().выбрать();
Пока выборкаРезультата.следующий() цикл
// тут берете документы и создаете их в базе
Конеццикла
Показать
(2)
Произошла исключительная ситуация (V82.COMConnector.1): Ошибка при выполнении операции с информационной базой
Несовместимая версия файла базы данных '\\fin3\Обмен\Ленар абый/1Cv8.1CD'
V8 = Новый COMОбъект("V82.ComConnector");
База = V8.Connect ("File=""D:\Локальная_УПП\""; Usr=""Юзер"";Pwd=""Пароль"";");
База = V8.Connect ("File=""D:\Локальная_УПП\""; Usr=""Юзер"";Pwd=""Пароль"";");
Произошла исключительная ситуация (V82.COMConnector.1): Ошибка при выполнении операции с информационной базой
Несовместимая версия файла базы данных '\\fin3\Обмен\Ленар абый/1Cv8.1CD'
(7) какова рода ошибка. может вы не верно делаете ком соединение, вот в таком ее виде нужно указать. Может у вас имя конектора вот такое V8.COMConnector
v8 = CreateObject("V8.COMConnector");
Если ФайловаяБазаДанных Тогда
СтрокаПодключения = "file='" + КаталогБазыДанных + "'; usr='" + Пользователь + "'; pwd='" + Пароль + "';";
Иначе
СтрокаПодключения = "srvr='" + Сервер + "'; ref='" + БазаДанных + "'; usr='" + Пользователь + "'; pwd='" + Пароль + "';";
КонецЕсли;
Соединение = V8.Connect(СтрокаПодключения)
v8 = CreateObject("V8.COMConnector");
Если ФайловаяБазаДанных Тогда
СтрокаПодключения = "file='" + КаталогБазыДанных + "'; usr='" + Пользователь + "'; pwd='" + Пароль + "';";
Иначе
СтрокаПодключения = "srvr='" + Сервер + "'; ref='" + БазаДанных + "'; usr='" + Пользователь + "'; pwd='" + Пароль + "';";
КонецЕсли;
Соединение = V8.Connect(СтрокаПодключения)
(8)
Не удалось подключиться к базе{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(8)}: Ошибка при вызове метода контекста (Connect): Произошла исключительная ситуация (1C:Enterprise 8.3.11.2954): Существуют активные сеансы работы с данной информационной базой, использующие Платформу 1С:Предприятия другой версии.
Используйте для подключения к информационной базе платформу версии 8.3.9.1818.
Не удалось подключиться к базе{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(8)}: Ошибка при вызове метода контекста (Connect): Произошла исключительная ситуация (1C:Enterprise 8.3.11.2954): Существуют активные сеансы работы с данной информационной базой, использующие Платформу 1С:Предприятия другой версии.
Используйте для подключения к информационной базе платформу версии 8.3.9.1818.
(8)
Вот это использовал
| Код |
|---|
Соединение = Новый COMОбъект("V83.Application");
СтрокаСоединения = "File = ""\\fin3\Обмен\Ленар абый""; Usr = Админ; Pwd =";
Попытка
Подключение = Соединение.Connect(СтрокаСоединения);
Исключение
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось подключиться к базе" + ОписаниеОшибки();
Сообщение.Сообщить();
КонецПопытки;
Показать полностью |
Вот это использовал
(19)
Осталось только понять как провести
Процедура КнопкаВыполнитьНажатие(Кнопка)
СтрокаПодключения =
"file='C:\Users\Fin3\Desktop\Новая папка (2)\KVVK_8_2\'; usr='Администратор3'; pwd='123';";
ComConnector = ПолучитьCOMОбъектПоВерсииПлатформы();
СообщениеПользователю = Новый СообщениеПользователю;
Попытка
ComConnection = COMConnector.Connect(СтрокаПодключения);
Исключение
СообщениеПользователю.Текст = "Ошибка подключения: " + ОписаниеОшибки();
СообщениеПользователю.Сообщить();
Возврат;
КонецПопытки;
МенеджерДокумента = ComConnection.Документы.РеализацияТоваровУслуг;
ComConnection.УстановитьБезопасныйРежим(Ложь);
ComConnection.УстановитьПривилегированныйРежим(Истина);
Документ = МенеджерДокумента.СоздатьДокумент();
Документ.Дата = ТекущаяДата();
Документ.Организация = ComConnection.Справочники.Организации.НайтиПоКоду("000000001");
Документ.Контрагент = ComConnection.Справочники.Контрагенты.НайтиПоКоду("БП0005005");
Документ.ДоговорКонтрагента =ComConnection.Справочники.ДоговорыКонтрагентов.НайтиПоКоду("БП0005005");
Документ.СчетУчетаРасчетовПоАвансам= ComConnection.ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.02");
Документ.СчетУчетаРасчетовСКонтрагентом = ComConnection.ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.02");
Документ.СпособЗачетаАвансов = ComConnection.Перечисления.СпособыЗачетаАвансов.Автоматически;
Документ.ВалютаДокумента = ComConnection.Справочники.Валюты.НайтиПоНаименованию("руб.");
Документ.ВидОперации= ComConnection.перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;
Документ.ОбменДанными = Истина;
Документ.Записать(Режимзаписидокумента.Запись);
//Документ.Записать();
КонецПроцедуры
Функция ПолучитьCOMОбъектПоВерсииПлатформы() Экспорт
// Определяем имя COM-объекта по версии платформы
ИмяComОбъекта = "";
Инфо = Новый СистемнаяИнформация;
Если Найти(Инфо.ВерсияПриложения, "8.3") > 0 Тогда
ИмяComОбъекта = "V83.COMConnector";
ИначеЕсли Найти(Инфо.ВерсияПриложения, "8.2") > 0 Тогда
ИмяComОбъекта = "V82.COMConnector";
Иначе
ВызватьИсключение "Не удалось определить версию платформы";
КонецЕсли;
// Инициализируем COM-объект и соединение
COMConnector = Новый COMОбъект(ИмяComОбъекта);
Возврат COMConnector;
КонецФункции
ПоказатьОсталось только понять как провести
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот