IE2017

1С Саппорт 7.7

Администрирование - Сервисные утилиты

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

Сейчас она умеет не так много.

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

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

Также программа позволяет:

- получить информацию о базе данных (версия конфигурации, размеры папок)

- одним взглядом оценить, свободна база или в ней сейчас работают, или такого пути вообще не существует

- просмотреть список активных (работающих) пользователей не запуская монитор

- запускать базу данных в любом режиме

Пользуйтесь правой кнопкой, все интересное под ней

В планах:

- архивация базы данных

- удаление "мусора" - папки "New_Stru", "Syslog", Старых регламентированных отчетов, удаление индексных файлов

- создание пакетных файлов и запуск конфигуратора в пакетном режиме

- ... ваши предложения

 

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

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

Наименование Файл Версия Размер
-
.1252512142 583,85Kb
25.09.09
71
.1252512142 583,85Kb 71 Скачать

См. также

Комментарии
1. Alxd (salexdv) 09.09.09 23:05 Сейчас в теме
Наши предложения: поддержка 8.х
И еще... Syslog далеко не "мусор" :))
2. Сергей Водаков (WaterSmith) 334 09.09.09 23:30 Сейчас в теме
"Syslog далеко не "мусор"" Он так сказать иногда мусор =), когда mlg файл поврежден, так вообще 1С не стартует.
А поддержка 8.х, там ведь другие задачи, внешние отчеты в папке с базой не хранятся.
А если серьезно, пока просто нет клиентов на 8.х, соответственно понятия не имею какие там задачи решать надо. Если будут четкие пожелания, можно будет что то придумать.
3. Alxd (salexdv) 10.09.09 08:48 Сейчас в теме
1) Сведения о конфигурации желательно получать в отдельном потоке, чтобы окно программы не висло и была возможность работать с остальными базами
2) Было бы круто, если при наведении курсора мыши на базу в подсказке показывался список пользователей работающих с ней в данный момент
3) Применительно к 8.1 пока сделать архивирование и тестирование
4) Добавить сортировку баз по наименованию
5) Слишком уж много памяти отъедает
4. vip (vip) 10.09.09 09:40 Сейчас в теме
(0) Список активных пользователей работает неправильно.
И не будет работать правильно, т.к. ты похоже просто парсишь links.tmp
Механизм определения активных пользователей несколько сложнее.
5. Дмитрий Литовченко (kompas-dm) 750 10.09.09 09:51 Сейчас в теме
(0) Посмотри один прикол... http://infostart.ru/blogs/1245/.
У меня более 100 баз. Проблем нет.
6. Starik (Starik) 105 10.09.09 11:11 Сейчас в теме
Пожелание - Удаление несуществующих баз
7. Сергей Водаков (WaterSmith) 334 10.09.09 14:11 Сейчас в теме
2vip - да, именно так. Буду весьма благодарен за другой, более четкий алгоритм.
8. vip (vip) 10.09.09 15:37 Сейчас в теме
(7) Нужно проверять на залоченность байты файла links.tmp со смещением 2000001 + НомерЗаписиОЮзере.
Если байт залочен, юзер активен.
zaic; WaterSmith; Арчибальд; +3 Ответить
9. Александр Рытов (Арчибальд) 2660 10.09.09 15:42 Сейчас в теме
А в самом деле, (5) - понятно...
10. vip (vip) 10.09.09 15:45 Сейчас в теме
(9) Стесняюсь спросить, от Вас за что плюс?
Тоже такими фишками балуетесь? Помогла моя подсказка?
11. Александр Рытов (Арчибальд) 2660 10.09.09 15:48 Сейчас в теме
(10) За смещение. Мне не помогла, но кому-то однозначно поможет.
12. vip (vip) 10.09.09 16:07 Сейчас в теме
(7) Т.к. в личку поступило несколько аналогичных вопросов, выкладываю код здесь.
Только на бейсике. Я малограмотный, трактатов про БУ, УУ и УО писать не умею.
Надеюсь, лего переведете на используемые выми языки.

Dim k As Long
Dim SA As SECURITY_ATTRIBUTES
Dim lngHandle As Long
Dim TextLine As String

retVal = ""

lngHandle = CreateFile(ParamVal(0), &H80000000 Or &H40000000, &H1 Or &H2, SA, 3, 0, 0)

Open ParamVal(0) For Input As #1
k = -1
Do While Not EOF(1)
Line Input #1, TextLine
TextLine = Mid(TextLine, 1, 100)
If Mid(TextLine, 1, 6) = "{" & """" & "Name" Then
k = k + 1

If LockFile(lngHandle, 2000001 + k, 0, 1, 0) = False Then
TextLine = Mid(TextLine, 7)
TextLine = Replace(TextLine, """", "")
TextLine = Replace(TextLine, "}", "")
TextLine = Replace(TextLine, ",", "")
retVal = retVal & TextLine & ";"
Else
UnlockFile lngHandle, 2000001 + k, 0, 1, 0
End If
End If
Loop

Close #1
CloseHandle lngHandle

ЗЫ. ParamVal(0) это ваш файл links.tmp
13. Александр Рытов (Арчибальд) 2660 10.09.09 16:11 Сейчас в теме
(12) ... не сказать еще хужей...
14. vip (vip) 10.09.09 16:13 Сейчас в теме
(13) Что-то не нравится в коде?
Буду благодарен за критику.
15. Сергей Водаков (WaterSmith) 334 10.09.09 16:39 Сейчас в теме
(12) За алгоритм спасибо, вечером попробую реализовать.
Но вот вопрос, а как часто будет врать простой парсинг? Так ли уж принципиально проверять залоченность байтов?
16. vip (vip) 10.09.09 16:53 Сейчас в теме
Кгхрм...
Вопрос примерно про то, можно ли быть немножко беременной.
Данные не могут быть иногда неправильными.
Они или правильные, или нет.
17. Александр Рытов (Арчибальд) 2660 10.09.09 17:03 Сейчас в теме
(14) код в норме. Комментирую язвительность :)
18. Александр Рытов (Арчибальд) 2660 10.09.09 17:06 Сейчас в теме
(16) А вот тут возражу. Данные обычно слегка неправилиные. Во всяком случае, я из этого исхожу....
19. vip (vip) 10.09.09 17:31 Сейчас в теме
(17) А... Ну, прости, это не к тебе относится.
(18) Ну да. 2х2 изредка бывает равно 5, иногда даже 6. Ввиду достаточно малой вероятности получить такой результат, этим можно пренебречь.
20. Saw (Re:аниматор) 11.09.09 06:43 Сейчас в теме
название не удачное. чем вызвано такое название?

Саппорт (от англ. Support - Поддержка, Поддерживать) - это та или иная служба поддержки (хостинг-компании, сайта, форума). "Пишите им в саппорт" значит, что тебе нужно написать письмо в службу поддержки
21. Saw (Re:аниматор) 11.09.09 06:57 Сейчас в теме
...
Саппорт некая служба для решения проблем именно пользователей. а не облегчения собственной работы.
Оставьте свое сообщение