С помощью несложных действий можно настроить обмен РИБ в файловом варианте баз, через планировщик задач на WINDOWS, для Бухгалтерии 3.0.
Создадим файл с раширением *.VBS, вставим в него ниже следующий алгоритм для выполнения обмена.
Dim ResultExchange Dim NumberSting Dim UserName Dim Password Dim SringConnectBasa Set objArgs = WScript.Arguments if objArgs.Count < 1 then Set WshShell = CreateObject("WScript.Shell") 'центральная база WshShell.Run """" & WScript.ScriptFullName & """ Srvr=""MSSQL"";Ref=""account""", 1, True ' перифирийные базы WshShell.Run """" & WScript.ScriptFullName & """ Srvr=""MSSQL"";Ref=""account_berezit""", 1, False WshShell.Run """" & WScript.ScriptFullName & """ File=""E:\1C_database\BUH\BUH_PB\PBUnit7_Nerungri""", 1, False WshShell.Run """" & WScript.ScriptFullName & """ File=""E:\1C_database\BUH\BUH_PB\PBUnit6_Aprelkovo""", 1, False WshShell.Run """" & WScript.ScriptFullName & """ File=""E:\1C_database\BUH\BUH_PB\PBUnit10_Buryatzoloto""", 1, False WshShell.Run """" & WScript.ScriptFullName & """ File=""E:\1C_database\BUH\BUH_PB\PBUnit8_Buryatiya""", 1, False WshShell.Run """" & WScript.ScriptFullName & """ File=""E:\1C_database\BUH\BUH_PB\PBUnit11_Vedyga""", 1, False WshShell.Run """" & WScript.ScriptFullName & """ File=""E:\1C_database\BUH\BUH_PB\PBUnit9_Mangazeya""", 1, False WScript.Quit end if SringConnectBasa= objArgs(0) UserName = "Администратор" Password = "123456" Set V83COMConnector = CreateObject("V83.COMConnector") Set Result = V83COMConnector.Connect(SringConnectBasa & ";Usr=""" & UserName & """;Pwd=""" & Password & """;") 'msgbox(result.metadata.version) Result.CommonModules.RunDataExchangeDataExchangeScenario ResultExchange, "00001", NumberSting Set Result = Nothing Set V83COMConnector = Nothing
- Создадим общий модуль в базе 1с с названием "CommonModules" и сделаем в нем процедуру:
Процедура RunDataExchangeDataExchangeScenario(Result, KodCatalog, NumberSting) Экспорт СценарииОбменовДанными = Catalogs.СценарииОбменовДанными.FindByCode(KodCatalog); Если ЗначениеЗаполнено(СценарииОбменовДанными) Тогда ОбменДаннымиВызовСервера.ВыполнитьОбменДаннымиПоСценариюОбменаДанными(Result, СценарииОбменовДанными, NumberSting); КонецЕсли; КонецПроцедуры