С помощью несложных действий можно настроить обмен РИБ в файловом варианте баз, через планировщик задач на 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); КонецЕсли; КонецПроцедуры
