Каталог решений - РИБ Бухгалтерия 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_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);
	КонецЕсли;
	
КонецПроцедуры