gifts2017

1С Саппорт 7.7

Опубликовал Сергей Водаков (WaterSmith) в раздел Администрирование - Сервисные утилиты

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

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

Всего лишь скопировать заранее подготовленный список файлов в указанные базы данных, а именно в папку 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) 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) 10.09.09 09:51
(0) Посмотри один прикол... http://infostart.ru/blogs/1245/.
У меня более 100 баз. Проблем нет.
6. Starik (Starik) 10.09.09 11:11
Пожелание - Удаление несуществующих баз
7. Сергей Водаков (WaterSmith) 10.09.09 14:11
2vip - да, именно так. Буду весьма благодарен за другой, более четкий алгоритм.
8. vip (vip) 10.09.09 15:37
(7) Нужно проверять на залоченность байты файла links.tmp со смещением 2000001 + НомерЗаписиОЮзере.
Если байт залочен, юзер активен.
zaic; WaterSmith; Арчибальд; +3 Ответить
9. Александр Рытов (Арчибальд) 10.09.09 15:42
А в самом деле, (5) - понятно...
10. vip (vip) 10.09.09 15:45
(9) Стесняюсь спросить, от Вас за что плюс?
Тоже такими фишками балуетесь? Помогла моя подсказка?
11. Александр Рытов (Арчибальд) 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. Александр Рытов (Арчибальд) 10.09.09 16:11
(12) ... не сказать еще хужей...
14. vip (vip) 10.09.09 16:13
(13) Что-то не нравится в коде?
Буду благодарен за критику.
15. Сергей Водаков (WaterSmith) 10.09.09 16:39
(12) За алгоритм спасибо, вечером попробую реализовать.
Но вот вопрос, а как часто будет врать простой парсинг? Так ли уж принципиально проверять залоченность байтов?
16. vip (vip) 10.09.09 16:53
Кгхрм...
Вопрос примерно про то, можно ли быть немножко беременной.
Данные не могут быть иногда неправильными.
Они или правильные, или нет.
17. Александр Рытов (Арчибальд) 10.09.09 17:03
(14) код в норме. Комментирую язвительность :)
18. Александр Рытов (Арчибальд) 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
...
Саппорт некая служба для решения проблем именно пользователей. а не облегчения собственной работы.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа