# meta-compile v1.22 — 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 # --- Support guard (Ext/ParentConfigurations.bin) --- # See docs/1c-support-state-spec.md. Blocks edits of vendor objects "на замке" / # read-only configs unless allowed. Trigger = bin present; reaction from # .v8-project.json editingAllowedCheck (deny|warn|off, default deny). Never # throws — guard errors degrade to allow. function Get-RootUuid([string]$xmlPath) { if (-not (Test-Path $xmlPath)) { return $null } try { [xml]$mx = Get-Content -Path $xmlPath -Encoding UTF8 $el = $mx.DocumentElement.FirstChild while ($el -and $el.NodeType -ne 'Element') { $el = $el.NextSibling } if ($el) { $u = $el.GetAttribute("uuid"); if ($u) { return $u } } } catch {} return $null } function Find-V8Project([string]$startDir) { $d = $startDir for ($i = 0; $i -lt 20 -and $d; $i++) { $pj = Join-Path $d ".v8-project.json" if (Test-Path $pj) { return $pj } $parent = [System.IO.Path]::GetDirectoryName($d) if ($parent -eq $d) { break } $d = $parent } return $null } function Get-EditMode([string]$cfgDir) { try { $pj = Find-V8Project (Get-Location).Path if (-not $pj) { $pj = Find-V8Project $cfgDir } if (-not $pj) { return 'deny' } $proj = Get-Content -Raw $pj | ConvertFrom-Json $cfgFull = [System.IO.Path]::GetFullPath($cfgDir).TrimEnd('\', '/') if ($proj.databases) { foreach ($db in $proj.databases) { if ($db.configSrc) { $src = [System.IO.Path]::GetFullPath($db.configSrc).TrimEnd('\', '/') if ($cfgFull -eq $src -or $cfgFull.StartsWith($src + [System.IO.Path]::DirectorySeparatorChar)) { if ($db.editingAllowedCheck) { return $db.editingAllowedCheck } } } } } if ($proj.editingAllowedCheck) { return $proj.editingAllowedCheck } return 'deny' } catch { return 'deny' } } function Assert-EditAllowed([string]$targetPath, [string]$require) { try { $rp = $targetPath try { $rp = (Resolve-Path $targetPath -ErrorAction Stop).Path } catch {} $elemUuid = Get-RootUuid $rp $cfgDir = $null; $binPath = $null $d = if (Test-Path $rp -PathType Container) { $rp } else { [System.IO.Path]::GetDirectoryName($rp) } for ($i = 0; $i -lt 12 -and $d; $i++) { if (-not $elemUuid) { $elemUuid = Get-RootUuid "$d.xml" } if (-not $cfgDir) { $cand = Join-Path (Join-Path $d "Ext") "ParentConfigurations.bin" if ((Test-Path $cand) -or (Test-Path (Join-Path $d "Configuration.xml"))) { $cfgDir = $d; $binPath = $cand } } if ($elemUuid -and $cfgDir) { break } $parent = [System.IO.Path]::GetDirectoryName($d) if ($parent -eq $d) { break } $d = $parent } # New object (no element file): fall back to config root uuid. if (-not $elemUuid -and $cfgDir) { $elemUuid = Get-RootUuid (Join-Path $cfgDir "Configuration.xml") } if (-not $binPath -or -not (Test-Path $binPath)) { return } $bytes = [System.IO.File]::ReadAllBytes($binPath) if ($bytes.Length -le 32) { return } $start = 0 if ($bytes.Length -ge 3 -and $bytes[0] -eq 0xEF -and $bytes[1] -eq 0xBB -and $bytes[2] -eq 0xBF) { $start = 3 } $text = [System.Text.Encoding]::UTF8.GetString($bytes, $start, $bytes.Length - $start) $hm = [regex]::Match($text, '^\{6,(\d+),(\d+),') if (-not $hm.Success) { return } $G = [int]$hm.Groups[1].Value $K = [int]$hm.Groups[2].Value if ($K -eq 0) { return } $best = $null if ($elemUuid) { $u = [regex]::Escape($elemUuid.ToLower()) foreach ($m in [regex]::Matches($text, "([0-2]),0,$u")) { $f1 = [int]$m.Groups[1].Value if ($null -eq $best -or $f1 -lt $best) { $best = $f1 } } } $blocked = $false; $code = ""; $reason = "" if ($G -eq 1) { $blocked = $true; $code = "capability-off"; $reason = "возможность изменения конфигурации выключена (вся конфигурация read-only)" } elseif ($require -eq 'removed') { if ($null -ne $best -and $best -ne 2) { $blocked = $true; $code = "not-removed"; $reason = "объект не снят с поддержки — удаление сломает обновления" } } else { if ($null -ne $best -and $best -eq 0) { $blocked = $true; $code = "locked"; $reason = "объект на замке — редактирование сломает обновления" } } if (-not $blocked) { return } $mode = Get-EditMode $cfgDir if ($mode -eq 'off') { return } # Use Console.Error (not Write-Error) — under ErrorActionPreference=Stop the # latter throws and would be swallowed by this function's own catch. if ($mode -eq 'warn') { [Console]::Error.WriteLine("[support-guard] ПРЕДУПРЕЖДЕНИЕ: $reason. Цель: $rp"); return } $head = "[support-guard] Редактирование отклонено: это объект типовой конфигурации на поддержке поставщика, прямое редактирование молча сломает будущие обновления." $cfe = "Рекомендуемый путь: внести доработку в расширение (навыки cfe-borrow / cfe-patch-method) — состояние поддержки менять не нужно, обновления вендора сохраняются." $offNote = "Снять проверку для этой базы: editingAllowedCheck = warn|off в .v8-project.json." if ($code -eq "capability-off") { $state = "Состояние: у всей конфигурации выключена возможность изменения (режим read-only «из коробки») — поэтому объект «$rp» редактировать нельзя." $fix = "Либо снять защиту явно (навык support-edit, два шага):`n 1. support-edit -Path ""$cfgDir"" -Capability on — включить возможность изменения (объекты пока остаются на замке);`n 2. support-edit -Path ""$rp"" -Set editable — открыть этот объект для редактирования.`n Изменение применяется в базу полной загрузкой выгрузки и обходит механизм обновлений вендора." } elseif ($code -eq "not-removed") { $state = "Состояние: объект «$rp» на поддержке (не снят с поддержки) — его удаление разорвёт обновления вендора." $fix = "Либо сначала снять объект с поддержки, затем удалять:`n support-edit -Path ""$rp"" -Set off-support — объект уходит из-под обновлений, после этого удаление безопасно." } else { $state = "Состояние: объект «$rp» на замке (возможность изменения конфигурации включена, но сам объект не редактируется)." $fix = "Либо разрешить редактирование этого объекта (навык support-edit, выбрать одно):`n support-edit -Path ""$rp"" -Set editable — редактировать и дальше получать обновления вендора (возможны конфликты слияния);`n support-edit -Path ""$rp"" -Set off-support — снять с поддержки: обновления по объекту больше не приходят." } [Console]::Error.WriteLine("$head`n$state`n$cfe`n$fix`n$offNote") exit 1 } catch { return } } Assert-EditAllowed $OutputDir 'editable' # --- 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","HierarchyOfItems") "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","WithinOwnerSubordination") "ChoiceMode" = @("BothWays","QuickChoice","FromForm") "CreateOnInput" = @("Auto","Use","DontUse") "ChoiceHistoryOnInput" = @("Auto","DontUse") "PredefinedDataUpdate" = @("Auto","DontAutoUpdate","AutoUpdate") "SearchStringModeOnInputByString"= @("Begin","AnyPart") } 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) } # Bool object-свойство: presence-aware (иначе false-значение спутать с отсутствием). Прощаем строки. function Get-BoolProp { param([string]$fieldName, [bool]$default) $val = $def.$fieldName if ($null -eq $val) { return $default } if ($val -is [bool]) { return $val } return ("$val" -match '^(true|1|да|истина)$') } # Прощающая нормализация ссылки на форму: рус корень (Справочник→Catalog), сегмент Форма→Form, # короткая запись "Тип.Объект.ИмяФормы" (без Form) → вставка Form. Уже канон англ. → без изменений. function Normalize-FormRef { param([string]$s) if (-not $s) { return $s } $parts = $s -split '\.' if ($parts.Count -lt 3) { return $s } $root = $script:fillRefRoots[$parts[0].ToLower()] if ($root) { $parts[0] = $root } for ($k = 1; $k -lt $parts.Count; $k++) { if ($parts[$k] -ieq 'Форма') { $parts[$k] = 'Form' } } if (($parts -notcontains 'Form') -and $parts.Count -eq 3) { $parts = @($parts[0], $parts[1], 'Form', $parts[2]) } return ($parts -join '.') } # Ссылка на форму по умолчанию: непустая → значение, иначе . function Emit-FormRef { param([string]$i, [string]$tag, $val) if ($val) { X "$i<$tag>$(Esc-Xml (Normalize-FormRef "$val"))" } else { X "$i<$tag/>" } } 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('"','"') } # Эскейп ТЕКСТА элемента: только & < > (кавычки в тексте 1С держит raw, экранирование только для атрибутов). function Esc-XmlText { param([string]$s) return $s.Replace('&','&').Replace('<','<').Replace('>','>') } # ML-значение: строка → один ru; объект {lang: content} → item на язык (в порядке ключей). function Emit-MLItems { param([string]$indent, $val) if ($val -is [System.Collections.IDictionary]) { foreach ($k in $val.Keys) { X "$indent"; X "$indent`t$k"; X "$indent`t$(Esc-XmlText "$($val[$k])")"; X "$indent" } } elseif ($val -is [System.Management.Automation.PSCustomObject]) { foreach ($p in $val.PSObject.Properties) { X "$indent"; X "$indent`t$($p.Name)"; X "$indent`t$(Esc-XmlText "$($p.Value)")"; X "$indent" } } else { X "$indent"; X "$indent`tru"; X "$indent`t$(Esc-XmlText "$val")"; X "$indent" } } function Emit-MLText { param([string]$indent, [string]$tag, $text) # Пусто (null / пустая строка) → самозакрывающийся тег. if (($null -eq $text) -or (($text -is [string]) -and ($text -eq ''))) { X "$indent<$tag/>" return } X "$indent<$tag>" Emit-MLItems "$indent`t" $text X "$indent" } 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. Проброс без стрингификации (строка ИЛИ {ru,en} — мультиязычный синоним объекта). $synonym = if ($null -ne $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" # ValueStorage / UUID — прощающий ввод (модель может написать base64Binary / рус. форму → канон). $script:typeSynonyms["valuestorage"] = "ValueStorage" $script:typeSynonyms["base64binary"] = "ValueStorage" $script:typeSynonyms["хранилищезначений"] = "ValueStorage" $script:typeSynonyms["хранилищезначения"] = "ValueStorage" $script:typeSynonyms["uuid"] = "UUID" $script:typeSynonyms["уникальныйидентификатор"] = "UUID" # 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 "$indentxs:boolean" return } # String or String(N) if ($typeStr -match '^String(\((\d+)\))?$') { $len = if ($Matches[2]) { $Matches[2] } else { "10" } X "$indentxs:string" X "$indent" X "$indent`t$len" X "$indent`tVariable" X "$indent" return } # Number without params → Number(10,0) if ($typeStr -eq "Number") { X "$indentxs:decimal" X "$indent" X "$indent`t10" X "$indent`t0" X "$indent`tAny" X "$indent" 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 "$indentxs:decimal" X "$indent" X "$indent`t$digits" X "$indent`t$fraction" X "$indent`t$sign" X "$indent" return } # Date / DateTime if ($typeStr -eq "Date") { X "$indentxs:dateTime" X "$indent" X "$indent`tDate" X "$indent" return } if ($typeStr -eq "DateTime") { X "$indentxs:dateTime" X "$indent" X "$indent`tDateTime" X "$indent" return } # TypeSet — тип-множество: ОпределяемыйТип (DefinedType) ИЛИ Характеристика ПВХ (Characteristic). if ($typeStr -match '^(DefinedType|Characteristic)\.(.+)$') { X "$indentcfg:$typeStr" return } # ValueStorage (ХранилищеЗначения) — канон v8:ValueStorage (не xs:base64Binary, хоть 1С и принимает оба). if ($typeStr -eq "ValueStorage") { X "$indentv8:ValueStorage" return } # UUID (УникальныйИдентификатор) if ($typeStr -eq "UUID") { X "$indentv8:UUID" return } # Reference types — use local xmlns declaration for 1C compatibility if ($typeStr -match '^(CatalogRef|DocumentRef|EnumRef|ChartOfAccountsRef|ChartOfCharacteristicTypesRef|ChartOfCalculationTypesRef|ExchangePlanRef|BusinessProcessRef|TaskRef)\.(.+)$') { X "$indentd5p1:$typeStr" return } # Fallback — emit as-is X "$indent$typeStr" } function Emit-ValueType { param([string]$indent, [string]$typeStr) X "$indent" Emit-TypeContent "$indent`t" $typeStr X "$indent" } # --- FillValue (значение заполнения реквизита) --- # Пара FillFromFillingValue+FillValue — единый блок «заполнения» (недоступен у реквизитов ТЧ). # Форма пустого FillValue зависит от типа реквизита (то же значение по умолчанию, что и «пустое» # значение типа): String→typed-empty, Number→0, всё остальное (Boolean/Date/Ref/составной/TypeSet)→nil. # Реальное значение задаётся ключом `fillValue` (интерпретация по типу реквизита; см. §4.2 spec). # Категория типа реквизита для выбора формы FillValue. function Get-FillTypeCategory { param([string]$typeStr) if (-not $typeStr) { return 'String' } # реквизит без типа → неквалифиц. строка if ($typeStr -match '\+') { return 'Other' } # составной тип → nil-дефолт $t = Resolve-TypeStr $typeStr if ($t -match '^Boolean$') { return 'Boolean' } if ($t -match '^String(\(|$)') { return 'String' } if ($t -match '^Number(\(|$)') { return 'Number' } if ($t -match '^(Date|DateTime)$') { return 'Date' } return 'Other' # ссылки, TypeSet, ValueStorage, … → nil-дефолт } # Прощающий ввод для ссылочных путей DTR: рус/англ корни, ПустаяСсылка/EmptyRef, ЗначениеПеречисления/EnumValue. $script:fillRefRoots = @{ 'перечисление'='Enum'; 'справочник'='Catalog'; 'документ'='Document'; 'плансчетов'='ChartOfAccounts'; 'планвидовхарактеристик'='ChartOfCharacteristicTypes'; 'планвидоврасчета'='ChartOfCalculationTypes'; 'планвидоврасчёта'='ChartOfCalculationTypes'; 'планобмена'='ExchangePlan'; 'бизнеспроцесс'='BusinessProcess'; 'задача'='Task'; 'enum'='Enum'; 'catalog'='Catalog'; 'document'='Document'; 'chartofaccounts'='ChartOfAccounts'; 'chartofcharacteristictypes'='ChartOfCharacteristicTypes'; 'chartofcalculationtypes'='ChartOfCalculationTypes'; 'exchangeplan'='ExchangePlan'; 'businessprocess'='BusinessProcess'; 'task'='Task' } $script:fillEmptyRefWords = @('emptyref','пустаяссылка') $script:fillEnumValWords = @('enumvalue','значениеперечисления') $script:fillBoolTrue = @('true','истина','да') $script:fillBoolFalse = @('false','ложь','нет') # XxxRef (тип реквизита) → корень DTR-пути (для разворота короткой записи значения). $script:fillRefKindRoot = @{ 'catalogref'='Catalog'; 'documentref'='Document'; 'enumref'='Enum'; 'chartofaccountsref'='ChartOfAccounts'; 'chartofcharacteristictypesref'='ChartOfCharacteristicTypes'; 'chartofcalculationtypesref'='ChartOfCalculationTypes'; 'exchangeplanref'='ExchangePlan'; 'businessprocessref'='BusinessProcess'; 'taskref'='Task' } # Короткая запись значения ссылочного реквизита (без точки): имя разворачиваем по типу реквизита. # "EmptyRef"/"ПустаяСсылка" → .<Тип>.EmptyRef; для Enum — EnumValue; прочие — предопределённое. # $null, если развернуть нельзя (тип не одиночный ссылочный). function Expand-FillShortRef { param([string]$s, [string]$typeStr) if (-not $typeStr) { return $null } if ($typeStr -match '\+') { return $null } # составной тип — короткая форма неоднозначна $t = Resolve-TypeStr $typeStr if ($t -notmatch '^(\w+Ref)\.(.+)$') { return $null } $root = $script:fillRefKindRoot[$Matches[1].ToLower()] if (-not $root) { return $null } $typeName = $Matches[2] if ($script:fillEmptyRefWords -contains $s.ToLower()) { return "$root.$typeName.EmptyRef" } if ($root -eq 'Enum') { return "Enum.$typeName.EnumValue.$s" } return "$root.$typeName.$s" } # Строка → нормализованный DTR-путь ("Catalog.X.EmptyRef" / "Enum.X.EnumValue.Y" / GUID.GUID) ЛИБО $null (не ссылка). function Normalize-FillRef { param([string]$s) if ([string]::IsNullOrEmpty($s)) { return $null } # Raw-ссылка по паре GUID (метаданные.значение) — всегда ссылка. if ($s -match '^[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}\.[0-9a-fA-F-]+$') { return $s } $parts = $s -split '\.' if ($parts.Count -lt 2) { return $null } $root = $script:fillRefRoots[$parts[0].ToLower()] if (-not $root) { return $null } $typeName = $parts[1] if ($root -eq 'Enum') { if ($parts.Count -eq 2) { return $null } # "Enum.X" — не значение if ($parts.Count -eq 3) { if ($script:fillEmptyRefWords -contains $parts[2].ToLower()) { return "Enum.$typeName.EmptyRef" } return "Enum.$typeName.EnumValue.$($parts[2])" } $member = $parts[2] if ($script:fillEnumValWords -contains $member.ToLower()) { $rest = $parts[3..($parts.Count-1)] -join '.' } else { $rest = $parts[2..($parts.Count-1)] -join '.' } return "Enum.$typeName.EnumValue.$rest" } # Прочие корни: переводим корень, ПустаяСсылка→EmptyRef в хвосте. $tail = @($parts[1..($parts.Count-1)]) for ($i = 0; $i -lt $tail.Count; $i++) { if ($script:fillEmptyRefWords -contains $tail[$i].ToLower()) { $tail[$i] = 'EmptyRef' } } return "$root." + ($tail -join '.') } # Строковый spec → @{ XsiType; Text }. Интерпретация по типу реквизита ($typeStr). function Resolve-FillValueSpec { param([string]$s, [string]$typeStr) $cat = Get-FillTypeCategory $typeStr if ($s -eq '') { return @{ XsiType='xs:string'; Text='' } } # String-реквизит: значение заполнения — всегда строковый литерал (без ref/date-детекции). if ($cat -eq 'String') { return @{ XsiType='xs:string'; Text=$s } } # Булевы слова (для Boolean-реквизита ИЛИ явное истина/ложь). if ($cat -eq 'Boolean' -or ($script:fillBoolTrue -contains $s.ToLower()) -or ($script:fillBoolFalse -contains $s.ToLower())) { if ($script:fillBoolTrue -contains $s.ToLower()) { return @{ XsiType='xs:boolean'; Text='true' } } if ($script:fillBoolFalse -contains $s.ToLower()) { return @{ XsiType='xs:boolean'; Text='false' } } } if ($cat -eq 'Number') { return @{ XsiType='xs:decimal'; Text=$s } } # Дата: явный Date-реквизит ИЛИ ISO-паттерн. "2020-01-01" → добавить время. if ($cat -eq 'Date' -or $s -match '^\d{4}-\d{2}-\d{2}(T\d{2}:\d{2}:\d{2})?$') { if ($s -match '^\d{4}-\d{2}-\d{2}$') { $s = "${s}T00:00:00" } return @{ XsiType='xs:dateTime'; Text=$s } } # Полный ссылочный путь DTR (с точкой: "Catalog.X.EmptyRef", "Enum.X.EnumValue.Y", GUID.GUID). $ref = Normalize-FillRef $s if ($ref) { return @{ XsiType='xr:DesignTimeRef'; Text=$ref } } # Короткая запись значения ссылочного реквизита (одно имя — разворачиваем по типу). $short = Expand-FillShortRef $s $typeStr if ($short) { return @{ XsiType='xr:DesignTimeRef'; Text=$short } } # Фолбэк — строковый литерал. return @{ XsiType='xs:string'; Text=$s } } # Формат числа-значения без привязки к культуре (точка-разделитель). function Format-FillNum { param($n) if ($n -is [double] -or $n -is [decimal]) { return $n.ToString([System.Globalization.CultureInfo]::InvariantCulture) } return "$n" } # $spec — значение ключа `fillValue` ($null при явном nil-override), $hasSpec — присутствует ли ключ. function Emit-FillValue { param([string]$indent, [string]$typeStr, $spec, $hasSpec) $cat = Get-FillTypeCategory $typeStr if ($hasSpec -ne $true) { # Значение не задано — форма по умолчанию для типа. switch ($cat) { 'String' { X "$indent"; return } 'Number' { X "$indent0"; return } default { X "$indent"; return } } } if ($null -eq $spec) { X "$indent"; return } # явный nil-override if ($spec -is [bool]) { X "$indent$(if ($spec) { 'true' } else { 'false' })"; return } if ($spec -is [int] -or $spec -is [long] -or $spec -is [double] -or $spec -is [decimal]) { X "$indent$(Format-FillNum $spec)"; return } $r = Resolve-FillValueSpec "$spec" $typeStr if ($r.Text -eq '' -and $r.XsiType -eq 'xs:string') { X "$indent"; return } X "$indent$(Esc-XmlText $r.Text)" } # --- 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 = @() hasFillValue = $false fillValue = $null } # 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. synonym/tooltip/format/editFormat — сквозной проброс (строка ИЛИ {ru,en}), НЕ стрингифаим. # fillCheck — синоним fillChecking (из формы; bool true→ShowError). quickChoice — прощаем bool (true→Use, false→DontUse). $name = "$($val.name)" $fc = if ($val.fillChecking) { "$($val.fillChecking)" } elseif ($null -ne $val.fillCheck) { if ($val.fillCheck -is [bool]) { if ($val.fillCheck) { 'ShowError' } else { '' } } else { "$($val.fillCheck)" } } else { "" } $qc = if ($null -ne $val.quickChoice) { if ($val.quickChoice -is [bool]) { if ($val.quickChoice) { 'Use' } else { 'DontUse' } } else { "$($val.quickChoice)" } } else { "" } return @{ name = $name type = Build-TypeStr $val synonym = if ($null -ne $val.synonym) { $val.synonym } else { Split-CamelCase $name } tooltip = $val.tooltip comment = if ($val.comment) { "$($val.comment)" } else { "" } flags = @(if ($val.flags) { $val.flags } else { @() }) fillChecking = $fc indexing = if ($val.indexing) { "$($val.indexing)" } else { "" } multiLine = if ($val.multiLine -eq $true) { $true } else { $false } choiceHistoryOnInput = if ($val.choiceHistoryOnInput) { "$($val.choiceHistoryOnInput)" } else { "" } fullTextSearch = if ($val.fullTextSearch) { "$($val.fullTextSearch)" } else { "" } fillFromFillingValue = if ($val.fillFromFillingValue -eq $true) { $true } else { $false } createOnInput = if ($val.createOnInput) { "$($val.createOnInput)" } else { "" } quickChoice = $qc dataHistory = if ($val.dataHistory) { "$($val.dataHistory)" } else { "" } use = if ($val.use) { "$($val.use)" } else { "" } passwordMode = if ($val.passwordMode -eq $true) { $true } else { $false } format = $val.format editFormat = $val.editFormat mask = if ($val.mask) { "$($val.mask)" } else { "" } hasFillValue = ($val.PSObject -and $val.PSObject.Properties -and ($val.PSObject.Properties.Name -contains 'fillValue')) fillValue = $val.fillValue linkByType = $val.linkByType choiceParameterLinks = $val.choiceParameterLinks choiceParameters = $val.choiceParameters } } 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" # ExchangePlan: ThisNode UUID before GeneratedTypes if ($objectType -eq "ExchangePlan") { X "$indent`t$(New-Guid-String)" } foreach ($gt in $types) { $fullName = "$($gt.prefix).$objectName" X "$indent`t" X "$indent`t`t$(New-Guid-String)" X "$indent`t`t$(New-Guid-String)" X "$indent`t" } X "$indent" } # --- 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") } # Профиль материализованного блока StandardAttributes (значения, которые платформа заполняет # автоматически при материализации блока, независимо от структуры каталога). Выведено из корпуса # (acc+erp: Owner.FFV=true 1592/1596, Owner.FC=ShowError 1589, Parent.FFV=true 1593, Description.FC=ShowError 1467) # и подтверждено синтетикой. Пока только Catalog (у прочих типов свои профили — добавим при их пилоте). $script:stdAttrProfile = @{ "Catalog" = @{ "Owner" = @{ FillChecking = "ShowError"; FillFromFillingValue = "true" } "Parent" = @{ FillFromFillingValue = "true" } "Description" = @{ FillChecking = "ShowError" } } } # $ov — hashtable переопределений (профиль + DSL) для полей: FillChecking, FillFromFillingValue, # Synonym, FullTextSearch, DataHistory. Прочие поля — фиксированный schema-дефолт. function Emit-StandardAttribute { param([string]$indent, [string]$attrName, $ov = $null) function OvOr { param($k, $d) if ($ov -and $ov.ContainsKey($k)) { return $ov[$k] } else { return $d } } $fc = OvOr 'FillChecking' 'DontCheck' $ffv = OvOr 'FillFromFillingValue' 'false' $dh = OvOr 'DataHistory' 'Use' $fts = OvOr 'FullTextSearch' 'Use' $syn = OvOr 'Synonym' '' $tt = OvOr 'ToolTip' '' X "$indent" X "$indent`t" X "$indent`t$fc" X "$indent`tfalse" X "$indent`t$ffv" X "$indent`tAuto" X "$indent`t" Emit-MLText "$indent`t" "xr:ToolTip" $tt X "$indent`tfalse" X "$indent`t" X "$indent`t" X "$indent`tAuto" X "$indent`tAuto" X "$indent`t" X "$indent`tfalse" X "$indent`t$dh" X "$indent`tfalse" X "$indent`t" Emit-MLText "$indent`t" "xr:Synonym" $syn X "$indent`t" X "$indent`t$fts" X "$indent`t" X "$indent`t" X "$indent`t" X "$indent`t" X "$indent" } # Единый эмиттер блока StandardAttributes — поведение правят ДАННЫЕ, не форк кода: # - stdAttrConditionalTypes: типы, где блок материализуется платформой ТОЛЬКО при кастомизации # ≥1 стандартного реквизита → в DSL это наличие ключа `standardAttributes`. Нет ключа → блок опущен. # Прочие типы (не в множестве) → блок эмитится всегда (текущее поведение, пока их правило не выведено). # - stdAttrProfile[тип]: профиль материализованного блока (пусто = schema-дефолт), поверх — DSL-override. # Миграция типа = добавить его в stdAttrConditionalTypes + stdAttrProfile и переснять снэпшоты; КОД НЕ ТРОГАЕМ. $script:stdAttrConditionalTypes = @('Catalog') function Emit-StandardAttributes { param([string]$indent, [string]$objectType) $attrs = $script:standardAttributesByType[$objectType] if (-not $attrs) { return } $conditional = $script:stdAttrConditionalTypes -contains $objectType $sa = $def.standardAttributes if ($conditional -and $null -eq $sa) { return } # условный тип без кастомизации → блока нет $profile = $script:stdAttrProfile[$objectType]; if (-not $profile) { $profile = @{} } X "$indent" foreach ($a in $attrs) { $ov = @{} if ($profile.ContainsKey($a)) { foreach ($k in $profile[$a].Keys) { $ov[$k] = $profile[$a][$k] } } if ($conditional -and $sa) { $d = $sa.$a if ($d) { if ($null -ne $d.synonym) { $ov['Synonym'] = $d.synonym } # строка ИЛИ {ru,en} if ($null -ne $d.tooltip) { $ov['ToolTip'] = $d.tooltip } # строка ИЛИ {ru,en} if ($d.fillChecking) { $ov['FillChecking'] = "$($d.fillChecking)" } if ($null -ne $d.fillFromFillingValue) { $ov['FillFromFillingValue'] = if ($d.fillFromFillingValue) { 'true' } else { 'false' } } if ($d.fullTextSearch) { $ov['FullTextSearch'] = "$($d.fullTextSearch)" } if ($d.dataHistory) { $ov['DataHistory'] = "$($d.dataHistory)" } } } Emit-StandardAttribute "$indent`t" $a $ov } X "$indent" } # TabularSection standard attributes (just LineNumber) function Emit-TabularStandardAttributes { param([string]$indent) X "$indent" Emit-StandardAttribute "$indent`t" "LineNumber" X "$indent" } # --- 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"="ПериодДействияБазовый" } # Стандартные реквизиты по типу объекта (ключи из reservedAttrNames). Имя реквизита, совпадающее # с ними (англ. ИЛИ рус.), платформа не позволит — жёсткий отказ. Контексты вне карты → мягкое предупреждение. $script:reservedByContext = @{ "catalog" = @("Ref","DeletionMark","Predefined","PredefinedDataName","Code","Description","Owner","Parent","IsFolder") "document" = @("Ref","DeletionMark","Date","Number","Posted") } # (связь по типу — тип значения реквизита-Характеристики определяется другим реквизитом). # Структура как формы: DataPath + LinkItem. DSL `linkByType`: {dataPath, linkItem?} ИЛИ строка-путь. # Нет ключа → (пусто). function Emit-LinkByType { param([string]$indent, $spec) if (-not $spec) { X "$indent"; return } if ($spec -is [string]) { $dp = "$spec"; $li = 0 } else { $dp = if ($spec.dataPath) { "$($spec.dataPath)" } elseif ($spec.path) { "$($spec.path)" } elseif ($spec.путь) { "$($spec.путь)" } else { "" } $li = if ($null -ne $spec.linkItem) { $spec.linkItem } elseif ($null -ne $spec.элементСвязи) { $spec.элементСвязи } else { 0 } } if (-not $dp) { X "$indent"; return } X "$indent" X "$indent`t$(Esc-Xml "$dp")" X "$indent`t$li" X "$indent" } # --- Параметры/связи выбора (порт из form-compile; структура реквизита ⟷ элемента формы совпадает) --- # Свойство из dict/PSCustomObject по списку синонимов (первый найденный, иначе $null). function Get-ChElProp { param($obj, [string[]]$names) if ($null -eq $obj) { return $null } foreach ($n in $names) { if ($obj -is [System.Collections.IDictionary]) { if ($obj.Contains($n)) { return $obj[$n] } } elseif ($obj.PSObject -and $obj.PSObject.Properties[$n]) { return $obj.PSObject.Properties[$n].Value } } return $null } # Строковый литерал shorthand → скаляр: true/false→bool, целое/дробное→число, иначе строка. function ConvertTo-ChScalar { param([string]$s) $t = "$s".Trim() if ($t -match '^(?i:true|истина)$') { return $true } if ($t -match '^(?i:false|ложь)$') { return $false } if ($t -match '^-?\d+$') { return [int]$t } if ($t -match '^-?\d+\.\d+$') { return [double]::Parse($t, [System.Globalization.CultureInfo]::InvariantCulture) } return $t } # Значение параметра выбора → @{XsiType; Text}. Авто-детект по значению (без типа реквизита). function Normalize-ChoiceValue { param($value) if ($value -is [bool]) { return @{ XsiType='xs:boolean'; Text=$(if ($value) { 'true' } else { 'false' }) } } if ($value -is [int] -or $value -is [long] -or $value -is [double] -or $value -is [decimal]) { return @{ XsiType='xs:decimal'; Text=(Format-FillNum $value) } } $s = "$value" if ($s -eq '') { return @{ XsiType='xs:string'; Text='' } } if ($s -match '^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}$') { return @{ XsiType='xs:dateTime'; Text=$s } } $ref = Normalize-FillRef $s if ($ref) { return @{ XsiType='xr:DesignTimeRef'; Text=$ref } } return @{ XsiType='xs:string'; Text=$s } } # Shorthand "name=value" | "name=v1, v2" → {name, value}. "name=path" для links. function ConvertFrom-ChParamShorthand { param([string]$s) $eq = $s.IndexOf('=') if ($eq -lt 0) { return @{ name = $s.Trim() } } $name = $s.Substring(0, $eq).Trim(); $rest = $s.Substring($eq + 1) if ($rest -match ',') { $vals = @(); foreach ($p in ($rest -split ',')) { $vals += ,(ConvertTo-ChScalar $p) } return @{ name = $name; value = $vals } } return @{ name = $name; value = (ConvertTo-ChScalar $rest) } } function ConvertFrom-ChLinkShorthand { param([string]$s) $eq = $s.IndexOf('=') if ($eq -lt 0) { return @{ name = $s.Trim() } } $o = @{ name = $s.Substring(0, $eq).Trim() }; $rest = $s.Substring($eq + 1).Trim() if ($rest -match '^(.*):(?i:(Clear|DontChange|очистить|неизменять))$') { $o['dataPath'] = $matches[1].Trim(); $o['valueChange'] = $matches[2] } else { $o['dataPath'] = $rest } return $o } # — [{name, value?}]. Значение ПРЯМО на app:value (xsi:type=тип); массив → v8:FixedArray # с детьми v8:Value; без value → app:value nil. function Emit-ChoiceParameters { param([string]$indent, $cp) if (-not $cp -or @($cp).Count -eq 0) { X "$indent"; return } X "$indent" foreach ($item in @($cp)) { if ($item -is [string]) { $item = ConvertFrom-ChParamShorthand $item } $name = Get-ChElProp $item @('name','имя') $hasVal = $false; $val = $null if ($item -is [System.Collections.IDictionary]) { if ($item.Contains('value')) { $hasVal = $true; $val = $item['value'] } elseif ($item.Contains('значение')) { $hasVal = $true; $val = $item['значение'] } } elseif ($item.PSObject) { if ($item.PSObject.Properties['value']) { $hasVal = $true; $val = $item.PSObject.Properties['value'].Value } elseif ($item.PSObject.Properties['значение']) { $hasVal = $true; $val = $item.PSObject.Properties['значение'].Value } } $valIsArray = ($val -is [System.Array]) -or ($val -is [System.Collections.IList] -and $val -isnot [string]) X "$indent`t" if (-not $hasVal) { X "$indent`t`t" } elseif ($valIsArray) { X "$indent`t`t" foreach ($v in $val) { $norm = Normalize-ChoiceValue -value $v if ([string]::IsNullOrEmpty($norm.Text)) { X "$indent`t`t`t" } else { X "$indent`t`t`t$(Esc-Xml $norm.Text)" } } X "$indent`t`t" } else { $norm = Normalize-ChoiceValue -value $val if ([string]::IsNullOrEmpty($norm.Text)) { X "$indent`t`t" } else { X "$indent`t`t$(Esc-Xml $norm.Text)" } } X "$indent`t" } X "$indent" } # — [{name, dataPath, valueChange?}]. valueChange дефолт Clear. function Emit-ChoiceParameterLinks { param([string]$indent, $cpl) if (-not $cpl -or @($cpl).Count -eq 0) { X "$indent"; return } X "$indent" foreach ($lk in @($cpl)) { if ($lk -is [string]) { $lk = ConvertFrom-ChLinkShorthand $lk } $name = Get-ChElProp $lk @('name','имя') $dp = Get-ChElProp $lk @('dataPath','path','путь') $vcRaw = Get-ChElProp $lk @('valueChange','режимИзменения') $vc = 'Clear' if ($vcRaw) { $vc = switch -Regex ("$vcRaw".ToLower()) { '^(clear|очистить|очистка)$' { 'Clear'; break } '^(dontchange|неизменять|неменять|нет)$' { 'DontChange'; break } default { "$vcRaw" } } } X "$indent`t" X "$indent`t`t$(Esc-Xml "$name")" X "$indent`t`t$(Esc-Xml "$dp")" X "$indent`t`t$vc" X "$indent`t" } X "$indent" } function Emit-Attribute { param([string]$indent, $parsed, [string]$context) # $context: "catalog", "document", "object", "processor", "tabular", "processor-tabular", "register" $attrName = $parsed.name $ctxReserved = $script:reservedByContext[$context] if ($ctxReserved) { foreach ($en in $ctxReserved) { $ru = $script:reservedAttrNames[$en] if (($attrName -ieq $en) -or ($ru -and $attrName -ieq $ru)) { Write-Error "Имя реквизита '$attrName' зарезервировано стандартным реквизитом ($en/$ru) объекта '$context'. Выберите другое имя." exit 1 } } } elseif ($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" X "$indent`t" X "$indent`t`t$(Esc-Xml $parsed.name)" Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym if ($parsed.comment) { X "$indent`t`t$(Esc-XmlText $parsed.comment)" } else { X "$indent`t`t" } # Type $typeStr = $parsed.type if ($typeStr) { Emit-ValueType "$indent`t`t" $typeStr } else { # Default: unqualified string X "$indent`t`t" X "$indent`t`t`txs:string" X "$indent`t`t" } $pwMode = if ($parsed.passwordMode -eq $true) { "true" } else { "false" } X "$indent`t`t$pwMode" Emit-MLText "$indent`t`t" "Format" $parsed.format Emit-MLText "$indent`t`t" "EditFormat" $parsed.editFormat Emit-MLText "$indent`t`t" "ToolTip" $parsed.tooltip X "$indent`t`tfalse" if ($parsed.mask) { X "$indent`t`t$(Esc-XmlText $parsed.mask)" } else { X "$indent`t`t" } $multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" } X "$indent`t`t$multiLine" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" # FillFromFillingValue — not for tabular/processor/chart/register-other # (Chart*, AccumulationRegister/AccountingRegister/CalculationRegister don't support these) if ($context -notin @("tabular", "processor", "chart", "register-other")) { $ffv = if ($parsed.fillFromFillingValue -eq $true) { "true" } else { "false" } X "$indent`t`t$ffv" } # FillValue — same restriction if ($context -notin @("tabular", "processor", "chart", "register-other")) { Emit-FillValue "$indent`t`t" $typeStr $parsed.fillValue $parsed.hasFillValue } # FillChecking $fillChecking = "DontCheck" if ($parsed.flags -contains "req") { $fillChecking = "ShowError" } if ($parsed.fillChecking) { $fillChecking = $parsed.fillChecking } X "$indent`t`t$fillChecking" X "$indent`t`tItems" Emit-ChoiceParameterLinks "$indent`t`t" $parsed.choiceParameterLinks Emit-ChoiceParameters "$indent`t`t" $parsed.choiceParameters $qc = if ($parsed.quickChoice) { $parsed.quickChoice } else { "Auto" } X "$indent`t`t$qc" $coi = if ($parsed.createOnInput) { $parsed.createOnInput } else { "Auto" } X "$indent`t`t$coi" X "$indent`t`t" Emit-LinkByType "$indent`t`t" $parsed.linkByType $chi = if ($parsed.choiceHistoryOnInput) { $parsed.choiceHistoryOnInput } else { "Auto" } X "$indent`t`t$chi" # Use — only for catalog top-level attributes if ($context -eq "catalog") { $use = if ($parsed.use) { $parsed.use } else { "ForItem" } X "$indent`t`t$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" $fts = if ($parsed.fullTextSearch) { $parsed.fullTextSearch } else { "Use" } X "$indent`t`t$fts" # DataHistory — not for Chart* types and non-InformationRegister register family if ($context -notin @("chart", "register-other")) { $dh = if ($parsed.dataHistory) { $parsed.dataHistory } else { "Use" } X "$indent`t`t$dh" } } X "$indent`t" X "$indent" } # --- 8b. Command emitter --- # $cmd — объект свойств команды. Поля (omit-on-default): synonym/tooltip (ML), comment, group, # commandParameterType (тип), parameterUseMode (Single), modifiesData (false), representation (Auto), # picture, shortcut, onMainServerUnavalableBehavior (Auto). function Emit-Command { param([string]$indent, [string]$cmdName, $cmd) X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $cmdName)" $syn = if ($null -ne $cmd.synonym) { $cmd.synonym } else { Split-CamelCase $cmdName } Emit-MLText "$indent`t`t" "Synonym" $syn if ($cmd.comment) { X "$indent`t`t$(Esc-XmlText "$($cmd.comment)")" } else { X "$indent`t`t" } $group = if ($cmd.group) { "$($cmd.group)" } else { "" } X "$indent`t`t$group" if ($cmd.commandParameterType) { X "$indent`t`t" Emit-TypeContent "$indent`t`t`t" "$($cmd.commandParameterType)" X "$indent`t`t" } else { X "$indent`t`t" } $pum = if ($cmd.parameterUseMode) { "$($cmd.parameterUseMode)" } else { "Single" } X "$indent`t`t$pum" $md = if ($cmd.modifiesData -eq $true) { "true" } else { "false" } X "$indent`t`t$md" $rep = if ($cmd.representation) { "$($cmd.representation)" } else { "Auto" } X "$indent`t`t$rep" Emit-MLText "$indent`t`t" "ToolTip" $cmd.tooltip if ($cmd.picture) { X "$indent`t`t$(Esc-Xml "$($cmd.picture)")" } else { X "$indent`t`t" } if ($cmd.shortcut) { X "$indent`t`t$(Esc-Xml "$($cmd.shortcut)")" } else { X "$indent`t`t" } $osu = if ($cmd.onMainServerUnavalableBehavior) { "$($cmd.onMainServerUnavalableBehavior)" } else { "Auto" } X "$indent`t`t$osu" X "$indent`t" X "$indent" } # --- 9. TabularSection emitter --- function Emit-TabularSection { param([string]$indent, [string]$tsName, $columns, [string]$objectType, [string]$objectName, $tsSynonymArg = $null, $tsTooltip = $null, $tsComment = $null) $uuid = New-Guid-String X "$indent" # InternalInfo for TabularSection $typePrefix = "${objectType}TabularSection" $rowPrefix = "${objectType}TabularSectionRow" X "$indent`t" X "$indent`t`t" X "$indent`t`t`t$(New-Guid-String)" X "$indent`t`t`t$(New-Guid-String)" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t`t$(New-Guid-String)" X "$indent`t`t`t$(New-Guid-String)" X "$indent`t`t" X "$indent`t" $tsSynonym = if ($null -ne $tsSynonymArg) { $tsSynonymArg } else { Split-CamelCase $tsName } X "$indent`t" X "$indent`t`t$(Esc-Xml $tsName)" Emit-MLText "$indent`t`t" "Synonym" $tsSynonym if ($tsComment) { X "$indent`t`t$(Esc-XmlText $tsComment)" } else { X "$indent`t`t" } Emit-MLText "$indent`t`t" "ToolTip" $tsTooltip X "$indent`t`tDontCheck" Emit-TabularStandardAttributes "$indent`t`t" # Use=ForItem only for Catalog tabular sections (Document does not have Use) if ($objectType -eq "Catalog") { X "$indent`t`tForItem" } X "$indent`t" $tsContext = if ($objectType -in @("DataProcessor","Report")) { "processor-tabular" } else { "tabular" } X "$indent`t" foreach ($col in $columns) { $parsed = Parse-AttributeShorthand $col Emit-Attribute "$indent`t`t" $parsed $tsContext } X "$indent`t" X "$indent" } # --- 10. EnumValue emitter --- function Emit-EnumValue { param([string]$indent, $parsed) $uuid = New-Guid-String X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $parsed.name)" Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym X "$indent`t`t" X "$indent`t" X "$indent" } # --- 11. Dimension emitter --- function Emit-Dimension { param([string]$indent, $parsed, [string]$registerType) # $registerType: "InformationRegister" or "AccumulationRegister" $uuid = New-Guid-String X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $parsed.name)" Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym X "$indent`t`t" $typeStr = $parsed.type if ($typeStr) { Emit-ValueType "$indent`t`t" $typeStr } else { X "$indent`t`t" X "$indent`t`t`txs:string" X "$indent`t`t" } X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" $multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" } X "$indent`t`t$multiLine" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" # InformationRegister dimensions have FillFromFillingValue if ($registerType -eq "InformationRegister") { $fillFrom = if ($parsed.flags -contains "master") { "true" } else { "false" } X "$indent`t`t$fillFrom" X "$indent`t`t" } $fillChecking = "DontCheck" if ($parsed.flags -contains "req") { $fillChecking = "ShowError" } X "$indent`t`t$fillChecking" X "$indent`t`tItems" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`tAuto" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" # 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" X "$indent`t`t$mainFilter" X "$indent`t`t$denyIncomplete" } # AccumulationRegister dimensions: DenyIncompleteValues if ($registerType -eq "AccumulationRegister") { $denyIncomplete = if ($parsed.flags -contains "denyincomplete") { "true" } else { "false" } X "$indent`t`t$denyIncomplete" } $indexing = "DontIndex" if ($parsed.flags -contains "index") { $indexing = "Index" } X "$indent`t`t$indexing" X "$indent`t`tUse" # AccumulationRegister dimensions: UseInTotals if ($registerType -eq "AccumulationRegister") { $useInTotals = if ($parsed.flags -contains "nouseintotals") { "false" } else { "true" } X "$indent`t`t$useInTotals" } # InformationRegister dimensions: DataHistory if ($registerType -eq "InformationRegister") { X "$indent`t`tUse" } X "$indent`t" X "$indent" } # --- 12. Resource emitter --- function Emit-Resource { param([string]$indent, $parsed, [string]$registerType) $uuid = New-Guid-String X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $parsed.name)" Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym X "$indent`t`t" $typeStr = $parsed.type if ($typeStr) { Emit-ValueType "$indent`t`t" $typeStr } else { X "$indent`t`t" X "$indent`t`t`txs:decimal" X "$indent`t`t`t" X "$indent`t`t`t`t15" X "$indent`t`t`t`t2" X "$indent`t`t`t`tAny" X "$indent`t`t`t" X "$indent`t`t" } X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" $multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" } X "$indent`t`t$multiLine" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" # InformationRegister resources have FillFromFillingValue, FillValue if ($registerType -eq "InformationRegister") { X "$indent`t`tfalse" X "$indent`t`t" } $fillChecking = "DontCheck" if ($parsed.flags -contains "req") { $fillChecking = "ShowError" } X "$indent`t`t$fillChecking" X "$indent`t`tItems" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`tAuto" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" # InformationRegister resources: Indexing, FullTextSearch, DataHistory if ($registerType -eq "InformationRegister") { X "$indent`t`tDontIndex" X "$indent`t`tUse" X "$indent`t`tUse" } # AccumulationRegister resources: FullTextSearch (no Indexing, no DataHistory) if ($registerType -eq "AccumulationRegister") { X "$indent`t`tUse" } X "$indent`t" X "$indent" } # --- 13. Property emitters per type --- function Emit-CatalogProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym if ($def.comment) { X "$i$(Esc-XmlText $def.comment)" } else { X "$i" } $hierarchical = if ($def.hierarchical -eq $true) { "true" } else { "false" } $hierarchyType = Get-EnumProp "HierarchyType" "hierarchyType" "HierarchyFoldersAndItems" X "$i$hierarchical" X "$i$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" X "$i$levelCount" X "$i$foldersOnTop" $useStdCmds = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmds" if ($def.owners -and $def.owners.Count -gt 0) { X "$i" foreach ($ownerRef in $def.owners) { $fullRef = if ("$ownerRef" -match '\.') { "$ownerRef" } else { "Catalog.$ownerRef" } X "$i`t$fullRef" } X "$i" } else { X "$i" } $subordinationUse = Get-EnumProp "SubordinationUse" "subordinationUse" "ToItems" X "$i$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" X "$i$descriptionLength" X "$i$codeType" X "$i$codeAllowedLength" $codeSeries = Get-EnumProp "CodeSeries" "codeSeries" "WholeCatalog" X "$i$codeSeries" X "$i$checkUnique" X "$i$autonumbering" $defaultPresentation = Get-EnumProp "DefaultPresentation" "defaultPresentation" "AsDescription" X "$i$defaultPresentation" Emit-StandardAttributes $i "Catalog" X "$i" X "$i$(Get-EnumProp 'PredefinedDataUpdate' 'predefinedDataUpdate' 'Auto')" X "$i$(Get-EnumProp 'EditType' 'editType' 'InDialog')" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } $choiceMode = Get-EnumProp "ChoiceMode" "choiceMode" "BothWays" X "$i$quickChoice" X "$i$choiceMode" X "$i" X "$i`tCatalog.$objName.StandardAttribute.Description" X "$i`tCatalog.$objName.StandardAttribute.Code" X "$i" X "$i$(Get-EnumProp 'SearchStringModeOnInputByString' 'searchStringModeOnInputByString' 'Begin')" X "$iDontUse" X "$iDirectly" Emit-FormRef $i "DefaultObjectForm" $def.defaultObjectForm Emit-FormRef $i "DefaultFolderForm" $def.defaultFolderForm Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "DefaultChoiceForm" $def.defaultChoiceForm Emit-FormRef $i "DefaultFolderChoiceForm" $def.defaultFolderChoiceForm Emit-FormRef $i "AuxiliaryObjectForm" $def.auxiliaryObjectForm Emit-FormRef $i "AuxiliaryFolderForm" $def.auxiliaryFolderForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-FormRef $i "AuxiliaryChoiceForm" $def.auxiliaryChoiceForm Emit-FormRef $i "AuxiliaryFolderChoiceForm" $def.auxiliaryFolderChoiceForm $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" X "$i" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ObjectPresentation" $def.objectPresentation Emit-MLText $i "ExtendedObjectPresentation" $def.extendedObjectPresentation Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$i$(Get-EnumProp 'CreateOnInput' 'createOnInput' 'Use')" X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-DocumentProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$i" $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" X "$i$numberLength" X "$i$numberAllowedLength" X "$i$numberPeriodicity" X "$i$checkUnique" X "$i$autonumbering" Emit-StandardAttributes $i "Document" X "$i" X "$i" X "$i" X "$i`tDocument.$objName.StandardAttribute.Number" X "$i" X "$iDontUse" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" $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" X "$i$realTimePosting" X "$i$registerRecordsDeletion" X "$i$registerRecordsWritingOnPost" X "$i$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" foreach ($rr in $regRecords) { X "$i`t$rr" } X "$i" } else { X "$i" } X "$i$postInPrivilegedMode" X "$i$unpostInPrivilegedMode" X "$ifalse" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ObjectPresentation" $def.objectPresentation Emit-MLText $i "ExtendedObjectPresentation" $def.extendedObjectPresentation Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-EnumProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$ifalse" Emit-StandardAttributes $i "Enum" X "$i" $quickChoice = if ($def.quickChoice -eq $false) { "false" } else { "true" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iAuto" } function Emit-ConstantProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" # Type $valueType = Build-TypeStr $def if (-not $valueType) { $valueType = "String" } Emit-ValueType $i $valueType X "$itrue" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$ifalse" X "$ifalse" X "$i" X "$i" X "$iDontCheck" X "$iItems" X "$i" X "$i" X "$iAuto" X "$i" X "$i" X "$iAuto" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-InformationRegisterProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$iInDialog" X "$i" X "$i" X "$i" X "$i" 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$periodicity" X "$i$writeMode" X "$i$mainFilterOnPeriod" X "$ifalse" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$ifalse" X "$ifalse" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-AccumulationRegisterProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$i" X "$i" $registerType = Get-EnumProp "RegisterType" "registerType" "Balance" X "$i$registerType" X "$ifalse" Emit-StandardAttributes $i "AccumulationRegister" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" $enableTotalsSplitting = if ($def.enableTotalsSplitting -eq $false) { "false" } else { "true" } X "$i$enableTotalsSplitting" X "$i" X "$i" X "$i" } # --- 13a. Wave 1: DefinedType, CommonModule, ScheduledJob, EventSubscription --- function Emit-DefinedTypeProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" # 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" foreach ($vt in $valueTypes) { $resolved = Resolve-TypeStr "$vt" if ($resolved -match '^(CatalogRef|DocumentRef|EnumRef|ChartOfAccountsRef|ChartOfCharacteristicTypesRef|ChartOfCalculationTypesRef|ExchangePlanRef|BusinessProcessRef|TaskRef)\.') { X "$i`td5p1:$resolved" } elseif ($resolved -eq "Boolean") { X "$i`txs:boolean" } elseif ($resolved -match '^String') { X "$i`txs:string" X "$i`t" X "$i`t`t0" X "$i`t`tVariable" X "$i`t" } else { X "$i`tcfg:$resolved" } } X "$i" } else { X "$i" } } function Emit-CommonModuleProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" # 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" X "$i$clientManaged" X "$i$server" X "$i$externalConnection" X "$i$clientOrdinary" X "$i$serverCall" X "$i$privileged" $returnValuesReuse = Get-EnumProp "ReturnValuesReuse" "returnValuesReuse" "DontUse" X "$i$returnValuesReuse" } function Emit-ScheduledJobProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" $methodName = if ($def.methodName) { "$($def.methodName)" } else { "" } # Ensure CommonModule. prefix if ($methodName -and -not $methodName.StartsWith("CommonModule.")) { $methodName = "CommonModule.$methodName" } X "$i$(Esc-Xml $methodName)" # $synonym может быть {ru,en}; здесь Description — плоская строка, берём ru-текст. $description = if ($def.description) { "$($def.description)" } elseif ($synonym -is [string]) { $synonym } else { "" } X "$i$(Esc-Xml $description)" $key = if ($def.key) { "$($def.key)" } else { "" } X "$i$(Esc-Xml $key)" $use = if ($def.use -eq $true) { "true" } else { "false" } X "$i$use" $predefined = if ($def.predefined -eq $true) { "true" } else { "false" } X "$i$predefined" $restartCount = if ($null -ne $def.restartCountOnFailure) { "$($def.restartCountOnFailure)" } else { "3" } $restartInterval = if ($null -ne $def.restartIntervalOnFailure) { "$($def.restartIntervalOnFailure)" } else { "10" } X "$i$restartCount" X "$i$restartInterval" } function Emit-EventSubscriptionProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" # Source — array of v8:Type $sources = @() if ($def.source) { $sources = @($def.source) } if ($sources.Count -gt 0) { X "$i" foreach ($src in $sources) { $resolved = Resolve-TypeStr "$src" X "$i`td5p1:$resolved" } X "$i" } else { X "$i" } $event = if ($def.event) { "$($def.event)" } else { "BeforeWrite" } X "$i$event" $handler = if ($def.handler) { "$($def.handler)" } else { "" } # Ensure CommonModule. prefix if ($handler -and -not $handler.StartsWith("CommonModule.")) { $handler = "CommonModule.$handler" } X "$i$(Esc-Xml $handler)" } # --- 13b. Wave 2: Report, DataProcessor --- function Emit-ReportProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $defaultForm = if ($def.defaultForm) { "$($def.defaultForm)" } else { "" } if ($defaultForm) { X "$i$defaultForm" } else { X "$i" } $auxForm = if ($def.auxiliaryForm) { "$($def.auxiliaryForm)" } else { "" } if ($auxForm) { X "$i$auxForm" } else { X "$i" } $mainDCS = if ($def.mainDataCompositionSchema) { "$($def.mainDataCompositionSchema)" } else { "" } if ($mainDCS) { X "$i$mainDCS" } else { X "$i" } $defSettings = if ($def.defaultSettingsForm) { "$($def.defaultSettingsForm)" } else { "" } if ($defSettings) { X "$i$defSettings" } else { X "$i" } $auxSettings = if ($def.auxiliarySettingsForm) { "$($def.auxiliarySettingsForm)" } else { "" } if ($auxSettings) { X "$i$auxSettings" } else { X "$i" } $defVariant = if ($def.defaultVariantForm) { "$($def.defaultVariantForm)" } else { "" } if ($defVariant) { X "$i$defVariant" } else { X "$i" } X "$i" X "$i" X "$ifalse" X "$i" X "$i" } function Emit-DataProcessorProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$ifalse" $defaultForm = if ($def.defaultForm) { "$($def.defaultForm)" } else { "" } if ($defaultForm) { X "$i$defaultForm" } else { X "$i" } $auxForm = if ($def.auxiliaryForm) { "$($def.auxiliaryForm)" } else { "" } if ($auxForm) { X "$i$auxForm" } else { X "$i" } X "$ifalse" X "$i" X "$i" } # --- 13c. Wave 3: ExchangePlan, ChartOfCharacteristicTypes, DocumentJournal --- function Emit-ExchangePlanProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $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" X "$i$codeAllowedLength" X "$i$descriptionLength" X "$iAsDescription" X "$iInDialog" Emit-StandardAttributes $i "ExchangePlan" $distributed = if ($def.distributedInfoBase -eq $true) { "true" } else { "false" } $includeExt = if ($def.includeConfigurationExtensions -eq $true) { "true" } else { "false" } X "$i$distributed" X "$i$includeExt" X "$i" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i`tExchangePlan.$objName.StandardAttribute.Description" X "$i`tExchangePlan.$objName.StandardAttribute.Code" X "$i" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ObjectPresentation" $def.objectPresentation Emit-MLText $i "ExtendedObjectPresentation" $def.extendedObjectPresentation Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$iDontUse" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-ChartOfCharacteristicTypesProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $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" X "$i$codeAllowedLength" X "$i$descriptionLength" X "$i$checkUnique" X "$i$autonumbering" X "$iAsDescription" # CharacteristicExtValues $charExtValues = if ($def.characteristicExtValues) { "$($def.characteristicExtValues)" } else { "" } if ($charExtValues) { X "$i$charExtValues" } else { X "$i" } # Type — composite type of allowed characteristic value types $valueTypes = @() if ($def.valueTypes) { $valueTypes = @($def.valueTypes) } if ($valueTypes.Count -gt 0) { X "$i" foreach ($vt in $valueTypes) { Emit-TypeContent "$i`t" "$vt" } X "$i" } else { X "$i" X "$i`txs:boolean" X "$i`txs:string" X "$i`t" X "$i`t`t100" X "$i`t`tVariable" X "$i`t" X "$i`txs:decimal" X "$i`t" X "$i`t`t15" X "$i`t`t2" X "$i`t`tAny" X "$i`t" X "$i`txs:dateTime" X "$i`t" X "$i`t`tDateTime" X "$i`t" X "$i" } $hierarchical = if ($def.hierarchical -eq $true) { "true" } else { "false" } X "$i$hierarchical" X "$itrue" Emit-StandardAttributes $i "ChartOfCharacteristicTypes" X "$i" X "$iAuto" X "$iInDialog" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i`tChartOfCharacteristicTypes.$objName.StandardAttribute.Description" X "$i`tChartOfCharacteristicTypes.$objName.StandardAttribute.Code" X "$i" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ObjectPresentation" $def.objectPresentation Emit-MLText $i "ExtendedObjectPresentation" $def.extendedObjectPresentation Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$iDontUse" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-DocumentJournalProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" $defaultForm = if ($def.defaultForm) { "$($def.defaultForm)" } else { "" } if ($defaultForm) { X "$i$defaultForm" } else { X "$i" } $auxForm = if ($def.auxiliaryForm) { "$($def.auxiliaryForm)" } else { "" } if ($auxForm) { X "$i$auxForm" } else { X "$i" } X "$itrue" # RegisteredDocuments $regDocs = @() if ($def.registeredDocuments) { $regDocs = @($def.registeredDocuments) } if ($regDocs.Count -gt 0) { X "$i" 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$rdStr" } X "$i" } else { X "$i" } Emit-StandardAttributes $i "DocumentJournal" X "$i" X "$i" X "$i" } # --- 13d. Wave 4: ChartOfAccounts, AccountingRegister, ChartOfCalculationTypes, CalculationRegister --- function Emit-ChartOfAccountsProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" # ExtDimensionTypes $extDimTypes = if ($def.extDimensionTypes) { "$($def.extDimensionTypes)" } else { "" } if ($extDimTypes) { X "$i$extDimTypes" } else { X "$i" } $maxExtDim = if ($null -ne $def.maxExtDimensionCount) { "$($def.maxExtDimensionCount)" } else { "3" } X "$i$maxExtDim" $codeMask = if ($def.codeMask) { "$($def.codeMask)" } else { "" } if ($codeMask) { X "$i$codeMask" } else { X "$i" } $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" X "$i$descriptionLength" X "$i$codeSeries" X "$ifalse" X "$iAsDescription" X "$i$autoOrder" X "$i$orderLength" X "$iInDialog" Emit-StandardAttributes $i "ChartOfAccounts" # StandardTabularSections — ExtDimensionTypes X "$i" X "$i`t" X "$i`t`t" foreach ($stAttr in @("TurnoversOnly","Predefined","ExtDimensionType","LineNumber")) { Emit-StandardAttribute "$i`t`t`t" $stAttr } X "$i`t`t" X "$i`t" X "$i" X "$i" X "$iAuto" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i`tChartOfAccounts.$objName.StandardAttribute.Description" X "$i`tChartOfAccounts.$objName.StandardAttribute.Code" X "$i" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ObjectPresentation" $def.objectPresentation Emit-MLText $i "ExtendedObjectPresentation" $def.extendedObjectPresentation Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$iDontUse" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-AccountingRegisterProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$i" X "$i" $chartOfAccounts = if ($def.chartOfAccounts) { "$($def.chartOfAccounts)" } else { "" } if ($chartOfAccounts) { X "$i$chartOfAccounts" } else { X "$i" } $correspondence = if ($def.correspondence -eq $true) { "true" } else { "false" } X "$i$correspondence" $periodAdjLen = if ($null -ne $def.periodAdjustmentLength) { "$($def.periodAdjustmentLength)" } else { "0" } X "$i$periodAdjLen" X "$ifalse" Emit-StandardAttributes $i "AccountingRegister" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" } function Emit-ChartOfCalculationTypesProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $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" X "$i$codeType" X "$i$codeAllowedLength" X "$i$descriptionLength" X "$iAsDescription" $dependence = Get-EnumProp "DependenceOnCalculationTypes" "dependenceOnCalculationTypes" "DontUse" X "$i$dependence" # BaseCalculationTypes $baseTypes = @() if ($def.baseCalculationTypes) { $baseTypes = @($def.baseCalculationTypes) } if ($baseTypes.Count -gt 0) { X "$i" foreach ($bt in $baseTypes) { X "$i`t$bt" } X "$i" } else { X "$i" } $actionPeriodUse = if ($def.actionPeriodUse -eq $true) { "true" } else { "false" } X "$i$actionPeriodUse" Emit-StandardAttributes $i "ChartOfCalculationTypes" X "$i" X "$iAuto" X "$iInDialog" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i`tChartOfCalculationTypes.$objName.StandardAttribute.Description" X "$i`tChartOfCalculationTypes.$objName.StandardAttribute.Code" X "$i" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ObjectPresentation" $def.objectPresentation Emit-MLText $i "ExtendedObjectPresentation" $def.extendedObjectPresentation Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$iDontUse" X "$iAuto" } function Emit-CalculationRegisterProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$i" X "$i" $chartOfCalcTypes = if ($def.chartOfCalculationTypes) { "$($def.chartOfCalculationTypes)" } else { "" } if ($chartOfCalcTypes) { X "$i$chartOfCalcTypes" } else { X "$i" } $periodicity = Get-EnumProp "InformationRegisterPeriodicity" "periodicity" "Month" X "$i$periodicity" $actionPeriod = if ($def.actionPeriod -eq $true) { "true" } else { "false" } X "$i$actionPeriod" $basePeriod = if ($def.basePeriod -eq $true) { "true" } else { "false" } X "$i$basePeriod" $schedule = if ($def.schedule) { "$($def.schedule)" } else { "" } if ($schedule) { X "$i$schedule" } else { X "$i" } $scheduleValue = if ($def.scheduleValue) { "$($def.scheduleValue)" } else { "" } if ($scheduleValue) { X "$i$scheduleValue" } else { X "$i" } $scheduleDate = if ($def.scheduleDate) { "$($def.scheduleDate)" } else { "" } if ($scheduleDate) { X "$i$scheduleDate" } else { X "$i" } X "$ifalse" Emit-StandardAttributes $i "CalculationRegister" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" } # --- 13e. Wave 5: BusinessProcess, Task --- function Emit-BusinessProcessProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $editType = Get-EnumProp "EditType" "editType" "InDialog" X "$i$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" X "$i$numberLength" X "$i$numberAllowedLength" X "$i$checkUnique" X "$i$autonumbering" Emit-StandardAttributes $i "BusinessProcess" X "$i" $task = if ($def.task) { "$($def.task)" } else { "" } if ($task) { X "$i$task" } else { X "$i" } X "$i" X "$i" X "$i`tBusinessProcess.$objName.StandardAttribute.Number" X "$i" X "$iDontUse" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ObjectPresentation" $def.objectPresentation Emit-MLText $i "ExtendedObjectPresentation" $def.extendedObjectPresentation Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-TaskProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $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" X "$i$numberLength" X "$i$numberAllowedLength" X "$i$checkUnique" X "$i$autonumbering" X "$i$taskNumberAutoPrefix" X "$i$descriptionLength" # Addressing $addressing = if ($def.addressing) { "$($def.addressing)" } else { "" } if ($addressing) { X "$i$addressing" } else { X "$i" } $mainAddressing = if ($def.mainAddressingAttribute) { "$($def.mainAddressingAttribute)" } else { "" } if ($mainAddressing) { X "$i$mainAddressing" } else { X "$i" } $currentPerformer = if ($def.currentPerformer) { "$($def.currentPerformer)" } else { "" } if ($currentPerformer) { X "$i$currentPerformer" } else { X "$i" } Emit-StandardAttributes $i "Task" X "$i" X "$i" X "$i" X "$i`tTask.$objName.StandardAttribute.Number" X "$i" X "$iDontUse" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ObjectPresentation" $def.objectPresentation Emit-MLText $i "ExtendedObjectPresentation" $def.extendedObjectPresentation Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } # --- 13f. Wave 6: HTTPService, WebService --- function Emit-HTTPServiceProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" $rootURL = if ($def.rootURL) { "$($def.rootURL)" } else { $objName.ToLower() } X "$i$(Esc-Xml $rootURL)" $reuseSessions = Get-EnumProp "ReuseSessions" "reuseSessions" "DontUse" X "$i$reuseSessions" $sessionMaxAge = if ($null -ne $def.sessionMaxAge) { "$($def.sessionMaxAge)" } else { "20" } X "$i$sessionMaxAge" } function Emit-WebServiceProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" $namespace = if ($def.namespace) { "$($def.namespace)" } else { "" } X "$i$(Esc-Xml $namespace)" $xdtoPackages = if ($def.xdtoPackages) { "$($def.xdtoPackages)" } else { "" } if ($xdtoPackages) { X "$i$xdtoPackages" } else { X "$i" } $reuseSessions = Get-EnumProp "ReuseSessions" "reuseSessions" "DontUse" X "$i$reuseSessions" $sessionMaxAge = if ($null -ne $def.sessionMaxAge) { "$($def.sessionMaxAge)" } else { "20" } X "$i$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" X "$indent`t" X "$indent`t`t$(Esc-Xml $name)" Emit-MLText "$indent`t`t" "Synonym" $synonym X "$indent`t`t" X "$indent`t`t$indexing" if ($references.Count -gt 0) { X "$indent`t`t" foreach ($ref in $references) { X "$indent`t`t`t$ref" } X "$indent`t`t" } else { X "$indent`t`t" } X "$indent`t" X "$indent" } function Emit-AccountingFlag { param([string]$indent, [string]$flagName) $uuid = New-Guid-String $flagSynonym = Split-CamelCase $flagName X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $flagName)" Emit-MLText "$indent`t`t" "Synonym" $flagSynonym X "$indent`t`t" X "$indent`t`t" X "$indent`t`t`txs:boolean" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tDontCheck" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t" X "$indent" } function Emit-ExtDimensionAccountingFlag { param([string]$indent, [string]$flagName) $uuid = New-Guid-String $flagSynonym = Split-CamelCase $flagName X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $flagName)" Emit-MLText "$indent`t`t" "Synonym" $flagSynonym X "$indent`t`t" X "$indent`t`t" X "$indent`t`t`txs:boolean" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tDontCheck" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t" X "$indent" } 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" X "$indent`t" X "$indent`t`t$(Esc-Xml $tmplName)" Emit-MLText "$indent`t`t" "Synonym" $tmplSynonym X "$indent`t`t" X "$indent`t" if ($methods.Count -gt 0) { X "$indent`t" foreach ($methodName in $methods.Keys) { $methodUuid = New-Guid-String $httpMethod = $methods[$methodName] $methodSynonym = Split-CamelCase $methodName $handler = "${tmplName}${methodName}" X "$indent`t`t" X "$indent`t`t`t" X "$indent`t`t`t`t$(Esc-Xml $methodName)" Emit-MLText "$indent`t`t`t`t" "Synonym" $methodSynonym X "$indent`t`t`t`t$httpMethod" X "$indent`t`t`t`t$(Esc-Xml $handler)" X "$indent`t`t`t" X "$indent`t`t" } X "$indent`t" } else { X "$indent`t" } X "$indent" } 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" X "$indent`t" X "$indent`t`t$(Esc-Xml $opName)" Emit-MLText "$indent`t`t" "Synonym" $opSynonym X "$indent`t`t" X "$indent`t`t$returnType" X "$indent`t`t$nillable" X "$indent`t`t$transactioned" X "$indent`t`t$(Esc-Xml $handler)" X "$indent`t" if ($params.Count -gt 0) { X "$indent`t" 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" X "$indent`t`t`t" X "$indent`t`t`t`t$(Esc-Xml $paramName)" Emit-MLText "$indent`t`t`t`t" "Synonym" $paramSynonym X "$indent`t`t`t`t$paramType" X "$indent`t`t`t`t$paramNillable" X "$indent`t`t`t`t$paramDir" X "$indent`t`t`t" X "$indent`t`t" } X "$indent`t" } else { X "$indent`t" } X "$indent" } 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" X "$indent`t" X "$indent`t`t$(Esc-Xml $name)" Emit-MLText "$indent`t`t" "Synonym" $attrSynonym X "$indent`t`t" if ($typeStr) { Emit-ValueType "$indent`t`t" $typeStr } else { X "$indent`t`t" X "$indent`t`t`txs:string" X "$indent`t`t" } if ($addressingDimension) { X "$indent`t`t$addressingDimension" } else { X "$indent`t`t" } X "$indent`t`t$indexing" X "$indent`t`tUse" X "$indent`t`tUse" X "$indent`t" X "$indent" } # --- 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 ']+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 '' X "" X "`t<$objType uuid=`"$uuid`">" # InternalInfo Emit-InternalInfo "`t`t" $objType $objName # Properties X "`t`t" 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" # 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) { # Значение ТЧ: массив колонок (синоним авто) ЛИБО объект {attributes/columns, synonym, tooltip, comment}. # Нормализуем в $tsSections[name] = @{ columns; synonym; tooltip; comment }. function New-TsEntry { param($val) if ($val -is [array] -or $val.GetType().Name -eq 'Object[]') { return @{ columns = @($val); synonym = $null; tooltip = $null; comment = $null } } $cols = if ($val.attributes) { @($val.attributes) } elseif ($val.columns) { @($val.columns) } else { @() } return @{ columns = $cols; synonym = $val.synonym; tooltip = $val.tooltip; comment = if ($val.comment) { "$($val.comment)" } else { $null } } } if ($def.tabularSections -is [array] -or $def.tabularSections.GetType().Name -eq "Object[]") { foreach ($ts in $def.tabularSections) { $tsSections[$ts.name] = New-TsEntry $ts } } else { $def.tabularSections.PSObject.Properties | ForEach-Object { $tsSections[$_.Name] = New-TsEntry $_.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) } # Commands (map имя→объект ИЛИ array [{name,...}]) — генерируем блок + CommandModule.bsl-заготовку. $commands = @() if ($def.commands) { if ($def.commands -is [array] -or $def.commands.GetType().Name -eq 'Object[]') { foreach ($c in $def.commands) { $commands += @{ name = "$($c.name)"; def = $c } } } else { $def.commands.PSObject.Properties | ForEach-Object { $commands += @{ name = $_.Name; def = $_.Value } } } } $childCount = $attrs.Count + $tsSections.Count + $acctFlags.Count + $extDimFlags.Count + $addrAttrs.Count + $commands.Count if ($childCount -gt 0) { $hasChildren = $true X "`t`t" $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) { $tsE = $tsSections[$tsName] Emit-TabularSection "`t`t`t" $tsName $tsE.columns $objType $objName $tsE.synonym $tsE.tooltip $tsE.comment } 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 } foreach ($cmd in $commands) { Emit-Command "`t`t`t" $cmd.name $cmd.def } X "`t`t" } else { X "`t`t" } } # --- 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" foreach ($v in $values) { Emit-EnumValue "`t`t`t" $v } X "`t`t" } else { X "`t`t" } } # --- 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" 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" } else { X "`t`t" } } # --- DocumentJournal: columns --- if ($objType -eq "DocumentJournal") { $columns = @() if ($def.columns) { $columns = @($def.columns) } if ($columns.Count -gt 0) { $hasChildren = $true X "`t`t" foreach ($col in $columns) { Emit-Column "`t`t`t" $col } X "`t`t" } else { X "`t`t" } } # --- 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" foreach ($tmplName in $urlTemplates.Keys) { Emit-URLTemplate "`t`t`t" $tmplName $urlTemplates[$tmplName] } X "`t`t" } else { X "`t`t" } } # --- 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" foreach ($opName in $operations.Keys) { Emit-Operation "`t`t`t" $opName $operations[$opName] } X "`t`t" } else { X "`t`t" } } # --- CommonModule: no ChildObjects --- X "`t" X "" $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 # --- Predefined data (Ext/Predefined.xml) --- # Элемент DSL: строка "(Код) Имя [Наименование]" ЛИБО объект (+ русские синонимы ключей). # Наименование: нет [..]/ключа → авто(Split-CamelCase Имени); [] / "" → пусто; [текст]/текст → как есть. function Resolve-PredefItem { param($val) if ($val -is [string]) { $m = [regex]::Match($val, '^\s*(?:\(([^)]*)\)\s*)?(\S+)(?:\s*\[(.*)\])?\s*$') $name = $m.Groups[2].Value $code = if ($m.Groups[1].Success) { $m.Groups[1].Value } else { '' } $desc = if ($m.Groups[3].Success) { $m.Groups[3].Value } else { Split-CamelCase $name } return @{ name = $name; code = $code; desc = $desc; isFolder = $false; children = @() } } # Объектная форма + русские синонимы (прощающий ввод). $gv = { param($o, [string[]]$keys) foreach ($k in $keys) { if ($o.PSObject.Properties[$k]) { return $o.$k } } return $null } $name = "$(& $gv $val @('name','имя'))" $codeV = & $gv $val @('code','код') $code = if ($null -ne $codeV) { "$codeV" } else { '' } $hasDesc = $val.PSObject.Properties['description'] -or $val.PSObject.Properties['наименование'] $descV = & $gv $val @('description','наименование') $desc = if ($hasDesc) { "$descV" } else { Split-CamelCase $name } # ключа нет → авто; '' → пусто $folderV = & $gv $val @('isFolder','группа') $isFolder = ($folderV -eq $true) $subs = & $gv $val @('childItems','подчиненные') return @{ name = $name; code = $code; desc = $desc; isFolder = $isFolder; children = @(if ($subs) { $subs } else { @() }) } } function Emit-PredefItem { param($sb, $val, [string]$indent, [string]$codeType) $r = Resolve-PredefItem $val [void]$sb.Append("$indent`n") [void]$sb.Append("$indent`t$(Esc-XmlText $r.name)`n") if (-not $r.code) { [void]$sb.Append("$indent`t`n") } elseif ($codeType -eq 'Number') { [void]$sb.Append("$indent`t$(Esc-XmlText $r.code)`n") } else { [void]$sb.Append("$indent`t$(Esc-XmlText $r.code)`n") } if ($r.desc -eq '') { [void]$sb.Append("$indent`t`n") } else { [void]$sb.Append("$indent`t$(Esc-XmlText $r.desc)`n") } [void]$sb.Append("$indent`t$(if ($r.isFolder) { 'true' } else { 'false' })`n") if ($r.children.Count -gt 0) { [void]$sb.Append("$indent`t`n") foreach ($c in $r.children) { Emit-PredefItem $sb $c "$indent`t`t" $codeType } [void]$sb.Append("$indent`t`n") } [void]$sb.Append("$indent`n") } function Build-PredefinedXml { param($items, [string]$xsiType, [string]$codeType) $sb = New-Object System.Text.StringBuilder [void]$sb.Append("`n") [void]$sb.Append("`n") foreach ($it in $items) { Emit-PredefItem $sb $it "`t" $codeType } [void]$sb.Append("`n") return $sb.ToString() } $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 = "`r`n`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 = "`r`n`r`n" [System.IO.File]::WriteAllText($flowchartPath, $flowchartXml, $enc) $modulesCreated += $flowchartPath } } # Предопределённые элементы (Ext/Predefined.xml) — пока Catalog. Пусто/нет ключа → файл не создаём. if ($objType -eq "Catalog" -and $def.predefined -and @($def.predefined).Count -gt 0) { Ensure-ExtDir $catCodeType = if ($def.codeType) { "$($def.codeType)" } else { 'String' } $predefXml = Build-PredefinedXml @($def.predefined) "CatalogPredefinedItems" $catCodeType $predefPath = Join-Path $extDir "Predefined.xml" [System.IO.File]::WriteAllText($predefPath, $predefXml, $enc) $modulesCreated += $predefPath } # Модули команд (Commands/<Имя>/Ext/CommandModule.bsl) — заготовка обработчика. if ($commands -and $commands.Count -gt 0) { $cmdModuleStub = "&НаКлиенте`r`nПроцедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)`r`n`r`n`t// Вставьте обработчик команды.`r`n`r`nКонецПроцедуры`r`n" foreach ($cmd in $commands) { $cmdDir = Join-Path (Join-Path (Join-Path $objSubDir "Commands") $cmd.name) "Ext" if (-not (Test-Path $cmdDir)) { New-Item -ItemType Directory -Path $cmdDir -Force | Out-Null } $cmdModPath = Join-Path $cmdDir "CommandModule.bsl" [System.IO.File]::WriteAllText($cmdModPath, $cmdModuleStub, $enc) $modulesCreated += $cmdModPath } } # --- 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 added to ChildObjects" } "already" { Write-Host " Configuration.xml: <$childTag>$objName already registered" } "no-childobj" { Write-Warning "Configuration.xml found but 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`"" } }