Как при компиляции выдать сообщение об отладочной версии?

[morkovin]

В приложении есть пара файлов, для которых при отладке я меняю в словаре драйвер с MEMORY на TPS. Перед выкладкой юзерам меняю снова TPS на MEMORY, перекомпилирую и выгружаю. И вот после десятка компиляций я частенько забываю сделать обратную замену. Хотелось бы иметь шаблон, проверяющий условие MEMORY <-> TPS и выдающий сообщение-напоминание при компиляции.

[Дед Пахом]

Можно в SV отправить Feature request.

[Игорь Столяров]

А почему именно на этапе компиляции ? Надоест она долбить этим сообщением ...
Можно просто в приложении проверить драйвер таблицы и, например, выделить ярким цветом TOOLBAR
или показать картинку в AppFrame. Сразу будет видно что работает программа, собранная в отладочном режиме.

[finsoftrz]

Я, может, сложно скажу. Если есть динамический драйвер, то можно при входе в программу подменять. На компьютере разработчика кладем в каталог файлик с зарезервированным именем. Находим, заменяем на tps. У юзеров его нет, работают с мемори. И никаких замен в словаре не надо, никаких пересборок.

[Игорь Столяров]

Ну если говорить о здравом смысле, а не по теме сабжа - тогда если нужно контролировать содержание рабочего файла,
то можно прикрутить LIST для его просмотра в In-Memory или записи в TPS/CSV/XML/JSON в нужном месте при отладке.
Всё … но конечно, это будет нет так забавно как со сменой словаря.

[Admin]

Хотелось бы иметь шаблон, проверяющий условие MEMORY <-> TPS

Ну вот как то так. Давно не писал но должно работать. (добавил проверку на %ApplicationDebug)

Код: Выделить всё

#TEMPLATE(Check1,'Check file driver'), FAMILY('ABC')
#EXTENSION(DriverCheck, 'Check file driver'), APPLICATION
#PROMPT('&Check files',FROM(%File)),%CheckFiles,MULTI('Check files'),UNIQUE
#ATSTART
  #IF(~%ApplicationDebug)
    #FOR(%File)                          
      #FOR(%CheckFiles)
        #IF(%File = %CheckFiles AND %FileDriver = 'TOPSPEED')
          #ERROR('Change driver please: ' & %File)
          #BREAK
        #ENDIF
      #ENDFOR 
    #ENDFOR
  #ENDIF  
#ENDAT

[morkovin]

Ну вот как то так. Давно не писал но должно работать. (добавил проверку на %ApplicationDebug)

Спасибо! Отлично работает!

[morkovin]

Если есть динамический драйвер,

У нас для С11 вроде нет такого драйвера?

[finsoftrz]

Если есть динамический драйвер,

У нас для С11 вроде нет такого драйвера?

Есть...