Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

alexfear

Newbie
  
  • Posts

    5
  • Joined

  • Last visited

Recent Profile Visitors

728 profile views

alexfear's Achievements

Rookie

Rookie (2/14)

  • First Post
  • Conversation Starter
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputation

  1. Или для начала как редактировать стоимость заказа в редакторе заказов?
  2. Добрый день. Можно ли добавить в опции такой пункт как URL ссылка с отображением миниатюры. то есть клиент должен вставить ссылку на страницу и при этом загрузится миниатюра страницу.
  3. Добрый день. Кто нибудь делал выгрузку данных из 1С 7,7 в базу Mysql. Есть наработки но не могу разобратся в структуре таблиц. Что и куда выгружать и в какую таблицу точно. Разобрался как загрузить цены, наличие, название, артикуль, категории, в какой категории показывать. А функцию отобразить в магазине ненашол. Давайте вместе напишем скрипт под 1С 7,7. Будет не уневирсальный но можно подогнать под любой 1С 7,7 вот мой код. //******************************************* Процедура Выполнить() Сервер="192.168.1.1"; ПользовательСервера="root"; ПарольСервера="root"; БазаСервера="host"; Соединение = CreateObject("ADODB.Connection"); Соединение_param = "driver={MySQL ODBC 3.51 Driver}; server="+СокрЛП(Сервер)+"; uid="+СокрЛП(ПользовательСервера)+"; pwd="+СокрЛП(ПарольСервера)+"; database="+СокрЛП(БазаСервера)+";OPTION="+3+"; port=3306;STMT=SET NAMES cp1251"; Try Соединение.open(Соединение_param); Except DoMessageBox("Отсутствует связь с базой!"); return; EndTry; Т = СоздатьОбъект("Справочник.Номенклатура"); Т.ВыбратьЭлементы(); Запрос = "TRUNCATE TABLE product_description"; Запрос1 = "TRUNCATE TABLE product"; Запрос2 = "TRUNCATE TABLE product_to_category"; Запрос3 = "TRUNCATE TABLE product_to_store"; Соединение.Execute(Запрос); Пока Т.ПолучитьЭлемент() = 1 Цикл Если Т.ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; остат=Регистр.ОстаткиТоваров.СводныйОстаток(Т.ТекущийЭлемент(),,,,"Количество"); Стр = "INSERT INTO `product_description` SET `language_id`="+""""+1+ """"+",`name`="+""""+Строка(Т.Наименование)+""""; Стр1 = "INSERT INTO `product` SET `model`="+""""+Т.КаталНомер+ """"+",`sku`="+""""+Т.Код+""""+",`price`="+""""+Формат(Окр(Т.РозничнаяЦена*Т.ВалютаПродажи.Курс.Получить(Т.ДатаКурса), 0, 0),"Ч12.2.,")+""""+",`status`="+""""+1+""""+",`quantity`="+""""+остат+""""+",`weight_class_id`="+""""+1+""""+",`length_class_id`="+""""+1+""""; Стр2 = "INSERT INTO `product_to_category` SET `category_id`="+""""+59+ """"+",`main_category`="+""""+1+""""; Стр3 = "INSERT INTO `product_to_store` SET `store_id`="+""""+0+ """"; Соединение.Execute(Стр); Соединение.Execute(Стр1); Соединение.Execute(Стр2); Соединение.Execute(Стр3); Сообщить("Перенесли – " + Т.Код + " " + Т.Приведенный + " " + Т.Наименование); КонецЦикла; Сообщить("Экспорт завершон"); //Запрос = "TRUNCATE TABLE product_description"; //Стр1 = "UPDATE IGNORE `product_description` SET `user_date1` ="+""""+ТекущаяДата()+"G "+" V"+ текущеевремя()+ """"; //Соединение.Execute(Стр1); Сообщить("Перенесли – "+ Формат(ТекущаяДата(),"D(0)DDMMMMYYYY")); ///////////////////////////////////////****************** КонецПроцедуры
×
×
  • Create New...

Important Information

On our site, cookies are used and personal data is processed to improve the user interface. To find out what and what personal data we are processing, please go to the link. If you click "I agree," it means that you understand and accept all the conditions specified in this Privacy Notice.