Автоматическая дата сохранения чертежа

[Toptotal]

Все вопросы даты и тд  решаются самим виндовсом, так как ntfs все пишет и есть дата последней модификации и дата изменений.
В плагине Total commander он встроен tc называется. Картинку прилагаю сортировка по дате  последнего доступа и видно дата модификации отличаются от даты последнего доступа.

[Toptotal]

Это не совсем так. Если Вы получили чертеж утром, весь день над ним работали, а вечером вы получили новый чертеж с этой же датой, но с другой конструкцией.

Время тоже фиксируется и дата и время, вплоть до секунд.

[Doom2]

Toptotal а как учесть что к чертежу из сети могут два конструктора обратится и одновременно внести изменения?

[Toptotal]

как учесть что к чертежу из сети могут два конструктора обратится и одновременно внести изменения?

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

[Doom2]

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

Не ну как так то какая разница - обратились трое и внесли значимые правки и как потом быть когда по логике windows файл просто перезапишется и все?

[Toptotal]

просто перезапишется и все?

А что тебе надо ? Чтоб версия хранилась ? Есть и такое, ну или просто копии делаются в течении дня несколько раз и раз в 10 одна версия архива, остальное удаляется и хранятся несколько версий каждые 10 дней простая прога есть.
Что нужно тебе от того что внесли 10 изменений. Вопрос был в соответствии версии и чертежа. Один из вариантов соответствие массы и обьема. Ключивые значения контролировать между чертежом и 3Д моделью..

[Doom2]

А что тебе надо ? Чтоб версия хранилась ? Есть и такое, ну или просто копии делаются в течении дня несколько раз и раз в 10 одна версия архива, остальное удаляется и хранятся несколько версий каждые 10 дней простая прога есть.
Что нужно тебе от того что внесли 10 изменений. Вопрос был в соответствии версии и чертежа. Один из вариантов соответствие массы и обьема. Ключивые значения контролировать между чертежом и 3Д моделью..

Ну и зачем такой огород? Я как то спрашивал про работу программы запароливания файлов так и не ответили. А там все просто даже проще пареной репы оказалось..

[lavgirb]

Advocut, ещё. Современные программы для работы с PDF позволяют редактировать PDF. Получаете PDF, вносите в него дату получения. Да и дату передачи станочнику можно. Все, что посчитаете нужным. И конструкторов можно не беспокоить, даже. Раз они не идут Вам на встречу.

[Toptotal]

Если кому интересно может доработать переделанный(ссылка на оригинал в скрипте). скрипт который сравнивает файлы чертежа и пдф. Можно и чертеж и модель сравнивать меняя расширения в скрипте.
В списке есть исходные данные (например: 1.cdw, 2.cdw, 3.cdw, 4.cdw) и их производные (1.pdf, 2.pdf, 3.pdf, 5.pdf).

Требуется выполнить несколько задач:

a) Найти все cdw-файлы, к которым нет соответствующего pdf (напр. 4.cdw)
b) Найти все pdf-файлы, к которым нет соответствующего cdw (напр. 5.pdf)
c) Найти все pdf-файлы старее, чем исходный cdw, и соответственно устаревшие
================================================================================
'Script for Script content Plugin
' van Dusen
' (c)Lev Freidin, 2005
' http://www.totalcmd.net/plugring/script_wdx.html
' http://wincmd.ru/plugring/script_wdx.html

Dim fso, f1, f2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile(filename)

sBaseIst = lcase(fso.GetBaseName(filename))
sExtIst = lcase(fso.GetExtensionName(filename))
sDateModF1 = f1.DateLastModified
sExtSoll1 = "cdw"
sExtSoll2 = "pdf"
Const ForReading = 1


SELECT Case sExtIst

   Case sExtSoll1
      sResult = sExtSoll2 & " - сответствующий файл"
      If fso.FileExists(sBaseIst & "." & sExtSoll2) Then
         Set f2 = fso.GetFile(sBaseIst & "." & sExtSoll2)
         sTimeDiff = DateDiff("n", sDateModF1, f2.DateLastModified)
         If sTimeDiff < 0 Then
            sResult = "2: " & sResult & " устарел"
         Else
            sResult = "1: " & sResult & " свежий"
         End If
         sResult = sResult & " (" & sTimeDiff & " Min. Diff.)"
      Else
         sResult = "3: " & sResult & " отсутствует"
      End If

   Case sExtSoll2     
      If fso.FileExists(sBaseIst & "." & sExtSoll1) Then
         Set f2 = fso.GetFile(sBaseIst & "." & sExtSoll1)
         sTimeDiff = DateDiff("n", sDateModF1, f2.DateLastModified)
         If sTimeDiff > = 0 Then
            sResult = "2: Файл устарел"
         Else
            sResult = "1: Свежий файл"
         End If
         sResult = sResult & " ("& sTimeDiff & " Min. Diff.)"
      Else
         sResult = "3: "& sExtSoll1 &" - соответствующий файл отсутствует"
      End If

   Case Else
      sResult = ""

End SELECT

content = sResult

Set fso=nothing
Set f1=nothing
Set f2=nothing

[Doom2]

фу фу фу спрячьте этот код..

[Петрович-47]

Doom2, приложите свой... померяйтесь...

[Doom2]

Петрович-47, не ну зачем археологическими раскопками заниматься ? не на роком можно воскресить лихо  он не запустится по причине базовых средств защиты windows.

[Toptotal]

он не запустится по причине базовых средств защиты windows

Он в Тотале командоре запускается как плагин и как кнопка на баре..
http://forum.wincmd.ru/viewtopic.php?t=16067&postdays=0&postorder=asc&&start=0
Второй плагин для скриптов.

[Doom2]

Он в Тотале командоре запускается как плагин и как кнопка на баре..
http://forum.wincmd.ru/viewtopic.php?t=16067&postdays=0&postorder=asc&&start=0
Второй плагин для скриптов.

Это я вижу, а Вас не смущает дата 2004 год?

Сама инициализация интерпретатора vbs может быть как блокнутый политикой windows.
Альтернатива - bath

[Николай]

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

[Toptotal]

Это я вижу, а Вас не смущает дата 2004 год?

Какая разница, Компасу сколько лет? А ТС я сижу с 1996 года и не понимаю как можно в проводнике работать..

[Doom2]

А ТС я сижу с 1996 года и не понимаю как можно в проводнике работать..

Полагаю у Вас и ос старого образца - windows XP или windows 2000? 
Помню ставили в конторе win10 и там включили самую хардкорную политику безопасности и теперь там не чего нельзя сделать.

[СВ]

... А ТС я сижу с 1996 года и не понимаю как можно в проводнике работать..

Просто обзавидовался: для жизни требуются всего лишь три программы - КАД, ТС и браузер!

[Toptotal]

Помню ставили в конторе win10 и там включили самую хардкорную политику безопасности и теперь там не чего нельзя сделать.

Мне все равно что там включили. если не включить работу под админом прогу то и в обычном компасе много не сделаете с файлами.
Вин 7 х64 , все работает. вообще то ветка от скиптов до 11.2024 года вроде запись у всех работает тлько у Вас проблемы.

[Toptotal]

Просто обзавидовался: для жизни требуются всего лишь три программы - КАД, ТС и браузер!

Забыл добавить еще 4тую MS Office 
А так да. Портейблы на пихал в ТС и все. а сам ТС заменяет 90% всех прог. Запись дисков, плееры, вьюверы, телефон зайти файлы скопировать и тд все есть в ТС и его плагинах. Чего нету докручивается портейблом и кнопочкой на баре или в меню.