mirror of
https://github.com/Nikolay-Shirokov/cc-1c-skills.git
synced 2026-06-13 01:14:56 +03:00
github-actions[bot]
3126 lines
119 KiB
PowerShell
3126 lines
119 KiB
PowerShell
# meta-compile v1.12 — Compile 1C metadata object from JSON
|
||
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
|
||
param(
|
||
[Parameter(Mandatory)]
|
||
[string]$JsonPath,
|
||
|
||
[Parameter(Mandatory)]
|
||
[string]$OutputDir
|
||
)
|
||
|
||
$ErrorActionPreference = "Stop"
|
||
[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
|
||
|
||
# --- 1. Load and validate JSON ---
|
||
|
||
if (-not (Test-Path $JsonPath)) {
|
||
Write-Error "File not found: $JsonPath"
|
||
exit 1
|
||
}
|
||
|
||
$json = Get-Content -Raw -Encoding UTF8 $JsonPath
|
||
$def = $json | ConvertFrom-Json
|
||
|
||
# --- Batch mode: JSON array of objects ---
|
||
if ($def -is [array] -or ($null -ne $def -and $def.GetType().BaseType.Name -eq 'Array')) {
|
||
$batchOk = 0
|
||
$batchFail = 0
|
||
$idx = 0
|
||
foreach ($item in $def) {
|
||
$idx++
|
||
$tmpJson = Join-Path ([System.IO.Path]::GetTempPath()) "meta-compile-batch-$idx.json"
|
||
try {
|
||
$item | ConvertTo-Json -Depth 20 | Set-Content -Encoding UTF8 $tmpJson
|
||
$proc = Start-Process -FilePath "powershell.exe" -ArgumentList "-NoProfile -File `"$PSCommandPath`" -JsonPath `"$tmpJson`" -OutputDir `"$OutputDir`"" -NoNewWindow -Wait -PassThru
|
||
if ($proc.ExitCode -eq 0) { $batchOk++ } else { $batchFail++ }
|
||
} finally {
|
||
Remove-Item $tmpJson -Force -ErrorAction SilentlyContinue
|
||
}
|
||
}
|
||
Write-Host ""
|
||
Write-Host "=== Batch: $idx objects, $batchOk compiled, $batchFail failed ==="
|
||
if ($batchFail -gt 0) { exit 1 }
|
||
exit 0
|
||
}
|
||
|
||
# Normalize field synonyms: accept "objectType" as alias for "type"
|
||
if (-not $def.type -and $def.objectType) {
|
||
$def | Add-Member -NotePropertyName "type" -NotePropertyValue $def.objectType
|
||
}
|
||
|
||
# Object type synonyms (Russian → English)
|
||
$script:objectTypeSynonyms = @{
|
||
"Справочник" = "Catalog"
|
||
"Каталог" = "Catalog"
|
||
"Документ" = "Document"
|
||
"Перечисление" = "Enum"
|
||
"Константа" = "Constant"
|
||
"РегистрСведений" = "InformationRegister"
|
||
"РегистрНакопления" = "AccumulationRegister"
|
||
"РегистрБухгалтерии" = "AccountingRegister"
|
||
"РегистрРасчёта" = "CalculationRegister"
|
||
"РегистрРасчета" = "CalculationRegister"
|
||
"ПланСчетов" = "ChartOfAccounts"
|
||
"ПланВидовХарактеристик" = "ChartOfCharacteristicTypes"
|
||
"ПланВидовРасчёта" = "ChartOfCalculationTypes"
|
||
"ПланВидовРасчета" = "ChartOfCalculationTypes"
|
||
"БизнесПроцесс" = "BusinessProcess"
|
||
"Задача" = "Task"
|
||
"ПланОбмена" = "ExchangePlan"
|
||
"ЖурналДокументов" = "DocumentJournal"
|
||
"Отчёт" = "Report"
|
||
"Отчет" = "Report"
|
||
"Обработка" = "DataProcessor"
|
||
"ОбщийМодуль" = "CommonModule"
|
||
"РегламентноеЗадание" = "ScheduledJob"
|
||
"ПодпискаНаСобытие" = "EventSubscription"
|
||
"HTTPСервис" = "HTTPService"
|
||
"ВебСервис" = "WebService"
|
||
"ОпределяемыйТип" = "DefinedType"
|
||
}
|
||
|
||
# Enum property value synonyms — model often gets these slightly wrong
|
||
$script:enumValueAliases = @{
|
||
# RegisterType (AccumulationRegister)
|
||
"Balances" = "Balance"; "Остатки" = "Balance"; "Обороты" = "Turnovers"
|
||
# WriteMode (InformationRegister)
|
||
"RecordSubordinate" = "RecorderSubordinate"; "Subordinate" = "RecorderSubordinate"
|
||
"ПодчинениеРегистратору" = "RecorderSubordinate"; "Независимый" = "Independent"
|
||
# DependenceOnCalculationTypes (ChartOfCalculationTypes)
|
||
"NotDependOnCalculationTypes" = "DontUse"; "NoDependence" = "DontUse"; "NotUsed" = "DontUse"
|
||
"Depend" = "OnActionPeriod"; "ПоПериодуДействия" = "OnActionPeriod"
|
||
# InformationRegisterPeriodicity
|
||
"None" = "Nonperiodical"; "Daily" = "Day"; "Monthly" = "Month"
|
||
"Quarterly" = "Quarter"; "Yearly" = "Year"
|
||
"Непериодический" = "Nonperiodical"; "Секунда" = "Second"; "День" = "Day"
|
||
"Месяц" = "Month"; "Квартал" = "Quarter"; "Год" = "Year"
|
||
"ПозицияРегистратора" = "RecorderPosition"
|
||
# DataLockControlMode
|
||
"Автоматический" = "Automatic"; "Управляемый" = "Managed"
|
||
# FullTextSearch
|
||
"Использовать" = "Use"; "НеИспользовать" = "DontUse"
|
||
# Posting
|
||
"Разрешить" = "Allow"; "Запретить" = "Deny"
|
||
# EditType
|
||
"ВДиалоге" = "InDialog"; "ВСписке" = "InList"; "ОбаСпособа" = "BothWays"
|
||
# DefaultPresentation
|
||
"ВВидеНаименования" = "AsDescription"; "ВВидеКода" = "AsCode"
|
||
# FillChecking
|
||
"НеПроверять" = "DontCheck"; "Ошибка" = "ShowError"; "Предупреждение" = "ShowWarning"
|
||
# Indexing
|
||
"НеИндексировать" = "DontIndex"; "Индексировать" = "Index"
|
||
"ИндексироватьСДопУпорядочиванием" = "IndexWithAdditionalOrder"
|
||
}
|
||
|
||
# Valid enum values per property (from meta-validate)
|
||
$script:validEnumValues = @{
|
||
"RegisterType" = @("Balance","Turnovers")
|
||
"WriteMode" = @("Independent","RecorderSubordinate")
|
||
"InformationRegisterPeriodicity" = @("Nonperiodical","Second","Day","Month","Quarter","Year","RecorderPosition")
|
||
"DependenceOnCalculationTypes" = @("DontUse","OnActionPeriod")
|
||
"DataLockControlMode" = @("Automatic","Managed")
|
||
"FullTextSearch" = @("Use","DontUse")
|
||
"DataHistory" = @("Use","DontUse")
|
||
"DefaultPresentation" = @("AsDescription","AsCode")
|
||
"Posting" = @("Allow","Deny")
|
||
"RealTimePosting" = @("Allow","Deny")
|
||
"EditType" = @("InDialog","InList","BothWays")
|
||
"HierarchyType" = @("HierarchyFoldersAndItems","HierarchyItemsOnly")
|
||
"CodeType" = @("String","Number")
|
||
"CodeAllowedLength" = @("Variable","Fixed")
|
||
"NumberType" = @("String","Number")
|
||
"NumberAllowedLength" = @("Variable","Fixed")
|
||
"RegisterRecordsDeletion" = @("AutoDelete","AutoDeleteOnUnpost","AutoDeleteOff")
|
||
"RegisterRecordsWritingOnPost" = @("WriteModified","WriteSelected","WriteAll")
|
||
"ReturnValuesReuse" = @("DontUse","DuringRequest","DuringSession")
|
||
"ReuseSessions" = @("DontUse","AutoUse")
|
||
"FillChecking" = @("DontCheck","ShowError","ShowWarning")
|
||
"Indexing" = @("DontIndex","Index","IndexWithAdditionalOrder")
|
||
"SubordinationUse" = @("ToItems","ToFolders","ToFoldersAndItems")
|
||
"CodeSeries" = @("WholeCatalog","WithinSubordination")
|
||
"ChoiceMode" = @("BothWays","QuickChoice","FromForm")
|
||
}
|
||
|
||
function Normalize-EnumValue {
|
||
param([string]$propName, [string]$value)
|
||
# 1. Check alias dictionary — silent auto-correct
|
||
if ($script:enumValueAliases.ContainsKey($value)) {
|
||
return $script:enumValueAliases[$value]
|
||
}
|
||
# 2. Case-insensitive match against valid values — silent
|
||
$valid = $script:validEnumValues[$propName]
|
||
if ($valid) {
|
||
foreach ($v in $valid) {
|
||
if ($v -ieq $value) { return $v }
|
||
}
|
||
# 3. Known property, unknown value — error with hint
|
||
Write-Error "Invalid value '$value' for property '$propName'. Valid values: $($valid -join ', ')"
|
||
exit 1
|
||
}
|
||
# 4. Unknown property — pass-through (no validation data)
|
||
return $value
|
||
}
|
||
|
||
# Helper: read enum property from $def with default and normalization
|
||
function Get-EnumProp {
|
||
param([string]$propName, [string]$fieldName, [string]$default)
|
||
$val = $def.$fieldName
|
||
$raw = if ($val) { "$val" } else { $default }
|
||
return (Normalize-EnumValue $propName $raw)
|
||
}
|
||
|
||
if (-not $def.type) {
|
||
Write-Error "JSON must have 'type' field"
|
||
exit 1
|
||
}
|
||
|
||
# Resolve type synonym
|
||
$objType = "$($def.type)"
|
||
if ($script:objectTypeSynonyms.ContainsKey($objType)) {
|
||
$objType = $script:objectTypeSynonyms[$objType]
|
||
}
|
||
|
||
$validTypes = @("Catalog","Document","Enum","Constant","InformationRegister","AccumulationRegister",
|
||
"AccountingRegister","CalculationRegister","ChartOfAccounts","ChartOfCharacteristicTypes",
|
||
"ChartOfCalculationTypes","BusinessProcess","Task","ExchangePlan","DocumentJournal",
|
||
"Report","DataProcessor","CommonModule","ScheduledJob","EventSubscription",
|
||
"HTTPService","WebService","DefinedType")
|
||
if ($objType -notin $validTypes) {
|
||
Write-Error "Unsupported type: $objType. Valid: $($validTypes -join ', ')"
|
||
exit 1
|
||
}
|
||
|
||
if (-not $def.name) {
|
||
Write-Error "JSON must have 'name' field"
|
||
exit 1
|
||
}
|
||
|
||
$objName = "$($def.name)"
|
||
|
||
# --- 2. XML helpers ---
|
||
|
||
$script:xml = New-Object System.Text.StringBuilder 32768
|
||
|
||
function X {
|
||
param([string]$text)
|
||
$script:xml.AppendLine($text) | Out-Null
|
||
}
|
||
|
||
function Esc-Xml {
|
||
param([string]$s)
|
||
return $s.Replace('&','&').Replace('<','<').Replace('>','>').Replace('"','"')
|
||
}
|
||
|
||
function Emit-MLText {
|
||
param([string]$indent, [string]$tag, [string]$text)
|
||
if (-not $text) {
|
||
X "$indent<$tag/>"
|
||
return
|
||
}
|
||
X "$indent<$tag>"
|
||
X "$indent`t<v8:item>"
|
||
X "$indent`t`t<v8:lang>ru</v8:lang>"
|
||
X "$indent`t`t<v8:content>$(Esc-Xml $text)</v8:content>"
|
||
X "$indent`t</v8:item>"
|
||
X "$indent</$tag>"
|
||
}
|
||
|
||
function New-Guid-String {
|
||
return [System.Guid]::NewGuid().ToString()
|
||
}
|
||
|
||
# --- 3. CamelCase splitter ---
|
||
|
||
function Split-CamelCase {
|
||
param([string]$name)
|
||
if (-not $name) { return $name }
|
||
# Insert space before uppercase that follows lowercase (Cyrillic + Latin)
|
||
$result = [regex]::Replace($name, '([а-яё])([А-ЯЁ])', '$1 $2')
|
||
$result = [regex]::Replace($result, '([a-z])([A-Z])', '$1 $2')
|
||
# Lowercase all but first character of the result
|
||
if ($result.Length -gt 1) {
|
||
$result = $result.Substring(0,1) + $result.Substring(1).ToLower()
|
||
}
|
||
return $result
|
||
}
|
||
|
||
# Auto-synonym
|
||
$synonym = if ($def.synonym) { "$($def.synonym)" } else { Split-CamelCase $objName }
|
||
$comment = if ($def.comment) { "$($def.comment)" } else { "" }
|
||
|
||
# --- 4. Type system ---
|
||
|
||
$script:typeSynonyms = New-Object System.Collections.Hashtable
|
||
$script:typeSynonyms["число"] = "Number"
|
||
$script:typeSynonyms["строка"] = "String"
|
||
$script:typeSynonyms["булево"] = "Boolean"
|
||
$script:typeSynonyms["дата"] = "Date"
|
||
$script:typeSynonyms["датавремя"]= "DateTime"
|
||
$script:typeSynonyms["number"] = "Number"
|
||
$script:typeSynonyms["string"] = "String"
|
||
$script:typeSynonyms["boolean"] = "Boolean"
|
||
$script:typeSynonyms["date"] = "Date"
|
||
$script:typeSynonyms["datetime"] = "DateTime"
|
||
$script:typeSynonyms["bool"] = "Boolean"
|
||
# Reference synonyms (Russian, lowercase)
|
||
$script:typeSynonyms["справочникссылка"] = "CatalogRef"
|
||
$script:typeSynonyms["документссылка"] = "DocumentRef"
|
||
$script:typeSynonyms["перечислениессылка"] = "EnumRef"
|
||
$script:typeSynonyms["плансчетовссылка"] = "ChartOfAccountsRef"
|
||
$script:typeSynonyms["планвидовхарактеристикссылка"] = "ChartOfCharacteristicTypesRef"
|
||
$script:typeSynonyms["планвидоврасчётассылка"] = "ChartOfCalculationTypesRef"
|
||
$script:typeSynonyms["планвидоврасчетассылка"] = "ChartOfCalculationTypesRef"
|
||
$script:typeSynonyms["планобменассылка"] = "ExchangePlanRef"
|
||
$script:typeSynonyms["бизнеспроцессссылка"] = "BusinessProcessRef"
|
||
$script:typeSynonyms["задачассылка"] = "TaskRef"
|
||
$script:typeSynonyms["определяемыйтип"] = "DefinedType"
|
||
$script:typeSynonyms["definedtype"] = "DefinedType"
|
||
# English lowercase ref synonyms
|
||
$script:typeSynonyms["catalogref"] = "CatalogRef"
|
||
$script:typeSynonyms["documentref"] = "DocumentRef"
|
||
$script:typeSynonyms["enumref"] = "EnumRef"
|
||
|
||
function Resolve-TypeStr {
|
||
param([string]$typeStr)
|
||
if (-not $typeStr) { return $typeStr }
|
||
|
||
# Check for parameterized types: Number(15,2), Строка(100), etc.
|
||
if ($typeStr -match '^([^(]+)\((.+)\)$') {
|
||
$baseName = $Matches[1].Trim()
|
||
$params = $Matches[2]
|
||
$resolved = $script:typeSynonyms[$baseName.ToLower()]
|
||
if ($resolved) { return "$resolved($params)" }
|
||
return $typeStr
|
||
}
|
||
|
||
# Check for reference types: СправочникСсылка.Организации → CatalogRef.Организации
|
||
if ($typeStr.Contains('.')) {
|
||
$dotIdx = $typeStr.IndexOf('.')
|
||
$prefix = $typeStr.Substring(0, $dotIdx)
|
||
$suffix = $typeStr.Substring($dotIdx) # includes the dot
|
||
$resolved = $script:typeSynonyms[$prefix.ToLower()]
|
||
if ($resolved) { return "$resolved$suffix" }
|
||
return $typeStr
|
||
}
|
||
|
||
# Simple name lookup
|
||
$resolved = $script:typeSynonyms[$typeStr.ToLower()]
|
||
if ($resolved) { return $resolved }
|
||
|
||
return $typeStr
|
||
}
|
||
|
||
function Emit-TypeContent {
|
||
param([string]$indent, [string]$typeStr)
|
||
if (-not $typeStr) { return }
|
||
|
||
# Composite type: "Type1 + Type2 + Type3"
|
||
if ($typeStr.Contains(' + ')) {
|
||
$parts = $typeStr -split '\s*\+\s*'
|
||
foreach ($part in $parts) {
|
||
Emit-TypeContent $indent $part.Trim()
|
||
}
|
||
return
|
||
}
|
||
|
||
$typeStr = Resolve-TypeStr $typeStr
|
||
|
||
# Boolean
|
||
if ($typeStr -eq "Boolean") {
|
||
X "$indent<v8:Type>xs:boolean</v8:Type>"
|
||
return
|
||
}
|
||
|
||
# String or String(N)
|
||
if ($typeStr -match '^String(\((\d+)\))?$') {
|
||
$len = if ($Matches[2]) { $Matches[2] } else { "10" }
|
||
X "$indent<v8:Type>xs:string</v8:Type>"
|
||
X "$indent<v8:StringQualifiers>"
|
||
X "$indent`t<v8:Length>$len</v8:Length>"
|
||
X "$indent`t<v8:AllowedLength>Variable</v8:AllowedLength>"
|
||
X "$indent</v8:StringQualifiers>"
|
||
return
|
||
}
|
||
|
||
# Number without params → Number(10,0)
|
||
if ($typeStr -eq "Number") {
|
||
X "$indent<v8:Type>xs:decimal</v8:Type>"
|
||
X "$indent<v8:NumberQualifiers>"
|
||
X "$indent`t<v8:Digits>10</v8:Digits>"
|
||
X "$indent`t<v8:FractionDigits>0</v8:FractionDigits>"
|
||
X "$indent`t<v8:AllowedSign>Any</v8:AllowedSign>"
|
||
X "$indent</v8:NumberQualifiers>"
|
||
return
|
||
}
|
||
|
||
# Number(D,F) or Number(D,F,nonneg)
|
||
if ($typeStr -match '^Number\((\d+),(\d+)(,nonneg)?\)$') {
|
||
$digits = $Matches[1]
|
||
$fraction = $Matches[2]
|
||
$sign = if ($Matches[3]) { "Nonnegative" } else { "Any" }
|
||
X "$indent<v8:Type>xs:decimal</v8:Type>"
|
||
X "$indent<v8:NumberQualifiers>"
|
||
X "$indent`t<v8:Digits>$digits</v8:Digits>"
|
||
X "$indent`t<v8:FractionDigits>$fraction</v8:FractionDigits>"
|
||
X "$indent`t<v8:AllowedSign>$sign</v8:AllowedSign>"
|
||
X "$indent</v8:NumberQualifiers>"
|
||
return
|
||
}
|
||
|
||
# Date / DateTime
|
||
if ($typeStr -eq "Date") {
|
||
X "$indent<v8:Type>xs:dateTime</v8:Type>"
|
||
X "$indent<v8:DateQualifiers>"
|
||
X "$indent`t<v8:DateFractions>Date</v8:DateFractions>"
|
||
X "$indent</v8:DateQualifiers>"
|
||
return
|
||
}
|
||
if ($typeStr -eq "DateTime") {
|
||
X "$indent<v8:Type>xs:dateTime</v8:Type>"
|
||
X "$indent<v8:DateQualifiers>"
|
||
X "$indent`t<v8:DateFractions>DateTime</v8:DateFractions>"
|
||
X "$indent</v8:DateQualifiers>"
|
||
return
|
||
}
|
||
|
||
# DefinedType
|
||
if ($typeStr -match '^DefinedType\.(.+)$') {
|
||
$dtName = $Matches[1]
|
||
X "$indent<v8:TypeSet>cfg:DefinedType.$dtName</v8:TypeSet>"
|
||
return
|
||
}
|
||
|
||
# ValueStorage
|
||
if ($typeStr -eq "ValueStorage") {
|
||
X "$indent<v8:Type>xs:base64Binary</v8:Type>"
|
||
return
|
||
}
|
||
|
||
# Reference types — use local xmlns declaration for 1C compatibility
|
||
if ($typeStr -match '^(CatalogRef|DocumentRef|EnumRef|ChartOfAccountsRef|ChartOfCharacteristicTypesRef|ChartOfCalculationTypesRef|ExchangePlanRef|BusinessProcessRef|TaskRef)\.(.+)$') {
|
||
X "$indent<v8:Type xmlns:d5p1=`"http://v8.1c.ru/8.1/data/enterprise/current-config`">d5p1:$typeStr</v8:Type>"
|
||
return
|
||
}
|
||
|
||
# Fallback — emit as-is
|
||
X "$indent<v8:Type>$typeStr</v8:Type>"
|
||
}
|
||
|
||
function Emit-ValueType {
|
||
param([string]$indent, [string]$typeStr)
|
||
X "$indent<Type>"
|
||
Emit-TypeContent "$indent`t" $typeStr
|
||
X "$indent</Type>"
|
||
}
|
||
|
||
function Emit-FillValue {
|
||
param([string]$indent, [string]$typeStr)
|
||
if (-not $typeStr) {
|
||
X "$indent<FillValue xsi:nil=`"true`"/>"
|
||
return
|
||
}
|
||
|
||
$typeStr = Resolve-TypeStr $typeStr
|
||
|
||
if ($typeStr -eq "Boolean") {
|
||
X "$indent<FillValue xsi:type=`"xs:boolean`">false</FillValue>"
|
||
return
|
||
}
|
||
if ($typeStr -match '^String') {
|
||
X "$indent<FillValue xsi:type=`"xs:string`"/>"
|
||
return
|
||
}
|
||
if ($typeStr -match '^Number') {
|
||
X "$indent<FillValue xsi:type=`"xs:decimal`">0</FillValue>"
|
||
return
|
||
}
|
||
if ($typeStr -match '^(Date|DateTime)$') {
|
||
X "$indent<FillValue xsi:nil=`"true`"/>"
|
||
return
|
||
}
|
||
# References and others
|
||
X "$indent<FillValue xsi:nil=`"true`"/>"
|
||
}
|
||
|
||
# --- 5. Attribute shorthand parser ---
|
||
|
||
function Build-TypeStr {
|
||
param($obj)
|
||
$t = if ($obj.valueType) { "$($obj.valueType)" } elseif ($obj.type) { "$($obj.type)" } else { "" }
|
||
if ($t -and -not $t.Contains('(')) {
|
||
if ($t -eq "String" -and $obj.length) {
|
||
$t = "String($($obj.length))"
|
||
} elseif ($t -eq "Number" -and $obj.length) {
|
||
$p = if ($obj.precision) { $obj.precision } else { 0 }
|
||
$nn = if ($obj.nonneg -or $obj.nonnegative) { ",nonneg" } else { "" }
|
||
$t = "Number($($obj.length),$p$nn)"
|
||
}
|
||
}
|
||
return $t
|
||
}
|
||
|
||
function Parse-AttributeShorthand {
|
||
param($val)
|
||
|
||
if ($val -is [string]) {
|
||
$str = "$val"
|
||
$parsed = @{
|
||
name = ""
|
||
type = ""
|
||
synonym = ""
|
||
comment = ""
|
||
flags = @()
|
||
}
|
||
|
||
# Split by | for flags
|
||
$parts = $str -split '\|', 2
|
||
$mainPart = $parts[0].Trim()
|
||
if ($parts.Count -gt 1) {
|
||
$flagStr = $parts[1].Trim()
|
||
$parsed.flags = @($flagStr -split ',' | ForEach-Object { $_.Trim().ToLower() } | Where-Object { $_ })
|
||
}
|
||
|
||
# Split by : for name and type
|
||
$colonParts = $mainPart -split ':', 2
|
||
$parsed.name = $colonParts[0].Trim()
|
||
if ($colonParts.Count -gt 1) {
|
||
$parsed.type = $colonParts[1].Trim()
|
||
}
|
||
|
||
$parsed.synonym = Split-CamelCase $parsed.name
|
||
return $parsed
|
||
}
|
||
|
||
# Object form
|
||
$name = "$($val.name)"
|
||
return @{
|
||
name = $name
|
||
type = Build-TypeStr $val
|
||
synonym = if ($val.synonym) { "$($val.synonym)" } else { Split-CamelCase $name }
|
||
comment = if ($val.comment) { "$($val.comment)" } else { "" }
|
||
flags = @(if ($val.flags) { $val.flags } else { @() })
|
||
fillChecking = if ($val.fillChecking) { "$($val.fillChecking)" } else { "" }
|
||
indexing = if ($val.indexing) { "$($val.indexing)" } else { "" }
|
||
multiLine = if ($val.multiLine -eq $true) { $true } else { $false }
|
||
choiceHistoryOnInput = if ($val.choiceHistoryOnInput) { "$($val.choiceHistoryOnInput)" } else { "" }
|
||
}
|
||
}
|
||
|
||
function Parse-EnumValueShorthand {
|
||
param($val)
|
||
|
||
if ($val -is [string]) {
|
||
$name = "$val"
|
||
return @{
|
||
name = $name
|
||
synonym = Split-CamelCase $name
|
||
comment = ""
|
||
}
|
||
}
|
||
|
||
$name = "$($val.name)"
|
||
return @{
|
||
name = $name
|
||
synonym = if ($val.synonym) { "$($val.synonym)" } else { Split-CamelCase $name }
|
||
comment = if ($val.comment) { "$($val.comment)" } else { "" }
|
||
}
|
||
}
|
||
|
||
# --- 6. GeneratedType categories ---
|
||
|
||
$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 = "AccountingRegisterRecordSet"; category = "RecordSet" }
|
||
@{ prefix = "AccountingRegisterRecordKey"; category = "RecordKey" }
|
||
@{ prefix = "AccountingRegisterSelection"; category = "Selection" }
|
||
@{ prefix = "AccountingRegisterList"; category = "List" }
|
||
@{ prefix = "AccountingRegisterManager"; category = "Manager" }
|
||
)
|
||
"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 = "ChartOfCharacteristicTypesCharacteristic"; 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" }
|
||
)
|
||
"DefinedType" = @(
|
||
@{ prefix = "DefinedType"; category = "DefinedType" }
|
||
)
|
||
"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" }
|
||
)
|
||
}
|
||
|
||
function Emit-InternalInfo {
|
||
param([string]$indent, [string]$objectType, [string]$objectName)
|
||
$types = $script:generatedTypes[$objectType]
|
||
if (-not $types) { return }
|
||
|
||
X "$indent<InternalInfo>"
|
||
# ExchangePlan: ThisNode UUID before GeneratedTypes
|
||
if ($objectType -eq "ExchangePlan") {
|
||
X "$indent`t<xr:ThisNode>$(New-Guid-String)</xr:ThisNode>"
|
||
}
|
||
foreach ($gt in $types) {
|
||
$fullName = "$($gt.prefix).$objectName"
|
||
X "$indent`t<xr:GeneratedType name=`"$fullName`" category=`"$($gt.category)`">"
|
||
X "$indent`t`t<xr:TypeId>$(New-Guid-String)</xr:TypeId>"
|
||
X "$indent`t`t<xr:ValueId>$(New-Guid-String)</xr:ValueId>"
|
||
X "$indent`t</xr:GeneratedType>"
|
||
}
|
||
X "$indent</InternalInfo>"
|
||
}
|
||
|
||
# --- 7. StandardAttributes ---
|
||
|
||
$script:standardAttributesByType = @{
|
||
"Catalog" = @("PredefinedDataName","Predefined","Ref","DeletionMark","IsFolder","Owner","Parent","Description","Code")
|
||
"Document" = @("Posted","Ref","DeletionMark","Date","Number")
|
||
"Enum" = @("Order","Ref")
|
||
"InformationRegister" = @("Active","LineNumber","Recorder","Period")
|
||
"AccumulationRegister" = @("Active","LineNumber","Recorder","Period")
|
||
"AccountingRegister" = @("Active","Period","Recorder","LineNumber","Account")
|
||
"CalculationRegister" = @("Active","Recorder","LineNumber","RegistrationPeriod","CalculationType","ReversingEntry")
|
||
"ChartOfAccounts" = @("PredefinedDataName","Predefined","Ref","DeletionMark","Description","Code","Parent","Order","Type","OffBalance")
|
||
"ChartOfCharacteristicTypes" = @("PredefinedDataName","Predefined","Ref","DeletionMark","Description","Code","Parent","ValueType")
|
||
"ChartOfCalculationTypes" = @("PredefinedDataName","Predefined","Ref","DeletionMark","Description","Code","ActionPeriodIsBasic")
|
||
"BusinessProcess" = @("Ref","DeletionMark","Date","Number","Started","Completed","HeadTask")
|
||
"Task" = @("Ref","DeletionMark","Date","Number","Executed","Description","RoutePoint","BusinessProcess")
|
||
"ExchangePlan" = @("Ref","DeletionMark","Code","Description","ThisNode","SentNo","ReceivedNo")
|
||
"DocumentJournal" = @("Type","Ref","Date","Posted","DeletionMark","Number")
|
||
}
|
||
|
||
function Emit-StandardAttribute {
|
||
param([string]$indent, [string]$attrName)
|
||
X "$indent<xr:StandardAttribute name=`"$attrName`">"
|
||
X "$indent`t<xr:LinkByType/>"
|
||
X "$indent`t<xr:FillChecking>DontCheck</xr:FillChecking>"
|
||
X "$indent`t<xr:MultiLine>false</xr:MultiLine>"
|
||
X "$indent`t<xr:FillFromFillingValue>false</xr:FillFromFillingValue>"
|
||
X "$indent`t<xr:CreateOnInput>Auto</xr:CreateOnInput>"
|
||
X "$indent`t<xr:MaxValue xsi:nil=`"true`"/>"
|
||
X "$indent`t<xr:ToolTip/>"
|
||
X "$indent`t<xr:ExtendedEdit>false</xr:ExtendedEdit>"
|
||
X "$indent`t<xr:Format/>"
|
||
X "$indent`t<xr:ChoiceForm/>"
|
||
X "$indent`t<xr:QuickChoice>Auto</xr:QuickChoice>"
|
||
X "$indent`t<xr:ChoiceHistoryOnInput>Auto</xr:ChoiceHistoryOnInput>"
|
||
X "$indent`t<xr:EditFormat/>"
|
||
X "$indent`t<xr:PasswordMode>false</xr:PasswordMode>"
|
||
X "$indent`t<xr:DataHistory>Use</xr:DataHistory>"
|
||
X "$indent`t<xr:MarkNegatives>false</xr:MarkNegatives>"
|
||
X "$indent`t<xr:MinValue xsi:nil=`"true`"/>"
|
||
X "$indent`t<xr:Synonym/>"
|
||
X "$indent`t<xr:Comment/>"
|
||
X "$indent`t<xr:FullTextSearch>Use</xr:FullTextSearch>"
|
||
X "$indent`t<xr:ChoiceParameterLinks/>"
|
||
X "$indent`t<xr:FillValue xsi:nil=`"true`"/>"
|
||
X "$indent`t<xr:Mask/>"
|
||
X "$indent`t<xr:ChoiceParameters/>"
|
||
X "$indent</xr:StandardAttribute>"
|
||
}
|
||
|
||
function Emit-StandardAttributes {
|
||
param([string]$indent, [string]$objectType)
|
||
$attrs = $script:standardAttributesByType[$objectType]
|
||
if (-not $attrs) { return }
|
||
X "$indent<StandardAttributes>"
|
||
foreach ($a in $attrs) {
|
||
Emit-StandardAttribute "$indent`t" $a
|
||
}
|
||
X "$indent</StandardAttributes>"
|
||
}
|
||
|
||
# TabularSection standard attributes (just LineNumber)
|
||
function Emit-TabularStandardAttributes {
|
||
param([string]$indent)
|
||
X "$indent<StandardAttributes>"
|
||
Emit-StandardAttribute "$indent`t" "LineNumber"
|
||
X "$indent</StandardAttributes>"
|
||
}
|
||
|
||
# --- 8. Attribute emitter ---
|
||
|
||
$script:reservedAttrNames = @{
|
||
"Ref"="Ссылка"; "DeletionMark"="ПометкаУдаления"; "Code"="Код"; "Description"="Наименование"
|
||
"Date"="Дата"; "Number"="Номер"; "Posted"="Проведен"; "Parent"="Родитель"; "Owner"="Владелец"
|
||
"IsFolder"="ЭтоГруппа"; "Predefined"="Предопределенный"; "PredefinedDataName"="ИмяПредопределенныхДанных"
|
||
"Recorder"="Регистратор"; "Period"="Период"; "LineNumber"="НомерСтроки"; "Active"="Активность"
|
||
"Order"="Порядок"; "Type"="Тип"; "OffBalance"="Забалансовый"
|
||
"Started"="Стартован"; "Completed"="Завершен"; "HeadTask"="ВедущаяЗадача"
|
||
"Executed"="Выполнена"; "RoutePoint"="ТочкаМаршрута"; "BusinessProcess"="БизнесПроцесс"
|
||
"ThisNode"="ЭтотУзел"; "SentNo"="НомерОтправленного"; "ReceivedNo"="НомерПринятого"
|
||
"CalculationType"="ВидРасчета"; "RegistrationPeriod"="ПериодРегистрации"; "ReversingEntry"="СторноЗапись"
|
||
"Account"="Счет"; "ValueType"="ТипЗначения"; "ActionPeriodIsBasic"="ПериодДействияБазовый"
|
||
}
|
||
|
||
function Emit-Attribute {
|
||
param([string]$indent, $parsed, [string]$context)
|
||
# $context: "catalog", "document", "object", "processor", "tabular", "processor-tabular", "register"
|
||
$attrName = $parsed.name
|
||
if ($context -notin @("tabular", "processor-tabular") -and
|
||
($script:reservedAttrNames.ContainsKey($attrName) -or $script:reservedAttrNames.ContainsValue($attrName))) {
|
||
Write-Warning "Attribute '$attrName' conflicts with a standard attribute name. This may cause errors when loading into 1C."
|
||
}
|
||
$uuid = New-Guid-String
|
||
X "$indent<Attribute uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $parsed.name)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym
|
||
X "$indent`t`t<Comment/>"
|
||
|
||
# Type
|
||
$typeStr = $parsed.type
|
||
if ($typeStr) {
|
||
Emit-ValueType "$indent`t`t" $typeStr
|
||
} else {
|
||
# Default: unqualified string
|
||
X "$indent`t`t<Type>"
|
||
X "$indent`t`t`t<v8:Type>xs:string</v8:Type>"
|
||
X "$indent`t`t</Type>"
|
||
}
|
||
|
||
X "$indent`t`t<PasswordMode>false</PasswordMode>"
|
||
X "$indent`t`t<Format/>"
|
||
X "$indent`t`t<EditFormat/>"
|
||
X "$indent`t`t<ToolTip/>"
|
||
X "$indent`t`t<MarkNegatives>false</MarkNegatives>"
|
||
X "$indent`t`t<Mask/>"
|
||
$multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" }
|
||
X "$indent`t`t<MultiLine>$multiLine</MultiLine>"
|
||
X "$indent`t`t<ExtendedEdit>false</ExtendedEdit>"
|
||
X "$indent`t`t<MinValue xsi:nil=`"true`"/>"
|
||
X "$indent`t`t<MaxValue xsi:nil=`"true`"/>"
|
||
|
||
# FillFromFillingValue — not for tabular/processor/chart/register-other
|
||
# (Chart*, AccumulationRegister/AccountingRegister/CalculationRegister don't support these)
|
||
if ($context -notin @("tabular", "processor", "chart", "register-other")) {
|
||
X "$indent`t`t<FillFromFillingValue>false</FillFromFillingValue>"
|
||
}
|
||
|
||
# FillValue — same restriction
|
||
if ($context -notin @("tabular", "processor", "chart", "register-other")) {
|
||
Emit-FillValue "$indent`t`t" $typeStr
|
||
}
|
||
|
||
# FillChecking
|
||
$fillChecking = "DontCheck"
|
||
if ($parsed.flags -contains "req") { $fillChecking = "ShowError" }
|
||
if ($parsed.fillChecking) { $fillChecking = $parsed.fillChecking }
|
||
X "$indent`t`t<FillChecking>$fillChecking</FillChecking>"
|
||
|
||
X "$indent`t`t<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>"
|
||
X "$indent`t`t<ChoiceParameterLinks/>"
|
||
X "$indent`t`t<ChoiceParameters/>"
|
||
X "$indent`t`t<QuickChoice>Auto</QuickChoice>"
|
||
X "$indent`t`t<CreateOnInput>Auto</CreateOnInput>"
|
||
X "$indent`t`t<ChoiceForm/>"
|
||
X "$indent`t`t<LinkByType/>"
|
||
$chi = if ($parsed.choiceHistoryOnInput) { $parsed.choiceHistoryOnInput } else { "Auto" }
|
||
X "$indent`t`t<ChoiceHistoryOnInput>$chi</ChoiceHistoryOnInput>"
|
||
|
||
# Use — only for catalog top-level attributes
|
||
if ($context -eq "catalog") {
|
||
X "$indent`t`t<Use>ForItem</Use>"
|
||
}
|
||
|
||
# Indexing/FullTextSearch/DataHistory — not for non-stored objects (processor, processor-tabular)
|
||
if ($context -notin @("processor", "processor-tabular")) {
|
||
$indexing = "DontIndex"
|
||
if ($parsed.flags -contains "index") { $indexing = "Index" }
|
||
if ($parsed.flags -contains "indexadditional") { $indexing = "IndexWithAdditionalOrder" }
|
||
if ($parsed.indexing) { $indexing = $parsed.indexing }
|
||
X "$indent`t`t<Indexing>$indexing</Indexing>"
|
||
|
||
X "$indent`t`t<FullTextSearch>Use</FullTextSearch>"
|
||
# DataHistory — not for Chart* types and non-InformationRegister register family
|
||
if ($context -notin @("chart", "register-other")) {
|
||
X "$indent`t`t<DataHistory>Use</DataHistory>"
|
||
}
|
||
}
|
||
|
||
X "$indent`t</Properties>"
|
||
X "$indent</Attribute>"
|
||
}
|
||
|
||
# --- 9. TabularSection emitter ---
|
||
|
||
function Emit-TabularSection {
|
||
param([string]$indent, [string]$tsName, $columns, [string]$objectType, [string]$objectName)
|
||
$uuid = New-Guid-String
|
||
X "$indent<TabularSection uuid=`"$uuid`">"
|
||
|
||
# InternalInfo for TabularSection
|
||
$typePrefix = "${objectType}TabularSection"
|
||
$rowPrefix = "${objectType}TabularSectionRow"
|
||
|
||
X "$indent`t<InternalInfo>"
|
||
X "$indent`t`t<xr:GeneratedType name=`"$typePrefix.$objectName.$tsName`" category=`"TabularSection`">"
|
||
X "$indent`t`t`t<xr:TypeId>$(New-Guid-String)</xr:TypeId>"
|
||
X "$indent`t`t`t<xr:ValueId>$(New-Guid-String)</xr:ValueId>"
|
||
X "$indent`t`t</xr:GeneratedType>"
|
||
X "$indent`t`t<xr:GeneratedType name=`"$rowPrefix.$objectName.$tsName`" category=`"TabularSectionRow`">"
|
||
X "$indent`t`t`t<xr:TypeId>$(New-Guid-String)</xr:TypeId>"
|
||
X "$indent`t`t`t<xr:ValueId>$(New-Guid-String)</xr:ValueId>"
|
||
X "$indent`t`t</xr:GeneratedType>"
|
||
X "$indent`t</InternalInfo>"
|
||
|
||
$tsSynonym = Split-CamelCase $tsName
|
||
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $tsName)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $tsSynonym
|
||
X "$indent`t`t<Comment/>"
|
||
X "$indent`t`t<ToolTip/>"
|
||
X "$indent`t`t<FillChecking>DontCheck</FillChecking>"
|
||
Emit-TabularStandardAttributes "$indent`t`t"
|
||
# Use=ForItem only for Catalog tabular sections (Document does not have Use)
|
||
if ($objectType -eq "Catalog") {
|
||
X "$indent`t`t<Use>ForItem</Use>"
|
||
}
|
||
X "$indent`t</Properties>"
|
||
|
||
$tsContext = if ($objectType -in @("DataProcessor","Report")) { "processor-tabular" } else { "tabular" }
|
||
X "$indent`t<ChildObjects>"
|
||
foreach ($col in $columns) {
|
||
$parsed = Parse-AttributeShorthand $col
|
||
Emit-Attribute "$indent`t`t" $parsed $tsContext
|
||
}
|
||
X "$indent`t</ChildObjects>"
|
||
|
||
X "$indent</TabularSection>"
|
||
}
|
||
|
||
# --- 10. EnumValue emitter ---
|
||
|
||
function Emit-EnumValue {
|
||
param([string]$indent, $parsed)
|
||
$uuid = New-Guid-String
|
||
X "$indent<EnumValue uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $parsed.name)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym
|
||
X "$indent`t`t<Comment/>"
|
||
X "$indent`t</Properties>"
|
||
X "$indent</EnumValue>"
|
||
}
|
||
|
||
# --- 11. Dimension emitter ---
|
||
|
||
function Emit-Dimension {
|
||
param([string]$indent, $parsed, [string]$registerType)
|
||
# $registerType: "InformationRegister" or "AccumulationRegister"
|
||
$uuid = New-Guid-String
|
||
X "$indent<Dimension uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $parsed.name)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym
|
||
X "$indent`t`t<Comment/>"
|
||
|
||
$typeStr = $parsed.type
|
||
if ($typeStr) {
|
||
Emit-ValueType "$indent`t`t" $typeStr
|
||
} else {
|
||
X "$indent`t`t<Type>"
|
||
X "$indent`t`t`t<v8:Type>xs:string</v8:Type>"
|
||
X "$indent`t`t</Type>"
|
||
}
|
||
|
||
X "$indent`t`t<PasswordMode>false</PasswordMode>"
|
||
X "$indent`t`t<Format/>"
|
||
X "$indent`t`t<EditFormat/>"
|
||
X "$indent`t`t<ToolTip/>"
|
||
X "$indent`t`t<MarkNegatives>false</MarkNegatives>"
|
||
X "$indent`t`t<Mask/>"
|
||
$multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" }
|
||
X "$indent`t`t<MultiLine>$multiLine</MultiLine>"
|
||
X "$indent`t`t<ExtendedEdit>false</ExtendedEdit>"
|
||
X "$indent`t`t<MinValue xsi:nil=`"true`"/>"
|
||
X "$indent`t`t<MaxValue xsi:nil=`"true`"/>"
|
||
|
||
# InformationRegister dimensions have FillFromFillingValue
|
||
if ($registerType -eq "InformationRegister") {
|
||
$fillFrom = if ($parsed.flags -contains "master") { "true" } else { "false" }
|
||
X "$indent`t`t<FillFromFillingValue>$fillFrom</FillFromFillingValue>"
|
||
X "$indent`t`t<FillValue xsi:nil=`"true`"/>"
|
||
}
|
||
|
||
$fillChecking = "DontCheck"
|
||
if ($parsed.flags -contains "req") { $fillChecking = "ShowError" }
|
||
X "$indent`t`t<FillChecking>$fillChecking</FillChecking>"
|
||
|
||
X "$indent`t`t<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>"
|
||
X "$indent`t`t<ChoiceParameterLinks/>"
|
||
X "$indent`t`t<ChoiceParameters/>"
|
||
X "$indent`t`t<QuickChoice>Auto</QuickChoice>"
|
||
X "$indent`t`t<CreateOnInput>Auto</CreateOnInput>"
|
||
X "$indent`t`t<ChoiceForm/>"
|
||
X "$indent`t`t<LinkByType/>"
|
||
X "$indent`t`t<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
|
||
# InformationRegister dimensions: Master, MainFilter, DenyIncompleteValues
|
||
if ($registerType -eq "InformationRegister") {
|
||
$master = if ($parsed.flags -contains "master") { "true" } else { "false" }
|
||
$mainFilter = if ($parsed.flags -contains "mainfilter") { "true" } else { "false" }
|
||
$denyIncomplete = if ($parsed.flags -contains "denyincomplete") { "true" } else { "false" }
|
||
X "$indent`t`t<Master>$master</Master>"
|
||
X "$indent`t`t<MainFilter>$mainFilter</MainFilter>"
|
||
X "$indent`t`t<DenyIncompleteValues>$denyIncomplete</DenyIncompleteValues>"
|
||
}
|
||
|
||
# AccumulationRegister dimensions: DenyIncompleteValues
|
||
if ($registerType -eq "AccumulationRegister") {
|
||
$denyIncomplete = if ($parsed.flags -contains "denyincomplete") { "true" } else { "false" }
|
||
X "$indent`t`t<DenyIncompleteValues>$denyIncomplete</DenyIncompleteValues>"
|
||
}
|
||
|
||
$indexing = "DontIndex"
|
||
if ($parsed.flags -contains "index") { $indexing = "Index" }
|
||
X "$indent`t`t<Indexing>$indexing</Indexing>"
|
||
|
||
X "$indent`t`t<FullTextSearch>Use</FullTextSearch>"
|
||
|
||
# AccumulationRegister dimensions: UseInTotals
|
||
if ($registerType -eq "AccumulationRegister") {
|
||
$useInTotals = if ($parsed.flags -contains "nouseintotals") { "false" } else { "true" }
|
||
X "$indent`t`t<UseInTotals>$useInTotals</UseInTotals>"
|
||
}
|
||
|
||
# InformationRegister dimensions: DataHistory
|
||
if ($registerType -eq "InformationRegister") {
|
||
X "$indent`t`t<DataHistory>Use</DataHistory>"
|
||
}
|
||
|
||
X "$indent`t</Properties>"
|
||
X "$indent</Dimension>"
|
||
}
|
||
|
||
# --- 12. Resource emitter ---
|
||
|
||
function Emit-Resource {
|
||
param([string]$indent, $parsed, [string]$registerType)
|
||
$uuid = New-Guid-String
|
||
X "$indent<Resource uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $parsed.name)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym
|
||
X "$indent`t`t<Comment/>"
|
||
|
||
$typeStr = $parsed.type
|
||
if ($typeStr) {
|
||
Emit-ValueType "$indent`t`t" $typeStr
|
||
} else {
|
||
X "$indent`t`t<Type>"
|
||
X "$indent`t`t`t<v8:Type>xs:decimal</v8:Type>"
|
||
X "$indent`t`t`t<v8:NumberQualifiers>"
|
||
X "$indent`t`t`t`t<v8:Digits>15</v8:Digits>"
|
||
X "$indent`t`t`t`t<v8:FractionDigits>2</v8:FractionDigits>"
|
||
X "$indent`t`t`t`t<v8:AllowedSign>Any</v8:AllowedSign>"
|
||
X "$indent`t`t`t</v8:NumberQualifiers>"
|
||
X "$indent`t`t</Type>"
|
||
}
|
||
|
||
X "$indent`t`t<PasswordMode>false</PasswordMode>"
|
||
X "$indent`t`t<Format/>"
|
||
X "$indent`t`t<EditFormat/>"
|
||
X "$indent`t`t<ToolTip/>"
|
||
X "$indent`t`t<MarkNegatives>false</MarkNegatives>"
|
||
X "$indent`t`t<Mask/>"
|
||
$multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" }
|
||
X "$indent`t`t<MultiLine>$multiLine</MultiLine>"
|
||
X "$indent`t`t<ExtendedEdit>false</ExtendedEdit>"
|
||
X "$indent`t`t<MinValue xsi:nil=`"true`"/>"
|
||
X "$indent`t`t<MaxValue xsi:nil=`"true`"/>"
|
||
|
||
# InformationRegister resources have FillFromFillingValue, FillValue
|
||
if ($registerType -eq "InformationRegister") {
|
||
X "$indent`t`t<FillFromFillingValue>false</FillFromFillingValue>"
|
||
X "$indent`t`t<FillValue xsi:nil=`"true`"/>"
|
||
}
|
||
|
||
$fillChecking = "DontCheck"
|
||
if ($parsed.flags -contains "req") { $fillChecking = "ShowError" }
|
||
X "$indent`t`t<FillChecking>$fillChecking</FillChecking>"
|
||
|
||
X "$indent`t`t<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>"
|
||
X "$indent`t`t<ChoiceParameterLinks/>"
|
||
X "$indent`t`t<ChoiceParameters/>"
|
||
X "$indent`t`t<QuickChoice>Auto</QuickChoice>"
|
||
X "$indent`t`t<CreateOnInput>Auto</CreateOnInput>"
|
||
X "$indent`t`t<ChoiceForm/>"
|
||
X "$indent`t`t<LinkByType/>"
|
||
X "$indent`t`t<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
|
||
# InformationRegister resources: Indexing, FullTextSearch, DataHistory
|
||
if ($registerType -eq "InformationRegister") {
|
||
X "$indent`t`t<Indexing>DontIndex</Indexing>"
|
||
X "$indent`t`t<FullTextSearch>Use</FullTextSearch>"
|
||
X "$indent`t`t<DataHistory>Use</DataHistory>"
|
||
}
|
||
|
||
# AccumulationRegister resources: FullTextSearch (no Indexing, no DataHistory)
|
||
if ($registerType -eq "AccumulationRegister") {
|
||
X "$indent`t`t<FullTextSearch>Use</FullTextSearch>"
|
||
}
|
||
|
||
X "$indent`t</Properties>"
|
||
X "$indent</Resource>"
|
||
}
|
||
|
||
# --- 13. Property emitters per type ---
|
||
|
||
function Emit-CatalogProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
|
||
$hierarchical = if ($def.hierarchical -eq $true) { "true" } else { "false" }
|
||
$hierarchyType = Get-EnumProp "HierarchyType" "hierarchyType" "HierarchyFoldersAndItems"
|
||
X "$i<Hierarchical>$hierarchical</Hierarchical>"
|
||
X "$i<HierarchyType>$hierarchyType</HierarchyType>"
|
||
$limitLevelCount = if ($def.limitLevelCount -eq $true) { "true" } else { "false" }
|
||
$levelCount = if ($null -ne $def.levelCount) { "$($def.levelCount)" } else { "2" }
|
||
$foldersOnTop = if ($def.foldersOnTop -eq $false) { "false" } else { "true" }
|
||
X "$i<LimitLevelCount>$limitLevelCount</LimitLevelCount>"
|
||
X "$i<LevelCount>$levelCount</LevelCount>"
|
||
X "$i<FoldersOnTop>$foldersOnTop</FoldersOnTop>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
if ($def.owners -and $def.owners.Count -gt 0) {
|
||
X "$i<Owners>"
|
||
foreach ($ownerRef in $def.owners) {
|
||
$fullRef = if ("$ownerRef" -match '\.') { "$ownerRef" } else { "Catalog.$ownerRef" }
|
||
X "$i`t<xr:Item xsi:type=`"xr:MDObjectRef`">$fullRef</xr:Item>"
|
||
}
|
||
X "$i</Owners>"
|
||
} else {
|
||
X "$i<Owners/>"
|
||
}
|
||
$subordinationUse = Get-EnumProp "SubordinationUse" "subordinationUse" "ToItems"
|
||
X "$i<SubordinationUse>$subordinationUse</SubordinationUse>"
|
||
|
||
$codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" }
|
||
$descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "25" }
|
||
$codeType = Get-EnumProp "CodeType" "codeType" "String"
|
||
$codeAllowedLength = Get-EnumProp "CodeAllowedLength" "codeAllowedLength" "Variable"
|
||
$autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" }
|
||
$checkUnique = if ($def.checkUnique -eq $true) { "true" } else { "false" }
|
||
|
||
X "$i<CodeLength>$codeLength</CodeLength>"
|
||
X "$i<DescriptionLength>$descriptionLength</DescriptionLength>"
|
||
X "$i<CodeType>$codeType</CodeType>"
|
||
X "$i<CodeAllowedLength>$codeAllowedLength</CodeAllowedLength>"
|
||
$codeSeries = Get-EnumProp "CodeSeries" "codeSeries" "WholeCatalog"
|
||
X "$i<CodeSeries>$codeSeries</CodeSeries>"
|
||
X "$i<CheckUnique>$checkUnique</CheckUnique>"
|
||
X "$i<Autonumbering>$autonumbering</Autonumbering>"
|
||
|
||
$defaultPresentation = Get-EnumProp "DefaultPresentation" "defaultPresentation" "AsDescription"
|
||
X "$i<DefaultPresentation>$defaultPresentation</DefaultPresentation>"
|
||
|
||
Emit-StandardAttributes $i "Catalog"
|
||
X "$i<Characteristics/>"
|
||
X "$i<PredefinedDataUpdate>Auto</PredefinedDataUpdate>"
|
||
X "$i<EditType>InDialog</EditType>"
|
||
$quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" }
|
||
$choiceMode = Get-EnumProp "ChoiceMode" "choiceMode" "BothWays"
|
||
X "$i<QuickChoice>$quickChoice</QuickChoice>"
|
||
X "$i<ChoiceMode>$choiceMode</ChoiceMode>"
|
||
X "$i<InputByString>"
|
||
X "$i`t<xr:Field>Catalog.$objName.StandardAttribute.Description</xr:Field>"
|
||
X "$i`t<xr:Field>Catalog.$objName.StandardAttribute.Code</xr:Field>"
|
||
X "$i</InputByString>"
|
||
X "$i<SearchStringModeOnInputByString>Begin</SearchStringModeOnInputByString>"
|
||
X "$i<FullTextSearchOnInputByString>DontUse</FullTextSearchOnInputByString>"
|
||
X "$i<ChoiceDataGetModeOnInputByString>Directly</ChoiceDataGetModeOnInputByString>"
|
||
X "$i<DefaultObjectForm/>"
|
||
X "$i<DefaultFolderForm/>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<DefaultChoiceForm/>"
|
||
X "$i<DefaultFolderChoiceForm/>"
|
||
X "$i<AuxiliaryObjectForm/>"
|
||
X "$i<AuxiliaryFolderForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
X "$i<AuxiliaryChoiceForm/>"
|
||
X "$i<AuxiliaryFolderChoiceForm/>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<BasedOn/>"
|
||
X "$i<DataLockFields/>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ObjectPresentation/>"
|
||
X "$i<ExtendedObjectPresentation/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<CreateOnInput>DontUse</CreateOnInput>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
X "$i<DataHistory>DontUse</DataHistory>"
|
||
X "$i<UpdateDataHistoryImmediatelyAfterWrite>false</UpdateDataHistoryImmediatelyAfterWrite>"
|
||
X "$i<ExecuteAfterWriteDataHistoryVersionProcessing>false</ExecuteAfterWriteDataHistoryVersionProcessing>"
|
||
}
|
||
|
||
function Emit-DocumentProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
X "$i<Numerator/>"
|
||
|
||
$numberType = Get-EnumProp "NumberType" "numberType" "String"
|
||
$numberLength = if ($null -ne $def.numberLength) { "$($def.numberLength)" } else { "11" }
|
||
$numberAllowedLength = Get-EnumProp "NumberAllowedLength" "numberAllowedLength" "Variable"
|
||
$numberPeriodicity = if ($def.numberPeriodicity) { "$($def.numberPeriodicity)" } else { "Year" }
|
||
$checkUnique = if ($def.checkUnique -eq $false) { "false" } else { "true" }
|
||
$autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" }
|
||
|
||
X "$i<NumberType>$numberType</NumberType>"
|
||
X "$i<NumberLength>$numberLength</NumberLength>"
|
||
X "$i<NumberAllowedLength>$numberAllowedLength</NumberAllowedLength>"
|
||
X "$i<NumberPeriodicity>$numberPeriodicity</NumberPeriodicity>"
|
||
X "$i<CheckUnique>$checkUnique</CheckUnique>"
|
||
X "$i<Autonumbering>$autonumbering</Autonumbering>"
|
||
|
||
Emit-StandardAttributes $i "Document"
|
||
X "$i<Characteristics/>"
|
||
|
||
X "$i<BasedOn/>"
|
||
X "$i<InputByString>"
|
||
X "$i`t<xr:Field>Document.$objName.StandardAttribute.Number</xr:Field>"
|
||
X "$i</InputByString>"
|
||
X "$i<CreateOnInput>DontUse</CreateOnInput>"
|
||
X "$i<SearchStringModeOnInputByString>Begin</SearchStringModeOnInputByString>"
|
||
X "$i<FullTextSearchOnInputByString>DontUse</FullTextSearchOnInputByString>"
|
||
X "$i<ChoiceDataGetModeOnInputByString>Directly</ChoiceDataGetModeOnInputByString>"
|
||
X "$i<DefaultObjectForm/>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<DefaultChoiceForm/>"
|
||
X "$i<AuxiliaryObjectForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
X "$i<AuxiliaryChoiceForm/>"
|
||
|
||
$posting = Get-EnumProp "Posting" "posting" "Allow"
|
||
$realTimePosting = Get-EnumProp "RealTimePosting" "realTimePosting" "Deny"
|
||
$registerRecordsDeletion = Get-EnumProp "RegisterRecordsDeletion" "registerRecordsDeletion" "AutoDelete"
|
||
$registerRecordsWritingOnPost = Get-EnumProp "RegisterRecordsWritingOnPost" "registerRecordsWritingOnPost" "WriteModified"
|
||
$sequenceFilling = if ($def.sequenceFilling) { "$($def.sequenceFilling)" } else { "AutoFill" }
|
||
$postInPrivilegedMode = if ($def.postInPrivilegedMode -eq $false) { "false" } else { "true" }
|
||
$unpostInPrivilegedMode = if ($def.unpostInPrivilegedMode -eq $false) { "false" } else { "true" }
|
||
|
||
X "$i<Posting>$posting</Posting>"
|
||
X "$i<RealTimePosting>$realTimePosting</RealTimePosting>"
|
||
X "$i<RegisterRecordsDeletion>$registerRecordsDeletion</RegisterRecordsDeletion>"
|
||
X "$i<RegisterRecordsWritingOnPost>$registerRecordsWritingOnPost</RegisterRecordsWritingOnPost>"
|
||
X "$i<SequenceFilling>$sequenceFilling</SequenceFilling>"
|
||
|
||
# RegisterRecords
|
||
$regRecords = @()
|
||
if ($def.registerRecords) {
|
||
foreach ($rr in $def.registerRecords) {
|
||
$rrStr = "$rr"
|
||
# Resolve Russian synonyms in register records
|
||
if ($rrStr.Contains('.')) {
|
||
$dotIdx = $rrStr.IndexOf('.')
|
||
$rrPrefix = $rrStr.Substring(0, $dotIdx)
|
||
$rrSuffix = $rrStr.Substring($dotIdx + 1)
|
||
if ($script:objectTypeSynonyms.ContainsKey($rrPrefix)) {
|
||
$rrPrefix = $script:objectTypeSynonyms[$rrPrefix]
|
||
}
|
||
$regRecords += "$rrPrefix.$rrSuffix"
|
||
} else {
|
||
$regRecords += $rrStr
|
||
}
|
||
}
|
||
}
|
||
|
||
if ($regRecords.Count -gt 0) {
|
||
X "$i<RegisterRecords>"
|
||
foreach ($rr in $regRecords) {
|
||
X "$i`t<xr:Item xsi:type=`"xr:MDObjectRef`">$rr</xr:Item>"
|
||
}
|
||
X "$i</RegisterRecords>"
|
||
} else {
|
||
X "$i<RegisterRecords/>"
|
||
}
|
||
|
||
X "$i<PostInPrivilegedMode>$postInPrivilegedMode</PostInPrivilegedMode>"
|
||
X "$i<UnpostInPrivilegedMode>$unpostInPrivilegedMode</UnpostInPrivilegedMode>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<DataLockFields/>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ObjectPresentation/>"
|
||
X "$i<ExtendedObjectPresentation/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
X "$i<DataHistory>DontUse</DataHistory>"
|
||
X "$i<UpdateDataHistoryImmediatelyAfterWrite>false</UpdateDataHistoryImmediatelyAfterWrite>"
|
||
X "$i<ExecuteAfterWriteDataHistoryVersionProcessing>false</ExecuteAfterWriteDataHistoryVersionProcessing>"
|
||
}
|
||
|
||
function Emit-EnumProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>false</UseStandardCommands>"
|
||
|
||
Emit-StandardAttributes $i "Enum"
|
||
X "$i<Characteristics/>"
|
||
|
||
$quickChoice = if ($def.quickChoice -eq $false) { "false" } else { "true" }
|
||
X "$i<QuickChoice>$quickChoice</QuickChoice>"
|
||
X "$i<ChoiceMode>BothWays</ChoiceMode>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<DefaultChoiceForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
X "$i<AuxiliaryChoiceForm/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
}
|
||
|
||
function Emit-ConstantProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
|
||
# Type
|
||
$valueType = Build-TypeStr $def
|
||
if (-not $valueType) { $valueType = "String" }
|
||
Emit-ValueType $i $valueType
|
||
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
X "$i<DefaultForm/>"
|
||
X "$i<ExtendedPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<PasswordMode>false</PasswordMode>"
|
||
X "$i<Format/>"
|
||
X "$i<EditFormat/>"
|
||
X "$i<ToolTip/>"
|
||
X "$i<MarkNegatives>false</MarkNegatives>"
|
||
X "$i<Mask/>"
|
||
X "$i<MultiLine>false</MultiLine>"
|
||
X "$i<ExtendedEdit>false</ExtendedEdit>"
|
||
X "$i<MinValue xsi:nil=`"true`"/>"
|
||
X "$i<MaxValue xsi:nil=`"true`"/>"
|
||
X "$i<FillChecking>DontCheck</FillChecking>"
|
||
X "$i<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>"
|
||
X "$i<ChoiceParameterLinks/>"
|
||
X "$i<ChoiceParameters/>"
|
||
X "$i<QuickChoice>Auto</QuickChoice>"
|
||
X "$i<ChoiceForm/>"
|
||
X "$i<LinkByType/>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
X "$i<DataHistory>DontUse</DataHistory>"
|
||
X "$i<UpdateDataHistoryImmediatelyAfterWrite>false</UpdateDataHistoryImmediatelyAfterWrite>"
|
||
X "$i<ExecuteAfterWriteDataHistoryVersionProcessing>false</ExecuteAfterWriteDataHistoryVersionProcessing>"
|
||
}
|
||
|
||
function Emit-InformationRegisterProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
X "$i<EditType>InDialog</EditType>"
|
||
X "$i<DefaultRecordForm/>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<AuxiliaryRecordForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
|
||
Emit-StandardAttributes $i "InformationRegister"
|
||
|
||
$periodicity = Get-EnumProp "InformationRegisterPeriodicity" "periodicity" "Nonperiodical"
|
||
$writeMode = Get-EnumProp "WriteMode" "writeMode" "Independent"
|
||
|
||
# MainFilterOnPeriod: auto based on periodicity unless explicitly set
|
||
$mainFilterOnPeriod = "false"
|
||
if ($null -ne $def.mainFilterOnPeriod) {
|
||
$mainFilterOnPeriod = if ($def.mainFilterOnPeriod -eq $true) { "true" } else { "false" }
|
||
} elseif ($periodicity -ne "Nonperiodical") {
|
||
$mainFilterOnPeriod = "true"
|
||
}
|
||
|
||
X "$i<InformationRegisterPeriodicity>$periodicity</InformationRegisterPeriodicity>"
|
||
X "$i<WriteMode>$writeMode</WriteMode>"
|
||
X "$i<MainFilterOnPeriod>$mainFilterOnPeriod</MainFilterOnPeriod>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<EnableTotalsSliceFirst>false</EnableTotalsSliceFirst>"
|
||
X "$i<EnableTotalsSliceLast>false</EnableTotalsSliceLast>"
|
||
X "$i<RecordPresentation/>"
|
||
X "$i<ExtendedRecordPresentation/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<DataHistory>DontUse</DataHistory>"
|
||
X "$i<UpdateDataHistoryImmediatelyAfterWrite>false</UpdateDataHistoryImmediatelyAfterWrite>"
|
||
X "$i<ExecuteAfterWriteDataHistoryVersionProcessing>false</ExecuteAfterWriteDataHistoryVersionProcessing>"
|
||
}
|
||
|
||
function Emit-AccumulationRegisterProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
|
||
$registerType = Get-EnumProp "RegisterType" "registerType" "Balance"
|
||
X "$i<RegisterType>$registerType</RegisterType>"
|
||
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
|
||
Emit-StandardAttributes $i "AccumulationRegister"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
$enableTotalsSplitting = if ($def.enableTotalsSplitting -eq $false) { "false" } else { "true" }
|
||
X "$i<EnableTotalsSplitting>$enableTotalsSplitting</EnableTotalsSplitting>"
|
||
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
}
|
||
|
||
# --- 13a. Wave 1: DefinedType, CommonModule, ScheduledJob, EventSubscription ---
|
||
|
||
function Emit-DefinedTypeProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
|
||
# Type — composite type with multiple v8:Type entries (accept both valueType and valueTypes)
|
||
$valueTypes = @()
|
||
if ($def.valueTypes) {
|
||
$valueTypes = @($def.valueTypes)
|
||
} elseif ($def.valueType) {
|
||
$valueTypes = @($def.valueType)
|
||
}
|
||
if ($valueTypes.Count -gt 0) {
|
||
X "$i<Type>"
|
||
foreach ($vt in $valueTypes) {
|
||
$resolved = Resolve-TypeStr "$vt"
|
||
if ($resolved -match '^(CatalogRef|DocumentRef|EnumRef|ChartOfAccountsRef|ChartOfCharacteristicTypesRef|ChartOfCalculationTypesRef|ExchangePlanRef|BusinessProcessRef|TaskRef)\.') {
|
||
X "$i`t<v8:Type xmlns:d5p1=`"http://v8.1c.ru/8.1/data/enterprise/current-config`">d5p1:$resolved</v8:Type>"
|
||
} elseif ($resolved -eq "Boolean") {
|
||
X "$i`t<v8:Type>xs:boolean</v8:Type>"
|
||
} elseif ($resolved -match '^String') {
|
||
X "$i`t<v8:Type>xs:string</v8:Type>"
|
||
X "$i`t<v8:StringQualifiers>"
|
||
X "$i`t`t<v8:Length>0</v8:Length>"
|
||
X "$i`t`t<v8:AllowedLength>Variable</v8:AllowedLength>"
|
||
X "$i`t</v8:StringQualifiers>"
|
||
} else {
|
||
X "$i`t<v8:Type>cfg:$resolved</v8:Type>"
|
||
}
|
||
}
|
||
X "$i</Type>"
|
||
} else {
|
||
X "$i<Type/>"
|
||
}
|
||
}
|
||
|
||
function Emit-CommonModuleProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
|
||
# Context shortcuts
|
||
$context = if ($def.context) { "$($def.context)" } else { "" }
|
||
|
||
$global = if ($def.global -eq $true) { "true" } else { "false" }
|
||
$server = "false"; $serverCall = "false"; $clientManaged = "false"
|
||
$clientOrdinary = "false"; $externalConnection = "false"; $privileged = "false"
|
||
|
||
switch ($context) {
|
||
"server" { $server = "true"; $serverCall = "true" }
|
||
"serverCall" { $server = "true"; $serverCall = "true" }
|
||
"client" { $clientManaged = "true" }
|
||
"serverClient" { $server = "true"; $clientManaged = "true" }
|
||
default {
|
||
if ($def.server -eq $true) { $server = "true" }
|
||
if ($def.serverCall -eq $true) { $serverCall = "true" }
|
||
if ($def.clientManagedApplication -eq $true) { $clientManaged = "true" }
|
||
if ($def.clientOrdinaryApplication -eq $true) { $clientOrdinary = "true" }
|
||
if ($def.externalConnection -eq $true) { $externalConnection = "true" }
|
||
if ($def.privileged -eq $true) { $privileged = "true" }
|
||
}
|
||
}
|
||
|
||
X "$i<Global>$global</Global>"
|
||
X "$i<ClientManagedApplication>$clientManaged</ClientManagedApplication>"
|
||
X "$i<Server>$server</Server>"
|
||
X "$i<ExternalConnection>$externalConnection</ExternalConnection>"
|
||
X "$i<ClientOrdinaryApplication>$clientOrdinary</ClientOrdinaryApplication>"
|
||
X "$i<ServerCall>$serverCall</ServerCall>"
|
||
X "$i<Privileged>$privileged</Privileged>"
|
||
|
||
$returnValuesReuse = Get-EnumProp "ReturnValuesReuse" "returnValuesReuse" "DontUse"
|
||
X "$i<ReturnValuesReuse>$returnValuesReuse</ReturnValuesReuse>"
|
||
}
|
||
|
||
function Emit-ScheduledJobProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
|
||
$methodName = if ($def.methodName) { "$($def.methodName)" } else { "" }
|
||
# Ensure CommonModule. prefix
|
||
if ($methodName -and -not $methodName.StartsWith("CommonModule.")) {
|
||
$methodName = "CommonModule.$methodName"
|
||
}
|
||
X "$i<MethodName>$(Esc-Xml $methodName)</MethodName>"
|
||
|
||
$description = if ($def.description) { "$($def.description)" } else { $synonym }
|
||
X "$i<Description>$(Esc-Xml $description)</Description>"
|
||
|
||
$key = if ($def.key) { "$($def.key)" } else { "" }
|
||
X "$i<Key>$(Esc-Xml $key)</Key>"
|
||
|
||
$use = if ($def.use -eq $true) { "true" } else { "false" }
|
||
X "$i<Use>$use</Use>"
|
||
|
||
$predefined = if ($def.predefined -eq $true) { "true" } else { "false" }
|
||
X "$i<Predefined>$predefined</Predefined>"
|
||
|
||
$restartCount = if ($null -ne $def.restartCountOnFailure) { "$($def.restartCountOnFailure)" } else { "3" }
|
||
$restartInterval = if ($null -ne $def.restartIntervalOnFailure) { "$($def.restartIntervalOnFailure)" } else { "10" }
|
||
X "$i<RestartCountOnFailure>$restartCount</RestartCountOnFailure>"
|
||
X "$i<RestartIntervalOnFailure>$restartInterval</RestartIntervalOnFailure>"
|
||
}
|
||
|
||
function Emit-EventSubscriptionProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
|
||
# Source — array of v8:Type
|
||
$sources = @()
|
||
if ($def.source) { $sources = @($def.source) }
|
||
if ($sources.Count -gt 0) {
|
||
X "$i<Source>"
|
||
foreach ($src in $sources) {
|
||
$resolved = Resolve-TypeStr "$src"
|
||
X "$i`t<v8:Type xmlns:d5p1=`"http://v8.1c.ru/8.1/data/enterprise/current-config`">d5p1:$resolved</v8:Type>"
|
||
}
|
||
X "$i</Source>"
|
||
} else {
|
||
X "$i<Source/>"
|
||
}
|
||
|
||
$event = if ($def.event) { "$($def.event)" } else { "BeforeWrite" }
|
||
X "$i<Event>$event</Event>"
|
||
|
||
$handler = if ($def.handler) { "$($def.handler)" } else { "" }
|
||
# Ensure CommonModule. prefix
|
||
if ($handler -and -not $handler.StartsWith("CommonModule.")) {
|
||
$handler = "CommonModule.$handler"
|
||
}
|
||
X "$i<Handler>$(Esc-Xml $handler)</Handler>"
|
||
}
|
||
|
||
# --- 13b. Wave 2: Report, DataProcessor ---
|
||
|
||
function Emit-ReportProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
|
||
$defaultForm = if ($def.defaultForm) { "$($def.defaultForm)" } else { "" }
|
||
if ($defaultForm) { X "$i<DefaultForm>$defaultForm</DefaultForm>" } else { X "$i<DefaultForm/>" }
|
||
|
||
$auxForm = if ($def.auxiliaryForm) { "$($def.auxiliaryForm)" } else { "" }
|
||
if ($auxForm) { X "$i<AuxiliaryForm>$auxForm</AuxiliaryForm>" } else { X "$i<AuxiliaryForm/>" }
|
||
|
||
$mainDCS = if ($def.mainDataCompositionSchema) { "$($def.mainDataCompositionSchema)" } else { "" }
|
||
if ($mainDCS) { X "$i<MainDataCompositionSchema>$mainDCS</MainDataCompositionSchema>" } else { X "$i<MainDataCompositionSchema/>" }
|
||
|
||
$defSettings = if ($def.defaultSettingsForm) { "$($def.defaultSettingsForm)" } else { "" }
|
||
if ($defSettings) { X "$i<DefaultSettingsForm>$defSettings</DefaultSettingsForm>" } else { X "$i<DefaultSettingsForm/>" }
|
||
|
||
$auxSettings = if ($def.auxiliarySettingsForm) { "$($def.auxiliarySettingsForm)" } else { "" }
|
||
if ($auxSettings) { X "$i<AuxiliarySettingsForm>$auxSettings</AuxiliarySettingsForm>" } else { X "$i<AuxiliarySettingsForm/>" }
|
||
|
||
$defVariant = if ($def.defaultVariantForm) { "$($def.defaultVariantForm)" } else { "" }
|
||
if ($defVariant) { X "$i<DefaultVariantForm>$defVariant</DefaultVariantForm>" } else { X "$i<DefaultVariantForm/>" }
|
||
|
||
X "$i<VariantsStorage/>"
|
||
X "$i<SettingsStorage/>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<ExtendedPresentation/>"
|
||
X "$i<Explanation/>"
|
||
}
|
||
|
||
function Emit-DataProcessorProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>false</UseStandardCommands>"
|
||
|
||
$defaultForm = if ($def.defaultForm) { "$($def.defaultForm)" } else { "" }
|
||
if ($defaultForm) { X "$i<DefaultForm>$defaultForm</DefaultForm>" } else { X "$i<DefaultForm/>" }
|
||
|
||
$auxForm = if ($def.auxiliaryForm) { "$($def.auxiliaryForm)" } else { "" }
|
||
if ($auxForm) { X "$i<AuxiliaryForm>$auxForm</AuxiliaryForm>" } else { X "$i<AuxiliaryForm/>" }
|
||
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<ExtendedPresentation/>"
|
||
X "$i<Explanation/>"
|
||
}
|
||
|
||
# --- 13c. Wave 3: ExchangePlan, ChartOfCharacteristicTypes, DocumentJournal ---
|
||
|
||
function Emit-ExchangePlanProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
|
||
$codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" }
|
||
$descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "100" }
|
||
$codeAllowedLength = Get-EnumProp "CodeAllowedLength" "codeAllowedLength" "Variable"
|
||
|
||
X "$i<CodeLength>$codeLength</CodeLength>"
|
||
X "$i<CodeAllowedLength>$codeAllowedLength</CodeAllowedLength>"
|
||
X "$i<DescriptionLength>$descriptionLength</DescriptionLength>"
|
||
X "$i<DefaultPresentation>AsDescription</DefaultPresentation>"
|
||
X "$i<EditType>InDialog</EditType>"
|
||
|
||
Emit-StandardAttributes $i "ExchangePlan"
|
||
|
||
$distributed = if ($def.distributedInfoBase -eq $true) { "true" } else { "false" }
|
||
$includeExt = if ($def.includeConfigurationExtensions -eq $true) { "true" } else { "false" }
|
||
X "$i<DistributedInfoBase>$distributed</DistributedInfoBase>"
|
||
X "$i<IncludeConfigurationExtensions>$includeExt</IncludeConfigurationExtensions>"
|
||
|
||
X "$i<BasedOn/>"
|
||
$quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" }
|
||
X "$i<QuickChoice>$quickChoice</QuickChoice>"
|
||
X "$i<ChoiceMode>BothWays</ChoiceMode>"
|
||
X "$i<InputByString>"
|
||
X "$i`t<xr:Field>ExchangePlan.$objName.StandardAttribute.Description</xr:Field>"
|
||
X "$i`t<xr:Field>ExchangePlan.$objName.StandardAttribute.Code</xr:Field>"
|
||
X "$i</InputByString>"
|
||
X "$i<SearchStringModeOnInputByString>Begin</SearchStringModeOnInputByString>"
|
||
X "$i<FullTextSearchOnInputByString>DontUse</FullTextSearchOnInputByString>"
|
||
X "$i<ChoiceDataGetModeOnInputByString>Directly</ChoiceDataGetModeOnInputByString>"
|
||
X "$i<DefaultObjectForm/>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<DefaultChoiceForm/>"
|
||
X "$i<AuxiliaryObjectForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
X "$i<AuxiliaryChoiceForm/>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<DataLockFields/>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ObjectPresentation/>"
|
||
X "$i<ExtendedObjectPresentation/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<CreateOnInput>DontUse</CreateOnInput>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
X "$i<DataHistory>DontUse</DataHistory>"
|
||
X "$i<UpdateDataHistoryImmediatelyAfterWrite>false</UpdateDataHistoryImmediatelyAfterWrite>"
|
||
X "$i<ExecuteAfterWriteDataHistoryVersionProcessing>false</ExecuteAfterWriteDataHistoryVersionProcessing>"
|
||
}
|
||
|
||
function Emit-ChartOfCharacteristicTypesProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
|
||
$codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" }
|
||
$descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "25" }
|
||
$codeAllowedLength = Get-EnumProp "CodeAllowedLength" "codeAllowedLength" "Variable"
|
||
$autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" }
|
||
$checkUnique = if ($def.checkUnique -eq $true) { "true" } else { "false" }
|
||
|
||
X "$i<CodeLength>$codeLength</CodeLength>"
|
||
X "$i<CodeAllowedLength>$codeAllowedLength</CodeAllowedLength>"
|
||
X "$i<DescriptionLength>$descriptionLength</DescriptionLength>"
|
||
X "$i<CheckUnique>$checkUnique</CheckUnique>"
|
||
X "$i<Autonumbering>$autonumbering</Autonumbering>"
|
||
X "$i<DefaultPresentation>AsDescription</DefaultPresentation>"
|
||
|
||
# CharacteristicExtValues
|
||
$charExtValues = if ($def.characteristicExtValues) { "$($def.characteristicExtValues)" } else { "" }
|
||
if ($charExtValues) { X "$i<CharacteristicExtValues>$charExtValues</CharacteristicExtValues>" }
|
||
else { X "$i<CharacteristicExtValues/>" }
|
||
|
||
# Type — composite type of allowed characteristic value types
|
||
$valueTypes = @()
|
||
if ($def.valueTypes) { $valueTypes = @($def.valueTypes) }
|
||
if ($valueTypes.Count -gt 0) {
|
||
X "$i<Type>"
|
||
foreach ($vt in $valueTypes) {
|
||
Emit-TypeContent "$i`t" "$vt"
|
||
}
|
||
X "$i</Type>"
|
||
} else {
|
||
X "$i<Type>"
|
||
X "$i`t<v8:Type>xs:boolean</v8:Type>"
|
||
X "$i`t<v8:Type>xs:string</v8:Type>"
|
||
X "$i`t<v8:StringQualifiers>"
|
||
X "$i`t`t<v8:Length>100</v8:Length>"
|
||
X "$i`t`t<v8:AllowedLength>Variable</v8:AllowedLength>"
|
||
X "$i`t</v8:StringQualifiers>"
|
||
X "$i`t<v8:Type>xs:decimal</v8:Type>"
|
||
X "$i`t<v8:NumberQualifiers>"
|
||
X "$i`t`t<v8:Digits>15</v8:Digits>"
|
||
X "$i`t`t<v8:FractionDigits>2</v8:FractionDigits>"
|
||
X "$i`t`t<v8:AllowedSign>Any</v8:AllowedSign>"
|
||
X "$i`t</v8:NumberQualifiers>"
|
||
X "$i`t<v8:Type>xs:dateTime</v8:Type>"
|
||
X "$i`t<v8:DateQualifiers>"
|
||
X "$i`t`t<v8:DateFractions>DateTime</v8:DateFractions>"
|
||
X "$i`t</v8:DateQualifiers>"
|
||
X "$i</Type>"
|
||
}
|
||
|
||
$hierarchical = if ($def.hierarchical -eq $true) { "true" } else { "false" }
|
||
X "$i<Hierarchical>$hierarchical</Hierarchical>"
|
||
X "$i<FoldersOnTop>true</FoldersOnTop>"
|
||
|
||
Emit-StandardAttributes $i "ChartOfCharacteristicTypes"
|
||
X "$i<Characteristics/>"
|
||
X "$i<PredefinedDataUpdate>Auto</PredefinedDataUpdate>"
|
||
X "$i<EditType>InDialog</EditType>"
|
||
$quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" }
|
||
X "$i<QuickChoice>$quickChoice</QuickChoice>"
|
||
X "$i<ChoiceMode>BothWays</ChoiceMode>"
|
||
X "$i<InputByString>"
|
||
X "$i`t<xr:Field>ChartOfCharacteristicTypes.$objName.StandardAttribute.Description</xr:Field>"
|
||
X "$i`t<xr:Field>ChartOfCharacteristicTypes.$objName.StandardAttribute.Code</xr:Field>"
|
||
X "$i</InputByString>"
|
||
X "$i<SearchStringModeOnInputByString>Begin</SearchStringModeOnInputByString>"
|
||
X "$i<FullTextSearchOnInputByString>DontUse</FullTextSearchOnInputByString>"
|
||
X "$i<ChoiceDataGetModeOnInputByString>Directly</ChoiceDataGetModeOnInputByString>"
|
||
X "$i<DefaultObjectForm/>"
|
||
X "$i<DefaultFolderForm/>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<DefaultChoiceForm/>"
|
||
X "$i<DefaultFolderChoiceForm/>"
|
||
X "$i<AuxiliaryObjectForm/>"
|
||
X "$i<AuxiliaryFolderForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
X "$i<AuxiliaryChoiceForm/>"
|
||
X "$i<AuxiliaryFolderChoiceForm/>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<BasedOn/>"
|
||
X "$i<DataLockFields/>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ObjectPresentation/>"
|
||
X "$i<ExtendedObjectPresentation/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<CreateOnInput>DontUse</CreateOnInput>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
X "$i<DataHistory>DontUse</DataHistory>"
|
||
X "$i<UpdateDataHistoryImmediatelyAfterWrite>false</UpdateDataHistoryImmediatelyAfterWrite>"
|
||
X "$i<ExecuteAfterWriteDataHistoryVersionProcessing>false</ExecuteAfterWriteDataHistoryVersionProcessing>"
|
||
}
|
||
|
||
function Emit-DocumentJournalProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
|
||
$defaultForm = if ($def.defaultForm) { "$($def.defaultForm)" } else { "" }
|
||
if ($defaultForm) { X "$i<DefaultForm>$defaultForm</DefaultForm>" } else { X "$i<DefaultForm/>" }
|
||
|
||
$auxForm = if ($def.auxiliaryForm) { "$($def.auxiliaryForm)" } else { "" }
|
||
if ($auxForm) { X "$i<AuxiliaryForm>$auxForm</AuxiliaryForm>" } else { X "$i<AuxiliaryForm/>" }
|
||
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
|
||
# RegisteredDocuments
|
||
$regDocs = @()
|
||
if ($def.registeredDocuments) { $regDocs = @($def.registeredDocuments) }
|
||
if ($regDocs.Count -gt 0) {
|
||
X "$i<RegisteredDocuments>"
|
||
foreach ($rd in $regDocs) {
|
||
$rdStr = "$rd"
|
||
# Resolve Russian synonyms: Документ.Xxx → Document.Xxx
|
||
if ($rdStr.Contains('.')) {
|
||
$dotIdx = $rdStr.IndexOf('.')
|
||
$rdPrefix = $rdStr.Substring(0, $dotIdx)
|
||
$rdSuffix = $rdStr.Substring($dotIdx + 1)
|
||
if ($script:objectTypeSynonyms.ContainsKey($rdPrefix)) {
|
||
$rdPrefix = $script:objectTypeSynonyms[$rdPrefix]
|
||
}
|
||
$rdStr = "$rdPrefix.$rdSuffix"
|
||
}
|
||
X "$i`t<xr:Item xsi:type=`"xr:MDObjectRef`">$rdStr</xr:Item>"
|
||
}
|
||
X "$i</RegisteredDocuments>"
|
||
} else {
|
||
X "$i<RegisteredDocuments/>"
|
||
}
|
||
|
||
Emit-StandardAttributes $i "DocumentJournal"
|
||
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
}
|
||
|
||
# --- 13d. Wave 4: ChartOfAccounts, AccountingRegister, ChartOfCalculationTypes, CalculationRegister ---
|
||
|
||
function Emit-ChartOfAccountsProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
|
||
# ExtDimensionTypes
|
||
$extDimTypes = if ($def.extDimensionTypes) { "$($def.extDimensionTypes)" } else { "" }
|
||
if ($extDimTypes) { X "$i<ExtDimensionTypes>$extDimTypes</ExtDimensionTypes>" }
|
||
else { X "$i<ExtDimensionTypes/>" }
|
||
|
||
$maxExtDim = if ($null -ne $def.maxExtDimensionCount) { "$($def.maxExtDimensionCount)" } else { "3" }
|
||
X "$i<MaxExtDimensionCount>$maxExtDim</MaxExtDimensionCount>"
|
||
|
||
$codeMask = if ($def.codeMask) { "$($def.codeMask)" } else { "" }
|
||
if ($codeMask) { X "$i<CodeMask>$codeMask</CodeMask>" } else { X "$i<CodeMask/>" }
|
||
|
||
$codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "8" }
|
||
$descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "120" }
|
||
$codeSeries = if ($def.codeSeries) { "$($def.codeSeries)" } else { "WholeChartOfAccounts" }
|
||
$autoOrder = if ($def.autoOrderByCode -eq $false) { "false" } else { "true" }
|
||
$orderLength = if ($null -ne $def.orderLength) { "$($def.orderLength)" } else { "5" }
|
||
|
||
X "$i<CodeLength>$codeLength</CodeLength>"
|
||
X "$i<DescriptionLength>$descriptionLength</DescriptionLength>"
|
||
X "$i<CodeSeries>$codeSeries</CodeSeries>"
|
||
X "$i<CheckUnique>false</CheckUnique>"
|
||
X "$i<DefaultPresentation>AsDescription</DefaultPresentation>"
|
||
X "$i<AutoOrderByCode>$autoOrder</AutoOrderByCode>"
|
||
X "$i<OrderLength>$orderLength</OrderLength>"
|
||
|
||
X "$i<EditType>InDialog</EditType>"
|
||
|
||
Emit-StandardAttributes $i "ChartOfAccounts"
|
||
|
||
# StandardTabularSections — ExtDimensionTypes
|
||
X "$i<StandardTabularSections>"
|
||
X "$i`t<xr:StandardTabularSection name=`"ExtDimensionTypes`">"
|
||
X "$i`t`t<xr:StandardAttributes>"
|
||
foreach ($stAttr in @("TurnoversOnly","Predefined","ExtDimensionType","LineNumber")) {
|
||
Emit-StandardAttribute "$i`t`t`t" $stAttr
|
||
}
|
||
X "$i`t`t</xr:StandardAttributes>"
|
||
X "$i`t</xr:StandardTabularSection>"
|
||
X "$i</StandardTabularSections>"
|
||
|
||
X "$i<Characteristics/>"
|
||
X "$i<PredefinedDataUpdate>Auto</PredefinedDataUpdate>"
|
||
$quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" }
|
||
X "$i<QuickChoice>$quickChoice</QuickChoice>"
|
||
X "$i<ChoiceMode>BothWays</ChoiceMode>"
|
||
X "$i<InputByString>"
|
||
X "$i`t<xr:Field>ChartOfAccounts.$objName.StandardAttribute.Description</xr:Field>"
|
||
X "$i`t<xr:Field>ChartOfAccounts.$objName.StandardAttribute.Code</xr:Field>"
|
||
X "$i</InputByString>"
|
||
X "$i<SearchStringModeOnInputByString>Begin</SearchStringModeOnInputByString>"
|
||
X "$i<FullTextSearchOnInputByString>DontUse</FullTextSearchOnInputByString>"
|
||
X "$i<ChoiceDataGetModeOnInputByString>Directly</ChoiceDataGetModeOnInputByString>"
|
||
X "$i<DefaultObjectForm/>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<DefaultChoiceForm/>"
|
||
X "$i<AuxiliaryObjectForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
X "$i<AuxiliaryChoiceForm/>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<BasedOn/>"
|
||
X "$i<DataLockFields/>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ObjectPresentation/>"
|
||
X "$i<ExtendedObjectPresentation/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<CreateOnInput>DontUse</CreateOnInput>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
X "$i<DataHistory>DontUse</DataHistory>"
|
||
X "$i<UpdateDataHistoryImmediatelyAfterWrite>false</UpdateDataHistoryImmediatelyAfterWrite>"
|
||
X "$i<ExecuteAfterWriteDataHistoryVersionProcessing>false</ExecuteAfterWriteDataHistoryVersionProcessing>"
|
||
}
|
||
|
||
function Emit-AccountingRegisterProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
|
||
$chartOfAccounts = if ($def.chartOfAccounts) { "$($def.chartOfAccounts)" } else { "" }
|
||
if ($chartOfAccounts) { X "$i<ChartOfAccounts>$chartOfAccounts</ChartOfAccounts>" }
|
||
else { X "$i<ChartOfAccounts/>" }
|
||
|
||
$correspondence = if ($def.correspondence -eq $true) { "true" } else { "false" }
|
||
X "$i<Correspondence>$correspondence</Correspondence>"
|
||
|
||
$periodAdjLen = if ($null -ne $def.periodAdjustmentLength) { "$($def.periodAdjustmentLength)" } else { "0" }
|
||
X "$i<PeriodAdjustmentLength>$periodAdjLen</PeriodAdjustmentLength>"
|
||
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
|
||
Emit-StandardAttributes $i "AccountingRegister"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
}
|
||
|
||
function Emit-ChartOfCalculationTypesProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
|
||
$codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" }
|
||
$descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "25" }
|
||
$codeType = Get-EnumProp "CodeType" "codeType" "String"
|
||
$codeAllowedLength = Get-EnumProp "CodeAllowedLength" "codeAllowedLength" "Variable"
|
||
|
||
X "$i<CodeLength>$codeLength</CodeLength>"
|
||
X "$i<CodeType>$codeType</CodeType>"
|
||
X "$i<CodeAllowedLength>$codeAllowedLength</CodeAllowedLength>"
|
||
X "$i<DescriptionLength>$descriptionLength</DescriptionLength>"
|
||
X "$i<DefaultPresentation>AsDescription</DefaultPresentation>"
|
||
|
||
$dependence = Get-EnumProp "DependenceOnCalculationTypes" "dependenceOnCalculationTypes" "DontUse"
|
||
X "$i<DependenceOnCalculationTypes>$dependence</DependenceOnCalculationTypes>"
|
||
|
||
# BaseCalculationTypes
|
||
$baseTypes = @()
|
||
if ($def.baseCalculationTypes) { $baseTypes = @($def.baseCalculationTypes) }
|
||
if ($baseTypes.Count -gt 0) {
|
||
X "$i<BaseCalculationTypes>"
|
||
foreach ($bt in $baseTypes) {
|
||
X "$i`t<xr:Item xsi:type=`"xr:MDObjectRef`">$bt</xr:Item>"
|
||
}
|
||
X "$i</BaseCalculationTypes>"
|
||
} else {
|
||
X "$i<BaseCalculationTypes/>"
|
||
}
|
||
|
||
$actionPeriodUse = if ($def.actionPeriodUse -eq $true) { "true" } else { "false" }
|
||
X "$i<ActionPeriodUse>$actionPeriodUse</ActionPeriodUse>"
|
||
|
||
Emit-StandardAttributes $i "ChartOfCalculationTypes"
|
||
X "$i<Characteristics/>"
|
||
X "$i<PredefinedDataUpdate>Auto</PredefinedDataUpdate>"
|
||
X "$i<EditType>InDialog</EditType>"
|
||
$quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" }
|
||
X "$i<QuickChoice>$quickChoice</QuickChoice>"
|
||
X "$i<ChoiceMode>BothWays</ChoiceMode>"
|
||
X "$i<InputByString>"
|
||
X "$i`t<xr:Field>ChartOfCalculationTypes.$objName.StandardAttribute.Description</xr:Field>"
|
||
X "$i`t<xr:Field>ChartOfCalculationTypes.$objName.StandardAttribute.Code</xr:Field>"
|
||
X "$i</InputByString>"
|
||
X "$i<SearchStringModeOnInputByString>Begin</SearchStringModeOnInputByString>"
|
||
X "$i<FullTextSearchOnInputByString>DontUse</FullTextSearchOnInputByString>"
|
||
X "$i<ChoiceDataGetModeOnInputByString>Directly</ChoiceDataGetModeOnInputByString>"
|
||
X "$i<DefaultObjectForm/>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<DefaultChoiceForm/>"
|
||
X "$i<AuxiliaryObjectForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
X "$i<AuxiliaryChoiceForm/>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<BasedOn/>"
|
||
X "$i<DataLockFields/>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ObjectPresentation/>"
|
||
X "$i<ExtendedObjectPresentation/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<CreateOnInput>DontUse</CreateOnInput>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
}
|
||
|
||
function Emit-CalculationRegisterProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
|
||
$chartOfCalcTypes = if ($def.chartOfCalculationTypes) { "$($def.chartOfCalculationTypes)" } else { "" }
|
||
if ($chartOfCalcTypes) { X "$i<ChartOfCalculationTypes>$chartOfCalcTypes</ChartOfCalculationTypes>" }
|
||
else { X "$i<ChartOfCalculationTypes/>" }
|
||
|
||
$periodicity = Get-EnumProp "InformationRegisterPeriodicity" "periodicity" "Month"
|
||
X "$i<Periodicity>$periodicity</Periodicity>"
|
||
|
||
$actionPeriod = if ($def.actionPeriod -eq $true) { "true" } else { "false" }
|
||
X "$i<ActionPeriod>$actionPeriod</ActionPeriod>"
|
||
|
||
$basePeriod = if ($def.basePeriod -eq $true) { "true" } else { "false" }
|
||
X "$i<BasePeriod>$basePeriod</BasePeriod>"
|
||
|
||
$schedule = if ($def.schedule) { "$($def.schedule)" } else { "" }
|
||
if ($schedule) { X "$i<Schedule>$schedule</Schedule>" } else { X "$i<Schedule/>" }
|
||
|
||
$scheduleValue = if ($def.scheduleValue) { "$($def.scheduleValue)" } else { "" }
|
||
if ($scheduleValue) { X "$i<ScheduleValue>$scheduleValue</ScheduleValue>" } else { X "$i<ScheduleValue/>" }
|
||
|
||
$scheduleDate = if ($def.scheduleDate) { "$($def.scheduleDate)" } else { "" }
|
||
if ($scheduleDate) { X "$i<ScheduleDate>$scheduleDate</ScheduleDate>" } else { X "$i<ScheduleDate/>" }
|
||
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
|
||
Emit-StandardAttributes $i "CalculationRegister"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
}
|
||
|
||
# --- 13e. Wave 5: BusinessProcess, Task ---
|
||
|
||
function Emit-BusinessProcessProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
|
||
$editType = Get-EnumProp "EditType" "editType" "InDialog"
|
||
X "$i<EditType>$editType</EditType>"
|
||
|
||
$numberType = Get-EnumProp "NumberType" "numberType" "String"
|
||
$numberLength = if ($null -ne $def.numberLength) { "$($def.numberLength)" } else { "11" }
|
||
$numberAllowedLength = Get-EnumProp "NumberAllowedLength" "numberAllowedLength" "Variable"
|
||
$checkUnique = if ($def.checkUnique -eq $false) { "false" } else { "true" }
|
||
$autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" }
|
||
|
||
X "$i<NumberType>$numberType</NumberType>"
|
||
X "$i<NumberLength>$numberLength</NumberLength>"
|
||
X "$i<NumberAllowedLength>$numberAllowedLength</NumberAllowedLength>"
|
||
X "$i<CheckUnique>$checkUnique</CheckUnique>"
|
||
X "$i<Autonumbering>$autonumbering</Autonumbering>"
|
||
|
||
Emit-StandardAttributes $i "BusinessProcess"
|
||
X "$i<Characteristics/>"
|
||
|
||
$task = if ($def.task) { "$($def.task)" } else { "" }
|
||
if ($task) {
|
||
X "$i<Task>$task</Task>"
|
||
} else {
|
||
X "$i<Task/>"
|
||
}
|
||
|
||
X "$i<BasedOn/>"
|
||
X "$i<InputByString>"
|
||
X "$i`t<xr:Field>BusinessProcess.$objName.StandardAttribute.Number</xr:Field>"
|
||
X "$i</InputByString>"
|
||
X "$i<CreateOnInput>DontUse</CreateOnInput>"
|
||
X "$i<SearchStringModeOnInputByString>Begin</SearchStringModeOnInputByString>"
|
||
X "$i<FullTextSearchOnInputByString>DontUse</FullTextSearchOnInputByString>"
|
||
X "$i<ChoiceDataGetModeOnInputByString>Directly</ChoiceDataGetModeOnInputByString>"
|
||
X "$i<DefaultObjectForm/>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<DefaultChoiceForm/>"
|
||
X "$i<AuxiliaryObjectForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
X "$i<AuxiliaryChoiceForm/>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<DataLockFields/>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ObjectPresentation/>"
|
||
X "$i<ExtendedObjectPresentation/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
X "$i<DataHistory>DontUse</DataHistory>"
|
||
X "$i<UpdateDataHistoryImmediatelyAfterWrite>false</UpdateDataHistoryImmediatelyAfterWrite>"
|
||
X "$i<ExecuteAfterWriteDataHistoryVersionProcessing>false</ExecuteAfterWriteDataHistoryVersionProcessing>"
|
||
}
|
||
|
||
function Emit-TaskProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
X "$i<UseStandardCommands>true</UseStandardCommands>"
|
||
|
||
$numberType = Get-EnumProp "NumberType" "numberType" "String"
|
||
$numberLength = if ($null -ne $def.numberLength) { "$($def.numberLength)" } else { "14" }
|
||
$numberAllowedLength = Get-EnumProp "NumberAllowedLength" "numberAllowedLength" "Variable"
|
||
$checkUnique = if ($def.checkUnique -eq $false) { "false" } else { "true" }
|
||
$autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" }
|
||
|
||
$taskNumberAutoPrefix = if ($def.taskNumberAutoPrefix) { "$($def.taskNumberAutoPrefix)" } else { "BusinessProcessNumber" }
|
||
$descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "150" }
|
||
|
||
X "$i<NumberType>$numberType</NumberType>"
|
||
X "$i<NumberLength>$numberLength</NumberLength>"
|
||
X "$i<NumberAllowedLength>$numberAllowedLength</NumberAllowedLength>"
|
||
X "$i<CheckUnique>$checkUnique</CheckUnique>"
|
||
X "$i<Autonumbering>$autonumbering</Autonumbering>"
|
||
X "$i<TaskNumberAutoPrefix>$taskNumberAutoPrefix</TaskNumberAutoPrefix>"
|
||
X "$i<DescriptionLength>$descriptionLength</DescriptionLength>"
|
||
|
||
# Addressing
|
||
$addressing = if ($def.addressing) { "$($def.addressing)" } else { "" }
|
||
if ($addressing) { X "$i<Addressing>$addressing</Addressing>" } else { X "$i<Addressing/>" }
|
||
|
||
$mainAddressing = if ($def.mainAddressingAttribute) { "$($def.mainAddressingAttribute)" } else { "" }
|
||
if ($mainAddressing) { X "$i<MainAddressingAttribute>$mainAddressing</MainAddressingAttribute>" } else { X "$i<MainAddressingAttribute/>" }
|
||
|
||
$currentPerformer = if ($def.currentPerformer) { "$($def.currentPerformer)" } else { "" }
|
||
if ($currentPerformer) { X "$i<CurrentPerformer>$currentPerformer</CurrentPerformer>" } else { X "$i<CurrentPerformer/>" }
|
||
|
||
Emit-StandardAttributes $i "Task"
|
||
X "$i<Characteristics/>"
|
||
|
||
X "$i<BasedOn/>"
|
||
X "$i<InputByString>"
|
||
X "$i`t<xr:Field>Task.$objName.StandardAttribute.Number</xr:Field>"
|
||
X "$i</InputByString>"
|
||
X "$i<CreateOnInput>DontUse</CreateOnInput>"
|
||
X "$i<SearchStringModeOnInputByString>Begin</SearchStringModeOnInputByString>"
|
||
X "$i<FullTextSearchOnInputByString>DontUse</FullTextSearchOnInputByString>"
|
||
X "$i<ChoiceDataGetModeOnInputByString>Directly</ChoiceDataGetModeOnInputByString>"
|
||
X "$i<DefaultObjectForm/>"
|
||
X "$i<DefaultListForm/>"
|
||
X "$i<DefaultChoiceForm/>"
|
||
X "$i<AuxiliaryObjectForm/>"
|
||
X "$i<AuxiliaryListForm/>"
|
||
X "$i<AuxiliaryChoiceForm/>"
|
||
X "$i<IncludeHelpInContents>false</IncludeHelpInContents>"
|
||
X "$i<DataLockFields/>"
|
||
|
||
$dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic"
|
||
X "$i<DataLockControlMode>$dataLockControlMode</DataLockControlMode>"
|
||
|
||
$fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use"
|
||
X "$i<FullTextSearch>$fullTextSearch</FullTextSearch>"
|
||
|
||
X "$i<ObjectPresentation/>"
|
||
X "$i<ExtendedObjectPresentation/>"
|
||
X "$i<ListPresentation/>"
|
||
X "$i<ExtendedListPresentation/>"
|
||
X "$i<Explanation/>"
|
||
X "$i<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
X "$i<DataHistory>DontUse</DataHistory>"
|
||
X "$i<UpdateDataHistoryImmediatelyAfterWrite>false</UpdateDataHistoryImmediatelyAfterWrite>"
|
||
X "$i<ExecuteAfterWriteDataHistoryVersionProcessing>false</ExecuteAfterWriteDataHistoryVersionProcessing>"
|
||
}
|
||
|
||
# --- 13f. Wave 6: HTTPService, WebService ---
|
||
|
||
function Emit-HTTPServiceProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
|
||
$rootURL = if ($def.rootURL) { "$($def.rootURL)" } else { $objName.ToLower() }
|
||
X "$i<RootURL>$(Esc-Xml $rootURL)</RootURL>"
|
||
|
||
$reuseSessions = Get-EnumProp "ReuseSessions" "reuseSessions" "DontUse"
|
||
X "$i<ReuseSessions>$reuseSessions</ReuseSessions>"
|
||
|
||
$sessionMaxAge = if ($null -ne $def.sessionMaxAge) { "$($def.sessionMaxAge)" } else { "20" }
|
||
X "$i<SessionMaxAge>$sessionMaxAge</SessionMaxAge>"
|
||
}
|
||
|
||
function Emit-WebServiceProperties {
|
||
param([string]$indent)
|
||
$i = $indent
|
||
|
||
X "$i<Name>$(Esc-Xml $objName)</Name>"
|
||
Emit-MLText $i "Synonym" $synonym
|
||
X "$i<Comment/>"
|
||
|
||
$namespace = if ($def.namespace) { "$($def.namespace)" } else { "" }
|
||
X "$i<Namespace>$(Esc-Xml $namespace)</Namespace>"
|
||
|
||
$xdtoPackages = if ($def.xdtoPackages) { "$($def.xdtoPackages)" } else { "" }
|
||
if ($xdtoPackages) { X "$i<XDTOPackages>$xdtoPackages</XDTOPackages>" } else { X "$i<XDTOPackages/>" }
|
||
|
||
$reuseSessions = Get-EnumProp "ReuseSessions" "reuseSessions" "DontUse"
|
||
X "$i<ReuseSessions>$reuseSessions</ReuseSessions>"
|
||
|
||
$sessionMaxAge = if ($null -ne $def.sessionMaxAge) { "$($def.sessionMaxAge)" } else { "20" }
|
||
X "$i<SessionMaxAge>$sessionMaxAge</SessionMaxAge>"
|
||
}
|
||
|
||
# --- 13g. ChildObjects emitters for new types ---
|
||
|
||
function Emit-Column {
|
||
param([string]$indent, $colDef)
|
||
$uuid = New-Guid-String
|
||
|
||
$name = ""
|
||
$synonym = ""
|
||
$indexing = "DontIndex"
|
||
$references = @()
|
||
|
||
if ($colDef -is [string]) {
|
||
$name = "$colDef"
|
||
$synonym = Split-CamelCase $name
|
||
} else {
|
||
$name = "$($colDef.name)"
|
||
$synonym = if ($colDef.synonym) { "$($colDef.synonym)" } else { Split-CamelCase $name }
|
||
if ($colDef.indexing) { $indexing = "$($colDef.indexing)" }
|
||
if ($colDef.references) { $references = @($colDef.references) }
|
||
}
|
||
|
||
X "$indent<Column uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $name)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $synonym
|
||
X "$indent`t`t<Comment/>"
|
||
X "$indent`t`t<Indexing>$indexing</Indexing>"
|
||
if ($references.Count -gt 0) {
|
||
X "$indent`t`t<References>"
|
||
foreach ($ref in $references) {
|
||
X "$indent`t`t`t<xr:Item xsi:type=`"xr:MDObjectRef`">$ref</xr:Item>"
|
||
}
|
||
X "$indent`t`t</References>"
|
||
} else {
|
||
X "$indent`t`t<References/>"
|
||
}
|
||
X "$indent`t</Properties>"
|
||
X "$indent</Column>"
|
||
}
|
||
|
||
function Emit-AccountingFlag {
|
||
param([string]$indent, [string]$flagName)
|
||
$uuid = New-Guid-String
|
||
$flagSynonym = Split-CamelCase $flagName
|
||
|
||
X "$indent<AccountingFlag uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $flagName)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $flagSynonym
|
||
X "$indent`t`t<Comment/>"
|
||
X "$indent`t`t<Type>"
|
||
X "$indent`t`t`t<v8:Type>xs:boolean</v8:Type>"
|
||
X "$indent`t`t</Type>"
|
||
X "$indent`t`t<PasswordMode>false</PasswordMode>"
|
||
X "$indent`t`t<Format/>"
|
||
X "$indent`t`t<EditFormat/>"
|
||
X "$indent`t`t<ToolTip/>"
|
||
X "$indent`t`t<MarkNegatives>false</MarkNegatives>"
|
||
X "$indent`t`t<Mask/>"
|
||
X "$indent`t`t<MultiLine>false</MultiLine>"
|
||
X "$indent`t`t<ExtendedEdit>false</ExtendedEdit>"
|
||
X "$indent`t`t<MinValue xsi:nil=`"true`"/>"
|
||
X "$indent`t`t<MaxValue xsi:nil=`"true`"/>"
|
||
X "$indent`t`t<FillChecking>DontCheck</FillChecking>"
|
||
X "$indent`t`t<ChoiceParameterLinks/>"
|
||
X "$indent`t`t<ChoiceParameters/>"
|
||
X "$indent`t`t<QuickChoice>Auto</QuickChoice>"
|
||
X "$indent`t`t<ChoiceForm/>"
|
||
X "$indent`t`t<LinkByType/>"
|
||
X "$indent`t`t<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
X "$indent`t</Properties>"
|
||
X "$indent</AccountingFlag>"
|
||
}
|
||
|
||
function Emit-ExtDimensionAccountingFlag {
|
||
param([string]$indent, [string]$flagName)
|
||
$uuid = New-Guid-String
|
||
$flagSynonym = Split-CamelCase $flagName
|
||
|
||
X "$indent<ExtDimensionAccountingFlag uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $flagName)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $flagSynonym
|
||
X "$indent`t`t<Comment/>"
|
||
X "$indent`t`t<Type>"
|
||
X "$indent`t`t`t<v8:Type>xs:boolean</v8:Type>"
|
||
X "$indent`t`t</Type>"
|
||
X "$indent`t`t<PasswordMode>false</PasswordMode>"
|
||
X "$indent`t`t<Format/>"
|
||
X "$indent`t`t<EditFormat/>"
|
||
X "$indent`t`t<ToolTip/>"
|
||
X "$indent`t`t<MarkNegatives>false</MarkNegatives>"
|
||
X "$indent`t`t<Mask/>"
|
||
X "$indent`t`t<MultiLine>false</MultiLine>"
|
||
X "$indent`t`t<ExtendedEdit>false</ExtendedEdit>"
|
||
X "$indent`t`t<MinValue xsi:nil=`"true`"/>"
|
||
X "$indent`t`t<MaxValue xsi:nil=`"true`"/>"
|
||
X "$indent`t`t<FillChecking>DontCheck</FillChecking>"
|
||
X "$indent`t`t<ChoiceParameterLinks/>"
|
||
X "$indent`t`t<ChoiceParameters/>"
|
||
X "$indent`t`t<QuickChoice>Auto</QuickChoice>"
|
||
X "$indent`t`t<ChoiceForm/>"
|
||
X "$indent`t`t<LinkByType/>"
|
||
X "$indent`t`t<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>"
|
||
X "$indent`t</Properties>"
|
||
X "$indent</ExtDimensionAccountingFlag>"
|
||
}
|
||
|
||
function Emit-URLTemplate {
|
||
param([string]$indent, [string]$tmplName, $tmplDef)
|
||
$uuid = New-Guid-String
|
||
$tmplSynonym = Split-CamelCase $tmplName
|
||
|
||
$template = ""
|
||
$methods = @{}
|
||
|
||
if ($tmplDef -is [string]) {
|
||
$template = "$tmplDef"
|
||
} else {
|
||
$template = if ($tmplDef.template) { "$($tmplDef.template)" } else { "/$($tmplName.ToLower())" }
|
||
if ($tmplDef.methods) {
|
||
$tmplDef.methods.PSObject.Properties | ForEach-Object {
|
||
$methods[$_.Name] = "$($_.Value)"
|
||
}
|
||
}
|
||
}
|
||
|
||
X "$indent<URLTemplate uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $tmplName)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $tmplSynonym
|
||
X "$indent`t`t<Template>$(Esc-Xml $template)</Template>"
|
||
X "$indent`t</Properties>"
|
||
|
||
if ($methods.Count -gt 0) {
|
||
X "$indent`t<ChildObjects>"
|
||
foreach ($methodName in $methods.Keys) {
|
||
$methodUuid = New-Guid-String
|
||
$httpMethod = $methods[$methodName]
|
||
$methodSynonym = Split-CamelCase $methodName
|
||
$handler = "${tmplName}${methodName}"
|
||
|
||
X "$indent`t`t<Method uuid=`"$methodUuid`">"
|
||
X "$indent`t`t`t<Properties>"
|
||
X "$indent`t`t`t`t<Name>$(Esc-Xml $methodName)</Name>"
|
||
Emit-MLText "$indent`t`t`t`t" "Synonym" $methodSynonym
|
||
X "$indent`t`t`t`t<HTTPMethod>$httpMethod</HTTPMethod>"
|
||
X "$indent`t`t`t`t<Handler>$(Esc-Xml $handler)</Handler>"
|
||
X "$indent`t`t`t</Properties>"
|
||
X "$indent`t`t</Method>"
|
||
}
|
||
X "$indent`t</ChildObjects>"
|
||
} else {
|
||
X "$indent`t<ChildObjects/>"
|
||
}
|
||
|
||
X "$indent</URLTemplate>"
|
||
}
|
||
|
||
function Emit-Operation {
|
||
param([string]$indent, [string]$opName, $opDef)
|
||
$uuid = New-Guid-String
|
||
$opSynonym = Split-CamelCase $opName
|
||
|
||
$returnType = "xs:string"
|
||
$nillable = "false"
|
||
$transactioned = "false"
|
||
$handler = $opName
|
||
$params = @{}
|
||
|
||
if ($opDef -is [string]) {
|
||
$returnType = "$opDef"
|
||
} else {
|
||
if ($opDef.returnType) { $returnType = "$($opDef.returnType)" }
|
||
if ($opDef.nillable -eq $true) { $nillable = "true" }
|
||
if ($opDef.transactioned -eq $true) { $transactioned = "true" }
|
||
if ($opDef.handler) { $handler = "$($opDef.handler)" }
|
||
if ($opDef.parameters) {
|
||
$opDef.parameters.PSObject.Properties | ForEach-Object {
|
||
$params[$_.Name] = $_.Value
|
||
}
|
||
}
|
||
}
|
||
|
||
X "$indent<Operation uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $opName)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $opSynonym
|
||
X "$indent`t`t<Comment/>"
|
||
X "$indent`t`t<XDTOReturningValueType>$returnType</XDTOReturningValueType>"
|
||
X "$indent`t`t<Nillable>$nillable</Nillable>"
|
||
X "$indent`t`t<Transactioned>$transactioned</Transactioned>"
|
||
X "$indent`t`t<ProcedureName>$(Esc-Xml $handler)</ProcedureName>"
|
||
X "$indent`t</Properties>"
|
||
|
||
if ($params.Count -gt 0) {
|
||
X "$indent`t<ChildObjects>"
|
||
foreach ($paramName in $params.Keys) {
|
||
$paramUuid = New-Guid-String
|
||
$paramDef = $params[$paramName]
|
||
$paramSynonym = Split-CamelCase $paramName
|
||
$paramType = "xs:string"
|
||
$paramNillable = "true"
|
||
$paramDir = "In"
|
||
|
||
if ($paramDef -is [string]) {
|
||
$paramType = "$paramDef"
|
||
} else {
|
||
if ($paramDef.type) { $paramType = "$($paramDef.type)" }
|
||
if ($paramDef.nillable -eq $false) { $paramNillable = "false" }
|
||
if ($paramDef.direction) { $paramDir = "$($paramDef.direction)" }
|
||
}
|
||
|
||
X "$indent`t`t<Parameter uuid=`"$paramUuid`">"
|
||
X "$indent`t`t`t<Properties>"
|
||
X "$indent`t`t`t`t<Name>$(Esc-Xml $paramName)</Name>"
|
||
Emit-MLText "$indent`t`t`t`t" "Synonym" $paramSynonym
|
||
X "$indent`t`t`t`t<XDTOValueType>$paramType</XDTOValueType>"
|
||
X "$indent`t`t`t`t<Nillable>$paramNillable</Nillable>"
|
||
X "$indent`t`t`t`t<TransferDirection>$paramDir</TransferDirection>"
|
||
X "$indent`t`t`t</Properties>"
|
||
X "$indent`t`t</Parameter>"
|
||
}
|
||
X "$indent`t</ChildObjects>"
|
||
} else {
|
||
X "$indent`t<ChildObjects/>"
|
||
}
|
||
|
||
X "$indent</Operation>"
|
||
}
|
||
|
||
function Emit-AddressingAttribute {
|
||
param([string]$indent, $addrDef)
|
||
$uuid = New-Guid-String
|
||
|
||
$name = ""
|
||
$attrSynonym = ""
|
||
$typeStr = ""
|
||
$addressingDimension = ""
|
||
$indexing = "Index"
|
||
|
||
$parsed = Parse-AttributeShorthand $addrDef
|
||
$name = $parsed.name
|
||
$attrSynonym = $parsed.synonym
|
||
$typeStr = $parsed.type
|
||
if ($addrDef -isnot [string]) {
|
||
if ($addrDef.addressingDimension) { $addressingDimension = "$($addrDef.addressingDimension)" }
|
||
if ($addrDef.indexing) { $indexing = "$($addrDef.indexing)" }
|
||
}
|
||
|
||
X "$indent<AddressingAttribute uuid=`"$uuid`">"
|
||
X "$indent`t<Properties>"
|
||
X "$indent`t`t<Name>$(Esc-Xml $name)</Name>"
|
||
Emit-MLText "$indent`t`t" "Synonym" $attrSynonym
|
||
X "$indent`t`t<Comment/>"
|
||
|
||
if ($typeStr) {
|
||
Emit-ValueType "$indent`t`t" $typeStr
|
||
} else {
|
||
X "$indent`t`t<Type>"
|
||
X "$indent`t`t`t<v8:Type>xs:string</v8:Type>"
|
||
X "$indent`t`t</Type>"
|
||
}
|
||
|
||
if ($addressingDimension) {
|
||
X "$indent`t`t<AddressingDimension>$addressingDimension</AddressingDimension>"
|
||
} else {
|
||
X "$indent`t`t<AddressingDimension/>"
|
||
}
|
||
|
||
X "$indent`t`t<Indexing>$indexing</Indexing>"
|
||
X "$indent`t`t<FullTextSearch>Use</FullTextSearch>"
|
||
X "$indent`t`t<DataHistory>Use</DataHistory>"
|
||
X "$indent`t</Properties>"
|
||
X "$indent</AddressingAttribute>"
|
||
}
|
||
|
||
# --- 14. Namespaces ---
|
||
|
||
$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"'
|
||
|
||
# --- 14a. Detect format version from existing Configuration.xml ---
|
||
|
||
function Detect-FormatVersion([string]$dir) {
|
||
$d = $dir
|
||
while ($d) {
|
||
$cfgPath = Join-Path $d "Configuration.xml"
|
||
if (Test-Path $cfgPath) {
|
||
$head = [System.IO.File]::ReadAllText($cfgPath, [System.Text.Encoding]::UTF8).Substring(0, [Math]::Min(2000, (Get-Item $cfgPath).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 $OutputDir
|
||
|
||
# --- 15. Main assembler ---
|
||
|
||
$uuid = New-Guid-String
|
||
|
||
# XML declaration
|
||
X '<?xml version="1.0" encoding="UTF-8"?>'
|
||
X "<MetaDataObject $($script:xmlnsDecl) version=`"$($script:formatVersion)`">"
|
||
X "`t<$objType uuid=`"$uuid`">"
|
||
|
||
# InternalInfo
|
||
Emit-InternalInfo "`t`t" $objType $objName
|
||
|
||
# Properties
|
||
X "`t`t<Properties>"
|
||
|
||
switch ($objType) {
|
||
"Catalog" { Emit-CatalogProperties "`t`t`t" }
|
||
"Document" { Emit-DocumentProperties "`t`t`t" }
|
||
"Enum" { Emit-EnumProperties "`t`t`t" }
|
||
"Constant" { Emit-ConstantProperties "`t`t`t" }
|
||
"InformationRegister" { Emit-InformationRegisterProperties "`t`t`t" }
|
||
"AccumulationRegister" { Emit-AccumulationRegisterProperties "`t`t`t" }
|
||
"DefinedType" { Emit-DefinedTypeProperties "`t`t`t" }
|
||
"CommonModule" { Emit-CommonModuleProperties "`t`t`t" }
|
||
"ScheduledJob" { Emit-ScheduledJobProperties "`t`t`t" }
|
||
"EventSubscription" { Emit-EventSubscriptionProperties "`t`t`t" }
|
||
"Report" { Emit-ReportProperties "`t`t`t" }
|
||
"DataProcessor" { Emit-DataProcessorProperties "`t`t`t" }
|
||
"ExchangePlan" { Emit-ExchangePlanProperties "`t`t`t" }
|
||
"ChartOfCharacteristicTypes" { Emit-ChartOfCharacteristicTypesProperties "`t`t`t" }
|
||
"DocumentJournal" { Emit-DocumentJournalProperties "`t`t`t" }
|
||
"ChartOfAccounts" { Emit-ChartOfAccountsProperties "`t`t`t" }
|
||
"AccountingRegister" { Emit-AccountingRegisterProperties "`t`t`t" }
|
||
"ChartOfCalculationTypes" { Emit-ChartOfCalculationTypesProperties "`t`t`t" }
|
||
"CalculationRegister" { Emit-CalculationRegisterProperties "`t`t`t" }
|
||
"BusinessProcess" { Emit-BusinessProcessProperties "`t`t`t" }
|
||
"Task" { Emit-TaskProperties "`t`t`t" }
|
||
"HTTPService" { Emit-HTTPServiceProperties "`t`t`t" }
|
||
"WebService" { Emit-WebServiceProperties "`t`t`t" }
|
||
}
|
||
|
||
X "`t`t</Properties>"
|
||
|
||
# ChildObjects
|
||
$hasChildren = $false
|
||
|
||
# --- Types with Attributes + TabularSections ---
|
||
$typesWithAttrTS = @("Catalog","Document","Report","DataProcessor","ExchangePlan",
|
||
"ChartOfCharacteristicTypes","ChartOfAccounts","ChartOfCalculationTypes",
|
||
"BusinessProcess","Task")
|
||
|
||
if ($objType -in $typesWithAttrTS) {
|
||
$attrs = @()
|
||
if ($def.attributes) {
|
||
foreach ($a in $def.attributes) {
|
||
$attrs += Parse-AttributeShorthand $a
|
||
}
|
||
}
|
||
$tsSections = [ordered]@{}
|
||
if ($def.tabularSections) {
|
||
# Normalize array format: [{name:"X", attributes:[...]}, ...] → {"X": [...]}
|
||
if ($def.tabularSections -is [array] -or $def.tabularSections.GetType().Name -eq "Object[]") {
|
||
foreach ($ts in $def.tabularSections) {
|
||
$tsName = $ts.name
|
||
$tsCols = if ($ts.attributes) { @($ts.attributes) } else { @() }
|
||
$tsSections[$tsName] = $tsCols
|
||
}
|
||
} else {
|
||
$def.tabularSections.PSObject.Properties | ForEach-Object {
|
||
$tsSections[$_.Name] = @($_.Value)
|
||
}
|
||
}
|
||
}
|
||
|
||
# ChartOfAccounts: AccountingFlags + ExtDimensionAccountingFlags
|
||
$acctFlags = @()
|
||
$extDimFlags = @()
|
||
if ($objType -eq "ChartOfAccounts") {
|
||
if ($def.accountingFlags) { $acctFlags = @($def.accountingFlags) }
|
||
if ($def.extDimensionAccountingFlags) { $extDimFlags = @($def.extDimensionAccountingFlags) }
|
||
}
|
||
|
||
# Task: AddressingAttributes
|
||
$addrAttrs = @()
|
||
if ($objType -eq "Task" -and $def.addressingAttributes) {
|
||
$addrAttrs = @($def.addressingAttributes)
|
||
}
|
||
|
||
$childCount = $attrs.Count + $tsSections.Count + $acctFlags.Count + $extDimFlags.Count + $addrAttrs.Count
|
||
if ($childCount -gt 0) {
|
||
$hasChildren = $true
|
||
X "`t`t<ChildObjects>"
|
||
$context = switch ($objType) {
|
||
"Catalog" { "catalog" }
|
||
"Document" { "document" }
|
||
{ $_ -in @("DataProcessor","Report") } { "processor" }
|
||
{ $_ -in @("ChartOfAccounts","ChartOfCharacteristicTypes","ChartOfCalculationTypes") } { "chart" }
|
||
default { "object" }
|
||
}
|
||
foreach ($a in $attrs) {
|
||
Emit-Attribute "`t`t`t" $a $context
|
||
}
|
||
foreach ($tsName in $tsSections.Keys) {
|
||
$columns = $tsSections[$tsName]
|
||
Emit-TabularSection "`t`t`t" $tsName $columns $objType $objName
|
||
}
|
||
foreach ($af in $acctFlags) {
|
||
$afName = if ($af.name) { $af.name } else { "$af" }
|
||
Emit-AccountingFlag "`t`t`t" $afName
|
||
}
|
||
foreach ($edf in $extDimFlags) {
|
||
$edfName = if ($edf.name) { $edf.name } else { "$edf" }
|
||
Emit-ExtDimensionAccountingFlag "`t`t`t" $edfName
|
||
}
|
||
foreach ($aa in $addrAttrs) {
|
||
Emit-AddressingAttribute "`t`t`t" $aa
|
||
}
|
||
X "`t`t</ChildObjects>"
|
||
} else {
|
||
X "`t`t<ChildObjects/>"
|
||
}
|
||
}
|
||
|
||
# --- Enum: enum values ---
|
||
if ($objType -eq "Enum") {
|
||
$values = @()
|
||
if ($def.values) {
|
||
foreach ($v in $def.values) {
|
||
$values += Parse-EnumValueShorthand $v
|
||
}
|
||
}
|
||
if ($values.Count -gt 0) {
|
||
$hasChildren = $true
|
||
X "`t`t<ChildObjects>"
|
||
foreach ($v in $values) {
|
||
Emit-EnumValue "`t`t`t" $v
|
||
}
|
||
X "`t`t</ChildObjects>"
|
||
} else {
|
||
X "`t`t<ChildObjects/>"
|
||
}
|
||
}
|
||
|
||
# --- Constant, DefinedType, ScheduledJob, EventSubscription: no ChildObjects ---
|
||
|
||
# --- Registers: dimensions + resources + attributes ---
|
||
if ($objType -in @("InformationRegister","AccumulationRegister","AccountingRegister","CalculationRegister")) {
|
||
$dims = @()
|
||
$resources = @()
|
||
$regAttrs = @()
|
||
if ($def.dimensions) {
|
||
foreach ($d in $def.dimensions) {
|
||
$dims += Parse-AttributeShorthand $d
|
||
}
|
||
}
|
||
if ($def.resources) {
|
||
foreach ($r in $def.resources) {
|
||
$resources += Parse-AttributeShorthand $r
|
||
}
|
||
}
|
||
if ($def.attributes) {
|
||
foreach ($a in $def.attributes) {
|
||
$regAttrs += Parse-AttributeShorthand $a
|
||
}
|
||
}
|
||
|
||
if ($dims.Count -gt 0 -or $resources.Count -gt 0 -or $regAttrs.Count -gt 0) {
|
||
$hasChildren = $true
|
||
X "`t`t<ChildObjects>"
|
||
foreach ($r in $resources) {
|
||
Emit-Resource "`t`t`t" $r $objType
|
||
}
|
||
foreach ($d in $dims) {
|
||
Emit-Dimension "`t`t`t" $d $objType
|
||
}
|
||
# InformationRegister.Attribute supports FillFromFillingValue/FillValue/DataHistory;
|
||
# AccumulationRegister/AccountingRegister/CalculationRegister.Attribute do NOT.
|
||
$regCtx = if ($objType -eq "InformationRegister") { "register-info" } else { "register-other" }
|
||
foreach ($a in $regAttrs) {
|
||
Emit-Attribute "`t`t`t" $a $regCtx
|
||
}
|
||
X "`t`t</ChildObjects>"
|
||
} else {
|
||
X "`t`t<ChildObjects/>"
|
||
}
|
||
}
|
||
|
||
# --- DocumentJournal: columns ---
|
||
if ($objType -eq "DocumentJournal") {
|
||
$columns = @()
|
||
if ($def.columns) { $columns = @($def.columns) }
|
||
if ($columns.Count -gt 0) {
|
||
$hasChildren = $true
|
||
X "`t`t<ChildObjects>"
|
||
foreach ($col in $columns) {
|
||
Emit-Column "`t`t`t" $col
|
||
}
|
||
X "`t`t</ChildObjects>"
|
||
} else {
|
||
X "`t`t<ChildObjects/>"
|
||
}
|
||
}
|
||
|
||
# --- HTTPService: URLTemplates ---
|
||
if ($objType -eq "HTTPService") {
|
||
$urlTemplates = @{}
|
||
if ($def.urlTemplates) {
|
||
$def.urlTemplates.PSObject.Properties | ForEach-Object {
|
||
$urlTemplates[$_.Name] = $_.Value
|
||
}
|
||
}
|
||
if ($urlTemplates.Count -gt 0) {
|
||
$hasChildren = $true
|
||
X "`t`t<ChildObjects>"
|
||
foreach ($tmplName in $urlTemplates.Keys) {
|
||
Emit-URLTemplate "`t`t`t" $tmplName $urlTemplates[$tmplName]
|
||
}
|
||
X "`t`t</ChildObjects>"
|
||
} else {
|
||
X "`t`t<ChildObjects/>"
|
||
}
|
||
}
|
||
|
||
# --- WebService: Operations ---
|
||
if ($objType -eq "WebService") {
|
||
$operations = @{}
|
||
if ($def.operations) {
|
||
$def.operations.PSObject.Properties | ForEach-Object {
|
||
$operations[$_.Name] = $_.Value
|
||
}
|
||
}
|
||
if ($operations.Count -gt 0) {
|
||
$hasChildren = $true
|
||
X "`t`t<ChildObjects>"
|
||
foreach ($opName in $operations.Keys) {
|
||
Emit-Operation "`t`t`t" $opName $operations[$opName]
|
||
}
|
||
X "`t`t</ChildObjects>"
|
||
} else {
|
||
X "`t`t<ChildObjects/>"
|
||
}
|
||
}
|
||
|
||
# --- CommonModule: no ChildObjects ---
|
||
|
||
X "`t</$objType>"
|
||
X "</MetaDataObject>"
|
||
|
||
$metadataXml = $script:xml.ToString()
|
||
|
||
# --- 16. Write files ---
|
||
|
||
# Type → plural directory mapping
|
||
$script:typePluralMap = @{
|
||
"Catalog" = "Catalogs"
|
||
"Document" = "Documents"
|
||
"Enum" = "Enums"
|
||
"Constant" = "Constants"
|
||
"InformationRegister" = "InformationRegisters"
|
||
"AccumulationRegister" = "AccumulationRegisters"
|
||
"AccountingRegister" = "AccountingRegisters"
|
||
"CalculationRegister" = "CalculationRegisters"
|
||
"ChartOfAccounts" = "ChartsOfAccounts"
|
||
"ChartOfCharacteristicTypes"= "ChartsOfCharacteristicTypes"
|
||
"ChartOfCalculationTypes" = "ChartsOfCalculationTypes"
|
||
"BusinessProcess" = "BusinessProcesses"
|
||
"Task" = "Tasks"
|
||
"ExchangePlan" = "ExchangePlans"
|
||
"DocumentJournal" = "DocumentJournals"
|
||
"Report" = "Reports"
|
||
"DataProcessor" = "DataProcessors"
|
||
"CommonModule" = "CommonModules"
|
||
"ScheduledJob" = "ScheduledJobs"
|
||
"EventSubscription" = "EventSubscriptions"
|
||
"HTTPService" = "HTTPServices"
|
||
"WebService" = "WebServices"
|
||
"DefinedType" = "DefinedTypes"
|
||
}
|
||
|
||
$typePlural = $script:typePluralMap[$objType]
|
||
$typeDir = Join-Path $OutputDir $typePlural
|
||
|
||
# Main XML file: {OutputDir}/{TypePlural}/{Name}.xml
|
||
$mainXmlPath = Join-Path $typeDir "$objName.xml"
|
||
|
||
# Types that don't have subdirectory structure (no Ext/, no modules)
|
||
$typesNoSubDir = @("DefinedType","ScheduledJob","EventSubscription")
|
||
|
||
# Object subdirectory: {OutputDir}/{TypePlural}/{Name}/Ext/
|
||
$objSubDir = Join-Path $typeDir $objName
|
||
$extDir = Join-Path $objSubDir "Ext"
|
||
|
||
if (-not (Test-Path $typeDir)) {
|
||
New-Item -ItemType Directory -Path $typeDir -Force | Out-Null
|
||
}
|
||
if ($objType -notin $typesNoSubDir) {
|
||
if (-not (Test-Path $objSubDir)) {
|
||
New-Item -ItemType Directory -Path $objSubDir -Force | Out-Null
|
||
}
|
||
}
|
||
|
||
$enc = New-Object System.Text.UTF8Encoding($true)
|
||
[System.IO.File]::WriteAllText($mainXmlPath, $metadataXml, $enc)
|
||
|
||
# Module files
|
||
$modulesCreated = @()
|
||
|
||
# Helper: create Ext/ only when needed (avoids empty Ext/ for Constant, Enum, etc.)
|
||
function Ensure-ExtDir {
|
||
if (-not (Test-Path $extDir)) {
|
||
New-Item -ItemType Directory -Path $extDir -Force | Out-Null
|
||
}
|
||
}
|
||
|
||
# Types with ObjectModule.bsl
|
||
$typesWithObjectModule = @("Catalog","Document","Report","DataProcessor","ExchangePlan",
|
||
"ChartOfAccounts","ChartOfCharacteristicTypes","ChartOfCalculationTypes",
|
||
"BusinessProcess","Task")
|
||
# Types with RecordSetModule.bsl
|
||
$typesWithRecordSetModule = @("InformationRegister","AccumulationRegister","AccountingRegister","CalculationRegister")
|
||
# Types with ManagerModule.bsl
|
||
$typesWithManagerModule = @("Report","DataProcessor","Constant","Enum")
|
||
# Types with ValueManagerModule.bsl
|
||
$typesWithValueManagerModule = @("Constant")
|
||
# Types with Module.bsl (general)
|
||
$typesWithModule = @("CommonModule","HTTPService","WebService")
|
||
|
||
if ($objType -in $typesWithObjectModule) {
|
||
$modulePath = Join-Path $extDir "ObjectModule.bsl"
|
||
if (-not (Test-Path $modulePath)) {
|
||
Ensure-ExtDir
|
||
[System.IO.File]::WriteAllText($modulePath, "", $enc)
|
||
$modulesCreated += $modulePath
|
||
}
|
||
}
|
||
if ($objType -in $typesWithManagerModule) {
|
||
$modulePath = Join-Path $extDir "ManagerModule.bsl"
|
||
if (-not (Test-Path $modulePath)) {
|
||
Ensure-ExtDir
|
||
[System.IO.File]::WriteAllText($modulePath, "", $enc)
|
||
$modulesCreated += $modulePath
|
||
}
|
||
}
|
||
if ($objType -in $typesWithValueManagerModule) {
|
||
$modulePath = Join-Path $extDir "ValueManagerModule.bsl"
|
||
if (-not (Test-Path $modulePath)) {
|
||
Ensure-ExtDir
|
||
[System.IO.File]::WriteAllText($modulePath, "", $enc)
|
||
$modulesCreated += $modulePath
|
||
}
|
||
}
|
||
if ($objType -in $typesWithRecordSetModule) {
|
||
$modulePath = Join-Path $extDir "RecordSetModule.bsl"
|
||
if (-not (Test-Path $modulePath)) {
|
||
Ensure-ExtDir
|
||
[System.IO.File]::WriteAllText($modulePath, "", $enc)
|
||
$modulesCreated += $modulePath
|
||
}
|
||
}
|
||
if ($objType -in $typesWithModule) {
|
||
$modulePath = Join-Path $extDir "Module.bsl"
|
||
if (-not (Test-Path $modulePath)) {
|
||
Ensure-ExtDir
|
||
[System.IO.File]::WriteAllText($modulePath, "", $enc)
|
||
$modulesCreated += $modulePath
|
||
}
|
||
}
|
||
|
||
# Special files
|
||
if ($objType -eq "ExchangePlan") {
|
||
$contentPath = Join-Path $extDir "Content.xml"
|
||
if (-not (Test-Path $contentPath)) {
|
||
Ensure-ExtDir
|
||
$contentXml = "<?xml version=`"1.0`" encoding=`"UTF-8`"?>`r`n<ExchangePlanContent xmlns=`"http://v8.1c.ru/8.3/xcf/extrnprops`" xmlns:xr=`"http://v8.1c.ru/8.3/xcf/readable`" version=`"$($script:formatVersion)`"/>`r`n"
|
||
[System.IO.File]::WriteAllText($contentPath, $contentXml, $enc)
|
||
$modulesCreated += $contentPath
|
||
}
|
||
}
|
||
if ($objType -eq "BusinessProcess") {
|
||
$flowchartPath = Join-Path $extDir "Flowchart.xml"
|
||
if (-not (Test-Path $flowchartPath)) {
|
||
Ensure-ExtDir
|
||
$flowchartXml = "<?xml version=`"1.0`" encoding=`"UTF-8`"?>`r`n<Flowchart xmlns=`"http://v8.1c.ru/8.3/MDClasses`" version=`"$($script:formatVersion)`"/>`r`n"
|
||
[System.IO.File]::WriteAllText($flowchartPath, $flowchartXml, $enc)
|
||
$modulesCreated += $flowchartPath
|
||
}
|
||
}
|
||
|
||
# --- 17. Register in Configuration.xml ---
|
||
|
||
$configXmlPath = Join-Path $OutputDir "Configuration.xml"
|
||
$regResult = $null
|
||
|
||
# XML tag name for Configuration.xml ChildObjects
|
||
$childTag = $objType
|
||
|
||
if (Test-Path $configXmlPath) {
|
||
$configDoc = New-Object System.Xml.XmlDocument
|
||
$configDoc.PreserveWhitespace = $true
|
||
$configDoc.Load($configXmlPath)
|
||
|
||
$nsMgr = New-Object System.Xml.XmlNamespaceManager($configDoc.NameTable)
|
||
$nsMgr.AddNamespace("md", "http://v8.1c.ru/8.3/MDClasses")
|
||
|
||
$childObjects = $configDoc.SelectSingleNode("//md:Configuration/md:ChildObjects", $nsMgr)
|
||
if ($childObjects) {
|
||
$existing = $childObjects.SelectNodes("md:$childTag", $nsMgr)
|
||
$alreadyExists = $false
|
||
foreach ($e in $existing) {
|
||
if ($e.InnerText -eq $objName) {
|
||
$alreadyExists = $true
|
||
break
|
||
}
|
||
}
|
||
|
||
if ($alreadyExists) {
|
||
$regResult = "already"
|
||
} else {
|
||
$newElem = $configDoc.CreateElement($childTag, "http://v8.1c.ru/8.3/MDClasses")
|
||
$newElem.InnerText = $objName
|
||
|
||
if ($existing.Count -gt 0) {
|
||
# Insert after last existing element of same type
|
||
$lastElem = $existing[$existing.Count - 1]
|
||
$newWs = $configDoc.CreateWhitespace("`n`t`t`t")
|
||
$childObjects.InsertAfter($newWs, $lastElem) | Out-Null
|
||
$childObjects.InsertAfter($newElem, $newWs) | Out-Null
|
||
} else {
|
||
# No existing elements of this type — insert before closing whitespace
|
||
$lastChild = $childObjects.LastChild
|
||
if ($lastChild.NodeType -eq [System.Xml.XmlNodeType]::Whitespace) {
|
||
$newWs = $configDoc.CreateWhitespace("`n`t`t`t")
|
||
$childObjects.InsertBefore($newWs, $lastChild) | Out-Null
|
||
$childObjects.InsertBefore($newElem, $lastChild) | Out-Null
|
||
} else {
|
||
$childObjects.AppendChild($configDoc.CreateWhitespace("`n`t`t`t")) | Out-Null
|
||
$childObjects.AppendChild($newElem) | Out-Null
|
||
$childObjects.AppendChild($configDoc.CreateWhitespace("`n`t`t")) | Out-Null
|
||
}
|
||
}
|
||
|
||
# Save
|
||
$cfgSettings = New-Object System.Xml.XmlWriterSettings
|
||
$cfgSettings.Encoding = New-Object System.Text.UTF8Encoding($true)
|
||
$cfgSettings.Indent = $false
|
||
$stream = New-Object System.IO.FileStream($configXmlPath, [System.IO.FileMode]::Create)
|
||
$writer = [System.Xml.XmlWriter]::Create($stream, $cfgSettings)
|
||
$configDoc.Save($writer)
|
||
$writer.Close()
|
||
$stream.Close()
|
||
|
||
$regResult = "added"
|
||
}
|
||
} else {
|
||
$regResult = "no-childobj"
|
||
}
|
||
} else {
|
||
$regResult = "no-config"
|
||
}
|
||
|
||
# --- 18. Summary ---
|
||
|
||
$attrCount = 0
|
||
$tsCount = 0
|
||
$dimCount = 0
|
||
$resCount = 0
|
||
$valCount = 0
|
||
$colCount = 0
|
||
|
||
if ($def.attributes) { $attrCount = @($def.attributes).Count }
|
||
if ($def.tabularSections) {
|
||
if ($def.tabularSections -is [array] -or $def.tabularSections.GetType().Name -eq "Object[]") {
|
||
$tsCount = @($def.tabularSections).Count
|
||
} else {
|
||
$tsCount = @($def.tabularSections.PSObject.Properties).Count
|
||
}
|
||
}
|
||
if ($def.dimensions) { $dimCount = @($def.dimensions).Count }
|
||
if ($def.resources) { $resCount = @($def.resources).Count }
|
||
if ($def.values) { $valCount = @($def.values).Count }
|
||
if ($def.columns) { $colCount = @($def.columns).Count }
|
||
|
||
Write-Host "[OK] $objType '$objName' compiled"
|
||
Write-Host " UUID: $uuid"
|
||
Write-Host " File: $mainXmlPath"
|
||
|
||
$details = @()
|
||
if ($attrCount -gt 0) { $details += "Attributes: $attrCount" }
|
||
if ($tsCount -gt 0) { $details += "TabularSections: $tsCount" }
|
||
if ($dimCount -gt 0) { $details += "Dimensions: $dimCount" }
|
||
if ($resCount -gt 0) { $details += "Resources: $resCount" }
|
||
if ($valCount -gt 0) { $details += "Values: $valCount" }
|
||
if ($colCount -gt 0) { $details += "Columns: $colCount" }
|
||
|
||
if ($details.Count -gt 0) {
|
||
Write-Host " $($details -join ', ')"
|
||
}
|
||
|
||
foreach ($mc in $modulesCreated) {
|
||
Write-Host " Module: $mc"
|
||
}
|
||
|
||
switch ($regResult) {
|
||
"added" { Write-Host " Configuration.xml: <$childTag>$objName</$childTag> added to ChildObjects" }
|
||
"already" { Write-Host " Configuration.xml: <$childTag>$objName</$childTag> already registered" }
|
||
"no-childobj" { Write-Warning "Configuration.xml found but <ChildObjects> not found" }
|
||
"no-config" { Write-Host " Configuration.xml: not found at $configXmlPath (register manually)" }
|
||
}
|
||
|
||
# Cross-reference hints
|
||
if ($objType -eq "AccountingRegister" -and -not $def.chartOfAccounts) {
|
||
Write-Host "[HINT] AccountingRegister requires ChartOfAccounts reference:"
|
||
Write-Host " /meta-edit -Operation modify-property -Value `"ChartOfAccounts=ChartOfAccounts.XXX`""
|
||
}
|
||
if ($objType -eq "CalculationRegister" -and -not $def.chartOfCalculationTypes) {
|
||
Write-Host "[HINT] CalculationRegister requires ChartOfCalculationTypes reference:"
|
||
Write-Host " /meta-edit -Operation modify-property -Value `"ChartOfCalculationTypes=ChartOfCalculationTypes.XXX`""
|
||
}
|
||
if ($objType -eq "BusinessProcess" -and -not $def.task) {
|
||
Write-Host "[HINT] BusinessProcess requires Task reference:"
|
||
Write-Host " /meta-edit -Operation modify-property -Value `"Task=Task.XXX`""
|
||
}
|
||
if ($objType -eq "ChartOfAccounts") {
|
||
$maxExtDim = if ($null -ne $def.maxExtDimensionCount) { [int]$def.maxExtDimensionCount } else { 0 }
|
||
if ($maxExtDim -gt 0 -and -not $def.extDimensionTypes) {
|
||
Write-Host "[HINT] ChartOfAccounts with MaxExtDimensionCount>0 requires ExtDimensionTypes:"
|
||
Write-Host " /meta-edit -Operation modify-property -Value `"ExtDimensionTypes=ChartOfCharacteristicTypes.XXX`""
|
||
}
|
||
}
|