mirror of
https://github.com/Nikolay-Shirokov/cc-1c-skills.git
synced 2026-08-15 07:49:01 +03:00
2319 lines
111 KiB
PowerShell
2319 lines
111 KiB
PowerShell
# cfe-borrow v1.31 — Borrow objects from configuration into extension (CFE)
|
||
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
|
||
param(
|
||
[Parameter(Mandatory)][string]$ExtensionPath,
|
||
[Parameter(Mandatory)][string]$ConfigPath,
|
||
[Parameter(Mandatory)][string]$Object,
|
||
[string]$BorrowMainAttribute
|
||
)
|
||
|
||
$ErrorActionPreference = "Stop"
|
||
[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
|
||
|
||
function Info([string]$msg) { Write-Host "[INFO] $msg" }
|
||
function Warn([string]$msg) { Write-Host "[WARN] $msg" }
|
||
|
||
# Form data-binding tags (value = attribute path). A binding survives only if its root
|
||
# attribute is borrowed into the form's <Attributes>; otherwise it must be stripped or the
|
||
# platform rejects the form with "Неверный путь к данным" on load.
|
||
# RowPictureDataPath тоже путь к данным («Объект.Товары.РасхождениеЗаказ», «Список.DefaultPicture»),
|
||
# а не индекс картинки: эталон Конфигуратора сохраняет его с заимствованным основным реквизитом
|
||
# и выбрасывает без него — то же правило, что у остальных путей.
|
||
$script:formBindingDataTags = @('DataPath','TitleDataPath','FooterDataPath','HeaderDataPath','MultipleValueDataPath','MultipleValuePresentDataPath','RowPictureDataPath')
|
||
# Picture-path binding tags (value = picture index path, never a data attribute) — always stripped in the skeleton.
|
||
$script:formBindingPictureTags = @('MultipleValuePictureDataPath')
|
||
|
||
# Пути ссылок параметров выбора, которые пришлось вырезать (для предупреждения в конце)
|
||
$script:droppedLinks = @()
|
||
|
||
# id основного реквизита в заимствованной форме — как у Конфигуратора
|
||
$script:mainAttrId = "1000001"
|
||
|
||
# Виды дочерних объектов, которые заимствуются в оболочку поимённо (табличные части — отдельно)
|
||
$script:childObjectKinds = @('Attribute','Dimension','Resource','AddressingAttribute')
|
||
|
||
# Прямые дети <Form>, которые в заимствованную форму не переносятся.
|
||
# Структурные секции: AutoCommandBar и ChildItems забираются отдельно, остальные выбрасываются целиком.
|
||
$script:formStructuralSections = @('Events','Attributes','Commands','Parameters','CommandInterface')
|
||
# Свойства формы, значение которых — имя реквизита формы (реквизиты не заимствуются, ссылка повиснет).
|
||
$script:formAttributeRefProps = @('ReportResult','DetailsData','VariantAppearance','GroupList')
|
||
|
||
# Strip data-binding tags whose root attribute isn't borrowed.
|
||
# $mainAttrName задан (BorrowMainAttribute): оставить привязки от его имени, остальные снять.
|
||
# Пусто (скелет без основного реквизита): снять все. Картиночные пути снимаются всегда.
|
||
function Strip-FormBindings {
|
||
param([string]$xml, [string]$mainAttrName)
|
||
foreach ($tag in $script:formBindingDataTags) {
|
||
if ($mainAttrName) {
|
||
# Оставить и «Список.Поле», и путь ровно на сам реквизит («Список» у таблицы формы)
|
||
$root = [regex]::Escape($mainAttrName)
|
||
$xml = [regex]::Replace($xml, "\s*<$tag>(?!$root(\.|<))[^<]*</$tag>", '')
|
||
} else {
|
||
$xml = [regex]::Replace($xml, "\s*<$tag>[^<]*</$tag>", '')
|
||
}
|
||
}
|
||
foreach ($tag in $script:formBindingPictureTags) {
|
||
$xml = [regex]::Replace($xml, "\s*<$tag>[^<]*</$tag>", '')
|
||
}
|
||
return $xml
|
||
}
|
||
|
||
# Ссылки параметров выбора (<ChoiceParameterLinks>/<xr:Link>) — привязка особого рода: путь лежит
|
||
# в <xr:DataPath> и обычным стриппингом не снимается. Текстовое имя в расширении разрешается только
|
||
# если его корень объявлен в <Attributes> самой заимствованной формы; иначе платформа отвергает
|
||
# загрузку — «Неверный путь к полю - X». Реквизиты формы не заимствуются никогда, поэтому ссылка на
|
||
# них разрешима только через id: Конфигуратор подставляет id реквизита ИСХОДНОЙ формы (эталоны
|
||
# Issue66Example4/5/6, JR2433, JR2976, JR49904 — совпадение на шести расширениях). Именно id
|
||
# исходной, а не заимствованной: при заимствовании реквизиты перенумеровываются в 1000000+, а
|
||
# ссылка продолжает указывать в нумерацию базовой формы.
|
||
# Путь на основной реквизит («Объект.X») при заимствованном основном реквизите разрешается текстом
|
||
# и остаётся читаемым; без заимствования переводится в «<id>/0:<uuid реквизита объекта>».
|
||
# Реквизит, которого в источнике нет, недоступен и по uuid: такую связь вырезаем целиком.
|
||
# Пути вида «Items.<Элемент>.CurrentData.<Поле>» не трогаем — их кодировка отдельная.
|
||
function Rewrite-ChoiceParameterLinks {
|
||
param([string]$xml, $attrUuids, $formAttrIds, [string]$mainAttrName, [bool]$mainAttrBorrowed)
|
||
|
||
if ($xml -notmatch '<ChoiceParameterLinks>') { return $xml }
|
||
|
||
$mainPat = if ($mainAttrName) { [regex]::Escape($mainAttrName) } else { $null }
|
||
$mainId = if ($mainAttrName -and $formAttrIds.ContainsKey($mainAttrName)) { $formAttrIds[$mainAttrName] } else { "1" }
|
||
|
||
$xml = [regex]::Replace($xml, '(?s)\s*<xr:Link>.*?</xr:Link>', {
|
||
param($m)
|
||
$link = $m.Value
|
||
$dp = [regex]::Match($link, '<xr:DataPath[^>]*>([^<]+)</xr:DataPath>')
|
||
if (-not $dp.Success) { return $link }
|
||
$path = $dp.Groups[1].Value
|
||
|
||
# Путь на основной реквизит формы
|
||
if ($mainPat -and $path -match "^${mainPat}\.(.+)$") {
|
||
$attrName = $Matches[1]
|
||
if ($mainAttrBorrowed) {
|
||
# Реквизит объекта разрешается текстом и остаётся читаемым. Стандартное поле
|
||
# («Объект.Owner», «Объект.Date») — нет: платформа отвергает «Неверный путь к данным».
|
||
# Конфигуратор в этом случае оставляет ссылку на сам реквизит (эталон Issue66Example7_1).
|
||
if ($attrUuids.ContainsKey($attrName)) { return $link }
|
||
return [regex]::Replace($link, '(<xr:DataPath[^>]*>)[^<]+(</xr:DataPath>)', "`${1}${mainId}`${2}")
|
||
}
|
||
if ($attrUuids.ContainsKey($attrName)) {
|
||
return [regex]::Replace($link, '(<xr:DataPath[^>]*>)[^<]+(</xr:DataPath>)', "`${1}${mainId}/0:$($attrUuids[$attrName])`${2}")
|
||
}
|
||
return ''
|
||
}
|
||
|
||
# Односегментный путь на реквизит формы — только по id исходной формы
|
||
if ($path -notmatch '\.' -and $formAttrIds.ContainsKey($path)) {
|
||
return [regex]::Replace($link, '(<xr:DataPath[^>]*>)[^<]+(</xr:DataPath>)', "`${1}$($formAttrIds[$path])`${2}")
|
||
}
|
||
|
||
# Уже непрозрачный путь (форма-источник сама из расширения) — не трогаем
|
||
if ($path -match '^\d') { return $link }
|
||
|
||
# С заимствованным основным реквизитом текстовый путь разрешается: элементы формы на месте,
|
||
# а их данные доступны через основной реквизит. Конфигуратор такие пути и оставляет текстом
|
||
# (эталон Issue66Example7_1: «Items.Товары.CurrentData.Характеристика» перенесён как есть).
|
||
if ($mainAttrBorrowed) { return $link }
|
||
|
||
# Прочее текстом не разрешается: платформа отвергает загрузку «Неверный путь к полю».
|
||
# Сюда попадают «Items.<Элемент>.CurrentData.<Поле>» — их кодировка непрозрачна и по
|
||
# имеющимся эталонам не воспроизводима. Связь параметров выбора — удобство подбора, а не
|
||
# данные: без неё форма заимствуется и работает, с ней — не грузится вовсе.
|
||
$script:droppedLinks += $path
|
||
return ''
|
||
})
|
||
|
||
# Опустевший контейнер платформе не нужен
|
||
$xml = [regex]::Replace($xml, '(?s)\s*<ChoiceParameterLinks>\s*</ChoiceParameterLinks>', '')
|
||
return $xml
|
||
}
|
||
|
||
# Имена ПРЯМЫХ детей собственного <ChildObjects> объекта — для дедупа при повторном
|
||
# заимствовании. Текстом это не снять: regex «первый <ChildObjects> до первого </ChildObjects>»
|
||
# у объекта с табличными частями обрывается на закрытии первой ТЧ, забирает имена её колонок и
|
||
# теряет то, что идёт после неё.
|
||
function Get-OwnChildObjectNames {
|
||
param([string]$objFile)
|
||
|
||
$names = @{}
|
||
if (-not (Test-Path -LiteralPath $objFile)) { return $names }
|
||
$doc = New-Object System.Xml.XmlDocument
|
||
$doc.PreserveWhitespace = $false
|
||
try { $doc.Load($objFile) } catch { return $names }
|
||
$objEl = $null
|
||
foreach ($c in $doc.DocumentElement.ChildNodes) {
|
||
if ($c.NodeType -eq 'Element') { $objEl = $c; break }
|
||
}
|
||
if (-not $objEl) { return $names }
|
||
$childObjs = $objEl.SelectSingleNode("*[local-name()='ChildObjects']")
|
||
if (-not $childObjs) { return $names }
|
||
foreach ($child in $childObjs.ChildNodes) {
|
||
if ($child.NodeType -ne 'Element') { continue }
|
||
$nameNode = $child.SelectSingleNode("*[local-name()='Properties']/*[local-name()='Name']")
|
||
if ($nameNode) { $names[$nameNode.InnerText.Trim()] = $true }
|
||
}
|
||
return $names
|
||
}
|
||
|
||
# Вставка в СОБСТВЕННЫЙ <ChildObjects> объекта. Свой контейнер закрывается в файле последним:
|
||
# объект в файле один, а вложенные <ChildObjects> табличных частей закрываются раньше. Замена по
|
||
# всем вхождениям раскидывала реквизиты по каждой ТЧ — ps1 рвал XML, py прятал ТЧ внутрь ТЧ.
|
||
function Insert-IntoOwnChildObjects {
|
||
param([string]$text, [string]$content)
|
||
|
||
$closeIdx = $text.LastIndexOf('</ChildObjects>')
|
||
if ($closeIdx -ge 0) {
|
||
return $text.Substring(0, $closeIdx) + "${content}`r`n`t`t" + $text.Substring($closeIdx)
|
||
}
|
||
# Своего закрывающего тега нет — значит контейнер самозакрытый (детей у него нет, вложенных тоже)
|
||
$selfMatches = [regex]::Matches($text, '<ChildObjects\s*/>')
|
||
if ($selfMatches.Count -eq 0) { return $text }
|
||
$m = $selfMatches[$selfMatches.Count - 1]
|
||
return $text.Substring(0, $m.Index) + "<ChildObjects>${content}`r`n`t`t</ChildObjects>" + $text.Substring($m.Index + $m.Length)
|
||
}
|
||
|
||
# --- 1. Resolve paths ---
|
||
if (-not [System.IO.Path]::IsPathRooted($ExtensionPath)) {
|
||
$ExtensionPath = Join-Path (Get-Location).Path $ExtensionPath
|
||
}
|
||
if (Test-Path $ExtensionPath -PathType Container) {
|
||
$candidate = Join-Path $ExtensionPath "Configuration.xml"
|
||
if (Test-Path $candidate) { $ExtensionPath = $candidate }
|
||
else { Write-Error "No Configuration.xml in extension directory: $ExtensionPath"; exit 1 }
|
||
}
|
||
if (-not (Test-Path $ExtensionPath)) { Write-Error "Extension file not found: $ExtensionPath"; exit 1 }
|
||
$extResolvedPath = (Resolve-Path $ExtensionPath).Path
|
||
$extDir = Split-Path $extResolvedPath -Parent
|
||
|
||
if (-not [System.IO.Path]::IsPathRooted($ConfigPath)) {
|
||
$ConfigPath = Join-Path (Get-Location).Path $ConfigPath
|
||
}
|
||
if (Test-Path $ConfigPath -PathType Container) {
|
||
$candidate = Join-Path $ConfigPath "Configuration.xml"
|
||
if (Test-Path $candidate) { $ConfigPath = $candidate }
|
||
else { Write-Error "No Configuration.xml in config directory: $ConfigPath"; exit 1 }
|
||
}
|
||
if (-not (Test-Path $ConfigPath)) { Write-Error "Config file not found: $ConfigPath"; exit 1 }
|
||
$cfgResolvedPath = (Resolve-Path $ConfigPath).Path
|
||
$cfgDir = Split-Path $cfgResolvedPath -Parent
|
||
|
||
# --- 2. Load extension Configuration.xml ---
|
||
$script:xmlDoc = New-Object System.Xml.XmlDocument
|
||
$script:xmlDoc.PreserveWhitespace = $true
|
||
$script:xmlDoc.Load($extResolvedPath)
|
||
|
||
$script:mdNs = "http://v8.1c.ru/8.3/MDClasses"
|
||
$script:xrNs = "http://v8.1c.ru/8.3/xcf/readable"
|
||
$script:xsiNs = "http://www.w3.org/2001/XMLSchema-instance"
|
||
$script:v8Ns = "http://v8.1c.ru/8.1/data/core"
|
||
|
||
$root = $script:xmlDoc.DocumentElement
|
||
|
||
$script:cfgEl = $null
|
||
foreach ($child in $root.ChildNodes) {
|
||
if ($child.NodeType -eq 'Element' -and $child.LocalName -eq "Configuration") {
|
||
$script:cfgEl = $child; break
|
||
}
|
||
}
|
||
if (-not $script:cfgEl) { Write-Error "No <Configuration> element found in extension"; exit 1 }
|
||
|
||
$script:propsEl = $null
|
||
$script:childObjsEl = $null
|
||
foreach ($child in $script:cfgEl.ChildNodes) {
|
||
if ($child.NodeType -ne 'Element') { continue }
|
||
if ($child.LocalName -eq "Properties") { $script:propsEl = $child }
|
||
if ($child.LocalName -eq "ChildObjects") { $script:childObjsEl = $child }
|
||
}
|
||
|
||
if (-not $script:propsEl) { Write-Error "No <Properties> element found in extension"; exit 1 }
|
||
if (-not $script:childObjsEl) { Write-Error "No <ChildObjects> element found in extension"; exit 1 }
|
||
|
||
# --- 3. Extract NamePrefix ---
|
||
$script:namePrefix = ""
|
||
foreach ($child in $script:propsEl.ChildNodes) {
|
||
if ($child.NodeType -eq 'Element' -and $child.LocalName -eq "NamePrefix") {
|
||
$script:namePrefix = $child.InnerText.Trim(); break
|
||
}
|
||
}
|
||
Info "Extension NamePrefix: $($script:namePrefix)"
|
||
|
||
# --- 4. Type mappings ---
|
||
$childTypeDirMap = @{
|
||
"Catalog"="Catalogs"; "Document"="Documents"; "Enum"="Enums"
|
||
"CommonModule"="CommonModules"; "CommonPicture"="CommonPictures"
|
||
"CommonCommand"="CommonCommands"; "CommonTemplate"="CommonTemplates"
|
||
"ExchangePlan"="ExchangePlans"; "Report"="Reports"; "DataProcessor"="DataProcessors"
|
||
"InformationRegister"="InformationRegisters"; "AccumulationRegister"="AccumulationRegisters"
|
||
"ChartOfCharacteristicTypes"="ChartsOfCharacteristicTypes"
|
||
"ChartOfAccounts"="ChartsOfAccounts"; "AccountingRegister"="AccountingRegisters"
|
||
"ChartOfCalculationTypes"="ChartsOfCalculationTypes"; "CalculationRegister"="CalculationRegisters"
|
||
"BusinessProcess"="BusinessProcesses"; "Task"="Tasks"
|
||
"Subsystem"="Subsystems"; "Role"="Roles"; "Constant"="Constants"
|
||
"FunctionalOption"="FunctionalOptions"; "DefinedType"="DefinedTypes"
|
||
"FunctionalOptionsParameter"="FunctionalOptionsParameters"
|
||
"CommonForm"="CommonForms"; "DocumentJournal"="DocumentJournals"
|
||
"SessionParameter"="SessionParameters"; "StyleItem"="StyleItems"
|
||
"EventSubscription"="EventSubscriptions"; "ScheduledJob"="ScheduledJobs"
|
||
"SettingsStorage"="SettingsStorages"; "FilterCriterion"="FilterCriteria"
|
||
"CommandGroup"="CommandGroups"; "DocumentNumerator"="DocumentNumerators"
|
||
"Sequence"="Sequences"; "IntegrationService"="IntegrationServices"
|
||
"XDTOPackage"="XDTOPackages"; "WebService"="WebServices"
|
||
"HTTPService"="HTTPServices"; "WSReference"="WSReferences"
|
||
"CommonAttribute"="CommonAttributes"; "Style"="Styles"; "Bot"="Bots"; "Language"="Languages"
|
||
}
|
||
|
||
# --- 4b. Russian synonym → English type ---
|
||
$synonymMap = @{
|
||
"Справочник"="Catalog"; "Документ"="Document"; "Перечисление"="Enum"
|
||
"ОбщийМодуль"="CommonModule"; "ОбщаяКартинка"="CommonPicture"
|
||
"ОбщаяКоманда"="CommonCommand"; "ОбщийМакет"="CommonTemplate"
|
||
"ПланОбмена"="ExchangePlan"; "Отчет"="Report"; "Отчёт"="Report"
|
||
"Обработка"="DataProcessor"; "РегистрСведений"="InformationRegister"
|
||
"РегистрНакопления"="AccumulationRegister"
|
||
"ПланВидовХарактеристик"="ChartOfCharacteristicTypes"
|
||
"ПланСчетов"="ChartOfAccounts"; "РегистрБухгалтерии"="AccountingRegister"
|
||
"ПланВидовРасчета"="ChartOfCalculationTypes"; "РегистрРасчета"="CalculationRegister"
|
||
"БизнесПроцесс"="BusinessProcess"; "Задача"="Task"
|
||
"Подсистема"="Subsystem"; "Роль"="Role"; "Константа"="Constant"
|
||
"ФункциональнаяОпция"="FunctionalOption"; "ОпределяемыйТип"="DefinedType"
|
||
"ОбщаяФорма"="CommonForm"; "ЖурналДокументов"="DocumentJournal"
|
||
"ПараметрСеанса"="SessionParameter"; "ГруппаКоманд"="CommandGroup"
|
||
"ПодпискаНаСобытие"="EventSubscription"; "РегламентноеЗадание"="ScheduledJob"
|
||
"ОбщийРеквизит"="CommonAttribute"; "ПакетXDTO"="XDTOPackage"
|
||
"HTTPСервис"="HTTPService"; "СервисИнтеграции"="IntegrationService"
|
||
}
|
||
|
||
# --- 5. Canonical type order (44 types) ---
|
||
$script:typeOrder = @(
|
||
"Language","Subsystem","StyleItem","Style",
|
||
"CommonPicture","SessionParameter","Role","CommonTemplate",
|
||
"FilterCriterion","CommonModule","Bot","CommonAttribute","ExchangePlan",
|
||
"XDTOPackage","WebService","HTTPService","WSReference",
|
||
"EventSubscription","ScheduledJob","SettingsStorage","FunctionalOption",
|
||
"FunctionalOptionsParameter","DefinedType","CommonCommand","CommandGroup",
|
||
"Constant","CommonForm","Catalog","Document",
|
||
"DocumentNumerator","Sequence","DocumentJournal","Enum",
|
||
"Report","DataProcessor","InformationRegister","AccumulationRegister",
|
||
"ChartOfCharacteristicTypes","ChartOfAccounts","AccountingRegister",
|
||
"ChartOfCalculationTypes","CalculationRegister",
|
||
"BusinessProcess","Task","IntegrationService"
|
||
)
|
||
|
||
# --- 6. GeneratedType patterns per type ---
|
||
$script:generatedTypes = @{
|
||
"Catalog" = @(
|
||
@{ prefix = "CatalogObject"; category = "Object" }
|
||
@{ prefix = "CatalogRef"; category = "Ref" }
|
||
@{ prefix = "CatalogSelection"; category = "Selection" }
|
||
@{ prefix = "CatalogList"; category = "List" }
|
||
@{ prefix = "CatalogManager"; category = "Manager" }
|
||
)
|
||
"Document" = @(
|
||
@{ prefix = "DocumentObject"; category = "Object" }
|
||
@{ prefix = "DocumentRef"; category = "Ref" }
|
||
@{ prefix = "DocumentSelection"; category = "Selection" }
|
||
@{ prefix = "DocumentList"; category = "List" }
|
||
@{ prefix = "DocumentManager"; category = "Manager" }
|
||
)
|
||
"Enum" = @(
|
||
@{ prefix = "EnumRef"; category = "Ref" }
|
||
@{ prefix = "EnumManager"; category = "Manager" }
|
||
@{ prefix = "EnumList"; category = "List" }
|
||
)
|
||
"Constant" = @(
|
||
@{ prefix = "ConstantManager"; category = "Manager" }
|
||
@{ prefix = "ConstantValueManager"; category = "ValueManager" }
|
||
@{ prefix = "ConstantValueKey"; category = "ValueKey" }
|
||
)
|
||
"InformationRegister" = @(
|
||
@{ prefix = "InformationRegisterRecord"; category = "Record" }
|
||
@{ prefix = "InformationRegisterManager"; category = "Manager" }
|
||
@{ prefix = "InformationRegisterSelection"; category = "Selection" }
|
||
@{ prefix = "InformationRegisterList"; category = "List" }
|
||
@{ prefix = "InformationRegisterRecordSet"; category = "RecordSet" }
|
||
@{ prefix = "InformationRegisterRecordKey"; category = "RecordKey" }
|
||
@{ prefix = "InformationRegisterRecordManager"; category = "RecordManager" }
|
||
)
|
||
"AccumulationRegister" = @(
|
||
@{ prefix = "AccumulationRegisterRecord"; category = "Record" }
|
||
@{ prefix = "AccumulationRegisterManager"; category = "Manager" }
|
||
@{ prefix = "AccumulationRegisterSelection"; category = "Selection" }
|
||
@{ prefix = "AccumulationRegisterList"; category = "List" }
|
||
@{ prefix = "AccumulationRegisterRecordSet"; category = "RecordSet" }
|
||
@{ prefix = "AccumulationRegisterRecordKey"; category = "RecordKey" }
|
||
)
|
||
"AccountingRegister" = @(
|
||
@{ prefix = "AccountingRegisterRecord"; category = "Record" }
|
||
@{ prefix = "AccountingRegisterExtDimensions"; category = "ExtDimensions" }
|
||
@{ prefix = "AccountingRegisterManager"; category = "Manager" }
|
||
@{ prefix = "AccountingRegisterSelection"; category = "Selection" }
|
||
@{ prefix = "AccountingRegisterList"; category = "List" }
|
||
@{ prefix = "AccountingRegisterRecordSet"; category = "RecordSet" }
|
||
@{ prefix = "AccountingRegisterRecordKey"; category = "RecordKey" }
|
||
)
|
||
"CalculationRegister" = @(
|
||
@{ prefix = "CalculationRegisterRecord"; category = "Record" }
|
||
@{ prefix = "CalculationRegisterManager"; category = "Manager" }
|
||
@{ prefix = "CalculationRegisterSelection"; category = "Selection" }
|
||
@{ prefix = "CalculationRegisterList"; category = "List" }
|
||
@{ prefix = "CalculationRegisterRecordSet"; category = "RecordSet" }
|
||
@{ prefix = "CalculationRegisterRecordKey"; category = "RecordKey" }
|
||
@{ prefix = "RecalculationsManager"; category = "Recalcs" }
|
||
)
|
||
"ChartOfAccounts" = @(
|
||
@{ prefix = "ChartOfAccountsObject"; category = "Object" }
|
||
@{ prefix = "ChartOfAccountsRef"; category = "Ref" }
|
||
@{ prefix = "ChartOfAccountsSelection"; category = "Selection" }
|
||
@{ prefix = "ChartOfAccountsList"; category = "List" }
|
||
@{ prefix = "ChartOfAccountsManager"; category = "Manager" }
|
||
@{ prefix = "ChartOfAccountsExtDimensionTypes"; category = "ExtDimensionTypes" }
|
||
@{ prefix = "ChartOfAccountsExtDimensionTypesRow"; category = "ExtDimensionTypesRow" }
|
||
)
|
||
"ChartOfCharacteristicTypes" = @(
|
||
@{ prefix = "ChartOfCharacteristicTypesObject"; category = "Object" }
|
||
@{ prefix = "ChartOfCharacteristicTypesRef"; category = "Ref" }
|
||
@{ prefix = "ChartOfCharacteristicTypesSelection"; category = "Selection" }
|
||
@{ prefix = "ChartOfCharacteristicTypesList"; category = "List" }
|
||
@{ prefix = "Characteristic"; category = "Characteristic" }
|
||
@{ prefix = "ChartOfCharacteristicTypesManager"; category = "Manager" }
|
||
)
|
||
"ChartOfCalculationTypes" = @(
|
||
@{ prefix = "ChartOfCalculationTypesObject"; category = "Object" }
|
||
@{ prefix = "ChartOfCalculationTypesRef"; category = "Ref" }
|
||
@{ prefix = "ChartOfCalculationTypesSelection"; category = "Selection" }
|
||
@{ prefix = "ChartOfCalculationTypesList"; category = "List" }
|
||
@{ prefix = "ChartOfCalculationTypesManager"; category = "Manager" }
|
||
@{ prefix = "DisplacingCalculationTypes"; category = "DisplacingCalculationTypes" }
|
||
@{ prefix = "DisplacingCalculationTypesRow"; category = "DisplacingCalculationTypesRow" }
|
||
@{ prefix = "BaseCalculationTypes"; category = "BaseCalculationTypes" }
|
||
@{ prefix = "BaseCalculationTypesRow"; category = "BaseCalculationTypesRow" }
|
||
@{ prefix = "LeadingCalculationTypes"; category = "LeadingCalculationTypes" }
|
||
@{ prefix = "LeadingCalculationTypesRow"; category = "LeadingCalculationTypesRow" }
|
||
)
|
||
"BusinessProcess" = @(
|
||
@{ prefix = "BusinessProcessObject"; category = "Object" }
|
||
@{ prefix = "BusinessProcessRef"; category = "Ref" }
|
||
@{ prefix = "BusinessProcessSelection"; category = "Selection" }
|
||
@{ prefix = "BusinessProcessList"; category = "List" }
|
||
@{ prefix = "BusinessProcessManager"; category = "Manager" }
|
||
@{ prefix = "BusinessProcessRoutePointRef"; category = "RoutePointRef" }
|
||
)
|
||
"Task" = @(
|
||
@{ prefix = "TaskObject"; category = "Object" }
|
||
@{ prefix = "TaskRef"; category = "Ref" }
|
||
@{ prefix = "TaskSelection"; category = "Selection" }
|
||
@{ prefix = "TaskList"; category = "List" }
|
||
@{ prefix = "TaskManager"; category = "Manager" }
|
||
)
|
||
"ExchangePlan" = @(
|
||
@{ prefix = "ExchangePlanObject"; category = "Object" }
|
||
@{ prefix = "ExchangePlanRef"; category = "Ref" }
|
||
@{ prefix = "ExchangePlanSelection"; category = "Selection" }
|
||
@{ prefix = "ExchangePlanList"; category = "List" }
|
||
@{ prefix = "ExchangePlanManager"; category = "Manager" }
|
||
)
|
||
"DocumentJournal" = @(
|
||
@{ prefix = "DocumentJournalSelection"; category = "Selection" }
|
||
@{ prefix = "DocumentJournalList"; category = "List" }
|
||
@{ prefix = "DocumentJournalManager"; category = "Manager" }
|
||
)
|
||
"Report" = @(
|
||
@{ prefix = "ReportObject"; category = "Object" }
|
||
@{ prefix = "ReportManager"; category = "Manager" }
|
||
)
|
||
"DataProcessor" = @(
|
||
@{ prefix = "DataProcessorObject"; category = "Object" }
|
||
@{ prefix = "DataProcessorManager"; category = "Manager" }
|
||
)
|
||
"DefinedType" = @(
|
||
@{ prefix = "DefinedType"; category = "DefinedType" }
|
||
)
|
||
"Sequence" = @(
|
||
@{ prefix = "SequenceRecord"; category = "Record" }
|
||
@{ prefix = "SequenceManager"; category = "Manager" }
|
||
@{ prefix = "SequenceRecordSet"; category = "RecordSet" }
|
||
)
|
||
"FilterCriterion" = @(
|
||
@{ prefix = "FilterCriterionManager"; category = "Manager" }
|
||
@{ prefix = "FilterCriterionList"; category = "List" }
|
||
)
|
||
"SettingsStorage" = @(
|
||
@{ prefix = "SettingsStorageManager"; category = "Manager" }
|
||
)
|
||
"IntegrationService" = @(
|
||
@{ prefix = "IntegrationServiceManager"; category = "Manager" }
|
||
)
|
||
"WSReference" = @(
|
||
@{ prefix = "WSReferenceManager"; category = "Manager" }
|
||
)
|
||
}
|
||
|
||
# Types that need ChildObjects element — fallback when the source object cannot be probed.
|
||
# The platform emits <ChildObjects> for every container type even when empty, and rejects
|
||
# the file without it ("ожидаемое ChildObjects"); primary signal is the source object itself.
|
||
$typesWithChildObjects = @(
|
||
"Catalog","Document","ExchangePlan","ChartOfAccounts",
|
||
"ChartOfCharacteristicTypes","ChartOfCalculationTypes",
|
||
"BusinessProcess","Task","Enum",
|
||
"InformationRegister","AccumulationRegister","AccountingRegister","CalculationRegister",
|
||
"DataProcessor","Report","DocumentJournal","FilterCriterion","SettingsStorage",
|
||
"Sequence","HTTPService","WebService","IntegrationService","Subsystem"
|
||
)
|
||
|
||
# CommonModule properties to copy from source
|
||
$commonModuleProps = @("Global","ClientManagedApplication","Server","ExternalConnection","ClientOrdinaryApplication","ServerCall")
|
||
|
||
# Свойства объекта, от которых зависит существование стандартного поля: без них платформа
|
||
# отвергает загрузку — «Неверный путь к данным». Конфигуратор переносит ровно их (эталоны
|
||
# Issue66Example7_1 и Issue66Example2). Проверено сплошным прогоном по типам: у регистра сведений
|
||
# без InformationRegisterPeriodicity не разрешается «Запись.Period».
|
||
$script:typeGateProps = @{
|
||
"InformationRegister" = @("InformationRegisterPeriodicity","WriteMode")
|
||
}
|
||
# Владельцы справочника — список <xr:Item>, а не скаляр: переносится фрагментом, как __TypeXml
|
||
$script:typesWithOwners = @("Catalog","ChartOfCharacteristicTypes")
|
||
|
||
# Standard system fields to skip when collecting DataPath references
|
||
$script:standardFields = @("Code","Description","Ref","Parent","DeletionMark","Predefined","IsFolder","LineNumber","RowsCount","PredefinedDataName")
|
||
|
||
# --- 7. XML manipulation helpers (from cf-edit) ---
|
||
function Get-ChildIndent($container) {
|
||
foreach ($child in $container.ChildNodes) {
|
||
if ($child.NodeType -eq 'Whitespace' -or $child.NodeType -eq 'SignificantWhitespace') {
|
||
if ($child.Value -match '^\r?\n(\t+)$') { return $Matches[1] }
|
||
if ($child.Value -match '^\r?\n(\t+)') { return $Matches[1] }
|
||
}
|
||
}
|
||
$depth = 0; $current = $container
|
||
while ($current -and $current -ne $script:xmlDoc.DocumentElement) { $depth++; $current = $current.ParentNode }
|
||
return "`t" * ($depth + 1)
|
||
}
|
||
|
||
function Insert-BeforeElement($container, $newNode, $refNode, $childIndent) {
|
||
$ws = $script:xmlDoc.CreateWhitespace("`r`n$childIndent")
|
||
if ($refNode) {
|
||
$container.InsertBefore($ws, $refNode) | Out-Null
|
||
$container.InsertBefore($newNode, $ws) | Out-Null
|
||
} else {
|
||
$trailing = $container.LastChild
|
||
if ($trailing -and ($trailing.NodeType -eq 'Whitespace' -or $trailing.NodeType -eq 'SignificantWhitespace')) {
|
||
$container.InsertBefore($ws, $trailing) | Out-Null
|
||
$container.InsertBefore($newNode, $trailing) | Out-Null
|
||
} else {
|
||
$container.AppendChild($ws) | Out-Null
|
||
$container.AppendChild($newNode) | Out-Null
|
||
$parentIndent = if ($childIndent.Length -gt 1) { $childIndent.Substring(0, $childIndent.Length - 1) } else { "" }
|
||
$closeWs = $script:xmlDoc.CreateWhitespace("`r`n$parentIndent")
|
||
$container.AppendChild($closeWs) | Out-Null
|
||
}
|
||
}
|
||
}
|
||
|
||
function Expand-SelfClosingElement($container, $parentIndent) {
|
||
if (-not $container.HasChildNodes -or $container.IsEmpty) {
|
||
$closeWs = $script:xmlDoc.CreateWhitespace("`r`n$parentIndent")
|
||
$container.AppendChild($closeWs) | Out-Null
|
||
}
|
||
}
|
||
|
||
# --- 7b. Detect format version ---
|
||
|
||
function Detect-FormatVersion([string]$dir) {
|
||
$d = $dir
|
||
while ($d) {
|
||
# Автономная внешняя обработка/отчёт: своего Configuration.xml у неё нет, версию несёт
|
||
# корень самой обработки. Без этого форма и макет внутри обработки 2.21 писались бы 2.17.
|
||
$extPath = "$d.xml"
|
||
if (Test-Path $extPath) {
|
||
$extText = [System.IO.File]::ReadAllText($extPath, [System.Text.Encoding]::UTF8)
|
||
$extHead = $extText.Substring(0, [Math]::Min(2000, $extText.Length))
|
||
if ($extHead -match '<(ExternalDataProcessor|ExternalReport)[ >]' -and $extHead -match '<MetaDataObject[^>]+version="(\d+\.\d+)"') { return $Matches[1] }
|
||
}
|
||
$cfgPath = Join-Path $d "Configuration.xml"
|
||
if (Test-Path $cfgPath) {
|
||
$cfgText = [System.IO.File]::ReadAllText($cfgPath, [System.Text.Encoding]::UTF8)
|
||
# Длину среза берём по СТРОКЕ, а не по размеру файла: размер в БАЙТАХ, Substring считает
|
||
# СИМВОЛЫ, и на кириллице байт больше — короткий Configuration.xml ронял навык исключением.
|
||
$head = $cfgText.Substring(0, [Math]::Min(2000, $cfgText.Length))
|
||
if ($head -match '<MetaDataObject[^>]+version="(\d+\.\d+)"') { return $Matches[1] }
|
||
}
|
||
$parent = Split-Path $d -Parent
|
||
if ($parent -eq $d) { break }
|
||
$d = $parent
|
||
}
|
||
return "2.17"
|
||
}
|
||
|
||
$script:formatVersion = Detect-FormatVersion $extDir
|
||
|
||
# --- 8. Namespaces declaration for object XML ---
|
||
$script:xmlnsDecl = 'xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"'
|
||
|
||
# Версия формата как число для сравнений: "2.20" → 220, "2.9" → 209.
|
||
# Строковое сравнение здесь неверно ("2.9" > "2.17" лексикографически) — известная ловушка.
|
||
function Get-FormatRank([string]$ver) {
|
||
if ($ver -match '^(\d+)\.(\d+)$') { return [int]$Matches[1] * 100 + [int]$Matches[2] }
|
||
return 0
|
||
}
|
||
|
||
# 2.21 (8.5) добавила в шапку пространство палитры — ради <Color> у значений перечисления.
|
||
# Вставляем НА МЕСТО (после lf, перед style): платформа держит объявления по алфавиту,
|
||
# дописать в конец нельзя.
|
||
if ((Get-FormatRank $script:formatVersion) -ge 221) {
|
||
$script:xmlnsDecl = $script:xmlnsDecl -replace ' xmlns:style=', ' xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style='
|
||
}
|
||
|
||
# --- 9. Parse -Object into items ---
|
||
$items = @()
|
||
foreach ($part in $Object.Split(";;")) {
|
||
$trimmed = $part.Trim()
|
||
if ($trimmed) { $items += $trimmed }
|
||
}
|
||
|
||
if ($items.Count -eq 0) {
|
||
Write-Error "No objects specified in -Object"
|
||
exit 1
|
||
}
|
||
|
||
# --- 9b. Validate -BorrowMainAttribute ---
|
||
if ($BorrowMainAttribute) {
|
||
# PS treats -BorrowMainAttribute without value as "True"
|
||
if ($BorrowMainAttribute -eq "True") { $BorrowMainAttribute = "Form" }
|
||
if ($BorrowMainAttribute -notin @("Form","All")) {
|
||
Write-Error "-BorrowMainAttribute accepts 'Form' or 'All' (default: Form)"
|
||
exit 1
|
||
}
|
||
# Validate: only with .Form. pattern
|
||
$hasForm = $false
|
||
foreach ($item in $items) { if ($item -match '\.Form\.') { $hasForm = $true; break } }
|
||
if (-not $hasForm) {
|
||
Write-Error "-BorrowMainAttribute requires a form in -Object (e.g. 'Catalog.X.Form.Y')"
|
||
exit 1
|
||
}
|
||
}
|
||
|
||
# --- 10. Helper: read source object XML ---
|
||
# Имена реквизитов исходного объекта → uuid. Нужны для непрозрачной формы пути в ссылках
|
||
# параметров выбора (см. Rewrite-ChoiceParameterLinks).
|
||
function Get-SourceAttributeUuids {
|
||
param([string]$typeName, [string]$objName)
|
||
|
||
$result = @{}
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
if (-not $dirName) { return $result }
|
||
$srcFile = Join-Path (Join-Path $cfgDir $dirName) "${objName}.xml"
|
||
if (-not (Test-Path $srcFile)) { return $result }
|
||
|
||
$doc = New-Object System.Xml.XmlDocument
|
||
$doc.PreserveWhitespace = $false
|
||
$doc.Load($srcFile)
|
||
$objEl = $null
|
||
foreach ($c in $doc.DocumentElement.ChildNodes) {
|
||
if ($c.NodeType -eq 'Element') { $objEl = $c; break }
|
||
}
|
||
if (-not $objEl) { return $result }
|
||
$childObjects = $objEl.SelectSingleNode("*[local-name()='ChildObjects']")
|
||
if (-not $childObjects) { return $result }
|
||
foreach ($child in $childObjects.ChildNodes) {
|
||
if ($child.NodeType -ne 'Element') { continue }
|
||
if ($child.LocalName -notin @('Attribute','TabularSection')) { continue }
|
||
$uuid = $child.GetAttribute("uuid")
|
||
$nameNode = $child.SelectSingleNode("*[local-name()='Properties']/*[local-name()='Name']")
|
||
if ($uuid -and $nameNode) { $result[$nameNode.InnerText.Trim()] = $uuid }
|
||
}
|
||
return $result
|
||
}
|
||
|
||
function Read-SourceObject {
|
||
param([string]$typeName, [string]$objName)
|
||
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
if (-not $dirName) {
|
||
Write-Error "Unknown type '$typeName'"
|
||
exit 1
|
||
}
|
||
|
||
$srcFile = Join-Path (Join-Path $cfgDir $dirName) "${objName}.xml"
|
||
if (-not (Test-Path $srcFile)) {
|
||
Write-Error "Source object not found: $srcFile"
|
||
exit 1
|
||
}
|
||
|
||
$srcDoc = New-Object System.Xml.XmlDocument
|
||
$srcDoc.PreserveWhitespace = $false
|
||
$srcDoc.Load($srcFile)
|
||
|
||
$srcNs = New-Object System.Xml.XmlNamespaceManager($srcDoc.NameTable)
|
||
$srcNs.AddNamespace("md", "http://v8.1c.ru/8.3/MDClasses")
|
||
$srcNs.AddNamespace("xr", "http://v8.1c.ru/8.3/xcf/readable")
|
||
|
||
# Find the type element (e.g. <Catalog uuid="...">)
|
||
$srcRoot = $srcDoc.DocumentElement
|
||
$srcEl = $null
|
||
foreach ($c in $srcRoot.ChildNodes) {
|
||
if ($c.NodeType -eq 'Element') { $srcEl = $c; break }
|
||
}
|
||
if (-not $srcEl) {
|
||
Write-Error "No metadata element found in ${dirName}/${objName}.xml"
|
||
exit 1
|
||
}
|
||
|
||
# Extract uuid
|
||
$srcUuid = $srcEl.GetAttribute("uuid")
|
||
if (-not $srcUuid) {
|
||
Write-Error "No uuid attribute on source element in ${dirName}/${objName}.xml"
|
||
exit 1
|
||
}
|
||
|
||
# Extract properties for CommonModule
|
||
$srcProps = @{}
|
||
$propsNode = $srcEl.SelectSingleNode("md:Properties", $srcNs)
|
||
if ($propsNode) {
|
||
foreach ($propName in $commonModuleProps) {
|
||
$propNode = $propsNode.SelectSingleNode("md:${propName}", $srcNs)
|
||
if ($propNode) {
|
||
$srcProps[$propName] = $propNode.InnerText.Trim()
|
||
}
|
||
}
|
||
# DefinedType: carry the <Type> definition. A type alias is meaningless as a bare shell —
|
||
# the platform needs its underlying type (e.g. to know a column is a summable Number for totals).
|
||
if ($typeName -eq "DefinedType") {
|
||
$typeNode = $propsNode.SelectSingleNode("md:Type", $srcNs)
|
||
if ($typeNode) {
|
||
$srcProps["__TypeXml"] = [regex]::Replace($typeNode.OuterXml, '\s+xmlns(?::\w+)?="[^"]*"', '')
|
||
}
|
||
}
|
||
# Владельцы: стандартное поле «Owner» появляется у справочника, только если задан Owners
|
||
if ($script:typesWithOwners -ccontains $typeName) {
|
||
$ownersNode = $propsNode.SelectSingleNode("md:Owners", $srcNs)
|
||
if ($ownersNode -and $ownersNode.HasChildNodes) {
|
||
$srcProps["__OwnersXml"] = [regex]::Replace($ownersNode.OuterXml, '\s+xmlns(?::\w+)?="[^"]*"', '')
|
||
}
|
||
}
|
||
# Скалярные свойства, включающие стандартные поля своего типа
|
||
foreach ($gp in @($script:typeGateProps[$typeName])) {
|
||
if (-not $gp) { continue }
|
||
$gpNode = $propsNode.SelectSingleNode("md:${gp}", $srcNs)
|
||
if ($gpNode) { $srcProps[$gp] = $gpNode.InnerText.Trim() }
|
||
}
|
||
}
|
||
|
||
# Whether the platform emits <ChildObjects> for this type — the source object is the ground truth
|
||
$srcProps["__HasChildObjects"] = ($srcEl.SelectSingleNode("md:ChildObjects", $srcNs) -ne $null)
|
||
|
||
return @{
|
||
Uuid = $srcUuid
|
||
Properties = $srcProps
|
||
Element = $srcEl
|
||
NsManager = $srcNs
|
||
}
|
||
}
|
||
|
||
# --- 10b. Helper: read source form UUID ---
|
||
function Read-SourceFormUuid {
|
||
param([string]$typeName, [string]$objName, [string]$formName)
|
||
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
$srcFile = Join-Path (Join-Path (Join-Path (Join-Path $cfgDir $dirName) $objName) "Forms") "${formName}.xml"
|
||
if (-not (Test-Path $srcFile)) {
|
||
Write-Error "Source form not found: $srcFile"
|
||
exit 1
|
||
}
|
||
|
||
$srcDoc = New-Object System.Xml.XmlDocument
|
||
$srcDoc.PreserveWhitespace = $false
|
||
$srcDoc.Load($srcFile)
|
||
|
||
$srcEl = $null
|
||
foreach ($c in $srcDoc.DocumentElement.ChildNodes) {
|
||
if ($c.NodeType -eq 'Element') { $srcEl = $c; break }
|
||
}
|
||
if (-not $srcEl) {
|
||
Write-Error "No metadata element found in source form: $srcFile"
|
||
exit 1
|
||
}
|
||
|
||
$srcUuid = $srcEl.GetAttribute("uuid")
|
||
if (-not $srcUuid) {
|
||
Write-Error "No uuid attribute on source form element: $srcFile"
|
||
exit 1
|
||
}
|
||
|
||
return $srcUuid
|
||
}
|
||
|
||
# --- 10c. Helper: borrow a form ---
|
||
function Borrow-Form {
|
||
param([string]$typeName, [string]$objName, [string]$formName, [switch]$BorrowMainAttr)
|
||
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
$enc = New-Object System.Text.UTF8Encoding($true)
|
||
|
||
# 1. Read source form UUID
|
||
$formUuid = Read-SourceFormUuid $typeName $objName $formName
|
||
Info " Source form UUID: $formUuid"
|
||
|
||
# 2. Read source Form.xml content
|
||
$srcFormXmlPath = Join-Path (Join-Path (Join-Path (Join-Path (Join-Path $cfgDir $dirName) $objName) "Forms") $formName) "Ext/Form.xml"
|
||
if (-not (Test-Path $srcFormXmlPath)) {
|
||
Write-Error "Source Form.xml not found: $srcFormXmlPath"
|
||
exit 1
|
||
}
|
||
$srcFormContent = [System.IO.File]::ReadAllText($srcFormXmlPath, $enc)
|
||
|
||
# 3. Generate form metadata XML (ФормаЭлемента.xml).
|
||
# If the wrapper was already borrowed, reuse its uuid so re-borrow is idempotent
|
||
# (regenerating it would churn the form's identity on every rerun).
|
||
$formMetaFileExisting = Join-Path (Join-Path (Join-Path (Join-Path $extDir $dirName) $objName) "Forms") "${formName}.xml"
|
||
$newFormUuid = ""
|
||
if (Test-Path $formMetaFileExisting) {
|
||
try {
|
||
$existingDoc = New-Object System.Xml.XmlDocument
|
||
$existingDoc.Load($formMetaFileExisting)
|
||
$existingFormNode = $existingDoc.DocumentElement.SelectSingleNode("*[local-name()='Form']")
|
||
if ($existingFormNode) {
|
||
$existingUuid = $existingFormNode.GetAttribute("uuid")
|
||
if ($existingUuid) { $newFormUuid = $existingUuid }
|
||
}
|
||
} catch { }
|
||
}
|
||
if (-not $newFormUuid) { $newFormUuid = [guid]::NewGuid().ToString() }
|
||
$formMetaSb = New-Object System.Text.StringBuilder
|
||
$formMetaSb.AppendLine("<?xml version=`"1.0`" encoding=`"UTF-8`"?>") | Out-Null
|
||
$formMetaSb.AppendLine("<MetaDataObject $($script:xmlnsDecl) version=`"$($script:formatVersion)`">") | Out-Null
|
||
$formMetaSb.AppendLine("`t<Form uuid=`"${newFormUuid}`">") | Out-Null
|
||
$formMetaSb.AppendLine("`t`t<InternalInfo/>") | Out-Null
|
||
$formMetaSb.AppendLine("`t`t<Properties>") | Out-Null
|
||
$formMetaSb.AppendLine("`t`t`t<ObjectBelonging>Adopted</ObjectBelonging>") | Out-Null
|
||
$formMetaSb.AppendLine("`t`t`t<Name>${formName}</Name>") | Out-Null
|
||
$formMetaSb.AppendLine("`t`t`t<Comment/>") | Out-Null
|
||
$formMetaSb.AppendLine("`t`t`t<ExtendedConfigurationObject>${formUuid}</ExtendedConfigurationObject>") | Out-Null
|
||
$formMetaSb.AppendLine("`t`t`t<FormType>Managed</FormType>") | Out-Null
|
||
$formMetaSb.AppendLine("`t`t</Properties>") | Out-Null
|
||
$formMetaSb.AppendLine("`t</Form>") | Out-Null
|
||
$formMetaSb.Append("</MetaDataObject>") | Out-Null
|
||
|
||
# 4. Create directories
|
||
$formMetaDir = Join-Path (Join-Path (Join-Path $extDir $dirName) $objName) "Forms"
|
||
if (-not (Test-Path $formMetaDir)) {
|
||
New-Item -ItemType Directory -Path $formMetaDir -Force | Out-Null
|
||
}
|
||
|
||
# Write form metadata
|
||
$formMetaFile = Join-Path $formMetaDir "${formName}.xml"
|
||
[System.IO.File]::WriteAllText($formMetaFile, $formMetaSb.ToString(), $enc)
|
||
Info " Created: $formMetaFile"
|
||
|
||
# 5. Generate Form.xml with BaseForm (visual elements only)
|
||
# Parse source Form.xml as XmlDocument
|
||
$srcFormDoc = New-Object System.Xml.XmlDocument
|
||
$srcFormDoc.PreserveWhitespace = $true
|
||
$srcFormDoc.Load($srcFormXmlPath)
|
||
$srcFormEl = $srcFormDoc.DocumentElement
|
||
|
||
# Borrowed form must use the extension's format version (not the source form's), so the whole
|
||
# extension stays uniform — otherwise the platform rejects the import on a version mismatch
|
||
# (e.g. a 2.13 form inside a 2.17 extension). The platform itself upgrades the form to the root version.
|
||
$formVersion = $script:formatVersion
|
||
|
||
# Find direct children: form properties, AutoCommandBar, ChildItems.
|
||
# Секции формы отбираются по имени, а не по позиции: свойства лежат и до, и после <CommandSet>
|
||
# (корпусная проверка: у всех 794 форм документов ERP с CommandSet он стоит раньше AutoCommandBar,
|
||
# а AutoTime/UsePostingMode/RepostOnWrite — после него). Позиционная отсечка теряла весь хвост,
|
||
# и платформа молча подставляла дефолты вместо потерянных свойств.
|
||
$srcAutoCmd = $null
|
||
$srcChildItems = $null
|
||
$formProps = @()
|
||
foreach ($fc in $srcFormEl.ChildNodes) {
|
||
if ($fc.NodeType -ne 'Element') { continue }
|
||
if ($fc.LocalName -eq 'AutoCommandBar' -and -not $srcAutoCmd) {
|
||
$srcAutoCmd = $fc; continue
|
||
}
|
||
if ($fc.LocalName -eq 'ChildItems' -and -not $srcChildItems) {
|
||
$srcChildItems = $fc; continue
|
||
}
|
||
# Структурные секции: в расширении их содержимое недействительно (обработчики, команды и
|
||
# параметры базовой формы, ссылки командного интерфейса на команды базовой конфигурации).
|
||
if ($script:formStructuralSections -ccontains $fc.LocalName) { continue }
|
||
# Свойства, значение которых — имя реквизита формы. Реквизиты в заимствованную форму не
|
||
# переносятся, поэтому Конфигуратор такие свойства выбрасывает (проверено на форме отчёта:
|
||
# ReportResult и DetailsData выброшены, CustomSettingsFolder — имя элемента — сохранён).
|
||
if ($script:formAttributeRefProps -ccontains $fc.LocalName) { continue }
|
||
$formProps += $fc.OuterXml
|
||
}
|
||
|
||
# Get OuterXml and strip redundant namespace redeclarations (they're on root <Form>)
|
||
$nsStripPattern = '\s+xmlns(?::\w+)?="[^"]*"'
|
||
|
||
# Основной реквизит исходной формы: его имя — корень путей к данным, которые нужно сохранить
|
||
# («Объект.» у формы объекта, «Список.» у формы списка, «Запись.» у формы записи регистра)
|
||
# Имя основного реквизита источника нужно в обоих режимах: по нему опознаётся корень путей
|
||
# в ссылках параметров выбора. А $mainAttrName управляет вырезанием привязок и потому остаётся
|
||
# пустым в скелетном режиме — там привязки снимаются все.
|
||
$srcMainInfo = Get-MainAttributeInfo $srcFormEl $nsStripPattern
|
||
$srcMainAttrName = if ($srcMainInfo) { $srcMainInfo.Name } else { "" }
|
||
$formAttrIds = Get-FormAttributeIds $srcFormEl
|
||
$mainAttrInfo = if ($BorrowMainAttr) { $srcMainInfo } else { $null }
|
||
$mainAttrName = if ($mainAttrInfo) { $mainAttrInfo.Name } else { "" }
|
||
if ($BorrowMainAttr -and -not $mainAttrInfo) {
|
||
Warn " У формы нет основного реквизита — -BorrowMainAttribute проигнорирован"
|
||
}
|
||
|
||
# uuid реквизитов объекта нужны ровно там, где основной реквизит НЕ попал в форму:
|
||
# только тогда путь «<основной>.X» переводится в непрозрачный вид
|
||
# Имена реквизитов объекта нужны в обоих режимах: без заимствования — чтобы построить
|
||
# непрозрачный путь, с заимствованием — чтобы отличить реквизит (разрешается текстом) от
|
||
# стандартного поля (не разрешается)
|
||
$srcAttrUuids = Get-SourceAttributeUuids $typeName $objName
|
||
|
||
# AutoCommandBar: keep ChildItems (buttons with CommandName→0), Autofill→false
|
||
$autoCmdXml = ""
|
||
if ($srcAutoCmd) {
|
||
$autoCmdXml = $srcAutoCmd.OuterXml
|
||
$autoCmdXml = [regex]::Replace($autoCmdXml, $nsStripPattern, '')
|
||
$autoCmdXml = [regex]::Replace($autoCmdXml, '<CommandName>[^<]*</CommandName>', '<CommandName>0</CommandName>')
|
||
$autoCmdXml = $autoCmdXml -replace '<Autofill>true</Autofill>', '<Autofill>false</Autofill>'
|
||
# Вложенный CommandSet выбрасывается целиком, а не опустошается: Конфигуратор в заимствованной
|
||
# форме оставляет только корневой (тот идёт свойством формы, здесь его нет).
|
||
$autoCmdXml = [regex]::Replace($autoCmdXml, '(?s)\s*<CommandSet>.*?</CommandSet>', '')
|
||
$autoCmdXml = [regex]::Replace($autoCmdXml, '\s*<CommandSet/>', '')
|
||
# Strip data-binding tags whose root attribute isn't borrowed
|
||
$autoCmdXml = Strip-FormBindings $autoCmdXml $mainAttrName
|
||
$autoCmdXml = Rewrite-ChoiceParameterLinks $autoCmdXml $srcAttrUuids $formAttrIds $srcMainAttrName ([bool]$mainAttrInfo)
|
||
}
|
||
|
||
# ChildItems: copy full tree, clean up base-config references
|
||
$childItemsXml = ""
|
||
if ($srcChildItems) {
|
||
$childItemsXml = $srcChildItems.OuterXml
|
||
$childItemsXml = [regex]::Replace($childItemsXml, $nsStripPattern, '')
|
||
# Replace all CommandName values with 0
|
||
$childItemsXml = [regex]::Replace($childItemsXml, '<CommandName>[^<]*</CommandName>', '<CommandName>0</CommandName>')
|
||
# Strip data-binding tags whose root attribute isn't borrowed
|
||
# (DataPath/TitleDataPath/FooterDataPath/HeaderDataPath/MultipleValue*/RowPicture*)
|
||
$childItemsXml = Strip-FormBindings $childItemsXml $mainAttrName
|
||
$childItemsXml = Rewrite-ChoiceParameterLinks $childItemsXml $srcAttrUuids $formAttrIds $srcMainAttrName ([bool]$mainAttrInfo)
|
||
# Вложенные CommandSet (у таблиц, полей табличного документа и т.п.) — целиком, см. выше
|
||
$childItemsXml = [regex]::Replace($childItemsXml, '(?s)\s*<CommandSet>.*?</CommandSet>', '')
|
||
$childItemsXml = [regex]::Replace($childItemsXml, '\s*<CommandSet/>', '')
|
||
# Strip TypeLink blocks with human-readable DataPath (Items.XXX — can't convert to UUID)
|
||
$childItemsXml = [regex]::Replace($childItemsXml, '(?s)\s*<TypeLink>\s*<xr:DataPath>Items\.[^<]*</xr:DataPath>.*?</TypeLink>', '')
|
||
# Strip element-level Events (base form handlers not in extension)
|
||
$childItemsXml = [regex]::Replace($childItemsXml, '(?s)\s*<Events>.*?</Events>', '')
|
||
|
||
# Collect CommonPicture references from ChildItems and AutoCommandBar
|
||
$referencedPictures = @{}
|
||
$picRefs = [regex]::Matches($childItemsXml, '<xr:Ref>CommonPicture\.(\w+)</xr:Ref>')
|
||
foreach ($m in $picRefs) { $referencedPictures[$m.Groups[1].Value] = $true }
|
||
if ($autoCmdXml) {
|
||
$picRefs2 = [regex]::Matches($autoCmdXml, '<xr:Ref>CommonPicture\.(\w+)</xr:Ref>')
|
||
foreach ($m in $picRefs2) { $referencedPictures[$m.Groups[1].Value] = $true }
|
||
}
|
||
|
||
# Auto-borrow referenced CommonPictures (if not already borrowed)
|
||
$autoBorrowedPics = @()
|
||
foreach ($picName in $referencedPictures.Keys) {
|
||
if (-not (Test-ObjectBorrowed "CommonPicture" $picName)) {
|
||
$picSrcFile = Join-Path (Join-Path $cfgDir "CommonPictures") "${picName}.xml"
|
||
if (Test-Path $picSrcFile) {
|
||
$src = Read-SourceObject "CommonPicture" $picName
|
||
$borrowedXml = Build-BorrowedObjectXml "CommonPicture" $picName $src.Uuid $src.Properties
|
||
$targetDir = Join-Path $extDir "CommonPictures"
|
||
if (-not (Test-Path $targetDir)) {
|
||
New-Item -ItemType Directory -Path $targetDir -Force | Out-Null
|
||
}
|
||
$targetFile = Join-Path $targetDir "${picName}.xml"
|
||
$encBom = New-Object System.Text.UTF8Encoding($true)
|
||
[System.IO.File]::WriteAllText($targetFile, $borrowedXml, $encBom)
|
||
Add-ToChildObjects "CommonPicture" $picName
|
||
$autoBorrowedPics += $picName
|
||
$script:borrowedFiles += $targetFile
|
||
Info " Auto-borrowed: CommonPicture.${picName}"
|
||
} else {
|
||
Warn " CommonPicture.${picName} not found in source config — will strip from form"
|
||
}
|
||
}
|
||
}
|
||
|
||
# Collect all borrowed CommonPictures (including previously borrowed)
|
||
$borrowedPicSet = @{}
|
||
$nsMgr2 = New-Object System.Xml.XmlNamespaceManager($script:xmlDoc.NameTable)
|
||
$nsMgr2.AddNamespace("md", $script:mdNs)
|
||
$picNodes = $script:xmlDoc.SelectNodes("//md:ChildObjects/md:CommonPicture", $nsMgr2)
|
||
foreach ($pn in $picNodes) { $borrowedPicSet[$pn.InnerText] = $true }
|
||
|
||
# Strip <Picture> blocks referencing non-borrowed CommonPictures
|
||
$picBlockPattern = '(?s)\s*<Picture>\s*<xr:Ref>CommonPicture\.(\w+)</xr:Ref>.*?</Picture>'
|
||
$picMatches = [regex]::Matches($childItemsXml, $picBlockPattern)
|
||
# Process in reverse order to preserve positions
|
||
for ($mi = $picMatches.Count - 1; $mi -ge 0; $mi--) {
|
||
$pm = $picMatches[$mi]
|
||
$cpName = $pm.Groups[1].Value
|
||
if (-not $borrowedPicSet.ContainsKey($cpName)) {
|
||
$childItemsXml = $childItemsXml.Remove($pm.Index, $pm.Length)
|
||
}
|
||
}
|
||
# Strip StdPicture blocks (except Print)
|
||
$childItemsXml = [regex]::Replace($childItemsXml, '(?s)\s*<Picture>\s*<xr:Ref>StdPicture\.(?!Print\b)\w+</xr:Ref>.*?</Picture>', '')
|
||
|
||
# Same Picture strip for AutoCommandBar
|
||
if ($autoCmdXml) {
|
||
$acPicMatches = [regex]::Matches($autoCmdXml, $picBlockPattern)
|
||
for ($mi = $acPicMatches.Count - 1; $mi -ge 0; $mi--) {
|
||
$pm = $acPicMatches[$mi]
|
||
$cpName = $pm.Groups[1].Value
|
||
if (-not $borrowedPicSet.ContainsKey($cpName)) {
|
||
$autoCmdXml = $autoCmdXml.Remove($pm.Index, $pm.Length)
|
||
}
|
||
}
|
||
$autoCmdXml = [regex]::Replace($autoCmdXml, '(?s)\s*<Picture>\s*<xr:Ref>StdPicture\.(?!Print\b)\w+</xr:Ref>.*?</Picture>', '')
|
||
}
|
||
|
||
# Auto-borrow StyleItems referenced in ChildItems
|
||
# Pattern 1: <Font ref="style:XXX" kind="StyleItem"/>, <TitleFont ref="style:XXX" ... kind="StyleItem"/>
|
||
# Pattern 2: <BackColor>style:XXX</BackColor>, <TextColor>style:XXX</TextColor>, etc.
|
||
$referencedStyles = @{}
|
||
$styleRefs1 = [regex]::Matches($childItemsXml, 'ref="style:(\w+)"[^>]*kind="StyleItem"')
|
||
foreach ($m in $styleRefs1) { $referencedStyles[$m.Groups[1].Value] = $true }
|
||
$styleRefs2 = [regex]::Matches($childItemsXml, '>style:(\w+)</\w+>')
|
||
foreach ($m in $styleRefs2) { $referencedStyles[$m.Groups[1].Value] = $true }
|
||
|
||
foreach ($styleName in $referencedStyles.Keys) {
|
||
if (-not (Test-ObjectBorrowed "StyleItem" $styleName)) {
|
||
$styleSrcFile = Join-Path (Join-Path $cfgDir "StyleItems") "${styleName}.xml"
|
||
if (Test-Path $styleSrcFile) {
|
||
$src = Read-SourceObject "StyleItem" $styleName
|
||
$borrowedXml = Build-BorrowedObjectXml "StyleItem" $styleName $src.Uuid $src.Properties
|
||
$targetDir = Join-Path $extDir "StyleItems"
|
||
if (-not (Test-Path $targetDir)) {
|
||
New-Item -ItemType Directory -Path $targetDir -Force | Out-Null
|
||
}
|
||
$targetFile = Join-Path $targetDir "${styleName}.xml"
|
||
$encBom = New-Object System.Text.UTF8Encoding($true)
|
||
[System.IO.File]::WriteAllText($targetFile, $borrowedXml, $encBom)
|
||
Add-ToChildObjects "StyleItem" $styleName
|
||
$script:borrowedFiles += $targetFile
|
||
Info " Auto-borrowed: StyleItem.${styleName}"
|
||
} else {
|
||
Warn " StyleItem.${styleName} not found in source config"
|
||
}
|
||
}
|
||
}
|
||
# Auto-borrow Enums + EnumValues referenced via DesignTimeRef in ChoiceParameters
|
||
# Collect Enum -> [EnumValue names] map
|
||
$dtRefs = [regex]::Matches($childItemsXml, 'xr:DesignTimeRef">Enum\.(\w+)\.EnumValue\.(\w+)')
|
||
$referencedEnumValues = @{}
|
||
foreach ($m in $dtRefs) {
|
||
$eName = $m.Groups[1].Value
|
||
$evName = $m.Groups[2].Value
|
||
if (-not $referencedEnumValues.ContainsKey($eName)) { $referencedEnumValues[$eName] = @{} }
|
||
$referencedEnumValues[$eName][$evName] = $true
|
||
}
|
||
|
||
foreach ($enumName in $referencedEnumValues.Keys) {
|
||
if (-not (Test-ObjectBorrowed "Enum" $enumName)) {
|
||
$enumSrcFile = Join-Path (Join-Path $cfgDir "Enums") "${enumName}.xml"
|
||
if (Test-Path $enumSrcFile) {
|
||
# Read source Enum to get UUID and EnumValue UUIDs
|
||
$srcParser = New-Object System.Xml.XmlDocument
|
||
$srcParser.PreserveWhitespace = $true
|
||
$srcParser.Load($enumSrcFile)
|
||
$srcEnumEl = $null
|
||
foreach ($cn in $srcParser.DocumentElement.ChildNodes) {
|
||
if ($cn.NodeType -eq 'Element') { $srcEnumEl = $cn; break }
|
||
}
|
||
$srcEnumUuid = $srcEnumEl.GetAttribute("uuid")
|
||
|
||
# Find source EnumValues by name
|
||
$enumValueXmls = @()
|
||
$neededValues = $referencedEnumValues[$enumName]
|
||
$srcNsMgr = New-Object System.Xml.XmlNamespaceManager($srcParser.NameTable)
|
||
$srcNsMgr.AddNamespace("md", $script:mdNs)
|
||
$srcEvNodes = $srcEnumEl.SelectNodes("md:ChildObjects/md:EnumValue", $srcNsMgr)
|
||
foreach ($evNode in $srcEvNodes) {
|
||
$evUuid = $evNode.GetAttribute("uuid")
|
||
$evNameNode = $evNode.SelectSingleNode("md:Properties/md:Name", $srcNsMgr)
|
||
if ($evNameNode -and $neededValues.ContainsKey($evNameNode.InnerText)) {
|
||
$newEvUuid = [guid]::NewGuid().ToString()
|
||
$enumValueXmls += @"
|
||
<EnumValue uuid="${newEvUuid}">
|
||
<InternalInfo/>
|
||
<Properties>
|
||
<ObjectBelonging>Adopted</ObjectBelonging>
|
||
<Name>$($evNameNode.InnerText)</Name>
|
||
<Comment/>
|
||
<ExtendedConfigurationObject>${evUuid}</ExtendedConfigurationObject>
|
||
</Properties>
|
||
</EnumValue>
|
||
"@
|
||
}
|
||
}
|
||
|
||
# Build borrowed Enum with EnumValues in ChildObjects
|
||
$src = Read-SourceObject "Enum" $enumName
|
||
$borrowedXml = Build-BorrowedObjectXml "Enum" $enumName $src.Uuid $src.Properties
|
||
if ($enumValueXmls.Count -gt 0) {
|
||
$evBlock = ($enumValueXmls -join "`r`n")
|
||
$borrowedXml = $borrowedXml -replace '<ChildObjects/>', "<ChildObjects>`r`n${evBlock}`r`n`t`t</ChildObjects>"
|
||
}
|
||
|
||
$targetDir = Join-Path $extDir "Enums"
|
||
if (-not (Test-Path $targetDir)) {
|
||
New-Item -ItemType Directory -Path $targetDir -Force | Out-Null
|
||
}
|
||
$targetFile = Join-Path $targetDir "${enumName}.xml"
|
||
$encBom = New-Object System.Text.UTF8Encoding($true)
|
||
[System.IO.File]::WriteAllText($targetFile, $borrowedXml, $encBom)
|
||
Add-ToChildObjects "Enum" $enumName
|
||
$script:borrowedFiles += $targetFile
|
||
Info " Auto-borrowed: Enum.${enumName} (with $($enumValueXmls.Count) EnumValue(s))"
|
||
} else {
|
||
Warn " Enum.${enumName} not found in source config"
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
# Открывающий тег <Form ...> берём из исходной формы — ради её объявлений пространств имён,
|
||
# но version подставляем СВОЮ: форма обязана нести версию расширения, иначе платформа
|
||
# отвергает импорт (форма 2.13 внутри расширения 2.17). Раньше тег копировался целиком,
|
||
# и версия источника молча побеждала.
|
||
$xmlDecl = '<?xml version="1.0" encoding="UTF-8"?>'
|
||
$formTag = "<Form version=`"${formVersion}`">"
|
||
if ($srcFormContent -match '(?s)^(<\?xml[^?]*\?>)') { $xmlDecl = $Matches[1] }
|
||
if ($srcFormContent -match '(<Form[^>]*>)') {
|
||
$srcTag = $Matches[1]
|
||
$srcNs = $srcTag -replace '^<Form\s*', '' -replace '\s*/?>$', '' -replace '\s*version="[^"]*"', ''
|
||
# 2.21 (8.5): пространство палитры. Место строгое — после lf, перед style.
|
||
if ((Get-FormatRank $formVersion) -ge 221 -and $srcNs -notmatch 'xmlns:pal=') {
|
||
$srcNs = $srcNs -replace ' xmlns:style=', ' xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style='
|
||
}
|
||
$formTag = if ($srcNs) { "<Form $srcNs version=`"${formVersion}`">" } else { "<Form version=`"${formVersion}`">" }
|
||
}
|
||
|
||
# Build output Form.xml
|
||
$formXmlSb = New-Object System.Text.StringBuilder
|
||
$formXmlSb.Append($xmlDecl) | Out-Null
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
$formXmlSb.Append($formTag) | Out-Null
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
|
||
# Part 1: form properties + AutoCommandBar + ChildItems
|
||
foreach ($propXml in $formProps) {
|
||
$propXml = [regex]::Replace($propXml, $nsStripPattern, '')
|
||
$formXmlSb.Append("`t$propXml`r`n") | Out-Null
|
||
}
|
||
if ($autoCmdXml) {
|
||
$formXmlSb.Append("`t$autoCmdXml") | Out-Null
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
}
|
||
if ($childItemsXml) {
|
||
$formXmlSb.Append("`t$childItemsXml") | Out-Null
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
}
|
||
# Attributes: empty or with MainAttribute when BorrowMainAttr
|
||
if ($BorrowMainAttr -and $mainAttrInfo) {
|
||
$formXmlSb.Append("`t<Attributes>`r`n") | Out-Null
|
||
$formXmlSb.Append("`t`t$($mainAttrInfo.Xml)`r`n") | Out-Null
|
||
$formXmlSb.Append("`t</Attributes>") | Out-Null
|
||
} else {
|
||
$formXmlSb.Append("`t<Attributes/>") | Out-Null
|
||
}
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
|
||
# BaseForm: same content, indented one more level
|
||
$formXmlSb.Append("`t<BaseForm version=`"${formVersion}`">") | Out-Null
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
|
||
foreach ($propXml in $formProps) {
|
||
$propXml = [regex]::Replace($propXml, $nsStripPattern, '')
|
||
$formXmlSb.Append("`t`t$propXml`r`n") | Out-Null
|
||
}
|
||
if ($autoCmdXml) {
|
||
$acLines = $autoCmdXml -split "`r?`n"
|
||
for ($li = 0; $li -lt $acLines.Count; $li++) {
|
||
if ($li -eq 0) { $formXmlSb.Append("`t`t$($acLines[$li])") | Out-Null }
|
||
else { $formXmlSb.Append("`t$($acLines[$li])") | Out-Null }
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
}
|
||
}
|
||
if ($childItemsXml) {
|
||
# Reindent ChildItems for BaseForm (+1 tab level)
|
||
$ciLines = $childItemsXml -split "`r?`n"
|
||
for ($li = 0; $li -lt $ciLines.Count; $li++) {
|
||
if ($li -eq 0) { $formXmlSb.Append("`t`t$($ciLines[$li])") | Out-Null }
|
||
else { $formXmlSb.Append("`t$($ciLines[$li])") | Out-Null }
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
}
|
||
}
|
||
|
||
# BaseForm Attributes: same as main section
|
||
if ($BorrowMainAttr -and $mainAttrInfo) {
|
||
$formXmlSb.Append("`t`t<Attributes>`r`n") | Out-Null
|
||
# В BaseForm та же секция на уровень глубже — приём переиндентации тот же, что у ChildItems
|
||
$maLines = $mainAttrInfo.Xml -split "`r?`n"
|
||
for ($li = 0; $li -lt $maLines.Count; $li++) {
|
||
if ($li -eq 0) { $formXmlSb.Append("`t`t`t$($maLines[$li])") | Out-Null }
|
||
else { $formXmlSb.Append("`t$($maLines[$li])") | Out-Null }
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
}
|
||
$formXmlSb.Append("`t`t</Attributes>") | Out-Null
|
||
} else {
|
||
$formXmlSb.Append("`t`t<Attributes/>") | Out-Null
|
||
}
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
$formXmlSb.Append("`t</BaseForm>") | Out-Null
|
||
$formXmlSb.Append("`r`n") | Out-Null
|
||
$formXmlSb.Append("</Form>") | Out-Null
|
||
|
||
# Write Form.xml
|
||
$formXmlDir = Join-Path (Join-Path $formMetaDir $formName) "Ext"
|
||
if (-not (Test-Path $formXmlDir)) {
|
||
New-Item -ItemType Directory -Path $formXmlDir -Force | Out-Null
|
||
}
|
||
$formXmlFile = Join-Path $formXmlDir "Form.xml"
|
||
# Пустой элемент: XmlWriter отдаёт `<a />`, Конфигуратор пишет `<a/>`. Внутри
|
||
# CDATA/комментария ` />` может быть содержимым (там `>` не экранируется),
|
||
# поэтому они идут первыми ветками альтернации и возвращаются как есть.
|
||
# Здесь источник не XmlWriter, а OuterXml исходного документа — спацовывает так же.
|
||
$formXmlText = $formXmlSb.ToString()
|
||
$formXmlText = [regex]::Replace($formXmlText, '(?s)<!\[CDATA\[.*?\]\]>|<!--.*?-->|(?<=\S) />', { param($m) if ($m.Value -eq ' />') { '/>' } else { $m.Value } })
|
||
# Файл создаём мы — канон выгрузки: CRLF в разделителях строк.
|
||
$formXmlText = ($formXmlText -replace "`r`n", "`n") -replace "`n", "`r`n"
|
||
[System.IO.File]::WriteAllText($formXmlFile, $formXmlText, $enc)
|
||
Info " Created: $formXmlFile"
|
||
if ($script:droppedLinks.Count -gt 0) {
|
||
$uniq = @($script:droppedLinks | Sort-Object -Unique)
|
||
Warn " Вырезано связей параметров выбора: $($uniq.Count) — путь не разрешается в расширении: $($uniq -join ', ')"
|
||
$script:droppedLinks = @()
|
||
}
|
||
|
||
# 6. Create empty Module.bsl — but NEVER overwrite an existing one (re-borrow must
|
||
# not clobber user code added to the form module).
|
||
$moduleDir = Join-Path $formXmlDir "Form"
|
||
if (-not (Test-Path $moduleDir)) {
|
||
New-Item -ItemType Directory -Path $moduleDir -Force | Out-Null
|
||
}
|
||
$moduleBslFile = Join-Path $moduleDir "Module.bsl"
|
||
if (Test-Path $moduleBslFile) {
|
||
Info " Preserved existing Module.bsl"
|
||
} else {
|
||
[System.IO.File]::WriteAllText($moduleBslFile, "", $enc)
|
||
Info " Created: $moduleBslFile"
|
||
}
|
||
|
||
# 7. Register form in parent object ChildObjects
|
||
Register-FormInObject $typeName $objName $formName
|
||
|
||
return @($formMetaFile, $formXmlFile, $moduleBslFile)
|
||
}
|
||
|
||
# --- 10d. Helper: register form in parent object's ChildObjects ---
|
||
function Register-FormInObject {
|
||
param([string]$typeName, [string]$objName, [string]$formName)
|
||
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
$objFile = Join-Path (Join-Path $extDir $dirName) "${objName}.xml"
|
||
|
||
if (-not (Test-Path $objFile)) {
|
||
Warn "Parent object file not found: $objFile — form not registered in ChildObjects"
|
||
return
|
||
}
|
||
|
||
$objDoc = New-Object System.Xml.XmlDocument
|
||
$objDoc.PreserveWhitespace = $true
|
||
$objDoc.Load($objFile)
|
||
|
||
$objNs = New-Object System.Xml.XmlNamespaceManager($objDoc.NameTable)
|
||
$objNs.AddNamespace("md", "http://v8.1c.ru/8.3/MDClasses")
|
||
|
||
# Find the type element
|
||
$objEl = $null
|
||
foreach ($c in $objDoc.DocumentElement.ChildNodes) {
|
||
if ($c.NodeType -eq 'Element') { $objEl = $c; break }
|
||
}
|
||
if (-not $objEl) {
|
||
Warn "No type element in $objFile — form not registered"
|
||
return
|
||
}
|
||
|
||
# Find or create ChildObjects
|
||
$childObjs = $objEl.SelectSingleNode("md:ChildObjects", $objNs)
|
||
if (-not $childObjs) {
|
||
# Create ChildObjects element
|
||
$childObjs = $objDoc.CreateElement("ChildObjects", "http://v8.1c.ru/8.3/MDClasses")
|
||
$objEl.AppendChild($objDoc.CreateWhitespace("`r`n`t`t")) | Out-Null
|
||
$objEl.AppendChild($childObjs) | Out-Null
|
||
$objEl.AppendChild($objDoc.CreateWhitespace("`r`n`t")) | Out-Null
|
||
}
|
||
|
||
# Check dedup
|
||
foreach ($c in $childObjs.ChildNodes) {
|
||
if ($c.NodeType -eq 'Element' -and $c.LocalName -eq "Form" -and $c.InnerText -eq $formName) {
|
||
Warn "Form '$formName' already in ChildObjects of ${typeName}.${objName}"
|
||
return
|
||
}
|
||
}
|
||
|
||
# Expand self-closing if needed
|
||
if (-not $childObjs.HasChildNodes -or $childObjs.IsEmpty) {
|
||
$closeWs = $objDoc.CreateWhitespace("`r`n`t`t")
|
||
$childObjs.AppendChild($closeWs) | Out-Null
|
||
}
|
||
|
||
# Add <Form>formName</Form>
|
||
$formEl = $objDoc.CreateElement("Form", "http://v8.1c.ru/8.3/MDClasses")
|
||
$formEl.InnerText = $formName
|
||
|
||
$trailing = $childObjs.LastChild
|
||
$ws = $objDoc.CreateWhitespace("`r`n`t`t`t")
|
||
if ($trailing -and ($trailing.NodeType -eq 'Whitespace' -or $trailing.NodeType -eq 'SignificantWhitespace')) {
|
||
$childObjs.InsertBefore($ws, $trailing) | Out-Null
|
||
$childObjs.InsertBefore($formEl, $trailing) | Out-Null
|
||
} else {
|
||
$childObjs.AppendChild($ws) | Out-Null
|
||
$childObjs.AppendChild($formEl) | Out-Null
|
||
}
|
||
|
||
# Save object XML
|
||
$settings2 = New-Object System.Xml.XmlWriterSettings
|
||
$settings2.Encoding = New-Object System.Text.UTF8Encoding($true)
|
||
$settings2.Indent = $false
|
||
$settings2.NewLineHandling = [System.Xml.NewLineHandling]::None
|
||
|
||
$memStream2 = New-Object System.IO.MemoryStream
|
||
$writer2 = [System.Xml.XmlWriter]::Create($memStream2, $settings2)
|
||
$objDoc.Save($writer2)
|
||
$writer2.Flush(); $writer2.Close()
|
||
|
||
$bytes2 = $memStream2.ToArray()
|
||
$memStream2.Close()
|
||
$text2 = [System.Text.Encoding]::UTF8.GetString($bytes2)
|
||
if ($text2.Length -gt 0 -and $text2[0] -eq [char]0xFEFF) { $text2 = $text2.Substring(1) }
|
||
$text2 = $text2.Replace('encoding="utf-8"', 'encoding="UTF-8"')
|
||
# Пустой элемент: XmlWriter отдаёт `<a />`, Конфигуратор пишет `<a/>`. Внутри
|
||
# CDATA/комментария ` />` может быть содержимым (там `>` не экранируется),
|
||
# поэтому они идут первыми ветками альтернации и возвращаются как есть.
|
||
$text2 = [regex]::Replace($text2, '(?s)<!\[CDATA\[.*?\]\]>|<!--.*?-->|(?<=\S) />', { param($m) if ($m.Value -eq ' />') { '/>' } else { $m.Value } })
|
||
|
||
$utf8Bom2 = New-Object System.Text.UTF8Encoding($true)
|
||
# Целевой перевод строки: стиль файла-назначения — правка наследует его (#44/#46/#47),
|
||
# новый файл получает канон выгрузки CRLF. Зеркало _detect_xml_style в py-порту.
|
||
$targetEol = if ((Test-Path -LiteralPath $objFile) -and ([System.IO.File]::ReadAllText($objFile) -notmatch "`r`n")) { "`n" } else { "`r`n" }
|
||
$text2 = ($text2 -replace "`r`n", "`n") -replace "`n", $targetEol
|
||
[System.IO.File]::WriteAllText($objFile, $text2, $utf8Bom2)
|
||
Info " Registered form in: $objFile"
|
||
}
|
||
|
||
# --- 10e. Helper: check if object is already borrowed in extension ---
|
||
function Test-ObjectBorrowed {
|
||
param([string]$typeName, [string]$objName)
|
||
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
$objFile = Join-Path (Join-Path $extDir $dirName) "${objName}.xml"
|
||
return (Test-Path $objFile)
|
||
}
|
||
|
||
# --- 11. Helper: generate InternalInfo XML ---
|
||
function Build-InternalInfoXml {
|
||
param([string]$typeName, [string]$objName, [string]$indent)
|
||
|
||
$types = $script:generatedTypes[$typeName]
|
||
if (-not $types -or $types.Count -eq 0) {
|
||
return "${indent}<InternalInfo/>"
|
||
}
|
||
|
||
$sb = New-Object System.Text.StringBuilder
|
||
$sb.AppendLine("${indent}<InternalInfo>") | Out-Null
|
||
|
||
# ExchangePlan: ThisNode UUID before GeneratedTypes
|
||
if ($typeName -eq "ExchangePlan") {
|
||
$thisNodeUuid = [guid]::NewGuid().ToString()
|
||
$sb.AppendLine("${indent}`t<xr:ThisNode>${thisNodeUuid}</xr:ThisNode>") | Out-Null
|
||
}
|
||
|
||
foreach ($gt in $types) {
|
||
$fullName = "$($gt.prefix).${objName}"
|
||
$typeId = [guid]::NewGuid().ToString()
|
||
$valueId = [guid]::NewGuid().ToString()
|
||
$sb.AppendLine("${indent}`t<xr:GeneratedType name=`"${fullName}`" category=`"$($gt.category)`">") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<xr:TypeId>${typeId}</xr:TypeId>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<xr:ValueId>${valueId}</xr:ValueId>") | Out-Null
|
||
$sb.AppendLine("${indent}`t</xr:GeneratedType>") | Out-Null
|
||
}
|
||
|
||
$sb.Append("${indent}</InternalInfo>") | Out-Null
|
||
return $sb.ToString()
|
||
}
|
||
|
||
# --- 11b. Collect DataPath references from source Form.xml ---
|
||
# --- 11b1. Основной реквизит исходной формы ---
|
||
# Переносится ЦЕЛИКОМ, а не собирается из констант: имя, тип и состав детей зависят от вида формы.
|
||
# У формы объекта это «Объект»/<Тип>Object + SavedData/UseAlways/Columns, у формы списка —
|
||
# «Список»/DynamicList + Settings, у формы записи регистра — «Запись»/RecordManager + SavedData.
|
||
# Синтез фиксированного набора давал для необъектных форм «Исключение XDTO» при загрузке.
|
||
# Конфигуратор меняет у скопированного реквизита только id (эталоны Issue64UtB, Issue66Example2).
|
||
# Имена реквизитов ИСХОДНОЙ формы → их id. Ссылки параметров выбора адресуют реквизит формы
|
||
# именно по id базовой формы (см. Rewrite-ChoiceParameterLinks).
|
||
function Get-FormAttributeIds {
|
||
param($formEl)
|
||
|
||
$result = @{}
|
||
$attrs = $formEl.SelectSingleNode("*[local-name()='Attributes']")
|
||
if (-not $attrs) { return $result }
|
||
foreach ($a in $attrs.ChildNodes) {
|
||
if ($a.NodeType -ne 'Element' -or $a.LocalName -ne 'Attribute') { continue }
|
||
$nm = $a.GetAttribute("name"); $id = $a.GetAttribute("id")
|
||
if ($nm -and $id) { $result[$nm] = $id }
|
||
}
|
||
return $result
|
||
}
|
||
|
||
function Get-MainAttributeInfo {
|
||
param($formEl, [string]$nsStripPattern)
|
||
|
||
$mainAttr = $formEl.SelectSingleNode("*[local-name()='Attributes']/*[local-name()='Attribute'][*[local-name()='MainAttribute']='true']")
|
||
if (-not $mainAttr) { return $null }
|
||
$xml = [regex]::Replace($mainAttr.OuterXml, $nsStripPattern, '')
|
||
# id заменяется только в открывающем теге самого реквизита — у вложенных элементов свои
|
||
$xml = [regex]::Replace($xml, '^(<Attribute\s[^>]*?)id="[^"]*"', "`${1}id=`"$script:mainAttrId`"")
|
||
return @{ Name = $mainAttr.GetAttribute("name"); Xml = $xml }
|
||
}
|
||
|
||
function Collect-FormDataPaths {
|
||
param([string]$formXmlPath, [string]$mainAttrName)
|
||
|
||
# Корень путей — имя основного реквизита формы: «Объект» у формы объекта, «Список» у формы
|
||
# списка, «Запись» у формы записи регистра. Зашитый «Объект» не находил ничего у необъектных
|
||
# форм, и в оболочку не заимствовалось ни одного дочернего объекта.
|
||
$root = [regex]::Escape($mainAttrName)
|
||
|
||
$enc = New-Object System.Text.UTF8Encoding($true)
|
||
$content = [System.IO.File]::ReadAllText($formXmlPath, $enc)
|
||
|
||
$firstLevel = @{}
|
||
$deepPaths = @()
|
||
|
||
# Scan every data-binding tag (DataPath/TitleDataPath/FooterDataPath/HeaderDataPath/MultipleValue*)
|
||
# for Объект.* references — picture-path tags carry picture indices, not data attributes.
|
||
foreach ($tag in $script:formBindingDataTags) {
|
||
$bms = [regex]::Matches($content, "<$tag>[^<]*\b$root\.(\w+(?:\.\w+)*)</$tag>")
|
||
foreach ($m in $bms) {
|
||
$path = $m.Groups[1].Value
|
||
$segments = $path.Split(".")
|
||
$seg0 = $segments[0]
|
||
if ($script:standardFields -contains $seg0) { continue }
|
||
$firstLevel[$seg0] = $true
|
||
if ($segments.Count -ge 2) {
|
||
$seg1 = $segments[1]
|
||
if ($script:standardFields -contains $seg1) { continue }
|
||
$seg2 = if ($segments.Count -ge 3) { $segments[2] } else { $null }
|
||
$deepPaths += @{ ObjectAttr = $seg0; SubAttr = $seg1; SubSubAttr = $seg2 }
|
||
}
|
||
}
|
||
}
|
||
|
||
# Also scan <Field>Объект.X</Field> — object attributes referenced by filter/conditional-appearance
|
||
# fields (and dynamic lists), not via a *DataPath binding (e.g. УдалитьЮрФизЛицо). Designer borrows these too.
|
||
$fieldMatches = [regex]::Matches($content, "<Field>[^<]*\b$root\.(\w+(?:\.\w+)*)</Field>")
|
||
foreach ($m in $fieldMatches) {
|
||
$path = $m.Groups[1].Value
|
||
$segments = $path.Split(".")
|
||
$seg0 = $segments[0]
|
||
if ($script:standardFields -contains $seg0) { continue }
|
||
$firstLevel[$seg0] = $true
|
||
if ($segments.Count -ge 2) {
|
||
$seg1 = $segments[1]
|
||
if ($script:standardFields -contains $seg1) { continue }
|
||
$deepPaths += @{ ObjectAttr = $seg0; SubAttr = $seg1 }
|
||
}
|
||
}
|
||
|
||
# Also scan <AdditionalColumns table="Объект.X"> — доп. колонки табличной части, объявленные в
|
||
# самой форме (напр. Объект.Товары.Артикул). Такая ТЧ может больше нигде на форме не встречаться,
|
||
# и без её заимствования платформа отвергает форму: «Неверный путь к данным».
|
||
$acMatches = [regex]::Matches($content, "<AdditionalColumns table=`"$root\.(\w+)`"")
|
||
foreach ($m in $acMatches) {
|
||
$seg0 = $m.Groups[1].Value
|
||
if ($script:standardFields -contains $seg0) { continue }
|
||
$firstLevel[$seg0] = $true
|
||
}
|
||
|
||
# Текст запроса динамического списка — такое же место ссылки на реквизиты объекта, как DataPath.
|
||
# Конфигуратор заимствует всё, что упомянуто в запросе: на эталоне Issue66Example2 это 21 из 27
|
||
# дочерних объектов, совпадение с ним точное в обе стороны. У списка без ручного запроса
|
||
# (<QueryText> нет) заимствуется только видимое на форме — эталон Issue66Example3.
|
||
# Разбирать язык запросов не нужно: имена-кандидаты отфильтрует Resolve-SourceAttributes по
|
||
# реальному составу объекта, поэтому лишние слова из запроса безвредны.
|
||
foreach ($qm in [regex]::Matches($content, '(?s)<QueryText>(.*?)</QueryText>')) {
|
||
foreach ($w in [regex]::Matches($qm.Groups[1].Value, '[\w]+')) {
|
||
$word = $w.Value
|
||
if ($script:standardFields -contains $word) { continue }
|
||
$firstLevel[$word] = $true
|
||
}
|
||
}
|
||
|
||
# Deduplicate deep paths
|
||
$seen = @{}
|
||
$uniqueDeep = @()
|
||
foreach ($dp in $deepPaths) {
|
||
$key = "$($dp.ObjectAttr).$($dp.SubAttr).$($dp.SubSubAttr)"
|
||
if (-not $seen.ContainsKey($key)) {
|
||
$seen[$key] = $true
|
||
$uniqueDeep += $dp
|
||
}
|
||
}
|
||
|
||
return @{ FirstLevel = $firstLevel; DeepPaths = $uniqueDeep }
|
||
}
|
||
|
||
# --- 11c. Resolve source attributes and tabular sections ---
|
||
function Resolve-SourceAttributes {
|
||
param([string]$typeName, [string]$objName, $firstLevelNames)
|
||
# $firstLevelNames: hashtable of names, or $null for "all"
|
||
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
$srcFile = Join-Path (Join-Path $cfgDir $dirName) "${objName}.xml"
|
||
if (-not (Test-Path $srcFile)) {
|
||
Write-Error "Source object not found: $srcFile"
|
||
exit 1
|
||
}
|
||
|
||
$srcDoc = New-Object System.Xml.XmlDocument
|
||
$srcDoc.PreserveWhitespace = $false
|
||
$srcDoc.Load($srcFile)
|
||
|
||
$srcNs = New-Object System.Xml.XmlNamespaceManager($srcDoc.NameTable)
|
||
$srcNs.AddNamespace("md", $script:mdNs)
|
||
$srcNs.AddNamespace("xr", $script:xrNs)
|
||
$srcNs.AddNamespace("v8", $script:v8Ns)
|
||
|
||
$srcEl = $null
|
||
foreach ($c in $srcDoc.DocumentElement.ChildNodes) {
|
||
if ($c.NodeType -eq 'Element') { $srcEl = $c; break }
|
||
}
|
||
if (-not $srcEl) { Write-Error "No metadata element in source: $srcFile"; exit 1 }
|
||
|
||
$childObjs = $srcEl.SelectSingleNode("md:ChildObjects", $srcNs)
|
||
if (-not $childObjs) { return @{ Attributes = @(); TabularSections = @(); ExtraProps = @{} } }
|
||
|
||
$attrs = @()
|
||
$tabSections = @()
|
||
|
||
foreach ($child in $childObjs.ChildNodes) {
|
||
if ($child.NodeType -ne 'Element') { continue }
|
||
|
||
# Реквизит объекта, измерение и ресурс регистра — один и тот же вид дочернего объекта с
|
||
# точки зрения заимствования, различается только имя элемента. Конфигуратор переносит их
|
||
# своим видом (эталон Issue66Example2: у регистра <Dimension> x3 и <Resource>), поэтому вид
|
||
# запоминается и выпускается как есть — иначе измерение уехало бы в файл как <Attribute>.
|
||
if ($script:childObjectKinds -ccontains $child.LocalName) {
|
||
$nameNode = $child.SelectSingleNode("md:Properties/md:Name", $srcNs)
|
||
if (-not $nameNode) { continue }
|
||
$attrName = $nameNode.InnerText
|
||
if ($null -ne $firstLevelNames -and -not $firstLevelNames.ContainsKey($attrName)) { continue }
|
||
|
||
$uuid = $child.GetAttribute("uuid")
|
||
$typeNode = $child.SelectSingleNode("md:Properties/md:Type", $srcNs)
|
||
$typeXml = if ($typeNode) { $typeNode.OuterXml } else { "" }
|
||
# Strip namespace declarations from Type
|
||
$typeXml = [regex]::Replace($typeXml, '\s+xmlns(?::\w+)?="[^"]*"', '')
|
||
|
||
$attrs += @{ Name = $attrName; Uuid = $uuid; TypeXml = $typeXml; Kind = $child.LocalName }
|
||
}
|
||
elseif ($child.LocalName -eq 'TabularSection') {
|
||
$nameNode = $child.SelectSingleNode("md:Properties/md:Name", $srcNs)
|
||
if (-not $nameNode) { continue }
|
||
$tsName = $nameNode.InnerText
|
||
if ($null -ne $firstLevelNames -and -not $firstLevelNames.ContainsKey($tsName)) { continue }
|
||
|
||
$tsUuid = $child.GetAttribute("uuid")
|
||
|
||
# Extract GeneratedTypes from InternalInfo
|
||
$tsGenTypes = @()
|
||
$iiNode = $child.SelectSingleNode("md:InternalInfo", $srcNs)
|
||
if ($iiNode) {
|
||
$gtNodes = $iiNode.SelectNodes("xr:GeneratedType", $srcNs)
|
||
foreach ($gt in $gtNodes) {
|
||
$tsGenTypes += @{
|
||
Name = $gt.GetAttribute("name")
|
||
Category = $gt.GetAttribute("category")
|
||
TypeId = $gt.SelectSingleNode("xr:TypeId", $srcNs).InnerText
|
||
ValueId = $gt.SelectSingleNode("xr:ValueId", $srcNs).InnerText
|
||
}
|
||
}
|
||
}
|
||
|
||
# Extract ALL child attributes of TabularSection
|
||
$tsAttrs = @()
|
||
$tsChildObjs = $child.SelectSingleNode("md:ChildObjects", $srcNs)
|
||
if ($tsChildObjs) {
|
||
foreach ($tsChild in $tsChildObjs.ChildNodes) {
|
||
if ($tsChild.NodeType -ne 'Element' -or $tsChild.LocalName -ne 'Attribute') { continue }
|
||
$tsAttrName = $tsChild.SelectSingleNode("md:Properties/md:Name", $srcNs)
|
||
if (-not $tsAttrName) { continue }
|
||
$tsAttrUuid = $tsChild.GetAttribute("uuid")
|
||
$tsTypeNode = $tsChild.SelectSingleNode("md:Properties/md:Type", $srcNs)
|
||
$tsTypeXml = if ($tsTypeNode) { $tsTypeNode.OuterXml } else { "" }
|
||
$tsTypeXml = [regex]::Replace($tsTypeXml, '\s+xmlns(?::\w+)?="[^"]*"', '')
|
||
$tsAttrs += @{ Name = $tsAttrName.InnerText; Uuid = $tsAttrUuid; TypeXml = $tsTypeXml }
|
||
}
|
||
}
|
||
|
||
$tabSections += @{ Name = $tsName; Uuid = $tsUuid; GeneratedTypes = $tsGenTypes; Attributes = $tsAttrs }
|
||
}
|
||
}
|
||
|
||
# Extract extra Properties for main object enrichment (Hierarchical, CodeLength, etc.)
|
||
# Ordered so PS emits the same property order as the Python port (dict preserves insertion order).
|
||
$extraProps = [ordered]@{}
|
||
$propsNode = $srcEl.SelectSingleNode("md:Properties", $srcNs)
|
||
if ($propsNode) {
|
||
# NumberPeriodicity сюда НЕ входит: платформа считает его модификацией настроек нумерации и
|
||
# тогда требует объявить ещё и <Numerator/>, иначе /UpdateDBCfg падает — «отключать
|
||
# контролируемость свойства "Нумератор" недопустимо». Конфигуратор его не переносит
|
||
# (эталон заимствования документа: NumberType/NumberLength/NumberAllowedLength и всё).
|
||
# Загрузку это не ломает, ошибка вылезает только на обновлении конфигурации БД.
|
||
# FoldersOnTop сюда НЕ входит: платформа его у заимствованной оболочки не хранит — при
|
||
# загрузке молча выбрасывает (проверено раундтрипом: записали, выгрузили обратно, свойства
|
||
# нет). Конфигуратор его тоже не переносит. Остальные из списка сохраняются.
|
||
$propsToExtract = @("Hierarchical","CodeLength","DescriptionLength","CodeType","CodeAllowedLength",
|
||
"NumberType","NumberLength","NumberAllowedLength")
|
||
foreach ($pName in $propsToExtract) {
|
||
$pNode = $propsNode.SelectSingleNode("md:${pName}", $srcNs)
|
||
if ($pNode) { $extraProps[$pName] = $pNode.InnerText }
|
||
}
|
||
}
|
||
|
||
return @{ Attributes = $attrs; TabularSections = $tabSections; ExtraProps = $extraProps }
|
||
}
|
||
|
||
# --- 11d. Build adopted attribute XML ---
|
||
function Build-AdoptedAttributeXml {
|
||
param([string]$name, [string]$sourceUuid, [string]$typeXml, [string]$indent, [string]$kind = "Attribute")
|
||
|
||
$newUuid = [guid]::NewGuid().ToString()
|
||
$sb = New-Object System.Text.StringBuilder
|
||
$sb.AppendLine("${indent}<${kind} uuid=`"${newUuid}`">") | Out-Null
|
||
$sb.AppendLine("${indent}`t<InternalInfo/>") | Out-Null
|
||
$sb.AppendLine("${indent}`t<Properties>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<ObjectBelonging>Adopted</ObjectBelonging>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<Name>${name}</Name>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<Comment/>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<ExtendedConfigurationObject>${sourceUuid}</ExtendedConfigurationObject>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t${typeXml}") | Out-Null
|
||
$sb.AppendLine("${indent}`t</Properties>") | Out-Null
|
||
$sb.Append("${indent}</${kind}>") | Out-Null
|
||
return $sb.ToString()
|
||
}
|
||
|
||
# --- 11e. Build adopted tabular section XML ---
|
||
function Build-AdoptedTabularSectionXml {
|
||
param([string]$tsName, [string]$sourceUuid, $generatedTypes, $childAttrs, [string]$indent)
|
||
|
||
$newUuid = [guid]::NewGuid().ToString()
|
||
$sb = New-Object System.Text.StringBuilder
|
||
$sb.AppendLine("${indent}<TabularSection uuid=`"${newUuid}`">") | Out-Null
|
||
|
||
# InternalInfo with GeneratedTypes (new UUIDs, referencing source names)
|
||
if ($generatedTypes -and $generatedTypes.Count -gt 0) {
|
||
$sb.AppendLine("${indent}`t<InternalInfo>") | Out-Null
|
||
foreach ($gt in $generatedTypes) {
|
||
$newTid = [guid]::NewGuid().ToString()
|
||
$newVid = [guid]::NewGuid().ToString()
|
||
$sb.AppendLine("${indent}`t`t<xr:GeneratedType name=`"$($gt.Name)`" category=`"$($gt.Category)`">") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t`t<xr:TypeId>${newTid}</xr:TypeId>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t`t<xr:ValueId>${newVid}</xr:ValueId>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t</xr:GeneratedType>") | Out-Null
|
||
}
|
||
$sb.AppendLine("${indent}`t</InternalInfo>") | Out-Null
|
||
} else {
|
||
$sb.AppendLine("${indent}`t<InternalInfo/>") | Out-Null
|
||
}
|
||
|
||
$sb.AppendLine("${indent}`t<Properties>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<ObjectBelonging>Adopted</ObjectBelonging>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<Name>${tsName}</Name>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<Comment/>") | Out-Null
|
||
$sb.AppendLine("${indent}`t`t<ExtendedConfigurationObject>${sourceUuid}</ExtendedConfigurationObject>") | Out-Null
|
||
$sb.AppendLine("${indent}`t</Properties>") | Out-Null
|
||
|
||
# ChildObjects with all attributes
|
||
if ($childAttrs -and $childAttrs.Count -gt 0) {
|
||
$sb.AppendLine("${indent}`t<ChildObjects>") | Out-Null
|
||
foreach ($ca in $childAttrs) {
|
||
$caXml = Build-AdoptedAttributeXml $ca.Name $ca.Uuid $ca.TypeXml "${indent}`t`t"
|
||
$sb.AppendLine($caXml) | Out-Null
|
||
}
|
||
$sb.AppendLine("${indent}`t</ChildObjects>") | Out-Null
|
||
} else {
|
||
$sb.AppendLine("${indent}`t<ChildObjects/>") | Out-Null
|
||
}
|
||
|
||
$sb.Append("${indent}</TabularSection>") | Out-Null
|
||
return $sb.ToString()
|
||
}
|
||
|
||
# --- 11f. Collect reference types from attribute Type XML strings ---
|
||
function Collect-ReferenceTypes {
|
||
param([string[]]$typeXmls)
|
||
|
||
$result = @{}
|
||
foreach ($typeXml in $typeXmls) {
|
||
# cfg:CatalogRef.XXX, cfg:EnumRef.XXX, cfg:DocumentRef.XXX, etc.
|
||
$refMatches = [regex]::Matches($typeXml, 'cfg:(\w+)Ref\.(\w+)')
|
||
foreach ($m in $refMatches) {
|
||
$refPrefix = $m.Groups[1].Value # e.g. "Catalog", "Enum", "Document"
|
||
$objName = $m.Groups[2].Value
|
||
$key = "${refPrefix}.${objName}"
|
||
if (-not $result.ContainsKey($key)) {
|
||
$result[$key] = @{ TypeName = $refPrefix; ObjName = $objName }
|
||
}
|
||
}
|
||
# cfg:DefinedType.XXX (via v8:TypeSet or v8:Type)
|
||
$dtMatches = [regex]::Matches($typeXml, 'cfg:DefinedType\.(\w+)')
|
||
foreach ($m in $dtMatches) {
|
||
$dtName = $m.Groups[1].Value
|
||
$key = "DefinedType.${dtName}"
|
||
if (-not $result.ContainsKey($key)) {
|
||
$result[$key] = @{ TypeName = "DefinedType"; ObjName = $dtName }
|
||
}
|
||
}
|
||
}
|
||
return @($result.Values)
|
||
}
|
||
|
||
# --- 11g. Merge adopted attributes into existing extension object XML ---
|
||
function Merge-AttributesIntoObject {
|
||
param([string]$typeName, [string]$objName, $attrsToAdd)
|
||
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
$objFile = Join-Path (Join-Path $extDir $dirName) "${objName}.xml"
|
||
if (-not (Test-Path $objFile)) {
|
||
Warn "Cannot merge attributes: $objFile not found"
|
||
return
|
||
}
|
||
|
||
$objDoc = New-Object System.Xml.XmlDocument
|
||
$objDoc.PreserveWhitespace = $true
|
||
$objDoc.Load($objFile)
|
||
|
||
$objNs = New-Object System.Xml.XmlNamespaceManager($objDoc.NameTable)
|
||
$objNs.AddNamespace("md", $script:mdNs)
|
||
|
||
$objEl = $null
|
||
foreach ($c in $objDoc.DocumentElement.ChildNodes) {
|
||
if ($c.NodeType -eq 'Element') { $objEl = $c; break }
|
||
}
|
||
if (-not $objEl) { Warn "No type element in $objFile"; return }
|
||
|
||
$childObjs = $objEl.SelectSingleNode("md:ChildObjects", $objNs)
|
||
if (-not $childObjs) {
|
||
$childObjs = $objDoc.CreateElement("ChildObjects", $script:mdNs)
|
||
$objEl.AppendChild($objDoc.CreateWhitespace("`r`n`t`t")) | Out-Null
|
||
$objEl.AppendChild($childObjs) | Out-Null
|
||
$objEl.AppendChild($objDoc.CreateWhitespace("`r`n`t")) | Out-Null
|
||
}
|
||
|
||
# Collect existing attribute names for dedup
|
||
$existingNames = @{}
|
||
foreach ($c in $childObjs.ChildNodes) {
|
||
if ($c.NodeType -ne 'Element' -or $c.LocalName -ne 'Attribute') { continue }
|
||
$nameNode = $c.SelectSingleNode("md:Properties/md:Name", $objNs)
|
||
if ($nameNode) { $existingNames[$nameNode.InnerText] = $true }
|
||
}
|
||
|
||
$added = 0
|
||
foreach ($attr in $attrsToAdd) {
|
||
if ($existingNames.ContainsKey($attr.Name)) { continue }
|
||
$added++
|
||
}
|
||
|
||
if ($added -gt 0) {
|
||
# Build all adopted attributes as text and do string-level insertion
|
||
$allAttrXml = ""
|
||
foreach ($attr in $attrsToAdd) {
|
||
if ($existingNames.ContainsKey($attr.Name)) { continue }
|
||
$kind = if ($attr.Kind) { $attr.Kind } else { "Attribute" }
|
||
$allAttrXml += "`r`n" + (Build-AdoptedAttributeXml $attr.Name $attr.Uuid $attr.TypeXml "`t`t`t" $kind)
|
||
}
|
||
|
||
# Save via text manipulation to avoid namespace issues with InnerXml
|
||
$settings3 = New-Object System.Xml.XmlWriterSettings
|
||
$settings3.Encoding = New-Object System.Text.UTF8Encoding($true)
|
||
$settings3.Indent = $false
|
||
$settings3.NewLineHandling = [System.Xml.NewLineHandling]::None
|
||
$memStream3 = New-Object System.IO.MemoryStream
|
||
$writer3 = [System.Xml.XmlWriter]::Create($memStream3, $settings3)
|
||
$objDoc.Save($writer3)
|
||
$writer3.Flush(); $writer3.Close()
|
||
$bytes3 = $memStream3.ToArray()
|
||
$memStream3.Close()
|
||
$text3 = [System.Text.Encoding]::UTF8.GetString($bytes3)
|
||
if ($text3.Length -gt 0 -and $text3[0] -eq [char]0xFEFF) { $text3 = $text3.Substring(1) }
|
||
$text3 = $text3.Replace('encoding="utf-8"', 'encoding="UTF-8"')
|
||
|
||
# Самозакрытый элемент раскрывается текстом, а не пробельным узлом в DOM: тот давал
|
||
# лишнюю строку с табуляцией перед первым <Attribute> (у Конфигуратора пустых строк нет).
|
||
$text3 = Insert-IntoOwnChildObjects $text3 $allAttrXml
|
||
|
||
# Пустой элемент: XmlWriter отдаёт `<a />`, Конфигуратор пишет `<a/>`. Внутри
|
||
# CDATA/комментария ` />` может быть содержимым (там `>` не экранируется),
|
||
# поэтому они идут первыми ветками альтернации и возвращаются как есть.
|
||
# Стоит ПОСЛЕ вставки реквизитов, чтобы накрыть и их.
|
||
$text3 = [regex]::Replace($text3, '(?s)<!\[CDATA\[.*?\]\]>|<!--.*?-->|(?<=\S) />', { param($m) if ($m.Value -eq ' />') { '/>' } else { $m.Value } })
|
||
|
||
$utf8Bom3 = New-Object System.Text.UTF8Encoding($true)
|
||
# Целевой перевод строки: стиль файла-назначения — правка наследует его (#44/#46/#47),
|
||
# новый файл получает канон выгрузки CRLF. Зеркало _detect_xml_style в py-порту.
|
||
$targetEol = if ((Test-Path -LiteralPath $objFile) -and ([System.IO.File]::ReadAllText($objFile) -notmatch "`r`n")) { "`n" } else { "`r`n" }
|
||
$text3 = ($text3 -replace "`r`n", "`n") -replace "`n", $targetEol
|
||
[System.IO.File]::WriteAllText($objFile, $text3, $utf8Bom3)
|
||
Info " Merged $added attribute(s) into: $objFile"
|
||
}
|
||
}
|
||
|
||
# --- 11h. Borrow-MainAttribute orchestrator ---
|
||
function Borrow-MainAttribute {
|
||
param([string]$typeName, [string]$objName, [string]$formName, [string]$mode)
|
||
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
Info "Borrowing main attribute for ${typeName}.${objName} (mode: $mode)..."
|
||
|
||
# Step 1: Collect DataPaths (Form mode) or take all (All mode)
|
||
$firstLevelNames = $null
|
||
$deepPaths = @()
|
||
if ($mode -eq "Form") {
|
||
$srcFormXmlPath = Join-Path (Join-Path (Join-Path (Join-Path (Join-Path $cfgDir $dirName) $objName) "Forms") $formName) "Ext/Form.xml"
|
||
if (-not (Test-Path $srcFormXmlPath)) {
|
||
Write-Error "Source Form.xml not found: $srcFormXmlPath"
|
||
exit 1
|
||
}
|
||
# Имя основного реквизита исходной формы — корень путей, которые надо собрать
|
||
$dpDoc = New-Object System.Xml.XmlDocument
|
||
$dpDoc.PreserveWhitespace = $true
|
||
$dpDoc.Load($srcFormXmlPath)
|
||
$dpInfo = Get-MainAttributeInfo $dpDoc.DocumentElement '\s+xmlns(?::\w+)?="[^"]*"'
|
||
if (-not $dpInfo) {
|
||
Warn " У формы нет основного реквизита — заимствовать нечего"
|
||
return
|
||
}
|
||
$dp = Collect-FormDataPaths $srcFormXmlPath $dpInfo.Name
|
||
$firstLevelNames = $dp.FirstLevel
|
||
$deepPaths = $dp.DeepPaths
|
||
Info " Collected $($firstLevelNames.Count) first-level DataPath references, $($deepPaths.Count) deep paths"
|
||
} else {
|
||
Info " Mode All: borrowing all attributes and tabular sections"
|
||
}
|
||
|
||
# Step 2: Resolve source attributes
|
||
$resolved = Resolve-SourceAttributes $typeName $objName $firstLevelNames
|
||
$srcAttrs = $resolved.Attributes
|
||
$srcTS = $resolved.TabularSections
|
||
$extraProps = $resolved.ExtraProps
|
||
Info " Resolved: $($srcAttrs.Count) attributes, $($srcTS.Count) tabular section(s)"
|
||
|
||
# Identify which FirstLevel names are TabularSections (for deep path filtering)
|
||
$tsNames = @{}
|
||
foreach ($ts in $srcTS) { $tsNames[$ts.Name] = $true }
|
||
|
||
# Step 3: Build the adopted content and insert into main object XML
|
||
$objFile = Join-Path (Join-Path $extDir $dirName) "${objName}.xml"
|
||
|
||
# Read existing object XML (needed for dedup + enrichment)
|
||
$objContent = [System.IO.File]::ReadAllText($objFile, (New-Object System.Text.UTF8Encoding($true)))
|
||
|
||
# Dedup: skip attributes/TS already present in object's ChildObjects (idempotent re-borrow)
|
||
$existingChildNames = Get-OwnChildObjectNames $objFile
|
||
$insertAttrs = @($srcAttrs | Where-Object { -not $existingChildNames.ContainsKey($_.Name) })
|
||
$insertTS = @($srcTS | Where-Object { -not $existingChildNames.ContainsKey($_.Name) })
|
||
|
||
# Generate full object XML with attributes and TS
|
||
$contentSb = New-Object System.Text.StringBuilder
|
||
foreach ($attr in $insertAttrs) {
|
||
$attrKind = if ($attr.Kind) { $attr.Kind } else { "Attribute" }
|
||
$attrXml = Build-AdoptedAttributeXml $attr.Name $attr.Uuid $attr.TypeXml "`t`t`t" $attrKind
|
||
$contentSb.AppendLine($attrXml) | Out-Null
|
||
}
|
||
foreach ($ts in $insertTS) {
|
||
$tsXml = Build-AdoptedTabularSectionXml $ts.Name $ts.Uuid $ts.GeneratedTypes $ts.Attributes "`t`t`t"
|
||
$contentSb.AppendLine($tsXml) | Out-Null
|
||
}
|
||
$adoptedContent = $contentSb.ToString().TrimEnd()
|
||
|
||
# Inject extra properties into the object's OWN Properties only — idempotent and anchored to the
|
||
# first ExtendedConfigurationObject (the object's). On re-borrow, adopted attributes each have their
|
||
# own ExtendedConfigurationObject; a global replace would push object props inside every <Attribute>.
|
||
if ($extraProps.Count -gt 0) {
|
||
$objPropsBlock = ""
|
||
if ($objContent -match '(?s)<Properties>(.*?)</Properties>') { $objPropsBlock = $Matches[1] }
|
||
$propsSb = New-Object System.Text.StringBuilder
|
||
foreach ($pName in $extraProps.Keys) {
|
||
if ($objPropsBlock -match "<$pName>") { continue }
|
||
$propsSb.Append("`r`n`t`t`t<${pName}>$($extraProps[$pName])</${pName}>") | Out-Null
|
||
}
|
||
if ($propsSb.Length -gt 0) {
|
||
$objContent = ([regex]'</ExtendedConfigurationObject>').Replace($objContent, "</ExtendedConfigurationObject>$($propsSb.ToString())", 1)
|
||
}
|
||
}
|
||
|
||
# Добавить заимствованное содержимое в ChildObjects объекта (там уже может лежать <Form>)
|
||
if ($adoptedContent) {
|
||
$objContent = Insert-IntoOwnChildObjects $objContent "`r`n${adoptedContent}"
|
||
}
|
||
|
||
$encBom = New-Object System.Text.UTF8Encoding($true)
|
||
[System.IO.File]::WriteAllText($objFile, $objContent, $encBom)
|
||
Info " Enriched object: $objFile"
|
||
|
||
# Step 4: Collect all reference types and borrow as shells
|
||
$allTypeXmls = @()
|
||
foreach ($a in $srcAttrs) { $allTypeXmls += $a.TypeXml }
|
||
foreach ($ts in $srcTS) {
|
||
foreach ($tsa in $ts.Attributes) { $allTypeXmls += $tsa.TypeXml }
|
||
}
|
||
# Типы из <Columns> основного реквизита формы: колонку мы переносим (Borrow-Form), значит и её
|
||
# тип должен быть заимствован — иначе колонка ссылается на DefinedType/справочник, которого в
|
||
# расширении нет. Конфигуратор поступает так же (эталон: DefinedTypes/Артикул при заимствовании
|
||
# формы заказа поставщику).
|
||
$srcFormForCols = Join-Path (Join-Path (Join-Path (Join-Path (Join-Path $cfgDir $dirName) $objName) "Forms") $formName) "Ext/Form.xml"
|
||
if (Test-Path $srcFormForCols) {
|
||
$colsDoc = New-Object System.Xml.XmlDocument
|
||
$colsDoc.PreserveWhitespace = $true
|
||
$colsDoc.Load($srcFormForCols)
|
||
$colsInfo = Get-MainAttributeInfo $colsDoc.DocumentElement '\s+xmlns(?::\w+)?="[^"]*"'
|
||
if ($colsInfo) {
|
||
foreach ($m in [regex]::Matches($colsInfo.Xml, '(?s)<Columns>.*?</Columns>')) { $allTypeXmls += $m.Value }
|
||
}
|
||
}
|
||
|
||
$refTypes = Collect-ReferenceTypes $allTypeXmls
|
||
Info " Reference types to borrow: $($refTypes.Count)"
|
||
|
||
foreach ($rt in $refTypes) {
|
||
if (-not $childTypeDirMap.ContainsKey($rt.TypeName)) {
|
||
Warn " Unknown reference type: $($rt.TypeName).$($rt.ObjName)"
|
||
continue
|
||
}
|
||
if (Test-ObjectBorrowed $rt.TypeName $rt.ObjName) {
|
||
Info " Already borrowed: $($rt.TypeName).$($rt.ObjName)"
|
||
continue
|
||
}
|
||
$rtSrcFile = Join-Path (Join-Path $cfgDir $childTypeDirMap[$rt.TypeName]) "$($rt.ObjName).xml"
|
||
if (-not (Test-Path $rtSrcFile)) {
|
||
Warn " Source not found: $($rt.TypeName).$($rt.ObjName)"
|
||
continue
|
||
}
|
||
$src = Read-SourceObject $rt.TypeName $rt.ObjName
|
||
$borrowedXml = Build-BorrowedObjectXml $rt.TypeName $rt.ObjName $src.Uuid $src.Properties
|
||
$targetDir = Join-Path $extDir $childTypeDirMap[$rt.TypeName]
|
||
if (-not (Test-Path $targetDir)) {
|
||
New-Item -ItemType Directory -Path $targetDir -Force | Out-Null
|
||
}
|
||
$targetFile = Join-Path $targetDir "$($rt.ObjName).xml"
|
||
[System.IO.File]::WriteAllText($targetFile, $borrowedXml, $encBom)
|
||
Add-ToChildObjects $rt.TypeName $rt.ObjName
|
||
$script:borrowedFiles += $targetFile
|
||
Info " Auto-borrowed: $($rt.TypeName).$($rt.ObjName)"
|
||
}
|
||
|
||
# Step 5: Handle deep paths (Form mode only)
|
||
if ($mode -eq "Form" -and $deepPaths.Count -gt 0) {
|
||
# Top-level ref deep paths: Объект.<Ref>.<Sub> — borrow the ref attribute's catalog with the sub-attribute
|
||
$deepByAttr = @{}
|
||
foreach ($dp in $deepPaths) {
|
||
if ($tsNames.ContainsKey($dp.ObjectAttr)) { continue }
|
||
if (-not $deepByAttr.ContainsKey($dp.ObjectAttr)) { $deepByAttr[$dp.ObjectAttr] = @() }
|
||
if ($deepByAttr[$dp.ObjectAttr] -notcontains $dp.SubAttr) { $deepByAttr[$dp.ObjectAttr] += $dp.SubAttr }
|
||
}
|
||
if ($deepByAttr.Count -gt 0) {
|
||
Info " Processing $($deepByAttr.Count) deep path attribute(s)..."
|
||
foreach ($attrName in $deepByAttr.Keys) {
|
||
$attrInfo = $srcAttrs | Where-Object { $_.Name -eq $attrName } | Select-Object -First 1
|
||
if (-not $attrInfo) { continue }
|
||
$catMatch = [regex]::Match($attrInfo.TypeXml, 'cfg:(\w+)Ref\.(\w+)')
|
||
if (-not $catMatch.Success) { continue }
|
||
Borrow-DeepTargetAttrs $catMatch.Groups[1].Value $catMatch.Groups[2].Value $deepByAttr[$attrName]
|
||
}
|
||
}
|
||
|
||
# Tabular-section deep paths: Объект.<ТЧ>.<Колонка>.<Sub> — borrow the column's catalog with the sub-attribute
|
||
$tsDeepByCol = @{}
|
||
foreach ($dp in $deepPaths) {
|
||
if (-not $tsNames.ContainsKey($dp.ObjectAttr)) { continue }
|
||
if (-not $dp.SubSubAttr) { continue }
|
||
if ($script:standardFields -contains $dp.SubSubAttr) { continue }
|
||
$k = "$($dp.ObjectAttr)|$($dp.SubAttr)"
|
||
if (-not $tsDeepByCol.ContainsKey($k)) { $tsDeepByCol[$k] = @() }
|
||
if ($tsDeepByCol[$k] -notcontains $dp.SubSubAttr) { $tsDeepByCol[$k] += $dp.SubSubAttr }
|
||
}
|
||
if ($tsDeepByCol.Count -gt 0) {
|
||
Info " Processing $($tsDeepByCol.Count) tabular-section deep path(s)..."
|
||
foreach ($k in $tsDeepByCol.Keys) {
|
||
$parts = $k.Split("|")
|
||
$tsName = $parts[0]; $colName = $parts[1]
|
||
$tsInfo = $srcTS | Where-Object { $_.Name -eq $tsName } | Select-Object -First 1
|
||
if (-not $tsInfo) { continue }
|
||
$colInfo = $tsInfo.Attributes | Where-Object { $_.Name -eq $colName } | Select-Object -First 1
|
||
if (-not $colInfo) { continue }
|
||
$catMatch = [regex]::Match($colInfo.TypeXml, 'cfg:(\w+)Ref\.(\w+)')
|
||
if (-not $catMatch.Success) { continue }
|
||
Borrow-DeepTargetAttrs $catMatch.Groups[1].Value $catMatch.Groups[2].Value $tsDeepByCol[$k]
|
||
}
|
||
}
|
||
}
|
||
|
||
Info " Main attribute borrowing complete"
|
||
}
|
||
|
||
# --- 11i. Helper: borrow a deep-path target catalog together with the referenced sub-attributes ---
|
||
# Used for both Объект.<Ref>.<Sub> (top-level ref attr) and Объект.<ТЧ>.<Колонка>.<Sub> (tabular-section
|
||
# column ref). Mirrors Designer: the referenced catalog is adopted WITH the sub-attributes the form shows,
|
||
# otherwise the platform rejects the deep DataPath ("Неверный путь к данным").
|
||
function Borrow-DeepTargetAttrs {
|
||
param([string]$targetTypeName, [string]$targetObjName, $subAttrNames)
|
||
|
||
$encBomLocal = New-Object System.Text.UTF8Encoding($true)
|
||
|
||
# Ensure target is borrowed (shell)
|
||
if (-not (Test-ObjectBorrowed $targetTypeName $targetObjName)) {
|
||
$tSrc = Read-SourceObject $targetTypeName $targetObjName
|
||
$tBorrowedXml = Build-BorrowedObjectXml $targetTypeName $targetObjName $tSrc.Uuid $tSrc.Properties
|
||
$tTargetDir = Join-Path $extDir $childTypeDirMap[$targetTypeName]
|
||
if (-not (Test-Path $tTargetDir)) { New-Item -ItemType Directory -Path $tTargetDir -Force | Out-Null }
|
||
$tTargetFile = Join-Path $tTargetDir "${targetObjName}.xml"
|
||
[System.IO.File]::WriteAllText($tTargetFile, $tBorrowedXml, $encBomLocal)
|
||
Add-ToChildObjects $targetTypeName $targetObjName
|
||
$script:borrowedFiles += $tTargetFile
|
||
Info " Auto-borrowed for deep path: ${targetTypeName}.${targetObjName}"
|
||
}
|
||
|
||
# Resolve sub-attributes in target catalog and merge them in
|
||
$subNames = @{}
|
||
foreach ($sn in $subAttrNames) { $subNames[$sn] = $true }
|
||
$subResolved = Resolve-SourceAttributes $targetTypeName $targetObjName $subNames
|
||
if ($subResolved.Attributes.Count -gt 0) {
|
||
Merge-AttributesIntoObject $targetTypeName $targetObjName $subResolved.Attributes
|
||
|
||
# Borrow ref types referenced by the sub-attributes
|
||
$subTypeXmls = @()
|
||
foreach ($sa in $subResolved.Attributes) { $subTypeXmls += $sa.TypeXml }
|
||
$subRefTypes = Collect-ReferenceTypes $subTypeXmls
|
||
foreach ($srt in $subRefTypes) {
|
||
if (-not $childTypeDirMap.ContainsKey($srt.TypeName)) { continue }
|
||
if (Test-ObjectBorrowed $srt.TypeName $srt.ObjName) { continue }
|
||
$sSrcFile = Join-Path (Join-Path $cfgDir $childTypeDirMap[$srt.TypeName]) "$($srt.ObjName).xml"
|
||
if (-not (Test-Path $sSrcFile)) { continue }
|
||
$sSrc = Read-SourceObject $srt.TypeName $srt.ObjName
|
||
$sBorrowedXml = Build-BorrowedObjectXml $srt.TypeName $srt.ObjName $sSrc.Uuid $sSrc.Properties
|
||
$sTargetDir = Join-Path $extDir $childTypeDirMap[$srt.TypeName]
|
||
if (-not (Test-Path $sTargetDir)) { New-Item -ItemType Directory -Path $sTargetDir -Force | Out-Null }
|
||
$sTargetFile = Join-Path $sTargetDir "$($srt.ObjName).xml"
|
||
[System.IO.File]::WriteAllText($sTargetFile, $sBorrowedXml, $encBomLocal)
|
||
Add-ToChildObjects $srt.TypeName $srt.ObjName
|
||
$script:borrowedFiles += $sTargetFile
|
||
Info " Auto-borrowed (deep): $($srt.TypeName).$($srt.ObjName)"
|
||
}
|
||
}
|
||
}
|
||
|
||
# --- 12. Helper: build borrowed object XML ---
|
||
function Build-BorrowedObjectXml {
|
||
param(
|
||
[string]$typeName,
|
||
[string]$objName,
|
||
[string]$sourceUuid,
|
||
[hashtable]$sourceProps
|
||
)
|
||
|
||
$newUuid = [guid]::NewGuid().ToString()
|
||
$internalInfoXml = Build-InternalInfoXml $typeName $objName "`t`t"
|
||
|
||
$sb = New-Object System.Text.StringBuilder
|
||
$sb.AppendLine("<?xml version=`"1.0`" encoding=`"UTF-8`"?>") | Out-Null
|
||
$sb.AppendLine("<MetaDataObject $($script:xmlnsDecl) version=`"$($script:formatVersion)`">") | Out-Null
|
||
$sb.AppendLine("`t<${typeName} uuid=`"${newUuid}`">") | Out-Null
|
||
|
||
# InternalInfo
|
||
$sb.AppendLine($internalInfoXml) | Out-Null
|
||
|
||
# Properties
|
||
$sb.AppendLine("`t`t<Properties>") | Out-Null
|
||
$sb.AppendLine("`t`t`t<ObjectBelonging>Adopted</ObjectBelonging>") | Out-Null
|
||
$sb.AppendLine("`t`t`t<Name>${objName}</Name>") | Out-Null
|
||
$sb.AppendLine("`t`t`t<Comment/>") | Out-Null
|
||
$sb.AppendLine("`t`t`t<ExtendedConfigurationObject>${sourceUuid}</ExtendedConfigurationObject>") | Out-Null
|
||
|
||
# CommonModule: extra properties from source
|
||
if ($typeName -eq "CommonModule") {
|
||
foreach ($propName in $commonModuleProps) {
|
||
$propVal = "false"
|
||
if ($sourceProps.ContainsKey($propName)) {
|
||
$propVal = $sourceProps[$propName]
|
||
}
|
||
$sb.AppendLine("`t`t`t<${propName}>${propVal}</${propName}>") | Out-Null
|
||
}
|
||
}
|
||
|
||
# DefinedType: emit the carried <Type> definition (needed for the alias to resolve, e.g. totals)
|
||
if ($typeName -eq "DefinedType" -and $sourceProps.ContainsKey("__TypeXml")) {
|
||
$sb.AppendLine("`t`t`t$($sourceProps['__TypeXml'])") | Out-Null
|
||
}
|
||
|
||
# Свойства, от которых зависят стандартные поля (см. $script:typeGateProps / $script:typesWithOwners)
|
||
foreach ($gp in @($script:typeGateProps[$typeName])) {
|
||
if ($gp -and $sourceProps.ContainsKey($gp)) {
|
||
$sb.AppendLine("`t`t`t<${gp}>$($sourceProps[$gp])</${gp}>") | Out-Null
|
||
}
|
||
}
|
||
if ($sourceProps.ContainsKey("__OwnersXml")) {
|
||
$sb.AppendLine("`t`t`t$($sourceProps['__OwnersXml'])") | Out-Null
|
||
}
|
||
|
||
$sb.AppendLine("`t`t</Properties>") | Out-Null
|
||
|
||
# ChildObjects (for types that need it)
|
||
if ($sourceProps["__HasChildObjects"] -or ($typesWithChildObjects -contains $typeName)) {
|
||
$sb.AppendLine("`t`t<ChildObjects/>") | Out-Null
|
||
}
|
||
|
||
$sb.AppendLine("`t</${typeName}>") | Out-Null
|
||
$sb.Append("</MetaDataObject>") | Out-Null
|
||
|
||
return $sb.ToString()
|
||
}
|
||
|
||
# --- 13. Helper: add object to extension ChildObjects ---
|
||
function Add-ToChildObjects {
|
||
param([string]$typeName, [string]$objName)
|
||
|
||
$cfgIndent = Get-ChildIndent $script:cfgEl
|
||
|
||
# Expand self-closing ChildObjects if needed
|
||
if (-not $script:childObjsEl.HasChildNodes -or $script:childObjsEl.IsEmpty) {
|
||
Expand-SelfClosingElement $script:childObjsEl $cfgIndent
|
||
}
|
||
$childIndent = Get-ChildIndent $script:childObjsEl
|
||
|
||
$typeIdx = $script:typeOrder.IndexOf($typeName)
|
||
if ($typeIdx -lt 0) {
|
||
Write-Error "Unknown type '$typeName' for ChildObjects ordering"
|
||
exit 1
|
||
}
|
||
|
||
# Dedup check
|
||
foreach ($child in $script:childObjsEl.ChildNodes) {
|
||
if ($child.NodeType -eq 'Element' -and $child.LocalName -eq $typeName -and $child.InnerText -eq $objName) {
|
||
Warn "Already in ChildObjects: ${typeName}.${objName}"
|
||
return
|
||
}
|
||
}
|
||
|
||
# Find insertion point: after last element of same type, or before first element of later type
|
||
$insertBefore = $null
|
||
$lastSameType = $null
|
||
|
||
foreach ($child in $script:childObjsEl.ChildNodes) {
|
||
if ($child.NodeType -ne 'Element') { continue }
|
||
$childTypeIdx = $script:typeOrder.IndexOf($child.LocalName)
|
||
if ($childTypeIdx -lt 0) { continue }
|
||
|
||
if ($child.LocalName -eq $typeName) {
|
||
# Same type -- check alphabetical order
|
||
if ($child.InnerText -gt $objName -and -not $insertBefore) {
|
||
$insertBefore = $child
|
||
}
|
||
$lastSameType = $child
|
||
} elseif ($childTypeIdx -gt $typeIdx -and -not $insertBefore) {
|
||
# First element of a later type -- insert before it
|
||
$insertBefore = $child
|
||
}
|
||
}
|
||
|
||
# Create element
|
||
$newEl = $script:xmlDoc.CreateElement($typeName, $script:mdNs)
|
||
$newEl.InnerText = $objName
|
||
|
||
if ($insertBefore) {
|
||
Insert-BeforeElement $script:childObjsEl $newEl $insertBefore $childIndent
|
||
} else {
|
||
Insert-BeforeElement $script:childObjsEl $newEl $null $childIndent
|
||
}
|
||
|
||
Info "Added to ChildObjects: ${typeName}.${objName}"
|
||
}
|
||
|
||
# --- 14. Process each item ---
|
||
$script:borrowedFiles = @()
|
||
$borrowedCount = 0
|
||
|
||
foreach ($item in $items) {
|
||
$dotIdx = $item.IndexOf(".")
|
||
if ($dotIdx -lt 1) {
|
||
Write-Error "Invalid format '${item}', expected 'Type.Name' or 'Type.Name.Form.FormName'"
|
||
exit 1
|
||
}
|
||
$typeName = $item.Substring(0, $dotIdx)
|
||
$remainder = $item.Substring($dotIdx + 1)
|
||
|
||
# Resolve Russian synonym to English type name
|
||
if ($synonymMap.ContainsKey($typeName)) { $typeName = $synonymMap[$typeName] }
|
||
|
||
if (-not $childTypeDirMap.ContainsKey($typeName)) {
|
||
Write-Error "Unknown type '${typeName}'"
|
||
exit 1
|
||
}
|
||
|
||
# Check for .Form. pattern: Type.ObjName.Form.FormName
|
||
$formName = $null
|
||
$formIdx = $remainder.IndexOf(".Form.")
|
||
if ($formIdx -gt 0) {
|
||
$objName = $remainder.Substring(0, $formIdx)
|
||
$formName = $remainder.Substring($formIdx + 6) # skip ".Form."
|
||
} else {
|
||
$objName = $remainder
|
||
}
|
||
|
||
$dirName = $childTypeDirMap[$typeName]
|
||
|
||
if ($formName) {
|
||
# --- Form borrowing ---
|
||
Info "Borrowing form ${typeName}.${objName}.Form.${formName}..."
|
||
|
||
# Auto-borrow parent object if not yet borrowed
|
||
if (-not (Test-ObjectBorrowed $typeName $objName)) {
|
||
Info " Parent object ${typeName}.${objName} not yet borrowed — borrowing first..."
|
||
|
||
$src = Read-SourceObject $typeName $objName
|
||
Info " Source UUID: $($src.Uuid)"
|
||
$borrowedXml = Build-BorrowedObjectXml $typeName $objName $src.Uuid $src.Properties
|
||
|
||
$targetDir = Join-Path $extDir $dirName
|
||
if (-not (Test-Path $targetDir)) {
|
||
New-Item -ItemType Directory -Path $targetDir -Force | Out-Null
|
||
}
|
||
$targetFile = Join-Path $targetDir "${objName}.xml"
|
||
$enc = New-Object System.Text.UTF8Encoding($true)
|
||
[System.IO.File]::WriteAllText($targetFile, $borrowedXml, $enc)
|
||
Info " Created: $targetFile"
|
||
|
||
Add-ToChildObjects $typeName $objName
|
||
$script:borrowedFiles += $targetFile
|
||
}
|
||
|
||
# Borrow the form
|
||
$hasBMA = [bool]$BorrowMainAttribute
|
||
$formFiles = Borrow-Form $typeName $objName $formName -BorrowMainAttr:$hasBMA
|
||
$script:borrowedFiles += $formFiles
|
||
$borrowedCount++
|
||
|
||
# Borrow main attribute if requested
|
||
if ($hasBMA) {
|
||
Borrow-MainAttribute $typeName $objName $formName $BorrowMainAttribute
|
||
}
|
||
} else {
|
||
# --- Object borrowing (existing logic) ---
|
||
Info "Borrowing ${typeName}.${objName}..."
|
||
|
||
$src = Read-SourceObject $typeName $objName
|
||
Info " Source UUID: $($src.Uuid)"
|
||
|
||
$borrowedXml = Build-BorrowedObjectXml $typeName $objName $src.Uuid $src.Properties
|
||
|
||
$targetDir = Join-Path $extDir $dirName
|
||
if (-not (Test-Path $targetDir)) {
|
||
New-Item -ItemType Directory -Path $targetDir -Force | Out-Null
|
||
}
|
||
|
||
$targetFile = Join-Path $targetDir "${objName}.xml"
|
||
$enc = New-Object System.Text.UTF8Encoding($true)
|
||
[System.IO.File]::WriteAllText($targetFile, $borrowedXml, $enc)
|
||
Info " Created: $targetFile"
|
||
|
||
Add-ToChildObjects $typeName $objName
|
||
|
||
$script:borrowedFiles += $targetFile
|
||
$borrowedCount++
|
||
}
|
||
}
|
||
|
||
# --- 14b. Владельцы заимствованных справочников ---
|
||
# Ссылка в <Owners> должна вести на объект, который в расширении есть: иначе платформа падает при
|
||
# загрузке (проверено — access violation, не сообщение об ошибке). Конфигуратор владельца
|
||
# заимствует (эталон Issue66Example7_1: вместе со справочником перенесён и его ПВХ-владелец).
|
||
# Проход общий и повторяется, пока находятся новые: у владельца может быть свой владелец.
|
||
$ownerPass = 0
|
||
while ($true) {
|
||
$ownerPass++
|
||
if ($ownerPass -gt 10) { break }
|
||
$newOwners = @()
|
||
foreach ($shell in (Get-ChildItem -Path $extDir -Filter "*.xml" -Recurse -File)) {
|
||
$shellText = [System.IO.File]::ReadAllText($shell.FullName)
|
||
if ($shellText -notmatch '<Owners>') { continue }
|
||
foreach ($om in [regex]::Matches($shellText, '<xr:Item[^>]*>(\w+)\.(\w+)</xr:Item>')) {
|
||
$oType = $om.Groups[1].Value; $oName = $om.Groups[2].Value
|
||
if (-not $childTypeDirMap.ContainsKey($oType)) { continue }
|
||
if (Test-ObjectBorrowed $oType $oName) { continue }
|
||
if ($newOwners | Where-Object { $_.T -eq $oType -and $_.N -eq $oName }) { continue }
|
||
$newOwners += @{ T = $oType; N = $oName }
|
||
}
|
||
}
|
||
if ($newOwners.Count -eq 0) { break }
|
||
foreach ($ow in $newOwners) {
|
||
$owSrcFile = Join-Path (Join-Path $cfgDir $childTypeDirMap[$ow.T]) "$($ow.N).xml"
|
||
if (-not (Test-Path $owSrcFile)) {
|
||
Warn " Владелец $($ow.T).$($ow.N) не найден в источнике — ссылка останется висячей"
|
||
continue
|
||
}
|
||
$owSrc = Read-SourceObject $ow.T $ow.N
|
||
$owXml = Build-BorrowedObjectXml $ow.T $ow.N $owSrc.Uuid $owSrc.Properties
|
||
$owDir = Join-Path $extDir $childTypeDirMap[$ow.T]
|
||
if (-not (Test-Path $owDir)) { New-Item -ItemType Directory -Path $owDir -Force | Out-Null }
|
||
$owFile = Join-Path $owDir "$($ow.N).xml"
|
||
$owEnc = New-Object System.Text.UTF8Encoding($true)
|
||
[System.IO.File]::WriteAllText($owFile, $owXml, $owEnc)
|
||
Add-ToChildObjects $ow.T $ow.N
|
||
$script:borrowedFiles += $owFile
|
||
Info " Auto-borrowed owner: $($ow.T).$($ow.N)"
|
||
}
|
||
}
|
||
|
||
# --- 15. Save modified Configuration.xml ---
|
||
$settings = New-Object System.Xml.XmlWriterSettings
|
||
$settings.Encoding = New-Object System.Text.UTF8Encoding($true)
|
||
$settings.Indent = $false
|
||
$settings.NewLineHandling = [System.Xml.NewLineHandling]::None
|
||
|
||
$memStream = New-Object System.IO.MemoryStream
|
||
$writer = [System.Xml.XmlWriter]::Create($memStream, $settings)
|
||
$script:xmlDoc.Save($writer)
|
||
$writer.Flush(); $writer.Close()
|
||
|
||
$bytes = $memStream.ToArray()
|
||
$memStream.Close()
|
||
$text = [System.Text.Encoding]::UTF8.GetString($bytes)
|
||
if ($text.Length -gt 0 -and $text[0] -eq [char]0xFEFF) { $text = $text.Substring(1) }
|
||
$text = $text.Replace('encoding="utf-8"', 'encoding="UTF-8"')
|
||
# Пустой элемент: XmlWriter отдаёт `<a />`, Конфигуратор пишет `<a/>`. Внутри
|
||
# CDATA/комментария ` />` может быть содержимым (там `>` не экранируется),
|
||
# поэтому они идут первыми ветками альтернации и возвращаются как есть.
|
||
$text = [regex]::Replace($text, '(?s)<!\[CDATA\[.*?\]\]>|<!--.*?-->|(?<=\S) />', { param($m) if ($m.Value -eq ' />') { '/>' } else { $m.Value } })
|
||
|
||
$utf8Bom = New-Object System.Text.UTF8Encoding($true)
|
||
# Целевой перевод строки: стиль файла-назначения — правка наследует его (#44/#46/#47),
|
||
# новый файл получает канон выгрузки CRLF. Зеркало _detect_xml_style в py-порту.
|
||
$targetEol = if ((Test-Path -LiteralPath $extResolvedPath) -and ([System.IO.File]::ReadAllText($extResolvedPath) -notmatch "`r`n")) { "`n" } else { "`r`n" }
|
||
$text = ($text -replace "`r`n", "`n") -replace "`n", $targetEol
|
||
[System.IO.File]::WriteAllText($extResolvedPath, $text, $utf8Bom)
|
||
Info "Saved: $extResolvedPath"
|
||
|
||
# --- 16. Summary ---
|
||
Write-Host ""
|
||
Write-Host "=== cfe-borrow summary ==="
|
||
Write-Host " Extension: $extDir"
|
||
Write-Host " Config: $cfgDir"
|
||
Write-Host " Borrowed: $borrowedCount object(s)"
|
||
foreach ($f in $script:borrowedFiles) {
|
||
Write-Host " - $f"
|
||
}
|
||
exit 0
|