v7: Автоматическое открытие периода

1C 7.7

☑

0 OnePrg

05.07.21

✎

08:37

РИБ, дочек порядка 300. Каждый месяц открывать период вручную на всех долго. Как это можно автоматизировать?

1 ДенисЧ

05.07.21

✎

08:40

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

2 Garykom

гуру

05.07.21

✎

08:42

г) не пора ли уже перейти на 8-ку?

3 NorthWind

05.07.21

✎

08:42

(0) перейти в снеговика, там это реализовано :)

4 OnePrg

05.07.21

✎

08:43

(1) пункт б) подходит

вот такой код нарыл

Если ЭтоПервыйЗапуск = 0 Тогда
// не первый запуск
//Автоматическое открытие периода
ДатаТА=ПолучитьДатуТА();
Если (РабочаяДата()>ДатаТА)И
((ДатаМесяц(ДатаТА)<>ДатаМесяц(РабочаяДата()))ИЛИ(ДатаГод(ДатаТА)<>ДатаГод(РабочаяДата()))) Тогда
Если МонопольныйРежим()=0 Тогда
Ответ=Вопрос("Не открыт период!"+РазделительСтрок+
"Для открытия периода запустите программу в монопольном режиме!"+РазделительСтрок+
"Завершить работу программы?","Да+Нет");
Если Ответ="Да" Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
Иначе // монопольный режим
Если ИмяПользователя()="УстановкаТА" Тогда
УстановитьТАна(ТекущаяДата());
Иначе
Ответ=Вопрос("Не открыт период!"+РазделительСтрок+
"Выполнить открытие периода?","Да+Нет");
Если Ответ="Да" Тогда
УстановитьТАНа(РабочаяДата());
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;

5 Василий Алибабаевич

05.07.21

✎

08:43

(0) Вариант из издания "1С на селе и в городе" для режима "оперучет":
Запускать 1С из-под специального пользователя. В этом сеансе проверять

Если начМесяца(ТекущаяДата())>начМесяца(ПолучитьДатуТА()) ТОгда
  Если МонопольныйРежим()=0 Тогда
    Предупреждение("Для открытия нового периода необходимо
    |запустьить программу в монопольном режиме!");
    СтатусВозврата(0);
    Возврат;
  Иначе
    //30.09.18
    Если Вопрос("Открыть новый период", "Да+Нет") = "Да" Тогда
      УстановитьТАНА(ТекущаяДата());
      Предупреждение("Новый период открыт.
      |для продолжения нужно запустить программу в немонопольном режиме.");
    КонецЕсли;
  КонецЕсли;
КонецЕсли;

6 ДенисЧ

05.07.21

✎

08:44

(4) Умничка.
Тогда в чём вопрос?

7 Андрей_Андреич

naïve

05.07.21

✎

08:46

Только таймауты в вопросах и предупреждениях устанавливайте а то робот на кнопки жать не будет

8 OnePrg