Ночная обработка

14.01.10

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

Ночной запуск обработки в 1С - 8

Потребовалось как-то обеспечить запуск в ночное время обработки в 1С - 8.0. Вроде ничего сложного - пишешь скрипт и ставишь его в планировщик на заданное время. Да вот беда - во время работы появляются сообщения, выводимые в окно сообщений, которые нужно затем проанализировать, а с закрытием 1с пропадают и все сообщения. Первая мысль - перенаправить поток в файл, но в 1С 8.0 такого не нашел. пришлось программно давить кнопки. Итак, что сделано.

  1. В корне диска D: создан текстовый файл Сообщения.txt.
  2. В модуле приложения в процедуре ПриНачалеРаботыСистемы вставлен текст
Если ОбработатьПараметрЗапуска() Тогда  
  Отказ = Истина; Возврат;                        
КонецЕсли; 
  1. В ОбработатьПараметрЗапуска()  есть такой кусочек
ИначеЕсли ЗначениеПараметраЗапуска = "PP" Тогда
    ПроведениеПоПартиям = Обработки.ПроведениеПоПартиям.Создать(); 
    Форма        = ПроведениеПоПартиям.ПолучитьФорму("Форма");
    ДатаКонца =  Дата(РазложитьСтрокуВМассивПодстрок(ПараметрЗапуска,";")[1],РазложитьСтрокуВМассивПодстрок(ПараметрЗапуска,";")[2],РазложитьСтрокуВМассивПодстрок(ПараметрЗапуска,";")[3]);
    Форма.ДатаКонцаОбработки = ДатаКонца;
    ПроведениеПоПартиям.ВыполнитьВосстановление();
    //Создаем WScript
    wshShell=Новый COMObject("WScript.Shell");
    //Переходим в окно "Служебные сообщения" Ctrl+Alt+O
    wshShell.sendKeys("^%(O)");
    //Выделяем текст окна Ctrl+A
    wshShell.sendKeys("^(A)");
    //Сохраняем в буфер Ctrl+С
    wshShell.sendKeys("^(C)");
    //завершаем работу 1С
    ЗавершитьРаботуСистемы(Ложь);
    Возврат ИСТИНА;

В качестве параметров запуска указан год,месяц,день (это для моей обработки, у вас - что угодно).

  1. Написан скрипт pp.vbs
WScript.Sleep 5000
Set WshShell=CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
Y  = objArgs(0)
M  = objArgs(1)
D  = objArgs(2)

WshShell.Run """C:\Program Files\1cv8\bin\1cv8.exe"" ENTERPRISE /F D:\1c\db\UT /N Exchange /P Exchange /Cpp;" & Y & ";" & M & ";" & D & " /DisableStartupMessages",1,1
WshShell.sendKeys "^%(Z)" 'Вызываем файл Сообщения.txt
WScript.Sleep 1000
Res = WshShell.AppActivate("Сообщения - Блокнот")
If Res Then
  WshShell.SendKeys("% ~") 'Раскрываем окно
  WshShell.sendKeys "^(A)" 'Выделяем текст в Блокноте
  WshShell.sendKeys "^(V)" 'Вставляем буфер
  WshShell.sendKeys "^(S)" 'Сохраняем текст
  WshShell.sendKeys "%{F4}" 'Закрываем блокнот
ELSE
  WScript.MessageBox("Приложение не найдено")
END IF
  1. В нужный момент бухи ставят на нужное время в планировщик запуск скрипта pp.vbs с параметрами год, месяц, день (например, "pp.vbs 2009 08 20" ) и выполняют обработку ПроведениеПоПартиям. После прогона все закрывается и выполняется автоматом обмен данными между базами. А наутро они открывают файл Сообщения.txt и смотрят как и что было, и не нужно ли еще чего.

См. также

SALE! 20%

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

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

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

13000 10400 руб.

02.09.2020    122091    670    389    

714

SALE! 25%

Infostart PrintWizard

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

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

18000 15300 руб.

06.10.2023    7281    21    6    

39

SALE! 20%

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

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

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

10000 8000 руб.

10.11.2023    3521    11    1    

34

SALE! 30%

PowerTools

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

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

3600 2520 руб.

14.01.2013    177733    1073    0    

849

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

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

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

5000 руб.

07.02.2018    99343    239    97    

296

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

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

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

3000 руб.

27.08.2019    18106    6    8    

39

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

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

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

2040 руб.

27.12.2017    28104    3    10    

15

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

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

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

2400 руб.

24.09.2019    23599    15    15    

32
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. kitminsk 205 15.01.10 08:04 Сейчас в теме
Упустил один момент - вешаем ярлык на файл Сообщения.txt и назначаем ему горячие кнопки Ctrk+Alt+Z, иначе непонятен оператор WshShell.sendKeys "^%(Z)" 'Вызываем файл Сообщения.txt
2. Reaper_1C 122 15.01.10 08:34 Сейчас в теме
Зря конфигурацию испохабил. Можно было весь код записать во внешней обормотке и указывать ее как параметр пакетного запуска 1С.
3. oberonm 9 15.01.10 08:57 Сейчас в теме
а что, разве кто то отменял вывод сообщений в файл с таким ключом: /OutD:\1C\logs\centre_out.log -NoTruncate
4. kitminsk 205 15.01.10 09:04 Сейчас в теме
Спасибо oberonorm! Сам не нашел :cry:
5. kitminsk 205 15.01.10 09:34 Сейчас в теме
С учетом замечания obernorm скрипт должен выглядеть следующим образом.
WScript.Sleep 5000
Set WshShell=CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
Y = objArgs(0)
M = objArgs(1)
D = objArgs(2)
WshShell.Run """C:\Program Files\1cv8\bin\1cv8.exe"" ENTERPRISE /F D:\1c\db\UT /N Exchange /P Exchange /Cpp;" & Y & ";" & M & ";" & D & " /DisableStartupMessages /OutD:\1C\logs\ppp.log",1,1
6. AKV77 259 15.01.10 15:06 Сейчас в теме
Уважаемый автор полгода использую http://infostart.ru/public/20238/, посмотри, может пригодится.
Оставьте свое сообщение