РИБ бухгалтерия 3.0.39, файловый вариант базы

С помощью несложных действий можно настроить обмен РИБ в файловом варианте баз, через планировщик задач на 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_databaseBUHBUH_PBPBUnit7_Nerungri""", 1, False
WshShell.Run """" & WScript.ScriptFullName & """ File=""E:1C_databaseBUHBUH_PBPBUnit6_Aprelkovo""", 1, False
WshShell.Run """" & WScript.ScriptFullName & """ File=""E:1C_databaseBUHBUH_PBPBUnit10_Buryatzoloto""", 1, False
WshShell.Run """" & WScript.ScriptFullName & """ File=""E:1C_databaseBUHBUH_PBPBUnit8_Buryatiya""", 1, False
WshShell.Run """" & WScript.ScriptFullName & """ File=""E:1C_databaseBUHBUH_PBPBUnit11_Vedyga""", 1, False
WshShell.Run """" & WScript.ScriptFullName & """ File=""E:1C_databaseBUHBUH_PBPBUnit9_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);
КонецЕсли;

КонецПроцедуры