bdd2

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

Опубликовал Евгений Сидилев (maikl007) в раздел Администрирование - Распределенная БД (УРИБ, УРБД)

Настройка обмена данных РИБ в файловом варианте базы, через планировщик задач.

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

См. также

Добавить вознаграждение
Комментарии
1. nesa nesa (nesa) 25 22.05.15 07:09 Сейчас в теме
Вы бы изобретением велосипеда не занимались.
На платформе 8.3 регламентные задания 1С работают и в файловой версии.
Достаточно только держать запущенной одну копию Бухгалтерии.
2. Евгений Сидилев (maikl007) 49 24.05.15 15:10 Сейчас в теме
Согласен, можно постоянно держать открытыми все периферийные базы, их у меня около 20, но это не выход и даже не вход ).