VitaliyCeban
Виталий Чебан

&НаСервере
Процедура вЗаполнитьСтандартныеРеквизиты(ОбъектМД)

   <...>
   Если СтрукРеквизиты.ИмяПредопределенныхДанных <> Неопределено Тогда
      НС = РеквизитыОбъекта.Добавить();
      НС.Имя = "ИмяПредопределенныхДанных";
      НС.Представление = НС.Имя;
      НС.Категория = 0;
      НС.ТипЗначения = новый ОписаниеТипов("Строка");
      НС.Значение = СтрукРеквизиты.ИмяПредопределенныхДанных;
   КонецЕсли;
КонецПроцедуры

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

set DB_ROOT="D:\1C\Bases"
set BACKUPS_ROOT="F:\Backups\Databases"
set V8DBBACKUP="F:\Backups\V8DBBackup.exe"
set SEVENZIP="C:\Program Files\7-Zip\7z.exe"

pushd %DB_ROOT%
for /d %%D in (*) do (
   set DATABASE_NAME=%%D
   echo on
   echo !DATABASE_NAME!
   @echo off
   
   set DB_PATH=%DB_ROOT%\!DATABASE_NAME!
   set BACKUPS_FOLDER_PATH=%BACKUPS_ROOT%\!DATABASE_NAME!
   if not exist "!BACKUPS_FOLDER_PATH!" mkdir !BACKUPS_FOLDER_PATH!
   For /f "tokens=1-3 delims=./ " %%a in ('date /t') do (set CURRENT_DATE=%%c-%%b-%%a)
   For /f "tokens=1-2 delims=/:" %%a in ('time /t') do (set CURRENT_TIME=%%a-%%b)

   pushd !DB_PATH!
   %V8DBBACKUP%
   %SEVENZIP% a "!DATABASE_NAME!_!CURRENT_DATE!_!CURRENT_TIME!.7z" "1Cv8 *.1CD"
   del "1Cv8 *.1CD"
   Robocopy.exe *.7z . !BACKUPS_FOLDER_PATH! /MOV /NFL /NDL /NJH /NJS
   popd
)
popd

Функция МассивВДвоичныеДанные(КлючМассив)
   
   Поток = Новый ПотокВПамяти;
   Запись = Новый ЗаписьДанных(Поток);
   Для Каждого Элемент Из КлючМассив Цикл
      Запись.ЗаписатьБайт(Элемент);
   КонецЦикла;
   Запись.Закрыть();
   Данные = Поток.ЗакрытьИПолучитьДвоичныеДанные();
   Возврат Данные;  
   
КонецФункции

РазницаВРаундах = Окр( РазницаВСекундах / 30  ) ;

@echo off
chcp 65001

set db_path="G:\1C\Базы\Моя прекрасная база"
set backups_path="G:\1C\Backups\Моя прекрасная база"
set v8dbbackup_path="G:\V8DBBackup\V8DBBackup.exe"
set sevenzip_path="C:\Program Files\7-Zip\7z.exe"

For /f "tokens=1-3 delims=./ " %%a in ('date /t') do (set mydate=%%c-%%b-%%a)
For /f "tokens=1-2 delims=/:" %%a in ('time /t') do (set mytime=%%a-%%b)

pushd %db_path%
%v8dbbackup_path%
%sevenzip_path% a "%mydate%-%mytime%.zip" "1Cv8 *.1CD"
del "1Cv8 *.1CD"
chcp 866
Robocopy.exe *.zip . %backups_path% /MOV
popd