помогите сделать ежедн. автом. выгрузку базы данных

Отправлено 20 апреля 2006 - 11:05

• Наверх

Отправлено 20 апреля 2006 - 11:33

• Наверх

Отправлено 21 апреля 2006 - 13:03

xcopy t:bases.sqlbase*.* n:backupsDailybase*.* /E /C /R /Y /H
n:
CBIN
CV7S.EXE config /D t:bases.sqlbase  /NAdministrator /Ppassword /@n:backupsDailybase.ini
winrar a -agDD-MM-YY-HH-MM -m5 -ep1 bases n:backupsdaily

[General]
Output=n:backupsDailylog.txt
Quit=1
CheckAndRepair=0
UnloadData=1
SaveData=1
[CheckAndRepair]
[UnloadData]
UnloadToFile=n:backupsDailybase.zip
IncludeUserDef=1

• Наверх

Отправлено 24 апреля 2006 - 15:54

А можно и так сделать, чтобы всех пользователей выбило из базы, перед запуском пакетного режима?

• Наверх

Отправлено 25 апреля 2006 - 10:40

• Наверх

Отправлено 26 апреля 2006 - 13:25

• Наверх

Отправлено 26 апреля 2006 - 15:32

Процедура ВыкинутьПользователяИзСистемы()
     Перем Час, Минута, Секунда;
     ТекущееВремя(Час, Минута, Секунда);
     Если (Час=23) и (Минута>00) Тогда
          ЗавершитьРаботуСистемы();    
     КонецЕсли;
КонецПроцедуры

Процедура ПриНачалеРаботыСистемы()
     ОбработкаОжидания("ВыкинутьПользователяИзСистемы",300);
КонецПроцедурыботыСистемы()

• Наверх

Отправлено 26 апреля 2006 - 16:29

Кстати, продолжение идеи:

перед выбросом делаем проверку на пользователя и какой-то флаг-константу, который править может только администратор - можно выкидывать конкретных пользователей почти в реальном времени не вставая со стула штатными средствами языка 1С.

• Наверх

Отправлено 27 апреля 2006 - 07:12

• Наверх

Отправлено 27 апреля 2006 - 14:10

• Наверх

Отправлено 27 апреля 2006 - 15:21

• Наверх

Отправлено 13 июля 2006 - 09:49

Добрый день ;)
Помагите пожалуйста, нужно сделать так, чтобы копии архивов базы сохранялись в отделюную папочку, знаю это можна реализовать батником, только как я пока не понял... Помагите студенту, буду рад услышать любые ответы

• Наверх

Отправлено 19 июля 2006 - 07:16

• Наверх

Отправлено 19 июля 2006 - 07:21

• Наверх

Отправлено 25 июля 2006 - 19:09

• Наверх

Отправлено 01 августа 2006 - 04:57

У меня 4 базы выгрузка происходит каждый день в заданое время + выгружаются в архив все Doc с сервера и все делает Гендальф Хрантиель 5 (Сервер) (1с совместимо) есть и локальная версия

Можно организовать еще и сразу на на CD
//c:\progra~1\winrar\winrar.exe u -r -sfx -rr2 -m5 -mdg -x*.cdx -x*.zip -agA C:\ARCHIV\db_ c:\1Cv77.Dat\DB
del e:\*.* /y
NeroCmd.exe --write --drivename D --real --tao --title ARCHIV --iso ARCHIV --iso-mode2 --close_session --detect_non_empty_cdrw C:\ARCHIV\*.* --force_erase_cdrw
//
Провере работает

Если надо мой seismo@subr-sual.ru

• Наверх

Отправлено 24 августа 2006 - 11:02

• Наверх

Отправлено 25 августа 2006 - 11:52

*/

<?
global dhost, shost, dir_name, destination;

shost="//TRAD-Aquarium/1СBases/Account/Г"; //Откуда качаем
dir="";  //Имя директории для скачивания
dhost="//SRV/backup-1c/"; //Куда качаем
dir_name=date("d.m.y"); //Получаем имя папки, состоящее из даты
mkdir(dhost."/".dir_name); //Создаем на получателе папку
destination=dhost."/".dir_name."/";

copydir(shost,"");
copydir(shost,"ExtDb");
copydir(shost,"ExtForms");
copydir(shost,"SYSLOG");
copydir(shost,"NEW_STRU");

function copydir(dir_str,d_name)
{
  num=0;
  mkdir(GLOBALS["destination"]."/".d_name);
  copydir_temp=opendir(dir_str."/".d_name);
  while(file=readdir(copydir_temp)) {
        if((file != ".") && (file != "..")) {
        num++;
        copy(dir_str."/".d_name."/".file,GLOBALS["destination"].d_name."/".file);
  }
  }
  logs("Из d_name записано num файлов");
}
function logs(str)
{
log_file=fopen("c:/temp/backup.log","a+t");
if(!log_file) echo("Error open log file");
fwrite(log_file,date("d.m.y-H:i:s")." - strn");
fclose(log_file);
}
?>

• Наверх

Отправлено 13 ноября 2006 - 13:10

• Наверх

Отправлено 13 ноября 2006 - 22:10

• Наверх

Отправлено 04 июня 2007 - 18:07

• Наверх

Отправлено 13 февраля 2008 - 12:44

• Наверх