Форум программистов, компьютерный форум, киберфорум
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
18 / 18 / 2
Регистрация: 08.06.2011
Сообщений: 367
1

Бекап 1С: Предприятие 7.7

27.06.2011, 10:04. Просмотров 1714. Ответов 2
Метки нет (Все метки)

Добрый день:

В учреждении стоит 1С Предприятие 7.7 (Бюджет)

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

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

Как понимаете сотрудники бухгалтерии не сильны в SQL и подобных программах, обучать не имеет смысла так как им это не будет полезно.

Кто чем может помогите пожалуйста
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.06.2011, 10:04
Ответы с готовыми решениями:

Большой бекап
Всем привет еще раз) Нарисовалась такая проблема - семерка после двух лет "труженика"...

Бекап данных
День добрый, подскажите пожалуйста, как можно делать бекапы данных на компьютере. Сейчас подбираю...

Бекап object
Доброго времени суток! Подскажите, каким образом можно сделать вывод в файл(и чтение из файла)...

Бекап сервера
Добрый день, надеюсь на вашу помощь. Есть 3 сервера, на каждом стоит windows server. Есть жесткий...

2
308 / 308 / 1
Регистрация: 16.01.2011
Сообщений: 1,073
27.06.2011, 10:08 2
Это пойдет?
1
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28006 / 15732 / 971
Регистрация: 15.09.2009
Сообщений: 67,816
Записей в блоге: 78
27.06.2011, 10:19 3
а в чем собственно проблема?
вариантов мильен - начиная от винрара или 7зипа по расписанию,
заканчивая обработками...
http://v7backup.narod.ru/ как еще один вариант...

Добавлено через 4 минуты
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Option Explicit
On Error Resume Next
Dim Base'элемент списка баз
Dim Bases'массив из элементов Base
Dim Folder'элемент списка папок для бэкапа
Dim Folders'массив из элементов Folders
Dim WeekDayNumber'переменная, в которую записывается номер дня недели
Dim ExePath'путь к бинарнику 1С
Dim FSO'файловый объект
Dim WSH
Dim UserName'переменная в которую загоняем имя пользователя 1С (обычно администратора)
Dim UserPass'пароль администратора
Dim IniFile'ini файл для пакетного запуска 1С
Dim TempPath'путь к временной папке, куда будут складоваться временный файл ini и файл лога текущей базы
Dim LogFile'файл лога этого скрипта
Dim LogPath'путь к файлу лога этого скрипта
Dim Log1C'поток лога 1С
Set Bases = CreateObject("Scripting.Dictionary")
Set Folders = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("Wscript.Shell")
WeekDayNumber = WeekDay(Now, vbMonday)
ExePath = "C:\Program Files\1Cv77\BIN\1cv7.exe"
UserName = "Администратор"
UserPass = "пароль"
TempPath = "E:\1C_Backup\Time\"
LogPath = "E:\1C_Backup\log\"
'Прописываем архивируемые базы
Bases.Add "база1", "С:\Bases\база1"
Bases.Add "база2", "С:\Bases\база2"
'.....
'*********************************************************
'Прописываем куда архивировать
Folders.Add 1, "C:\1C_Backup\1_Понедельник\"
Folders.Add 2, "C:\1C_Backup\2_Вторник\"
Folders.Add 3, "C:\1C_Backup\3_Среда\"
Folders.Add 4, "C:\1C_Backup\4_Четверг\"
Folders.Add 5, "C:\1C_Backup\5_Пятница\"
Folders.Add 6, "C:\1C_Backup\6_Суббота\"
Folders.Add 7, "C:\1C_Backup\7_Воскресенье\"
'*********************************************************
 
'*********************************************************
'Здесь начинается формирование файла-лога данного скрипта
Set LogFile = FSO.CreateTextFile(LogPath & "1C_Backup_" & Date & ".log")
LogFile.WriteLine "***************************************"
LogFile.WriteLine "Запуск резервного копирования баз 1С..."
LogFile.WriteLine "***************************************"
'WScript.Echo "Задача запущена в" & Time & " " & Date
LogFile.WriteLine "Задача запущена в " & Time & " " & Date
LogFile.WriteLine "***************************************"
 
For Each Base In Bases 'Открываем цикл по базам
'Создаем конфигурационный файл для запуска пакетной выгрузки 1С
Set IniFile = FSO.CreateTextFile(TempPath & "UnLoad.ini")
IniFile.WriteLine "[General]"
IniFile.WriteLine "UnloadData = 1"
IniFile.WriteLine "Output = """ & TempPath & "UnLoad.log"""
IniFile.WriteLine "[UnloadData]"
IniFile.WriteLine "UnloadToFile = " & Folders.Item(WeekDayNumber) & Base & "(" & Date & ").zip"
IniFile.Close
 
WSH.Run """" & ExePath & """ CONFIG /D""" & Bases.Item(Base) & """ /N" & UserName & " /P" & UserPass & " /@""" & TempPath & "UnLoad.ini""", 1, True
 
'Удаление файла ini от уже обработанной базы
FSO.DeleteFile (TempPath & "UnLoad.ini")
 
'Чтение лога 1С и его перезапись в лог этого скрипта
LogFile.WriteLine "=================================================="
LogFile.WriteLine "Выгрузка базы данных " & Bases.Item(Base)
'If FSO.FileExists(TempPath & "UnLoad.log") Then
Set Log1C = FSO.GetFile(TempPath & "UnLoad.log").OpenAsTextStream(1, -2)
While Not Log1C.AtEndOfStream
LogFile.WriteLine Log1C.ReadLine
Wend
Log1C.Close
 
Next 'Конец цикла по базам
LogFile.WriteLine "*************************************************"
LogFile.WriteLine "Выгрузка баз 1С закончена в " & Time & " " & Date
LogFile.WriteLine "*************************************************"
LogFile.Close
FSO.DeleteFile (TempPath & "UnLoad.log")'удаление файла лога уже обработанной(последней) базы "на всякий случай"
(с) orlov widowsfaq.

http://www.computerra.ru/gid/rtfm/system/288972/
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2011, 10:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Автоматический бекап
Нужно сделать автоматический бекап на джумла 2.5, поискав в интернете нашел сайт где все доступно...

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

Бекап системы
С помощью чего сделать бекап системы Windows server 2003, если чтобы сделать установку ОС (это к...

1C не видит данные от бекап
На сервер систему заново восстановил, после этого все бекапы которые у меня есть я вставил на тот...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.