gifts2017

Архив версий файлов при записи через конфигуратор

Опубликовал Антон Юхлин (antonrost) в раздел Программирование - Инструментарий

Архив измененных файлов + контроль изменений файлов другими пользователями.
Возможности программы:
- Сохранение файлов в архиве при каждом сохранении через конфигуратор (ert, txt, mxl и любые другие).
- Log: кто и когда записывал файл (общий + отдельный по каждому файлу).
- Сообщение, если записываемый файл (проверка по имени файла) ранее сохранялся другим пользователем.

Проверки на изменение содержимого файла пока нет.
Путь для сохранения задается в переменной "folderName"

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

Наименование Файл Версия Размер
- 27
.1202278870 3,23Kb
25.09.09
27
.1202278870 3,23Kb Бесплатно

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Сhe Burashka (CheBurator) 06.02.08 11:27
я ромиксовской фенькой для версионности внешних обработок юзаюсь.. нормуль!!!
2. Poppy (poppy) 06.02.08 12:24
Одно время я пользовалась Регистратором от Гендальфа http://gendalf.ru/dep.development/registrator.php
3. Евгений Мартыненков (JohnyDeath) 06.02.08 13:38
4. Poppy (poppy) 06.02.08 22:44
(3) Отпала необходимость.
5. Андрей Загуляев (Mucmepukc) 07.02.08 10:31
так. все хорошо в общем-то (конечно, не помешало бы показ изменений)...

но! не сохраняется в имени копии файла день, т.е. 2 раза ставится год ;)
вот тут:
newFileName = right(newFileName, 2) & "_" & mid(newFileName, 4, 2) & "_" & right(newFileName, 2)

скорее, должно быть так:
newFileName = right(newFileName, 2) & "_" & mid(newFileName, 4, 2) & "_" & left(newFileName, 2)




6. AntonRost (antonrost) 07.02.08 11:48
Действительно, косячек... Исправил.
Со временем будут и изменения.
7. Андрей Загуляев (Mucmepukc) 08.02.08 22:28
так... а если такая "хотелка" - вопрос на сохранение копии? дабы не плодить количество версий...
8. AntonRost (antonrost) 11.02.08 12:12
Код
   ' Записываем копию сохраняемого файла в архив
   If MsgBox("Сохранить копию?", vbYesNo, SelfScript.Name) = vbYes Then
   ..........
   end if
Показать полностью
Mucmepukc; +1 Ответить
9. Андрей Загуляев (Mucmepukc) 11.02.08 14:48
о, сэнкс! тока правильнее наверно:
Код
Sub configurator_OnFileSaved(w)
If MsgBox("Сохранить копию?", vbYesNo, SelfScript.Name) = vbYes Then
   ..........
end if
end sub
Показать полностью
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа