Программа iNETsHOP - обработка, сравнение, анализ прайс листов поставщиков, создание каталога товаров интернет магазина Форум - Программа iNETsHOP - Работа с программой - Автоматический импорт прайс-листов


http://inetshop.in.ua/index.php?p=showtopic&toid=284&pp=15&page=1&area=1&print_post=1629
25.01.2016 14:20

support


Support


Количество сообщений   1167
Зарегистрирован:   11-04-2008, 19:11:57
Пример vbs-сценария автоматического импорта прайс-листа
Код

Set IiNETsHOP = CreateObject("iNETsHOP.App")

'вывести версию клиента
'WScript.Echo IiNETsHOP.ClientVersion

'Подключение к базе данных
IiNETsHOP.Connect 1, "(local)", "iNETsHOP_database", "Admin", "pass" '<Аутентификация: 1 - MSSQL>, <Сервер>, <База данных>, <Пользователь>, <Пароль>


'ВЫполнить произвольный SQL-запрос
'IiNETsHOP.ExecSQL "SELECT 1"

'Получить значение глобального параметра
'IiNETsHOP.GetParameter "TEMP_FOLDER_NAME", vTempFolder

'Изменить значение глобального параметра
'IiNETsHOP.SetParameter "TEMP_FOLDER_NAME", "G:\TEMP\"

'DIM vTempFolder
'IiNETsHOP.SelectTableField "TBL_PARAMETERS", "PAR_NAME", "Use_archivers", "PAR_VALUE", vTempFolder
'WScript.Echo vTempFolder

'изменить значения полей в таблице
'DIM Fields(0), Values(0)
'Fields(0) = "PAR_VALUE"
'Values(0) = "12"
'IiNETsHOP.UpdateTableField "TBL_PARAMETERS", "PAR_NAME", "AAAA", Fields, Values

'Выполнить шаблон обмена данными с DES_ID=1
'IiNETsHOP.DataExchange 1

'Импорт прайс=листа
Set IPriceLoader = IiNETsHOP.PriceImporter

IPriceLoader.iS_ID = 73 'Код поставщика
IPriceLoader.iIMP_ID = 117 'Код схемы импорта

IPriceLoader.LoadLastOrigin 'Загрузить последние использованные настройки пути файла для Поставщик + Схема импорта
'IPriceLoader.sPriceFileName = "c:\TEMP\1.xls" 'Указать имя файла прайс-листа
'IPriceLoader.sPriceURL = "http://price-list.in.ua/testprice.xls" 'указать ссылку URL с которой прайс будет закачан перед импортом
IPriceLoader.Start 1 'Импортировать прайс c ожиданием конца импорта

Set IiNETsHOP = Nothing