Управление версиями внешних обработок: вариант реализации

Для чего это нужно

Учет версий внешних обработок будет полезен для разработчиков, которые разрабатывают универсальные модули в виде внешних обработок, например: модули обмена, панели продаж, отчеты и т.д. 

Как это работает

Для хранения версий внешних обработок я использую TortoiseHg (скачать можно здесь - http://tortoisehg.bitbucket.org/). Обработки хранятся в программе как бинарные файлы.

Для сравнения двух версий обработок был написан скрипт на AutoIT:

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <Array.au3>

Func SelectWindow($configList)
   GUICreate("Выберите окно конфигуратора", 700, 200, -1, -1, -1) ;BitOR($DS_MODALFRAME, $WS_SYSMENU))

   Local $idListview = GUICtrlCreateListView("", 0, 0, 700, 200, $LVS_LIST)
   ;GUISetBkColor(0xf0f0f0, $idListview)

   Local $ListItems[0]
   For $i = 0 To UBound($configList) - 1
	  _ArrayAdd($ListItems, GUICtrlCreateListViewItem($configList[$i][0], $idListview))
	  ;$ListItems[$i] = GUICtrlCreateListViewItem($configList[$i], $idListview)
   Next

   Local $result = -1
   Local $rowsCount = UBound($ListItems)

   GUISetState(@SW_SHOW)

   Local $idMsg = 0
   ; Loop until the user exits.
   While 1
	  $idMsg = GUIGetMsg()
      Switch $idMsg
         Case $GUI_EVENT_NONE
         Case $GUI_EVENT_CLOSE
            ExitLoop
		 Case Else
			For $i = 0 To $rowsCount - 1
			   If $idMsg = $ListItems[$i] Then
				  ;MsgBox($MB_SYSTEMMODAL, "listview", "clicked="+$i, 2)
				  $result = $configList[$i][1]
				  ExitLoop 2
			   EndIf
			Next
	  EndSwitch
   WEnd

   GUISetState(@SW_HIDE)
   GUIDelete()

   Return $result
EndFunc

Func Main()

   $test = 0
   If $test = 1 Then
	  $FileName1 = "D:\bases.1c\v82\test\ExtFiles\Обработка0.epf"
	  $FileName2 = "D:\bases.1c\v82\test\ExtFiles\Обработка.epf"
   Else
	  if $CmdLine[0] < 2 Then
		 MsgBox($MB_SYSTEMMODAL, "Ошибка", "Использование скрипта: 1c_diff <первый файл> <второй файл>")
		 Exit
	  EndIf

	  $FileName1 = $CmdLine[1]
	  $FileName2 = $CmdLine[2]
   EndIf

   Local $configList[0][0]

   Local $aList = WinList("[REGEXPTITLE: *Конфигуратор*; CLASS:V8TopLevelFrame]")
   ;_ArrayDisplay($aList)
   For $i = 1 To $aList[0][0]
	  If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
		 ReDim $configList[UBound($configList) + 1][2]
		 $configList[UBound($configList) - 1][0] = $aList[$i][0]
		 $configList[UBound($configList) - 1][1] = $aList[$i][1]
	  EndIf
   Next

   ;_ArrayDisplay($configList)

   If UBound($configList) = 0 Then
	  MsgBox($MB_SYSTEMMODAL, "Ошибка!", "Не найден открытый конфигуратор!")
	  Exit
   EndIf

   Local $selectedWindow = -1
   If UBound($configList) = 1 Then
	  $selectedWindow = $configList[0][1]
   Else
	  $selectedWindow = SelectWindow($configList)
   EndIf

   If $selectedWindow = -1 Then
	  Exit
   EndIf

   ;MsgBox($MB_SYSTEMMODAL, "Ошибка", $selectedWindow)

   WinActivate($selectedWindow)
   Send("{ALT}")
   Sleep(1000)
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{ENTER}")

   $dialog = WinGetHandle("Сравнить файлы")

   ;ControlSend($dialog, "", "[CLASS:V8FormElement; X:66; Y:6]", "{HOME}+{END}{DEL}")
   ;ControlSend($dialog, "", "[CLASS:V8FormElement; X:66; Y:6]", $FileName1)
   ;ControlSend($dialog, "", "[CLASS:V8FormElement; X:66; Y:30]", "{HOME}+{END}{DEL}")
   ;ControlSend($dialog, "", "[CLASS:V8FormElement; X:66; Y:30]", $FileName2)

   $old = ClipGet()

   ClipPut($FileName1)
   ControlSend($dialog, "", "[CLASS:V8FormElement; X:66; Y:6]", "{HOME}+{END}{DEL}^v{TAB}")

   ClipPut($FileName2)
   ControlSend($dialog, "", "[CLASS:V8FormElement; X:66; Y:30]", "{HOME}+{END}{DEL}^v{TAB}")

   ClipPut($old)

   Send("^{ENTER}")
EndFunc

Main()

Скрипт ищет открытые окна конфигуратора, предлагает выбрать (если их несколько), запускает стандатный диалог "Сравнить файлы" и подставляет пути к файлам, указанные в командной строке файла. Т.е. это аналог утилиты kdiff, только для файлов 1С. С помощью этого скрипта сравнение двух версий выполняется в несколько кликов:

1. Находим нужную версию файла и вызываем команду сравнения:

Скрипт открывает диалог сравнения в конфигураторе:

и запускает стандартную процедуру сравнения:

Как настроить

Настройка очень проста.

1. Нужно переписать файл "1c_diff.exe" (есть в архиве) в папку с установленной программой TortoiseHg (обычно это C:\Program Files\TortoiseHg\). В этой же папке обычно лежит kdiff3.

2. В папке локального хранилища зайти в служебную папку .hg и добавить текстовый файл "hgrc" (без расширения!) следующего содержания:

# Generated by TortoiseHg setting dialog

[extensions]
extdiff =

[extdiff]
cmd.vdiff = 1c_diff.exe

[tortoisehg]
vdiff = 1c_diff

Настройка закончена. После этого вместо стандартного сравнения kdiff будет использоваться скрипт 1c_diff.

В чем преимущества

Используются штатные средства, простая настройка, сохраняются все возможности работы с системой контроля версий, простое использование.

Замечания и предложения

Работа скрипта была проверена на 1С 8.2 и 8.3, серьезных неполадок замечено не было. Иногда в окно сравнения файлов "попадали" старые пути, т.е. высвечивался результат предыдущего сравнения. После закрытия и повторного запуска сравнения проблема пропадала. Думаю, проблема в кешировании файлов TortoiseHg, но дальше не разбирался.

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