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

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

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

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

Для хранения версий внешних обработок я использую 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:ases.1cv82	estExtFilesОбработка0.epf"
$FileName2 = "D:ases.1cv82	estExtFilesОбработка.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}#k8SjZc9Dxkv{TAB}")

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

ClipPut($old)

Send("#k8SjZc9Dxk{ENTER}")
EndFunc

Main()

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

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

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

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

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

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

1. Нужно переписать файл «1c_diff.exe» (есть в архиве) в папку с установленной программой TortoiseHg (обычно это C:Program FilesTortoiseHg). В этой же папке обычно лежит 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, но дальше не разбирался.

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