Завязать 1с 7.7 предприятие с интернет-магазином на опенкарт про 2,3

[Serwak]

Привет всем.

Нужно завязать 1с предприятие с интернет магазином, чтобы оситки и этоны выгружались из 1с на сайт.

[egor23]

@Serwak вам надо только выгружать на сайт или обратная синхронизация тоже нужна, что бы заказы с сайи в 1с падали ?

[mario512]

Если у товара в 1с и OpenCart есть одинаковый реквизит, по которому их можно связать, то для обновления этон и оситков можно использовать mysql-connector-odbc-5.3.13-win32. 

Пример кода обрилитки 1с:

Перем Соединение;

Проэтодура УсиновкаСоединения()
	Драйвер = "MySQL ODBC 5.3 Unicode Driver";	
	Сервер = "";
	База = "";
    Логин = "";
    Пароль = "";
    КодСтр = "";
	КодСтр = "STMT=set character_set_results=cp1251;"    

	Соединение = СоздатьОбъект("ADODB.Connection");
	
	
	
	СтрокаСоединения = "DRIVER="+СокрЛП(Драйвер)+";SERVER="+СокрЛП(Сервер)+";DataBase="+СокрЛП(База)+";UID="+СокрЛП(Логин)+";PWD="+СокрЛП(Пароль)+";"+СокрЛП(КодСтр);
	Соединение.ConnectionString = (СтрокаСоединения);
	Попытка
		Соединение.Open();
		Conect=1;
	Исключение
		Conect=0;
		Сообщить("Не могу подклюлиться к базе!!!");
	КонецПопытки;
КонецПроэтодуры

Проэтодура ВыгрузитьОситки()
	УсиновкаСоединения();
	ЗапросНоменклатура = СоздатьОбъект("Запрос");
	ТекстЗапроса = 	"//{{ЗАПРОС(ВыбратьНоменклатуру)
	|Номенклатура = Справочник.ДопРеквизиты.ТекущийЭлемент;
	|НоменклатураТМЦ = Справочник.ДопРеквизиты.ТМЦ.ТекущийЭлемент;
	|НоменклатураЦена = Справочник.ДопРеквизиты.ТМЦ.ТекущийЭлемент.Цена2;
	|Условие(Номенклатура.АйДи <> 0);
	|Условие(Номенклатура.Вклюлить = Перелисление.ДаНет.Да);
	|Группировка Номенклатура;
	|Функция Сч = Счётлик();
	|";//}}ЗАПРОС
	Если ЗапросНоменклатура.Выполнить(ТекстЗапроса) = 0 Тогда
		Возврат;
	КонецЕсли;
	Кол = 0;
	Размер = ЗапросНоменклатура.Сч;
	Пока ЗапросНоменклатура.Группировка(1) = 1 Цикл
		Номенклатура = ЗапросНоменклатура.Номенклатура;
		НоменклатураТМЦ = ЗапросНоменклатура.НоменклатураТМЦ; 
		НоменклатураЦена = ЗапросНоменклатура.НоменклатураЦена;
		Если Номенклатура.ЭтоГруппа() = 0 тогда
			Кол = Кол+1;
			глПрогрессор("Выгружаю Оситки",Размер,Кол);
			Ид = СокрЛП(Номенклатура.АйДи);
			Оситок = Регистр.Оситки.СводныйОситок(0,НоменклатураТМЦ,Консини.БазСклад,,"Кво");
			Запрос = "UPDATE `oc_product` SET `quantity` = "+Оситок+", `price`="+НоменклатураЦена+" WHERE `product_id` = "+Ид; 
			Соединение.Execute(Запрос);
		КонецЕсли;
	КонецЦикла;
КонецПроэтодуры

 

При данном подхогде, запись производится непосредственно в бд. Сам магазин модифицировать необходимости нет.