Автоматическая архивация баз данных 1С 8.2, 8.1 и 7.7
База данных - Архивирование (backup)
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Ничего сложно нет. Кто работает со скриптами все поймет. Для остальных созданы комметарии к наиболее важным блокам программы.
Основные принципы работы:
* каждая база 1С архивируется в отдельную папку;
* в этой самой "отдельной папке" накапливаются все архивы баз 1С;
* при наступлении окончания срока хранения архива(ов) - автоматически удаляются из соответствующих папок;
* перед выгрузкой баз закрываются все локально запущенные экземпляры 1С версий 7.7, 8.1 и 8.2;
* ведётся максимально подробный лог;
* в случае АВАРИЙНОГО ЗАВЕРШЕНИЯ работы скрипта от имени заданного пользователя (напр. администратора) отправляется предупреждающее сообщение на указанный адрес. Есть возможность вложить в сообщение файл (напр. подробный лог, записываемый при архивации);
* работает с ФАЙЛОВЫМИ базами 1С v8.1, v8.2 и любыми базами 1С v7.7.
Весь процесс архивирования выполняется только средствами самой Windows и 1С (без привлечения дополнительного ПО).
Опубликована ОБНОВЛЕННАЯ ВЕРСИЯ v2 от 06.07.2010!!!
ИЗМЕНЕНИЯ в новой версии:
* Теперь все необходимые переменные и константы вынесены в начало скрипта;
* Сам код стал более информативным (добавлены новые комментарии);
* Лог-файл также стал более информативным, каждая операция подробно отражена;
* Добавлена функция дополнительного ежемесячного резервного копирования (дублирования) архивных файлов в отдельный каталог (раз в месяц дублируется последний файл). Если файл уже был ранее скопирован, то повторное копирование не происходит (дабы избежать беcсмысленных операций), о чем выводится сообщение в логе;
* После операции ежемесячного дублирования в лог выводится результат операции (напр. имя скопированного файла);
* После удаления устаревших файлов в лог записывается информация о кол-ве удаленных объектов;
* Появилась возможность управления состояниями процессов удаления файлов, дополнительного резервного копирования и отправки e-mail. Теперь при помощи констант можно ВКЛ. или ВЫКЛ. данные процессы;
* Проверяет наличие свободного места на диске для архивных копий и записывает в лог;
* Исправлена ошибка при работе с базами 1С v 7.7, при которой не выполнялось удаление устаревших файлов.
С ОБНОВЛЕНИЯ от 14.07.2010 поддержка 1С 8.2 !!!
С ОБНОВЛЕНИЯ от 24.07.2010 добавлена возможность отправки сообщений о каждом завершении работы скрипта на e-mail. При помощи константы EmailEndScript: если True - будет отправляться извещение об окончании работы скрипта, если False - не будет!
Еще новая опция. Определить наличие зарегистрированного пользователя в системе 1С. Константа User = True - пользователь есть (логин+пароль), User = False - в системе нет определенных пользователей (при этом имя и пароль запрашивать не будет).
Скрипт редактируем в блокноте, указавая свои данные. Что и где ввести см. на скриншотах!
В последней редакции исправлена некорректная работа с сетевыми путями при создании каталогов на удаленном компьютере.
Скачивайте! Буду рад, если кому-то помог!
P.S.
Планирую продолжить развитие темы.
Что будет в новой версии?
Информирование пользователей домена о начале регламентных работ.
Возможность принудительного завершения процессов 1С на всех компьютерах домена.
Отправки e-mail с компьютера, на котором не установлен локальный SMTP-сервис/сервер.
и конечно работа с SQL-версиями.
Идей много... Дело за малым... Найти ВРЕМЯ!
Вступайте в нашу телеграмм-группу Инфостарт
Автоматическая Архивация БД 1С 8.2 выгрузка БД файловая база данных лог архива e-mail при завершении без дополнительного ПО удаление устаревших архивов открытый код скрипта
См. также
Архивирование (backup) Системный администратор 1С:Предприятие 7.7 Абонемент ($m)
Эти далекие 2000е... мы архивировали как могли. Пример командного файла для windows -- архивациия базы SQL 1С:Предприятие 7.7 средствами платформы.
1 стартмани
30.08.2024 2767 0 kot1c 0
Архивирование (backup) Системный администратор Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)
Программа, написанная на Delphi7 для автоматизации сохранения БД.
1 стартмани
02.01.2017 17426 12 mt111 21
Архивирование (backup) Системный администратор 1С:Предприятие 7.7 1C77 Абонемент ($m)
Всё началось с того, что я лентяй. Когда пришел на работу в первый раз, мне сообщили, что уже лет 10 делают сохранение базы каждый день в конце рабочего дня. Из этого вытекает, что если кто-то решит подтянуть свои хвосты, то мне приходится сидеть на работе тоже. Честно, мягко говоря, меня это не особо радовало... Порывшись на просторах инета, было принято решение сделать "автосохранялку". Как уже говорилось, "Я ЛЕНИВЫЙ", поэтому мне было попросту лень ставить всякие утилиты и программки, реализовал все штатными средствами.
1 стартмани
02.12.2016 18483 5 mt111 10
Архивирование (backup) Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 1C:Бухгалтерия 1C77 Абонемент ($m)
Архив файловой базы 1С можно сделать за 30 секунд. Делаем предварительные настройки.
1 стартмани
09.12.2014 42874 12 denisk37 72
Архивирование (backup) Системный администратор Разработчик Бухгалтер 1С:Предприятие 7.7 1С:Предприятие 8 1C:Бухгалтерия 1C77 Абонемент ($m)
Бэкапер-1С: версия 1.5.0. Появилась гибкая система удаления старых копий! А также: автоматический поиск баз, архивация документов, встроенный архиватор 7-Zip, целостность создаваемых копий, шифрование, отправка отчетов на почту и каталогизация. Ещё никогда резервное копирование не делалось так просто.
1 стартмани
16.05.2013 80146 642 alexey.karmanov 181
Архивирование (backup) Системный администратор 1С:Предприятие 7.7 1С:Предприятие 8 1C:Бухгалтерия 1C77 Россия Бесплатно (free)
В работе регулярно возникает необходимость протестировать поведение программы на копии рабочей базы с актуальными данными
10.08.2012 21960 sergiobargio1 6
Архивирование (backup) Системный администратор Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 1C77 Россия Абонемент ($m)
Архивация баз данных 1С 7.7 (при небольшом редактировании и версий 1С 8.х) средствами командной строки и архиватора Izarc Архивация каталога базы данных при размещении на Linux (smb-сервере к примеру) средствами linux.
1 стартмани
11.05.2012 15898 16 slava81 5
Архивирование (backup) Системный администратор 1С:Предприятие 7.7 Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 1C77 Россия Абонемент ($m)
Обработка при помощи WinRar архивирует каталог с БД.
1 стартмани
06.04.2012 14792 34 l2d808 20
и сразу думаю нужен список баз организовать хранение в ini файле как для нормальной проги
готов подключится к работе для создания нормального многопрофильного скрипта
у меня даже есть реализация на vb механизма выгрузки через конфигуратор для SQL баз где обычное копирование не пройдет
А ВООБЩЕ ХОРОШИЙ ПРИМЕР КОДА И ВОЗМОЖНОСТЕЙ VB
я все это по крупицам собирал и тестировал
Так что вперед автор, делай новые версии, пиши на zerbo-2001@yandex.ru если что то нужно - реализуем вместе, можно потом и документацию небольшую сваять
по поводу других разработок: все не смотрел, но написанные на 1С категорически отметаю т.к.
1. нужен универсальное средство не зависящее от ключа или платформы
2. нужно удобство и быстрота разработки и доработки для конкретного случая - а 1С предназначена для экономических задач (открыть Syn в Totale гораздо быстрее со всеми подсветками чем конфигуратор)
3. ну и наконец - нужно иметь больший кругозор, ведь vb позволяет работать без 1С и делать тоже удобные вещи, это большой помошник при автоматизации работы с ПК
самая крутая на VB пока
рассматриваю только VB (как вариант JS, но на нем не видел) т.к. это позволяет добится тех же возможностей только без интерфейса что и другие разработки
но зато наработки на VB легко используемы в других местах и это открытый код, окрытые исходники, по моему мнению это нужно развивать т.к. закрытые решения в корне неинтересны
Подготавливаем строку для запуска 1С v 7.7
Строка для запуска 1С получилась следующая:
"C:\Program Files\1cv77\bin\1cv7.exe" config /d"D:\1cbase\nko\PRBasic" /n"Admin" /p"1" /@"D:\BackUp1C\nko\1CBackUp.prm"
Запускаем 1C в пакетном режиме...
Отчёт самой программы 1С о выгрузке базы следующий:
20100625;22:40:02;Admin;C;UpDown;UpDownDnldToFile;1;D:\BackUp1C\nko\1Cv7 25.06.2010 22.40.00.zip;;
20100625;22:41:12;Admin;C;UpDown;UpDownDnldSuc;1;;;
Удалим файл с отчётом 1С с диска компьютера...
Файл с отчётом 1С успешно удалён!
Удалим файл параметров выгрузки базы 1С с диска компьютера...
Файл параметров выгрузки базы 1С успешно удалён!
Закончили обработку базы № 1
Базы из 8-ки отлично выгружает! Респект!
А вот с семеркой такая ошибка:
Сценарий ...
Строка... (у меня 678) - функция выгрузки баз 1С 77
Символ: 3
Ошибка: Variable undefinite "FullPathBaseBackUpFolder"
Код 800A01F4.
Что я не так заполнил?
Строка: 588
Символ: 6
Ошибка: Ну удается найти указанный файл
Код: 80070002
Источник: CDO.Message.1
ВНИМАНИЕ!!! Проверяем наличие свободного места на диске для архивных копий...
Диск E: - / Своббодно: 26 333 Мбайт
Архивация закончена.
Дата: 30.07.2010
Время: 14:05:26
КОНЕЦ
Отправлено предупреждающее сообщение на e-mail.
Дата: 30.07.2010
Время: 14:05:26
КОНЕЦ
А вообще скриптик изумительный!!!
При проверке свободного места на диске ошибок нет
Диск E: - / Своббодно: 26 333 Мбайт
А вот тут: Источник: CDO.Message.1 ??? Думаю проблема с отправкой e-mail.
У Вас локальный SMTP сервер установлен?
Если нет? то надо установить такие значения для констант:
Const EmailEndScript = False
Const Email = False
Если таких констант у Вас нет, то качайте последнюю версию отсюда.
Что касается портативных версий, то думаю будет работать, главное чтобы все пути были верные, проверь...
в коплекте с бесплатным xStarter работает на 5 с плюсом :)
немного дописал функцию для прямой отправки мыла через SMTP майла-ру (можно и любого другого)...
Set iConf=CreateObject("CDO.Configuration")
Set Flds=iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="sender@mail.ru" 'почтовый ящик отправителя
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="pass" ' пароль на почтовый ящик
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.Update
objEmail.Send()
Показать(может пригодится кому)
Set iConf=CreateObject("CDO.Configuration")
Set Flds=iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="sender@mail.ru" 'почтовый ящик отправителя
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="pass" ' пароль на почтовый ящик
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.Update
objEmail.Send()
ПоказатьА куда это вставлять??? И какие-нибудь измнения еще в скрипте нужно при этом делать?
А то у меня локального smtp нет, а уведомление на почту ой как надо!!!
Ну или как сделать, чтобы после окончания выскакивало popup окошко с информацией либо о успешной выгрузке либо об провале???
В целом - все очень понравилось и пригодилось.
Сценарий: D:\1C_Arhiv\AutoBackUp (резервная копия).vbe
Строка: 26
Символ: 3
Ошибка: Недопустимый вызов или аргумент процедуры: 'Chr'
Код: 800А0005
Источник: Ошибка выполнения Microsoft VBScript
Может кто-то подскажет в чем может быть проблема, архивирование по розписанию вариантом №1 тоже не работает.
Интересует, каким образом закрываются локально запущенные экземпляры 1С ?
ага. меня вот тоже смущают строки типа
так делать нельзя;
автор по-видимому еще не сталкивался с проблемой разрушения баз при таких кренделях.. :?:
Отличный скрипт ,
в коплекте с бесплатным xStarter работает на 5 с плюсом
немного дописал функцию для прямой отправки мыла через SMTP майла-ру (можно и любого другого)...
А куда это вставлять а то локального SMTP нет....
Вначале скопировать базу во временный каталог (причем лучше вначале копировать самые свежие файлы для 7.7) а потом уже выгружать - так не надо выгонять пользователей, но портит достоверность архива
Если поможет посмотри реализовано
ситуация следующая
1с server + PosGreSQL живут на Ubuntu
клиент 1с живет на Windows
хочу пользовать скрипт
правлю скрипт под себя
------
Set MyBase = New Base1C
ReDim Preserve BasesList(UBound(BasesList)+1)
MyBase.Type1C = "82"
MyBase.Program1CName = "C:\Program Files\1cv82\8.2.12.80\bin\1cv8.exe"
MyBase.BaseLocationPath = "C:\Users\Wolf\AppData\Roaming\1C\1Cv82\tmplts\1c\Accounting\2_
MyBase.BaseBackUpFolderName = "Бухгалтерия"
MyBase.BaseBackUpFileName = "1Cv8"
MyBase.UserName = "Администратор"
MyBase.UserPassword = ""
Set BasesList(UBound(BasesList)) = MyBase
Set MyBase = Nothing
------
как я понял надо обращяться именно по таким путям
но лог пишет что
"Запускаем 1C в пакетном режиме...
Отчёт самой программы 1С о выгрузке базы следующий:
Информационная база не обнаружена!"
что делать :?:
-------------
ругается на то что база не найдена
но я не знаю где она еще можеть лежать ? ссылаюсь на вполне существующий файл (размером в 80 мб и форматом *.dt)
-------------
или изза того что у меня все через PostGreSql я не смогу указать скрипту на Информационную Базу ?
Начинаем процесс автоматической архивации.
Лог пишется в файл E:\BackUp1C\BackUp1CBases.Log
Дата: 8/1/2011
Время: 10:28:11 AM
Ищем все запущенные экземпляры 1С v 8.x ...
Найдено экземпляров 1С v 8.x: 0
Продолжаем работу.
Ищем все запущенные экземпляры 1С v 7.7 ...
Найдено экземпляров 1С v 7.7: 0
Продолжаем работу.
Проверяем существование корневой папки для архивов
E:\BackUp1C - File already exists
Папка нашлась.
Продолжаем работу.
Количество архивируемых баз = 2
Обрабатывается база № 1
Тип базы: 81
Имя исполняющего файла 1С: C:\Program Files\1cv81\bin\1cv8.exe
Исходное расположение базы: E:\Accounting
Папка для архивной копии: Бухгалтерия
Имя файла для архивной копии: 1Cv8Acc 7
Имя пользователя: Админ
Пароль пользователя: admin
Определили, что тип базы 1С v 8.1
Проверяем наличие папки для хранения архивной копии...
E:\BackUp1C - File already exists
E:\BackUp1C\Бухгалтерия - File already exists
Папка нашлась.
Проверяем наличие папки с информационной базой 1С...
Папка с информационной базой нашлась.
Продолжаем работу.
Подготавливаем строку для запуска 1С v 8.1
Строка для запуска 1С получилась следующая:
"C:\Program Files\1cv81\bin\1cv8.exe" CONFIG /DumpIB "E:\BackUp1C\Бухгалтерия\1Cv8Acc 7 8/1/2011 10.28.12 AM.dt" /F"E:\Accounting" /nАдмин /padmin /wa- /Out"E:\BackUp1C\Бухгалтерия\dump.log" -NoTruncate
Запускаем 1C в пакетном режиме...
Отчёт самой программы 1С о выгрузке базы следующий:
Каталог не обнаружен 'E:\BackUp1C\Бухгалтерия\1Cv8Acc 7 8\1\2011 10.28.12 AM.dt'
Удалим файл с отчётом 1С с диска компьютера...
Файл с отчётом 1С успешно удалён!
Переходим к резервному копированию месячных копий баз 1С...
Проверяем наличие папки для хранения ежемесячных копий...
E:\BackUp1C - File already exists
E:\BackUp1C\ReserveMonth - File already exists
Папка для хранения ежемесячных копий баз 1С нашлась.
Резервирование не требуется! Ждем окончания месяца.
Переходим к удалению устаревших копий баз 1С...
Устаревших файлов не обнаружено
Закончили обработку базы № 1
Обрабатывается база № 2
Тип базы: 82
Имя исполняющего файла 1С: C:\Program Files\1cv82\8.2.9.356\bin\1cv8.exe
Исходное расположение базы: E:\1CBases\Small
Папка для архивной копии: Небольшая фирма
Имя файла для архивной копии: 1Cv8Small
Имя пользователя: Админ
Пароль пользователя: admin
Определили, что тип базы 1С v 8.2
Проверяем наличие папки для хранения архивной копии...
E:\BackUp1C - File already exists
E:\BackUp1C\Небольшая фирма - File already exists
Папка нашлась.
Проверяем наличие папки с информационной базой 1С...
Папка с информационной базой не обнаружена, нет объекта для резервирования!!!
АВАРИЙНОЕ ЗАВЕРШЕНИЕ РАБОТЫ ПРОГРАММЫ!!!
Const EmailAddAttachment = "F:\\SBS BackUp.Log" 'вложение в письмо (ВНИМАНИЕ двойной \\)
тут должно быть указано место расположения вашего Log файла.
Еще раз обращаю ваше внимание на вот этот момент - ВНИМАНИЕ двойной \\ !!!
1. что будет если в базе висит пользователь ?
2. Работает ли на win2003standart ? (может кто использовал уже )
Снимаю вопрос 1 в 106, скрипт останавливает 1с8 и 1с77
Продолжаем разбираться дальше
После прописки необходимых путей скрипт замечательно работает на 2003 сервере, архивирую 3 базы, 2 -8.1, одна 8.2. Запуск архивации (скрипта) по планировщику.
Вопрос, я так понял скрипт может почту слать только с ЛОКАЛЬНОГО smtp ? Или можно заставит подключиться к внешнему?
Необходимо прописать BackUpFolder и ReserveFolder как сервер.
Пишу: "\\192.168.0.100\d$\1\", а программа создает такие же папки на этом компьютере!
Хотя из командной строки обращаюсь к серверу - все нормально.
Помогите.
Имеем 40 адресов, 70 серваков, 270 баз 1С разного вида и рода.
Надо настроить бэкапы.
Бэкапы должны копироваться на сетевые хранилища. Желательно это все администрировать удаленно.
Сравнил я проги:
Хранитель
Эфектор
(глянул мельком
По сути это просто копировальщики файлов, умеют копировать файлы по шаблону 1С,
умеют посылать сообщение о результатах бэкапа.
Все эти проги не смогут сбэкапить 1С, если в нее кто-то зашел монопольно. Выкидывать юзеров они не умеют.
"Озадачился и я этой проблемой.
Имеем 40 адресов, 70 серваков, 270 баз 1С разного вида и рода.
Надо настроить бэкапы.
Бэкапы должны копироваться на сетевые хранилища. Желательно это все администрировать удаленно.
Сравнил я проги:
Хранитель
Эфектор
(глянул мельком
По сути это просто копировальщики файлов, умеют копировать файлы по шаблону 1С,
умеют посылать сообщение о результатах бэкапа.
Все эти проги не смогут сбэкапить 1С, если в нее кто-то зашел монопольно. Выкидывать юзеров они не умеют."
Эфектор ( умеет, но только в платной версии.
Спасибо за комментарии.
Протестировал, и действительно, есть проблема с созданием папки на сервере по сети. Сейчас вношу корректировки. Так что, через пару часов сможете скачать обновленную версию.
Жду других замечаний, если таковые будут. А также принимаются пожелания.
Либо она работает тупо копированием файлов и архивированием в архив? если так то думаю Скуль точно не будет работать.
скрипт запускается самостоятельно.Сначала находит запущеные процессы 1с и "убивает" их, потом запускает конфигуратор 1с и штатно создаёт копии баз в указаные папки. Причём у меня на такое создание уходит времени в два раза меньше нежели запускать вручную.
В 2 раза меньше времени???
У вас наверное дикие проблемы с компом. Процедура выполняет те же функции, за исключением открытия конфигурации и показа интерфейса. Ну разве что еще не надо ждать пока процесс 1Сок завершится, а быстро убивает его, но это все-таки некорректно, в первую очередь надо решать проблему "выключения" 1Ски штатными административными мерами.
не в два конечно, но быстрее.
Скрипт трудится месяца 4, пока проблем не замечал.
Правда ещё раз в неделю тестирование запускается.
В логе по результатам тестирования тоже вроде нет ничего криминального
вин 2003, стандарт. копируются 3 базы две 8.1 и 8.2, базы файловые, терминальных сессий нет.
Вышел из положения следующим образом:
Заменил процедуру "насильственного процессо-убийства" на такую вот
Function KillProcess (ByVal PName)
Dim objShell
Err.Clear
On Error Resume Next
Set objShell = WScript.CreateObject ("WScript.shell")
If Err.Number <> 0 Then
AppendToFile strLogFileName, "ПРОИЗОШЛА ОШИБКА!!!"
AppendToFile strLogFileName, Err.Number & ": " & Err.Description
AppendToFile strLogFileName, "АВАРИЙНОЕ ЗАВЕРШЕНИЕ РАБОТЫ ПРОГРАММЫ!!!"'
SendEmail
WScript.Quit
End If
objShell.run "taskkill /F /IM " & PName, 0
Set objShell = Nothing
end function ПоказатьМожет кому пригодится.
Но вот не могу никак понять почему у меня для 8.2 баз открывает окно авторизации? Параметр User=True, Пользователь и пароль в параметрах указал. А она все равно спрашивает. Как это лечить?
- запуск в пакетном режиме с указанием базы, пароля
- в случае, если в список (по сути в реестр) эти базы добавлены не были
В этой ситуации 1с-ка не выполняет указанные операции, а тупо предлагает дописать базы в список баз (в реестр)
У вас эта ситуация продумана?
Самы простой вариант, для 1с77 дописывать новую "временную" базу в реестр, а после окончания выгрузки удалять её.
Там же можно добавить всякие галочки "не показывать при запуске", которые иногда вылазят при первом запуске базы после обновления.
objEmail.AddAttachment(EmailAddAttachment)
в записи лога она не используется. Т.е. такого файла не существует. Получаем ошибку:
CDO.Message.1: Не удается найти указанный файл.
Какой файл тут должен использоваться?
Отличия от исходника:
1) В параметры базы добавлен ещё один параметр - "SQL"
2) Параметр BaseLocationPath принимает значение "имя_сервера\имя_базы", если база скульная
3) В связи с п.2 удалена конструкция поиска папки с базой, т.к. я счёл, что среди нас слепошарых нет
4) Удалил вилку зависимости наличия зареганных пользователей в базе (нахуана автор влепил User в константы, ведь в одной базе они могут быть, а в другой неть, я так и не вкурил)
5) Вместо п.4 воткнул вилку проверки варианта "файл/SQL"
=============
В общем добавляем параметры из своих скриптов, только не грохайте и отрегулируйте строку
MyBase.SQL = "True" 'если база SQL, иначе ставим "False" P.S. Приветствуются плюсики, чтобы загнать пост вверх, т.к. скуль версия много кому спонадобится.
возник по ходу вопрос, скприпт не дожидается завершения выгрузки базы и соответственно лог файл о выгрузке в случае какой либо ошибки не прикрепляется к письму , подскажите как исправить чтобы скрипт ждал завершения выгрузки базы ?
правда письмо на почту не приходит ((
Sub SendEmail
Dim objMsg, Config
If Email Then
AppendToFile strLogFileName, " "
AppendToFile strLogFileName, "Отправлено предупреждающее сообщение на e-mail."
AppendToFile strLogFileName, "Дата:" & vbTab & Date
AppendToFile strLogFileName, "Время:" & vbTab & Time
AppendToFile strLogFileName, "КОНЕЦ"
AppendToFile strLogFileName, " "
Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
objMsg.From = "xxxxxxx@gmail.com"
objMsg.To = "xxxxxxxxx@gmail.com"
objMsg.Subject = "Test sending email from sсriрt"
objMsg.Textbody = "This is a body of E-mail."
objMsg.AddAttachment(EmailAddAttachment)
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
Config("http://schemas.microsoft.com/cdo/configuration/sendusername") ="xxxxxxxx@gmail.com"
Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Config("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config.Fields.Update
objMsg.Send
End If
End Sub ПоказатьЗаменить всю функцию SendEmail
Сам ею пользовался, тока вот на новой работе приходится заново качать.
Весчь!!!
скачавших 3360 человек! На рекорд идет!
Вы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.
№ 72057
Создание 21.06.10 13:33
Обновление 01.05.23 11:54
Просмотры 88601
Загрузки 4138
Рейтинг
425
Комментарии 167
Код открыт Да
Рубрики Архивирование (backup)
Тип файла Компонента, плагин (dll, vbs,..)
Платформа
1С:Предприятие 7.7
,
1С:Предприятие 8
Конфигурация
1C:Бухгалтерия
,
1C77
Операционная система Windows
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)
