Пример 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
|
