Автоматизация выполнения регламентных заданий в файловом варианте работы при помощи AutoIt.

27.06.13

Разработка - Инструментарий разработчика

Автоматизация выполнения регламентных заданий в файловом варианте работы при помощи AutoIt.

Скачать файлы

Наименование Файл Версия Размер
Скрипты, файлы настройки, скомпилированные приложения
.zip 571,48Kb
48
.zip 571,48Kb 48 Скачать

Не ставится под сомнение, что регламентные задания лучше выполнять.
А как их выполнять если база – файловая?
Тут напрашивается  ответ – А пусть пользователь нажмет кнопку Регламентные и фоновые задания – Выполнить сейчас. Так считают разработчики  1С.
Ответ неверный. Во первых не хочется давать административные права, во вторых пользователям неохота нажимать на кнопки.
Хорошо, тут же нагуглим вариант – стартовать 1С с ключом /C"DoScheduledJobs SkipMessageBox AloneIBSession".
Куда девать пароль ? Авторизация по имени пользователя ОС.
Как запускать – в планировщик от имени другого пользователя.
А как останавливать? У планировщика Windows дискретность – полчаса.
В общем грабли на грабельках и костыликами погоняют.
И хотя каждый программист 1С тянется к Delphi, есть выход проще.

AutoIt + русская справка. Через час все готово. Причем в виде исполняемых файлов.
Программа поднимает 1С, выполняет в течении заданного времени регламентные задания и закрывает 1С. Все параметры в ini файле. Кроме пароля.

Пароль генерирует скрипт password.au3.

Сами скрипты несложные, разберетесь:

Не советую только злоупотреблять кириллицей, это  не 1С.

reglament1c.au3

;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT
;
; Script Function:
;

#include 

$inifile = @WorkingDir & "\setting.auto"
$passwordfile = @WorkingDir & "\password.auto"
Break(0) ;Disable break

If not FileExists($passwordfile) Then
    MsgBox(4096,"", "Password file does not exist.")
	Exit
EndIf
If not FileExists($inifile) Then
    MsgBox(4096,"", "Ini file does not exist.")
	Exit
EndIf

$strCommand = IniRead($inifile, "1C", "Command", "NotFound")
$strUser = IniRead($inifile, "1C", "User", "NotFound")
$strPath = IniRead($inifile, "1C", "Path", "NotFound")
$iTime = IniRead($inifile, "1C", "Time", "300")

$encrypted_password = FileRead($passwordfile)             ;read in encrypted password from file
FileClose($passwordfile)                   ;close password file
if StringLen($encrypted_password) = 0 Then
$strPassword = ""   
Else
$strPassword = _StringEncrypt(0,$encrypted_password,"f2f5f1f7ba",8)   
EndIf
;$strCommand = 'C:\Program Files (x86)\1cv82\8.2.18.102\bin\1cv8.exe ENTERPRISE /N"Федоров (администратор)" /P"" /IBConnectionString"File=""...\Управление торговлей 11"";"  /C"DoScheduledJobs SkipMessageBox AloneIBSession"'
$strCommand = $strCommand&'  ENTERPRISE /N"'&$strUser&'" /P"'&$encrypted_password&'" /IBConnectionString"File=""'&$strPath&'"";"  /C"DoScheduledJobs SkipMessageBox AloneIBSession"'
; Run 

$PID = Run($strCommand)
If not $PID Then
    MsgBox(4096,"", "Can't start 1C.")
	Exit
EndIf
SplashTextOn("Start 1C", "1C started",-1,50)
Sleep(3000)
SplashOff()
 
Opt("WinTitleMatchMode", 1)
WinWait("Выполнение регламентных заданий:")
WinSetState("Выполнение регламентных заданий:", "", @SW_HIDE)

 
ProgressOn("Progress", "Please wait while 1C running", "0 percent",10,10,2)
For $i = 10 to 100 step 10
    sleep(Int($iTime)*100)
	If WinExists("Выполнение регламентных заданий:") Then
     WinSetState("Выполнение регламентных заданий:", "", @SW_HIDE)
     Else
	 Exit
	EndIf
    ProgressSet( $i, $i & " percent, left: "& (Int($iTime) - Int($iTime)/100*$i)& " second")
Next
ProgressSet(100 , "Done", "Complete")
sleep(500)
ProgressOff()


; Now quit by sending a "close" request 
If $PID Then 
   If ProcessExists($PID) Then
    ProcessClose($PID)
   EndIf
EndIf

sleep(500)

; Finished!

password.au3



#include
Func _Manage_Password()
  Local $reset, $encrypted_password, $handle, $pwfile
  $pwfile = @WorkingDir & "\password.auto"
  $reset = msgbox(260,"PASSWORD RESET","Would you like to set your password?",10)  ;does user want to rest   password
  if $reset = 6 OR FileExists($pwfile) = 0 Then          ;if resetting pword or pword file doesn't exist
    $encrypted_password = _StringEncrypt(1,InputBox("Title","Prompt","","*"),"f2f5f1f7ba",8)  ;get pword and encrypt into a string
    $handle = FileOpen($pwfile,2)               ;open file in overwrite write mode
    FileWrite($handle,$encrypted_password)            ;write encrypted string into file
    FileClose($handle)                 ;close password file
Else
  $encrypted_password = FileRead($pwfile)             ;read in encrypted password from file
  FileClose($pwfile)                   ;close password file
EndIf
return $encrypted_password                ;return the encrypted password
EndFunc


$encrypted_password = _Manage_Password()           ;retrieve ecrypted pw or set a new one
$password = _StringEncrypt(0,$encrypted_password,"f2f5f1f7ba",8)   ;decrypt password
MsgBox(1,"password",$password,10)

; Finished!

См. также

SALE! 20%

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 10400 руб.

02.09.2020    121599    670    389    

711

SALE! 25%

Infostart PrintWizard

Пакетная печать Печатные формы Инструментарий разработчика Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

18000 15300 руб.

06.10.2023    7260    21    6    

39

SALE! 20%

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

10000 8000 руб.

10.11.2023    3499    11    1    

33

SALE! 30%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177724    1073    0    

849

Многопоточность. Универсальный «Менеджер потоков» 2.1

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018    99338    239    97    

296

[ЕХТ] Фреймворк для Расширений 1С

Инструментарий разработчика Платформа 1С v8.3 Управляемые формы Платные (руб)

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019    18102    6    8    

39

1С HTML Шаблоны / HTML Templates

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017    28091    3    10    

15

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

Инструментарий разработчика Обмен между базами 1C Платформа 1С v8.3 Платные (руб)

В процессе работы в 1С часто возникает потребность получить данные из другой базы.  Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019    23595    15    15    

32
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. LexSeIch 210 01.08.13 06:53 Сейчас в теме
Мир этому дому!
Плюсанул за статью. Я так же считаю что AutoIT - удобная обертка для запуска приложений. Всегда можно дополнить этот процесс какими-то своими условиями и проверками.
2. LexSeIch 210 01.08.13 09:46 Сейчас в теме
Код немного поправить надо. Что-то вроде:
...
$encrypted_password = FileRead($passwordfile) ;read in encrypted password from file
$password = _StringEncrypt(0,$encrypted_password,"f2f5f1f7ba",8) ;decrypt password
...
и далее подставлять в командную строку на выполнение уже расшифрованный пароль $password ...
3. capitan 2466 01.08.13 11:46 Сейчас в теме
(2) LexSeIch,
Тело хозяйское :)
За плюс - мерси.
4. identificator 13 13.11.13 09:42 Сейчас в теме
За что отвечает параметр Swith в файле setting.auto ?
5. capitan 2466 13.11.13 14:28 Сейчас в теме
В этой версии ни за что не отвечает.
Не обращайте внимания.
6. identificator 13 20.11.13 08:57 Сейчас в теме
Какие параметры нужно указать, чтобы скрипт не закрывался через определенное время, а работал бесконечно долго?
7. identificator 13 20.11.13 09:04 Сейчас в теме
И регламентные задания - в частности - автоматическая синхронизация - не отрабатывает. Скрипт при этом запущен. Информационное окно о состоянии работы скрипта есть. Запуск регламентного задания через 1С в ручную отрабатывает корректно. Автоматически через скрипт - не получается.
8. identificator 13 25.11.13 10:42 Сейчас в теме
Переписал скрипт.
Изменил алгоритм работы:
1) скрипт запускает 1С
2) после авторизации в 1С запускается обработчик регламентных заданий
3) скрипт убивает сам себя, не закрывая 1С.
Таким образом регламентные задания будут выполняться по расписанию и бесконечно долго без привязки к параметру Time.
10. LSM 07.05.14 01:57 Сейчас в теме
(8) identificator,
Если не сложно, поделитесь скриптом.
И еще вопрос. Почему-то автоматом не отрабатывает запуск 1С, т.е. приходится нажимать ок для авторизации пользователя. Версия платформы 8.2.19.83
11. capitan 2466 07.05.14 17:19 Сейчас в теме
9. Umix 131 26.02.14 09:14 Сейчас в теме
Дай бог памяти... много лет назад пользовался кажется "startx" не пинайте название точно не помню, висела она в трее, можно было много скриптов отработать и последовательность выдержать и по времени, однозначно выручала она и проще гораздо. Тогда еще AutoIt был совсем детский. Думаю пора вспомнить о ней.
12. jimli 6 29.07.21 16:16 Сейчас в теме
Какая нужная вещь!
Запускаю регламенты для файловой БД через планировщик Windows. Получаю висящий хвост, который мешает ночному бэкапу... Нашла много описаний этого языка, смущает дата публикации... Хотелось бы попробовать на Windows Server 2012, УТ 11.4..
13. bambucho 28.03.22 15:14 Сейчас в теме
Управляемыми формами (БП3) AutoIt нормально рулит или есть нюансы?
Оставьте свое сообщение