# meta-compile v1.65 — 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" "ФункциональнаяОпция" = "FunctionalOption" } # 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","WholeCharacteristicKind","WholeChartOfAccounts") "ChoiceMode" = @("BothWays","QuickChoice","FromForm") "CreateOnInput" = @("Auto","Use","DontUse") "ChoiceHistoryOnInput" = @("Auto","DontUse") "PredefinedDataUpdate" = @("Auto","DontAutoUpdate","AutoUpdate") "SearchStringModeOnInputByString"= @("Begin","AnyPart") "FullTextSearchOnInputByString" = @("Use","DontUse") "Category" = @("NavigationPanel","ActionsPanel","FormCommandBar","FormNavigationPanel") } # --- Группы команд объекта (командный интерфейс) --- # Группы командного интерфейса РАЗДЕЛА (панель навигации/действий): команда БЕЗ параметра. Группы формы: параметр доступен. $script:sectionCommandGroups = @( "NavigationPanelImportant","NavigationPanelOrdinary","NavigationPanelSeeAlso", "ActionsPanelCreate","ActionsPanelReports","ActionsPanelTools" ) $script:formCommandGroups = @( "FormCommandBarImportant","FormCommandBarCreateBasedOn", "FormNavigationPanelImportant","FormNavigationPanelGoTo","FormNavigationPanelSeeAlso" ) $script:validCommandGroups = $script:sectionCommandGroups + $script:formCommandGroups # Прощающий ввод: русские подписи групп → канон $script:commandGroupAliases = @{ "Панель навигации.Важное" = "NavigationPanelImportant" "Панель навигации.Обычное" = "NavigationPanelOrdinary" "Панель навигации.См. также" = "NavigationPanelSeeAlso" "Панель действий.Создать" = "ActionsPanelCreate" "Панель действий.Отчеты" = "ActionsPanelReports" "Панель действий.Отчёты" = "ActionsPanelReports" "Панель действий.Сервис" = "ActionsPanelTools" "Командная панель формы.Важное" = "FormCommandBarImportant" "Командная панель формы.Создать на основании" = "FormCommandBarCreateBasedOn" "Панель навигации формы.Важное" = "FormNavigationPanelImportant" "Панель навигации формы.Перейти" = "FormNavigationPanelGoTo" "Панель навигации формы.См. также" = "FormNavigationPanelSeeAlso" } # Резолв группы команды: рус-синоним → канон; ГруппаКоманд.X → CommandGroup.X; пусто → ошибка с подсказкой. function Resolve-CommandGroup { param([string]$raw, [string]$cmdName) $g = "$raw".Trim() if (-not $g) { Write-Error "Команде '$cmdName' не задана группа (group). 1С требует группу. Валидные: $($script:validCommandGroups -join ', '); либо CommandGroup.<Имя> — кастомная группа." exit 1 } if ($script:commandGroupAliases.ContainsKey($g)) { return $script:commandGroupAliases[$g] } if ($g -match '^(?:CommandGroup|ГруппаКоманд)\.(.+)$') { return "CommandGroup.$($Matches[1])" } return $g } 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/>" } } # Ссылка verbatim (без Normalize-FormRef): для форм/схем/хранилищ Report/DataProcessor, где имя формы может быть # буквально «Форма» (Normalize-FormRef перевёл бы имя-сегмент Форма→Form, испортив ссылку) либо ref не-форменного # вида (SettingsStorage.X / Report.X.Template.Y). Декомпилятор пишет полный путь → passthrough. function Emit-VerbatimRef { param([string]$i, [string]$tag, $val) if ($val) { X "$i<$tag>$(Esc-Xml "$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","FunctionalOption", "Sequence","FilterCriterion","DocumentNumerator","SettingsStorage","CommonForm", "SessionParameter","CommonCommand","CommandGroup","CommonAttribute","FunctionalOptionsParameter","WSReference", "CommonPicture","CommonTemplate") 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') # Лоуэркейзим хвост, СОХРАНЯЯ аббревиатуры (зеркало эвристики платформы): максимальный прогон # заглавных длиной >=2, если сразу за ним НЕ буква (пробел/цифра/спецсимвол/конец) — остаётся заглавным # (НДС, ЕГАИС, ОС, ЭП). Прилипшие предлоги (СКлиентами) и бренды (ЮКасса) идут перед буквой → лоуэркейз. # Первый символ строки — как есть. if ($result.Length -gt 1) { $chars = $result.ToCharArray() $n = $chars.Length $keep = New-Object 'bool[]' $n $i = 0 while ($i -lt $n) { if ([char]::IsUpper($chars[$i])) { $j = $i while ($j -lt $n -and [char]::IsUpper($chars[$j])) { $j++ } $afterBoundary = ($j -eq $n) -or (-not [char]::IsLetter($chars[$j])) if (($j - $i) -ge 2 -and $afterBoundary) { for ($k = $i; $k -lt $j; $k++) { $keep[$k] = $true } } $i = $j } else { $i++ } } $sb = New-Object System.Text.StringBuilder for ($idx = 0; $idx -lt $n; $idx++) { $c = $chars[$idx] if ($idx -eq 0 -or $keep[$idx]) { [void]$sb.Append($c) } elseif ([char]::IsUpper($c)) { [void]$sb.Append([char]::ToLower($c)) } else { [void]$sb.Append($c) } } $result = $sb.ToString() } 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["время"] = "Time" $script:typeSynonyms["time"] = "Time" $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" # Платформенные типы, требующие префикса v8: (коллекции/периоды, частые в реквизитах обработок/отчётов). $script:v8PlatformTypes = @("ValueTable","ValueTree","ValueList","ValueListType","StandardPeriod", "StandardBeginningDate","PointInTime","TypeDescription","FixedArray","FixedMap","FixedStructure") # Типы со ВЫДЕЛЕННЫМ пространством имён (локальный xmlns на ). prefix — канон корпуса # (dcsset/mxl — семантические из корневых деклараций 1С; chart — генерируемый dNpM, любой подойдёт). $script:typeNamespaceMap = @{ "Chart" = @{ ns = "http://v8.1c.ru/8.2/data/chart"; prefix = "d5p1" } "SettingsComposer" = @{ ns = "http://v8.1c.ru/8.1/data-composition-system/settings"; prefix = "dcsset" } "SpreadsheetDocument" = @{ ns = "http://v8.1c.ru/8.2/data/spreadsheet"; prefix = "mxl" } } # Типы current-config пространства (cfg:, объявлено в корне): объектные (CatalogObject.X/DataProcessorObject.X/…) # и голые (ConstantsSet/ReportBuilder). Ссылочные (*Ref.X/DefinedType.X) идут ОТДЕЛЬНО через локальный d5p1 (§memory). $script:cfgBareTypes = @("ConstantsSet", "ReportBuilder", "FilterCriterion") $script:cfgObjectKinds = @("Catalog","Document","Enum","ChartOfAccounts","ChartOfCharacteristicTypes", "ChartOfCalculationTypes","ExchangePlan","BusinessProcess","Task","InformationRegister","AccumulationRegister", "AccountingRegister","CalculationRegister","DataProcessor","Report","DocumentJournal","Constant","ConstantValue","Sequence","Recalculation") $script:typeSynonyms["таблицазначений"] = "ValueTable" $script:typeSynonyms["деревозначений"] = "ValueTree" $script:typeSynonyms["списокзначений"] = "ValueListType" $script:typeSynonyms["стандартныйпериод"] = "StandardPeriod" # 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) or String(N,fixed|variable) — AllowedLength: Variable дефолт / Fixed (фикс. длина). if ($typeStr -match '^String(\((\d+)(\s*,\s*(fixed|variable))?\))?$') { $len = if ($Matches[2]) { $Matches[2] } else { "10" } $al = if ($Matches[4] -and $Matches[4].ToLower() -eq 'fixed') { 'Fixed' } else { 'Variable' } X "$indentxs:string" X "$indent" X "$indent`t$len" X "$indent`t$al" 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 / Time — общая структура xs:dateTime + DateFractions (различаются лишь составом). if ($typeStr -match '^(Date|DateTime|Time)$') { X "$indentxs:dateTime" X "$indent" X "$indent`t$typeStr" X "$indent" return } # TypeSet — тип-множество: ОпределяемыйТип (DefinedType) ИЛИ Характеристика ПВХ (Characteristic). if ($typeStr -match '^(DefinedType|Characteristic)\.(.+)$') { X "$indentcfg:$typeStr" return } # Голый метатип-категория (CatalogRef/DocumentRef/…/AnyRef/AnyIBRef без имени объекта) — множество # «любой объект категории» → TypeSet (а не конкретный Type с именем). if ($typeStr -match '^(CatalogRef|DocumentRef|EnumRef|ChartOfAccountsRef|ChartOfCharacteristicTypesRef|ChartOfCalculationTypesRef|ExchangePlanRef|BusinessProcessRef|TaskRef|AnyRef|AnyIBRef)$') { 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 } # Платформенные типы-коллекции/периоды (ТаблицаЗначений/ДеревоЗначений/СписокЗначений/StandardPeriod/…) — # канон с префиксом v8: (декомпилятор снимает префикс через Strip-NsPrefix, компилятор возвращает). if ($script:v8PlatformTypes -contains $typeStr) { X "$indentv8:$typeStr" return } # Типы с выделенным пространством имён (Chart/SettingsComposer/SpreadsheetDocument) — локальный xmlns. if ($script:typeNamespaceMap.ContainsKey($typeStr)) { $m = $script:typeNamespaceMap[$typeStr] X "$indent$($m.prefix):$typeStr" return } # Типы current-config (cfg:): голые (ConstantsSet/…) и объектные (CatalogObject.X/DataProcessorObject.X/…). if ($script:cfgBareTypes -contains $typeStr) { X "$indentcfg:$typeStr" return } if ($typeStr -match '^(\w+)(Object|List|Manager|Selection|RecordSet|RecordKey|RecordManager)\.(.+)$' -and $script:cfgObjectKinds -contains $Matches[1]) { X "$indentcfg:$typeStr" return } # Голый объектный метатип (без имени) — напр. в Source подписки на событие: # - Object/RecordSet → «любой объект категории» = TypeSet cfg: (множество); # - Manager/List/Selection/RecordKey/RecordManager → сам тип менеджера/списка = Type cfg: (единичный). # ConstantValueManager (голый) — исключение: множество менеджеров значений констант = TypeSet (прочие *Manager → Type). if (($typeStr -match '^(\w+)(Object|RecordSet)$' -and $script:cfgObjectKinds -contains $Matches[1]) -or $typeStr -eq 'ConstantValueManager') { X "$indentcfg:$typeStr" return } if ($typeStr -match '^(\w+)(Manager|List|Selection|RecordKey|RecordManager)$' -and $script:cfgObjectKinds -contains $Matches[1]) { X "$indentcfg:$typeStr" return } # Reference types — use local xmlns declaration for 1C compatibility if ($typeStr -match '^(CatalogRef|DocumentRef|EnumRef|ChartOfAccountsRef|ChartOfCharacteristicTypesRef|ChartOfCalculationTypesRef|ExchangePlanRef|BusinessProcessRef|BusinessProcessRoutePointRef|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','ложь','нет') # Прощающий ввод MDObjectRef-путей (Location/Content функц. опции, registerRecords и т.п.): русские корни # метаданных + подвиды → английские. Виды стоят на ЧЁТНЫХ позициях (0,2,4…), имена (нечётные) не трогаем. # Английские пути проходят без изменений (в мапе только русские ключи) → роундтрип byte-exact сохраняется. $script:mdRefRoots = @{ 'справочник'='Catalog'; 'документ'='Document'; 'перечисление'='Enum'; 'константа'='Constant'; 'регистрсведений'='InformationRegister'; 'регистрнакопления'='AccumulationRegister'; 'регистрбухгалтерии'='AccountingRegister'; 'регистррасчета'='CalculationRegister'; 'регистррасчёта'='CalculationRegister'; 'плансчетов'='ChartOfAccounts'; 'планвидовхарактеристик'='ChartOfCharacteristicTypes'; 'планвидоврасчета'='ChartOfCalculationTypes'; 'планвидоврасчёта'='ChartOfCalculationTypes'; 'планобмена'='ExchangePlan'; 'бизнеспроцесс'='BusinessProcess'; 'задача'='Task'; 'журналдокументов'='DocumentJournal'; 'отчет'='Report'; 'отчёт'='Report'; 'обработка'='DataProcessor'; 'табличнаячасть'='TabularSection'; 'реквизит'='Attribute'; 'измерение'='Dimension'; 'ресурс'='Resource'; 'стандартныйреквизит'='StandardAttribute'; 'значениеперечисления'='EnumValue'; 'команда'='Command'; 'признакучета'='AccountingFlag'; 'признакучёта'='AccountingFlag' } function Normalize-MDObjectRef { param([string]$ref) if (-not $ref -or -not $ref.Contains('.')) { return $ref } $parts = $ref -split '\.' for ($k = 0; $k -lt $parts.Count; $k += 2) { $t = $script:mdRefRoots[$parts[$k].ToLower()] if ($t) { $parts[$k] = $t } } return ($parts -join '.') } # Значения платформенного перечисления ВидСчета (ent:AccountType) — FillValue стандартного реквизита Тип у Плана счетов. $script:accountTypeValues = @('Active','Passive','ActivePassive') # 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, [bool]$typeEmpty = $false) # Пустой (реквизит без типа) → форма пустого значения nil (как составной/ссылочный), НЕ xs:string: # у бестипового реквизита нет типизированного «пустого» значения. $cat = if ($typeEmpty) { 'Other' } else { 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.nil -eq $true) { X "$indent"; return } # явный nil на типизированном (маркер декомпилятора) if ($spec.emptyRef -eq $true) { X "$indent"; return } # пустая ссылка (маркер декомпилятора) 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 = "" typeEmpty = $false 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 # Явный `type: ""` (ключ присутствует, значение пустое) ≠ отсутствие типа: означает пустой # (реквизит без типа / произвольный). Отличаем present-"" от absent через $null-проверку (PSCustomObject). typeEmpty = ($null -ne $val.type -and "$($val.type)".Trim() -eq '' -and -not $val.valueType) 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 { "" } extendedEdit = if ($val.extendedEdit -eq $true) { $true } else { $false } markNegatives = if ($val.markNegatives -eq $true) { $true } else { $false } choiceForm = if ($val.choiceForm) { "$($val.choiceForm)" } else { "" } choiceFoldersAndItems = if ($val.choiceFoldersAndItems) { "$($val.choiceFoldersAndItems)" } else { "" } minValue = $val.minValue maxValue = $val.maxValue 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 master = if ($val.master -eq $true) { $true } else { $false } mainFilter = if ($val.mainFilter -eq $true) { $true } else { $false } denyIncompleteValues = if ($val.denyIncompleteValues -eq $true) { $true } else { $false } useInTotals = if ($null -ne $val.useInTotals) { ($val.useInTotals -eq $true) } else { $true } baseDimension = if ($val.baseDimension -eq $true) { $true } else { $false } scheduleLink = $val.scheduleLink balance = if ($val.balance -eq $true) { $true } else { $false } accountingFlag = $val.accountingFlag extDimensionAccountingFlag = $val.extDimensionAccountingFlag addressingDimension = $val.addressingDimension } } 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 ($null -ne $val.synonym) { $val.synonym } else { Split-CamelCase $name } # строка ИЛИ {ru,en} → Emit-MLText 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 = "Characteristic"; category = "Characteristic" } @{ prefix = "ChartOfCharacteristicTypesManager"; category = "Manager" } ) "ChartOfCalculationTypes" = @( @{ prefix = "ChartOfCalculationTypesObject"; category = "Object" } @{ prefix = "ChartOfCalculationTypesRef"; category = "Ref" } @{ prefix = "ChartOfCalculationTypesSelection"; category = "Selection" } @{ prefix = "ChartOfCalculationTypesList"; category = "List" } @{ prefix = "ChartOfCalculationTypesManager"; category = "Manager" } @{ prefix = "DisplacingCalculationTypes"; category = "DisplacingCalculationTypes" } @{ prefix = "DisplacingCalculationTypesRow"; category = "DisplacingCalculationTypesRow" } @{ prefix = "BaseCalculationTypes"; category = "BaseCalculationTypes" } @{ prefix = "BaseCalculationTypesRow"; category = "BaseCalculationTypesRow" } @{ prefix = "LeadingCalculationTypes"; category = "LeadingCalculationTypes" } @{ prefix = "LeadingCalculationTypesRow"; category = "LeadingCalculationTypesRow" } ) "BusinessProcess" = @( @{ prefix = "BusinessProcessObject"; category = "Object" } @{ prefix = "BusinessProcessRef"; category = "Ref" } @{ prefix = "BusinessProcessSelection"; category = "Selection" } @{ prefix = "BusinessProcessList"; category = "List" } @{ prefix = "BusinessProcessManager"; category = "Manager" } @{ prefix = "BusinessProcessRoutePointRef"; category = "RoutePointRef" } ) "Task" = @( @{ prefix = "TaskObject"; category = "Object" } @{ prefix = "TaskRef"; category = "Ref" } @{ prefix = "TaskSelection"; category = "Selection" } @{ prefix = "TaskList"; category = "List" } @{ prefix = "TaskManager"; category = "Manager" } ) "ExchangePlan" = @( @{ prefix = "ExchangePlanObject"; category = "Object" } @{ prefix = "ExchangePlanRef"; category = "Ref" } @{ prefix = "ExchangePlanSelection"; category = "Selection" } @{ prefix = "ExchangePlanList"; category = "List" } @{ prefix = "ExchangePlanManager"; category = "Manager" } ) "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" } ) "Sequence" = @( @{ prefix = "SequenceRecord"; category = "Record" } @{ prefix = "SequenceManager"; category = "Manager" } @{ prefix = "SequenceRecordSet"; category = "RecordSet" } ) "FilterCriterion" = @( @{ prefix = "FilterCriterionManager"; category = "Manager" } @{ prefix = "FilterCriterionList"; category = "List" } ) "SettingsStorage" = @( @{ prefix = "SettingsStorageManager"; category = "Manager" } ) "WSReference" = @( @{ prefix = "WSReferenceManager"; 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","Order","OffBalance","Type","Description","Code","Parent","Predefined","DeletionMark","Ref") "ChartOfCharacteristicTypes" = @("PredefinedDataName","Predefined","Ref","DeletionMark","Description","Code","Parent","ValueType") "ChartOfCalculationTypes" = @("PredefinedDataName","Predefined","Ref","DeletionMark","ActionPeriodIsBasic","Description","Code") "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" } } # ExchangePlan: Наименование/Код → FillChecking=ShowError (корпус 40/38 из 41). "ExchangePlan" = @{ "Description" = @{ FillChecking = "ShowError" } "Code" = @{ FillChecking = "ShowError" } } # ChartOfCharacteristicTypes: Наименование → FillChecking=ShowError (21/23), Родитель → FFV=true (23/23). "ChartOfCharacteristicTypes" = @{ "Description" = @{ FillChecking = "ShowError" } "Parent" = @{ FillFromFillingValue = "true" } } # ChartOfAccounts: Наименование/Код → FillChecking=ShowError (3/3), Родитель → FFV=true (3/3). Тип (АктивПассив) # и FillValue Родителя (self EmptyRef) кастомизируются пообъектно → захват override, не профиль. "ChartOfAccounts" = @{ "Description" = @{ FillChecking = "ShowError" } "Code" = @{ FillChecking = "ShowError" } "Parent" = @{ FillFromFillingValue = "true" } } # ChartOfCalculationTypes: Наименование → FillChecking=ShowError (Код здесь DontCheck). "ChartOfCalculationTypes" = @{ "Description" = @{ FillChecking = "ShowError" } } # Document: Дата → FillChecking=ShowError (974/1010 доков acc+erp; дата обязательна). "Document" = @{ "Date" = @{ 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' '' $cf = OvOr 'ChoiceForm' '' $cmt = OvOr 'Comment' '' $msk = OvOr 'Mask' '' $fmt = OvOr 'Format' $null $efmt = OvOr 'EditFormat' $null $chi = OvOr 'ChoiceHistoryOnInput' 'Auto' X "$indent" # LinkByType стандартного реквизита (напр. ExtDimensionN→Account у регистра бухгалтерии). DataPath verbatim (полный). $lbt = OvOr 'LinkByType' $null if ($lbt) { $lbtDp = if ($lbt.dataPath) { "$($lbt.dataPath)" } else { "$lbt" } $lbtLi = if ($null -ne $lbt.linkItem) { $lbt.linkItem } else { 0 } X "$indent`t" X "$indent`t`t$(Esc-Xml $lbtDp)" X "$indent`t`t$lbtLi" X "$indent`t" } else { 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" Emit-MLText "$indent`t" "xr:Format" $fmt if ($cf) { X "$indent`t$(Esc-Xml "$cf")" } else { X "$indent`t" } X "$indent`tAuto" X "$indent`t$chi" Emit-MLText "$indent`t" "xr:EditFormat" $efmt X "$indent`tfalse" X "$indent`t$dh" X "$indent`tfalse" X "$indent`t" Emit-MLText "$indent`t" "xr:Synonym" $syn if ($cmt) { X "$indent`t$(Esc-XmlText "$cmt")" } else { X "$indent`t" } X "$indent`t$fts" Emit-ChoiceParameterLinks "$indent`t" (OvOr 'ChoiceParameterLinks' $null) 'xr:ChoiceParameterLinks' # FillValue: дефолт nil; override-значение → типизированное (Normalize-ChoiceValue: DTR-путь/строка/bool). $fvRaw = OvOr 'FillValue' $null if ($null -eq $fvRaw) { X "$indent`t" } elseif ($fvRaw.emptyRef -eq $true) { X "$indent`t" } elseif ($fvRaw.typeDescription -eq $true) { X "$indent`t" } # пустое типизированное (ValueType ПВХ) else { $fvN = Normalize-ChoiceValue $fvRaw if ([string]::IsNullOrEmpty($fvN.Text)) { X "$indent`t" } else { X "$indent`t$(Esc-Xml $fvN.Text)" } } if ($msk) { X "$indent`t$(Esc-XmlText "$msk")" } else { X "$indent`t" } Emit-ChoiceParameters "$indent`t" (OvOr 'ChoiceParameters' $null) 'xr:ChoiceParameters' X "$indent" } # Единый эмиттер блока StandardAttributes — поведение правят ДАННЫЕ, не форк кода: # - stdAttrConditionalTypes: типы, где блок материализуется платформой ТОЛЬКО при кастомизации # ≥1 стандартного реквизита → в DSL это наличие ключа `standardAttributes`. Нет ключа → блок опущен. # Прочие типы (не в множестве) → блок эмитится всегда (текущее поведение, пока их правило не выведено). # - stdAttrProfile[тип]: профиль материализованного блока (пусто = schema-дефолт), поверх — DSL-override. # Миграция типа = добавить его в stdAttrConditionalTypes + stdAttrProfile и переснять снэпшоты; КОД НЕ ТРОГАЕМ. $script:stdAttrConditionalTypes = @('Catalog', 'ExchangePlan', 'ChartOfCharacteristicTypes', 'ChartOfAccounts', 'ChartOfCalculationTypes', 'Document') 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 } # условный тип без кастомизации → блока нет if ($sa -is [string] -and $sa -eq '') { return } # opt-out `standardAttributes:""` (дом-конвенция суппресса, ~5% регистров опускают all-default блок — правило не выводимо) $profile = $script:stdAttrProfile[$objectType]; if (-not $profile) { $profile = @{} } # Доп. (опциональные) стандартные реквизиты вне фикс-списка типа — напр. ExchangeDate у части ПланОбмена # (легаси, присутствие не выводится из свойств). Эмитим по факту наличия ключа в DSL, ПЕРЕД фикс-списком (их позиция). $extra = @() if ($sa) { foreach ($k in $sa.PSObject.Properties.Name) { if ($attrs -notcontains $k) { $extra += $k } } } X "$indent" foreach ($a in ($extra + $attrs)) { $ov = @{} if ($profile.ContainsKey($a)) { foreach ($k in $profile[$a].Keys) { $ov[$k] = $profile[$a][$k] } } if ($sa) { # DSL-override применяем всегда при наличии ключа (для не-условных типов тоже, напр. ExchangePlan) $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)" } if ($null -ne $d.fillValue) { $ov['FillValue'] = $d.fillValue } # DTR-путь/строка/bool if ($null -ne $d.choiceParameterLinks) { $ov['ChoiceParameterLinks'] = $d.choiceParameterLinks } if ($null -ne $d.choiceParameters) { $ov['ChoiceParameters'] = $d.choiceParameters } if ($d.comment) { $ov['Comment'] = "$($d.comment)" } if ($d.mask) { $ov['Mask'] = "$($d.mask)" } if ($null -ne $d.format) { $ov['Format'] = $d.format } # строка ИЛИ {ru,en} if ($null -ne $d.editFormat) { $ov['EditFormat'] = $d.editFormat } if ($d.choiceForm) { $ov['ChoiceForm'] = "$($d.choiceForm)" } if ($null -ne $d.linkByType) { $ov['LinkByType'] = $d.linkByType } } } Emit-StandardAttribute "$indent`t" $a $ov } X "$indent" } # TabularSection standard attributes (единственный — LineNumber/НомерСтроки). Блок эмитится всегда (платформа # опускает его лишь у редкого хвоста ТЧ — правило не выведено, см. WORKFLOW). DSL `lineNumber` на объектной форме ТЧ # переопределяет свойства (synonym/comment/fullTextSearch/tooltip/format/editFormat/choiceHistoryOnInput). function Emit-TabularStandardAttributes { param([string]$indent, $lineNumber = $null) $ov = $null if ($lineNumber) { $ov = @{} if ($null -ne $lineNumber.synonym) { $ov['Synonym'] = $lineNumber.synonym } if ($lineNumber.comment) { $ov['Comment'] = "$($lineNumber.comment)" } if ($lineNumber.fullTextSearch) { $ov['FullTextSearch'] = "$($lineNumber.fullTextSearch)" } if ($null -ne $lineNumber.tooltip) { $ov['ToolTip'] = $lineNumber.tooltip } if ($null -ne $lineNumber.format) { $ov['Format'] = $lineNumber.format } if ($null -ne $lineNumber.editFormat) { $ov['EditFormat'] = $lineNumber.editFormat } if ($lineNumber.choiceHistoryOnInput) { $ov['ChoiceHistoryOnInput'] = "$($lineNumber.choiceHistoryOnInput)" } if ($null -ne $lineNumber.fillValue) { $ov['FillValue'] = $lineNumber.fillValue } } X "$indent" Emit-StandardAttribute "$indent`t" "LineNumber" $ov 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") } # Стандартный реквизит текущего типа по имени (EN/RU) → EN-имя, либо $null (обычный/неизвестный). function Resolve-StdAttrEn { param([string]$name) $ctx = switch ("$objType") { 'Catalog' { 'catalog' } 'Document' { 'document' } default { $null } } if (-not $ctx) { return $null } $stdSet = $script:reservedByContext[$ctx] foreach ($en in $stdSet) { $ru = $script:reservedAttrNames[$en] if (($name -ieq $en) -or ($ru -and $name -ieq $ru)) { return $en } } return $null } # Прощающий ввод пути к реквизиту САМОГО объекта (dataPath в linkByType/choiceParameterLinks): # "Ссылка"/"Ref"/станд. → <Тип>.<Имя>.StandardAttribute.; обычное имя → <Тип>.<Имя>.Attribute.<Имя>; # частичное "StandardAttribute.X"/"Attribute.X" → префикс <Тип>.<Имя>; полный путь → verbatim. function Expand-DataPath { param([string]$dp) if (-not $dp) { return $dp } $s = "$dp" if ($s -match '[:/]') { return $s } # спец-путь (напр. 0:GUID/0:GUID в зависимостях ПВХ) — не разворачиваем if ($s -match '^-?\d+$') { return $s } # голый (отрицательный) индекс-маркер (напр. -8 в ChoiceParameterLinks) — verbatim, не имя реквизита if ($s -match '^(StandardAttribute|Attribute)\.') { return "$objType.$objName.$s" } if (-not $s.Contains('.')) { $en = Resolve-StdAttrEn $s if ($en) { return "$objType.$objName.StandardAttribute.$en" } return "$objType.$objName.Attribute.$s" } return $s } # (связь по типу — тип значения реквизита-Характеристики определяется другим реквизитом). # Структура как формы: 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 } $dp = Expand-DataPath $dp X "$indent" X "$indent`t$(Esc-Xml "$dp")" X "$indent`t$li" X "$indent" } # Есть ли ключ в $def (отличаем отсутствие от пустого массива [] = явно пусто). function Test-DefKey { param([string]$name) return ($def.PSObject -and $def.PSObject.Properties -and ($def.PSObject.Properties.Name -contains $name)) } # со списком (InputByString/DataLockFields). $fields — готовые полные пути. Пусто → self-close. function Emit-FieldBlock { param([string]$indent, [string]$tag, $fields) $arr = @($fields | Where-Object { "$_" -ne '' }) if ($arr.Count -eq 0) { X "$indent<$tag/>"; return } X "$indent<$tag>" foreach ($f in $arr) { X "$indent`t$(Esc-Xml "$f")" } X "$indent" } # — «ввод на основании», список MDObjectRef ("Catalog.X"/"Document.Y"). Нет ключа/пусто → self-close. function Emit-BasedOn { param([string]$indent, $items) $arr = @($items | Where-Object { $_ }) if ($arr.Count -eq 0) { X "$indent"; return } X "$indent" foreach ($it in $arr) { X "$indent`t$(Esc-Xml "$it")" } 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 } # Голое значение (без точки) + тип параметра → полный DTR-путь, либо $null. Принимает EnumRef.X / Enum.X / рус. function Expand-ChoiceRefValue { param([string]$value, [string]$typeStr) if (-not $typeStr) { return $null } $t = Resolve-TypeStr $typeStr $root = $null; $tn = $null if ($t -match '^(\w+Ref)\.(.+)$') { $root = $script:fillRefKindRoot[$Matches[1].ToLower()]; $tn = $Matches[2] } elseif ($t -match '^([^.]+)\.(.+)$') { $root = $script:fillRefRoots[$Matches[1].ToLower()]; $tn = $Matches[2] } if (-not $root) { return $null } if ($script:fillEmptyRefWords -contains "$value".ToLower()) { return "$root.$tn.EmptyRef" } if ($root -eq 'Enum') { return "Enum.$tn.EnumValue.$value" } return "$root.$tn.$value" } # Значение параметра выбора → @{XsiType; Text}. $typeStr (тип параметра) разворачивает голые ref-имена. function Normalize-ChoiceValueT { param($value, [string]$typeStr) if ($typeStr -and ($value -is [string]) -and (-not "$value".Contains('.'))) { $ex = Expand-ChoiceRefValue "$value" $typeStr if ($ex) { return @{ XsiType='xr:DesignTimeRef'; Text=$ex } } } return Normalize-ChoiceValue $value } # Значение параметра выбора → @{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 } } if ($script:accountTypeValues -contains $s) { return @{ XsiType='ent:AccountType'; Text=$s } } 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, [string]$tag = 'ChoiceParameters') if (-not $cp -or @($cp).Count -eq 0) { X "$indent<$tag/>"; return } X "$indent<$tag>" foreach ($item in @($cp)) { if ($item -is [string]) { $item = ConvertFrom-ChParamShorthand $item } $name = Get-ChElProp $item @('name','имя') $ptype = Get-ChElProp $item @('type','тип') $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-ChoiceValueT $v $ptype 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-ChoiceValueT $val $ptype 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, [string]$tag = 'ChoiceParameterLinks') if (-not $cpl -or @($cpl).Count -eq 0) { X "$indent<$tag/>"; return } X "$indent<$tag>" foreach ($lk in @($cpl)) { if ($lk -is [string]) { $lk = ConvertFrom-ChLinkShorthand $lk } $name = Get-ChElProp $lk @('name','имя') $dp = Expand-DataPath (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" } # --- Characteristics (привязка ПВХ «Дополнительные реквизиты и сведения») --- # from: рус. корень (Справочник→Catalog) + член (ТабличнаяЧасть→TabularSection); короткая 3-сегментная # "<Тип>.X.Y" → вставить TabularSection (from — всегда таблица, не реквизит). Полный путь → как есть. function Normalize-CharFrom { param([string]$from) if (-not $from) { return $from } $parts = @("$from" -split '\.') if ($script:objectTypeSynonyms.ContainsKey($parts[0])) { $parts[0] = $script:objectTypeSynonyms[$parts[0]] } for ($i = 1; $i -lt $parts.Count; $i++) { switch -Regex ($parts[$i]) { '^ТабличнаяЧасть$' { $parts[$i] = 'TabularSection' } '^Измерение$' { $parts[$i] = 'Dimension' } '^Ресурс$' { $parts[$i] = 'Resource' } '^Реквизит$' { $parts[$i] = 'Attribute' } } } if ($parts.Count -eq 3 -and $parts[0] -in @('Catalog','Document','ChartOfCharacteristicTypes','ChartOfCalculationTypes','ChartOfAccounts','ExchangePlan','BusinessProcess','Task')) { $parts = @($parts[0], $parts[1], 'TabularSection', $parts[2]) } return ($parts -join '.') } # Стандартный реквизит ссылочного типа в полях Characteristics: Ref/Parent/Owner (по имени EN/RU). # Прочие стандартные реквизиты редки в полях — их задают частичной формой StandardAttribute.X. function Resolve-CharStdEn { param([string]$name) $n = "$name".ToLower() if ($n -eq 'ref' -or $n -eq 'ссылка') { return 'Ref' } if ($n -eq 'parent' -or $n -eq 'родитель') { return 'Parent' } if ($n -eq 'owner' -or $n -eq 'владелец') { return 'Owner' } return $null } # Поле: голое→StandardAttribute./Attribute.<имя>; частичное Member.X→.Member.X; полный путь→verbatim. function Expand-CharField { param([string]$field, [string]$from) $s = "$field" if (-not $s) { return $s } if ($s -eq '-1') { return '-1' } # поле не задано (empty-характеристика) — как есть if ($s -match '^(StandardAttribute|Attribute|Dimension|Resource)\.') { return "$from.$s" } if (-not $s.Contains('.')) { $en = Resolve-CharStdEn $s if ($en) { return "$from.StandardAttribute.$en" } return "$from.Attribute.$s" } return $s } # Числовое поле-флаг Characteristics (DataPathField/MultipleValues*) — дефолт -1. function Get-CharIntField { param($obj, [string[]]$names) $v = Get-ChElProp $obj $names; if ($null -eq $v -or "$v" -eq '') { return -1 } return [int]$v } function Emit-Characteristics { param([string]$indent, $chars) if (-not $chars -or @($chars).Count -eq 0) { X "$indent"; return } X "$indent" foreach ($ch in @($chars)) { $types = Get-ChElProp $ch @('types','characteristicTypes','типы') $values = Get-ChElProp $ch @('values','characteristicValues','значения') $tFrom = Normalize-CharFrom "$(Get-ChElProp $types @('from','source','источник'))" $vFrom = Normalize-CharFrom "$(Get-ChElProp $values @('from','source','источник'))" $key = Expand-CharField "$(Get-ChElProp $types @('key','keyField'))" $tFrom $tff = Expand-CharField "$(Get-ChElProp $types @('filterField','typesFilterField'))" $tFrom $obj = Expand-CharField "$(Get-ChElProp $values @('object','objectField'))" $vFrom $typ = Expand-CharField "$(Get-ChElProp $values @('type','typeField'))" $vFrom $val = Expand-CharField "$(Get-ChElProp $values @('value','valueField'))" $vFrom # числовые поля-флаги (обычно -1; иногда 0) $dpf = Get-CharIntField $types @('dataPathField') $mvu = Get-CharIntField $types @('multipleValuesUseField') $mvk = Get-CharIntField $values @('multipleValuesKeyField') $mvo = Get-CharIntField $values @('multipleValuesOrderField') X "$indent`t" X "$indent`t`t" X "$indent`t`t`t$(Esc-Xml $key)" X "$indent`t`t`t$(Esc-Xml $tff)" # filterValue: $null→nil; голое→xs:string, полный путь→DTR, bool→xs:boolean. $tfvRaw = Get-ChElProp $types @('filterValue','typesFilterValue') if ($null -eq $tfvRaw) { X "$indent`t`t`t" } else { $tfvN = Normalize-ChoiceValue $tfvRaw if ([string]::IsNullOrEmpty($tfvN.Text)) { X "$indent`t`t`t" } else { X "$indent`t`t`t$(Esc-Xml $tfvN.Text)" } } X "$indent`t`t`t$dpf" X "$indent`t`t`t$mvu" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t`t$(Esc-Xml $obj)" X "$indent`t`t`t$(Esc-Xml $typ)" X "$indent`t`t`t$(Esc-Xml $val)" X "$indent`t`t`t$mvk" X "$indent`t`t`t$mvo" X "$indent`t`t" X "$indent`t" } X "$indent" } # / — граница диапазона реквизита. Нет ключа → nil (не задано). Значение типизировано # (зеркало form-compile): число → xs:decimal, строка → xs:string (тип сохранён декомпилятором). function Emit-MinMaxValue { param([string]$indent, [string]$tag, $val) if ($null -eq $val) { X "$indent<$tag xsi:nil=`"true`"/>"; return } $t = if ($val -is [string]) { 'xs:string' } else { 'xs:decimal' } X "$indent<$tag xsi:type=`"$t`">$(Esc-Xml "$val")" } function Emit-Attribute { param([string]$indent, $parsed, [string]$context, [string]$elemTag = "Attribute") # $context: "catalog", "document", "object", "processor", "tabular", "processor-tabular", "register", # "account" (реквизит Плана счетов: как catalog, но без ), "account-flag" (признак учёта ПС: # как account, но без /, тип по умолчанию Boolean; $elemTag = AccountingFlag/ExtDimensionAccountingFlag) $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<$elemTag uuid=`"$uuid`">" 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 ($parsed.typeEmpty) { # Явный пустой тип (реквизит без типа / произвольный) → . X "$indent`t`t" } elseif ($typeStr) { Emit-ValueType "$indent`t`t" $typeStr } elseif ($context -eq "account-flag") { # Признак учёта — по умолчанию Boolean. X "$indent`t`t" X "$indent`t`t`txs:boolean" X "$indent`t`t" } 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`t$(if ($parsed.markNegatives -eq $true) { 'true' } else { 'false' })" 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" $extEdit = if ($parsed.extendedEdit -eq $true) { "true" } else { "false" } X "$indent`t`t$extEdit" Emit-MinMaxValue "$indent`t`t" "MinValue" $parsed.minValue Emit-MinMaxValue "$indent`t`t" "MaxValue" $parsed.maxValue # FillFromFillingValue — not for tabular/processor/chart/register-other/register-accum # (Chart*, AccumulationRegister/AccountingRegister/CalculationRegister don't support these) if ($context -notin @("tabular", "processor", "chart", "register-other", "register-accum", "register-calc", "register-account")) { # Флаг-shorthand `master` у ведущего измерения регистра конвенционально ставит и FillFromFillingValue=true # (эргономика авторинга; декомпилятор пишет key-форму master:true + явный fillFromFillingValue → роундтрип цел). $ffv = if ($parsed.fillFromFillingValue -eq $true -or ($elemTag -eq "Dimension" -and $parsed.flags -contains "master")) { "true" } else { "false" } X "$indent`t`t$ffv" } # FillValue — same restriction if ($context -notin @("tabular", "processor", "chart", "register-other", "register-accum", "register-calc", "register-account")) { Emit-FillValue "$indent`t`t" $typeStr $parsed.fillValue $parsed.hasFillValue ([bool]$parsed.typeEmpty) } # FillChecking $fillChecking = "DontCheck" if ($parsed.flags -contains "req") { $fillChecking = "ShowError" } if ($parsed.fillChecking) { $fillChecking = $parsed.fillChecking } X "$indent`t`t$fillChecking" X "$indent`t`t$(if ($parsed.choiceFoldersAndItems) { "$($parsed.choiceFoldersAndItems)" } else { 'Items' })" 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" if ($parsed.choiceForm) { X "$indent`t`t$(Esc-Xml "$($parsed.choiceForm)")" } else { X "$indent`t`t" } Emit-LinkByType "$indent`t`t" $parsed.linkByType $chi = if ($parsed.choiceHistoryOnInput) { $parsed.choiceHistoryOnInput } else { "Auto" } X "$indent`t`t$chi" # Измерение регистра сведений: Master/MainFilter/DenyIncompleteValues (между ChoiceHistoryOnInput и Indexing). if ($elemTag -eq "Dimension" -and $context -eq "register-info") { $master = if ($parsed.master -eq $true -or $parsed.flags -contains "master") { "true" } else { "false" } $mainFilter = if ($parsed.mainFilter -eq $true -or $parsed.flags -contains "mainfilter") { "true" } else { "false" } $denyIncomplete = if ($parsed.denyIncompleteValues -eq $true -or $parsed.flags -contains "denyincomplete") { "true" } else { "false" } X "$indent`t`t$master" X "$indent`t`t$mainFilter" X "$indent`t`t$denyIncomplete" } # Измерение регистра накопления: DenyIncompleteValues (между ChoiceHistoryOnInput и Indexing). if ($elemTag -eq "Dimension" -and $context -eq "register-accum") { $denyIncomplete = if ($parsed.denyIncompleteValues -eq $true -or $parsed.flags -contains "denyincomplete") { "true" } else { "false" } X "$indent`t`t$denyIncomplete" } # Измерение регистра расчёта: DenyIncompleteValues + BaseDimension (между ChoiceHistoryOnInput и ScheduleLink/Indexing). if ($elemTag -eq "Dimension" -and $context -eq "register-calc") { $denyIncomplete = if ($parsed.denyIncompleteValues -eq $true -or $parsed.flags -contains "denyincomplete") { "true" } else { "false" } $baseDimension = if ($parsed.baseDimension -eq $true -or $parsed.flags -contains "base") { "true" } else { "false" } X "$indent`t`t$denyIncomplete" X "$indent`t`t$baseDimension" } # Регистр расчёта: ScheduleLink у измерений и реквизитов (НЕ ресурсов), перед Indexing. Дефолт пустой. if ($context -eq "register-calc" -and $elemTag -in @("Dimension", "Attribute")) { if ($parsed.scheduleLink) { X "$indent`t`t$(Esc-Xml "$($parsed.scheduleLink)")" } else { X "$indent`t`t" } } # Измерение/ресурс регистра бухгалтерии: Balance + AccountingFlag (ссылка на признак учёта ПС), затем # DenyIncompleteValues (измерение) / ExtDimensionAccountingFlag (ресурс). Всё между ChoiceHistoryOnInput и Indexing. if ($context -eq "register-account" -and $elemTag -in @("Dimension", "Resource")) { $balance = if ($parsed.balance -eq $true -or $parsed.flags -contains "balance") { "true" } else { "false" } X "$indent`t`t$balance" if ($parsed.accountingFlag) { X "$indent`t`t$(Esc-Xml "$($parsed.accountingFlag)")" } else { X "$indent`t`t" } if ($elemTag -eq "Dimension") { $denyIncomplete = if ($parsed.denyIncompleteValues -eq $true -or $parsed.flags -contains "denyincomplete") { "true" } else { "false" } X "$indent`t`t$denyIncomplete" } else { if ($parsed.extDimensionAccountingFlag) { X "$indent`t`t$(Esc-Xml "$($parsed.extDimensionAccountingFlag)")" } else { X "$indent`t`t" } } } # 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")) { # Признаки учёта ПС (account-flag) не имеют /, но имеют . if ($context -ne "account-flag") { # Ресурс регистра накопления/расчёта/бухгалтерии НЕ имеет (только ); измерение/реквизит — имеют. if (-not ($context -in @("register-accum", "register-calc", "register-account") -and $elemTag -eq "Resource")) { $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" } # Реквизит адресации задачи: AddressingDimension (ссылка на измерение регистра исполнителей), между Indexing и FullTextSearch. if ($context -eq "task-addressing" -and $elemTag -eq "AddressingAttribute") { if ($parsed.addressingDimension) { X "$indent`t`t$(Esc-Xml "$($parsed.addressingDimension)")" } else { X "$indent`t`t" } } $fts = if ($parsed.fullTextSearch) { $parsed.fullTextSearch } else { "Use" } X "$indent`t`t$fts" } # Измерение регистра накопления: UseInTotals (после FullTextSearch, дефолт true). if ($elemTag -eq "Dimension" -and $context -eq "register-accum") { $useInTotals = if ($parsed.useInTotals -eq $false -or $parsed.flags -contains "nouseintotals") { "false" } else { "true" } X "$indent`t`t$useInTotals" } # DataHistory — not for Chart* types and non-InformationRegister register family if ($context -notin @("chart", "register-other", "register-accum", "register-calc", "register-account")) { $dh = if ($parsed.dataHistory) { $parsed.dataHistory } else { "Use" } X "$indent`t`t$dh" } } X "$indent`t" X "$indent" } # команды — структурный блок (зеркало form-compile). Дефолт LoadTransparent=true (конвенция # кнопки/команды): фиксируем только false. Значение: строка-ref + sibling `loadTransparent` ЛИБО объект # {src, loadTransparent?, transparentPixel?}. src с префиксом "abs:" → , иначе . Нет → . function Emit-CommandPicture { param([string]$indent, $cmd) $pic = $cmd.picture if (-not $pic) { X "$indent"; return } $src = $null; $lt = $true; $tpx = $null if ($pic -is [string]) { $src = "$pic"; if ($cmd.loadTransparent -eq $false) { $lt = $false } } else { $src = if ($pic.src) { "$($pic.src)" } elseif ($pic.ref) { "$($pic.ref)" } else { "" } if ($pic.loadTransparent -eq $false) { $lt = $false } $tpx = $pic.transparentPixel } if (-not $src) { X "$indent"; return } X "$indent" if ($src -match '^abs:(.*)$') { X "$indent`t$(Esc-Xml $matches[1])" } else { X "$indent`t$(Esc-Xml $src)" } X "$indent`t$(if ($lt) { 'true' } else { 'false' })" if ($tpx) { 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 = Resolve-CommandGroup $cmd.group $cmdName if ($cmd.commandParameterType -and ($script:sectionCommandGroups -contains $group)) { Write-Error "Команда '$cmdName': тип параметра (commandParameterType) недоступен для команд командного интерфейса раздела ('$group'). Тип параметра — только для групп формы (FormCommandBar*/FormNavigationPanel*) или CommandGroup.<Имя>." exit 1 } X "$indent`t`t$(Esc-Xml $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 Emit-CommandPicture "$indent`t`t" $cmd 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, $tsLineNumber = $null, $tsFillChecking = $null, $tsUse = $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 $tsFc = if ($tsFillChecking) { "$tsFillChecking" } else { "DontCheck" } X "$indent`t`t$tsFc" # TS-блок стандартных реквизитов (LineNumber) эмитим ВСЕГДА, кроме подавления `lineNumber: ""` (дом-конвенция # суппресса): ~6% ТЧ исторически опускают блок (правило не выводимо — Товары all-default его имеет, соседи нет). if (-not ($tsLineNumber -is [string] -and $tsLineNumber -eq '')) { Emit-TabularStandardAttributes "$indent`t`t" $tsLineNumber } # Use у ТЧ иерархических ссылочных типов (Catalog, ChartOfCharacteristicTypes); Document не имеет Use. # Дефолт ForItem; ForFolderAndItem/ForFolder — при явном ключе `use` объектной формы ТЧ. if ($objectType -in @("Catalog", "ChartOfCharacteristicTypes")) { $use = if ($tsUse) { "$tsUse" } else { "ForItem" } X "$indent`t`t$use" } 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 if ($parsed.comment) { X "$indent`t`t$(Esc-XmlText $parsed.comment)" } else { 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`t$(if ($parsed.markNegatives -eq $true) { 'true' } else { 'false' })" X "$indent`t`t" $multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" } X "$indent`t`t$multiLine" $extEdit = if ($parsed.extendedEdit -eq $true) { "true" } else { "false" } X "$indent`t`t$extEdit" Emit-MinMaxValue "$indent`t`t" "MinValue" $parsed.minValue Emit-MinMaxValue "$indent`t`t" "MaxValue" $parsed.maxValue # 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`t$(if ($parsed.choiceFoldersAndItems) { "$($parsed.choiceFoldersAndItems)" } else { 'Items' })" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`tAuto" if ($parsed.choiceForm) { X "$indent`t`t$(Esc-Xml "$($parsed.choiceForm)")" } else { 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`t$(if ($parsed.markNegatives -eq $true) { 'true' } else { 'false' })" X "$indent`t`t" $multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" } X "$indent`t`t$multiLine" $extEdit = if ($parsed.extendedEdit -eq $true) { "true" } else { "false" } X "$indent`t`t$extEdit" Emit-MinMaxValue "$indent`t`t" "MinValue" $parsed.minValue Emit-MinMaxValue "$indent`t`t" "MaxValue" $parsed.maxValue # 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`t$(if ($parsed.choiceFoldersAndItems) { "$($parsed.choiceFoldersAndItems)" } else { 'Items' })" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`tAuto" if ($parsed.choiceForm) { X "$indent`t`t$(Esc-Xml "$($parsed.choiceForm)")" } else { 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" Emit-Characteristics $i $def.characteristics 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" # InputByString: override `inputByString` (массив имён, авто-резолв; [] = пусто) ЛИБО дефолт [Descr при D>0]+[Code при C>0]. if (Test-DefKey 'inputByString') { $ibFields = @($def.inputByString | ForEach-Object { Expand-DataPath "$_" }) } else { $ibFields = @() if ([int]$descriptionLength -gt 0) { $ibFields += "Catalog.$objName.StandardAttribute.Description" } if ([int]$codeLength -gt 0) { $ibFields += "Catalog.$objName.StandardAttribute.Code" } } Emit-FieldBlock $i "InputByString" $ibFields X "$i$(Get-EnumProp 'SearchStringModeOnInputByString' 'searchStringModeOnInputByString' 'Begin')" X "$i$(Get-EnumProp 'FullTextSearchOnInputByString' 'fullTextSearchOnInputByString' 'DontUse')" 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" Emit-BasedOn $i $def.basedOn $dlFields = if (Test-DefKey 'dataLockFields') { @($def.dataLockFields | ForEach-Object { Expand-DataPath "$_" }) } else { @() } Emit-FieldBlock $i "DataLockFields" $dlFields $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Managed" 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 if ($def.comment) { X "$i$(Esc-XmlText "$($def.comment)")" } else { X "$i" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" if ($def.numerator) { X "$i$(Esc-Xml "$($def.numerator)")" } else { 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 = Get-EnumProp "NumberPeriodicity" "numberPeriodicity" "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" Emit-Characteristics $i $def.characteristics Emit-BasedOn $i $def.basedOn # InputByString: override `inputByString` ЛИБО дефолт [Номер]. if (Test-DefKey 'inputByString') { $ibFields = @($def.inputByString | ForEach-Object { Expand-DataPath "$_" }) } else { $ibFields = @("Document.$objName.StandardAttribute.Number") } Emit-FieldBlock $i "InputByString" $ibFields X "$i$(Get-EnumProp 'CreateOnInput' 'createOnInput' 'Use')" X "$i$(Get-EnumProp 'SearchStringModeOnInputByString' 'searchStringModeOnInputByString' 'Begin')" X "$i$(Get-EnumProp 'FullTextSearchOnInputByString' 'fullTextSearchOnInputByString' 'DontUse')" X "$iDirectly" Emit-FormRef $i "DefaultObjectForm" $def.defaultObjectForm Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "DefaultChoiceForm" $def.defaultChoiceForm Emit-FormRef $i "AuxiliaryObjectForm" $def.auxiliaryObjectForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-FormRef $i "AuxiliaryChoiceForm" $def.auxiliaryChoiceForm X "$i$(Get-EnumProp 'Posting' 'posting' 'Allow')" X "$i$(Get-EnumProp 'RealTimePosting' 'realTimePosting' 'Deny')" X "$i$(Get-EnumProp 'RegisterRecordsDeletion' 'registerRecordsDeletion' 'AutoDelete')" X "$i$(Get-EnumProp 'RegisterRecordsWritingOnPost' 'registerRecordsWritingOnPost' 'WriteSelected')" X "$i$(Get-EnumProp 'SequenceFilling' 'sequenceFilling' 'AutoFill')" # RegisterRecords — движения (список MDObjectRef, синонимы типов резолвятся). $regRecords = @() if ($def.registerRecords) { foreach ($rr in $def.registerRecords) { $rrStr = "$rr" 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" } $postInPrivilegedMode = if ($def.postInPrivilegedMode -eq $false) { "false" } else { "true" } $unpostInPrivilegedMode = if ($def.unpostInPrivilegedMode -eq $false) { "false" } else { "true" } X "$i$postInPrivilegedMode" X "$i$unpostInPrivilegedMode" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" $dlFields = if (Test-DefKey 'dataLockFields') { @($def.dataLockFields | ForEach-Object { Expand-DataPath "$_" }) } else { @() } Emit-FieldBlock $i "DataLockFields" $dlFields X "$i$(Get-EnumProp 'DataLockControlMode' 'dataLockControlMode' 'Managed')" X "$i$(Get-EnumProp 'FullTextSearch' 'fullTextSearch' 'Use')" 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 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" X "$i$(Get-EnumProp 'DataHistory' 'dataHistory' 'DontUse')" $updDH = if (Get-BoolProp "updateDataHistoryImmediatelyAfterWrite" $false) { "true" } else { "false" } X "$i$updDH" $execDH = if (Get-BoolProp "executeAfterWriteDataHistoryVersionProcessing" $false) { "true" } else { "false" } X "$i$execDH" } function Emit-EnumProperties { 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" } $useStdCmds = if (Get-BoolProp "useStandardCommands" $false) { "true" } else { "false" } X "$i$useStdCmds" Emit-StandardAttributes $i "Enum" Emit-Characteristics $i $def.characteristics $quickChoice = if ($def.quickChoice -eq $false) { "false" } else { "true" } X "$i$quickChoice" X "$i$(Get-EnumProp 'ChoiceMode' 'choiceMode' 'BothWays')" Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "DefaultChoiceForm" $def.defaultChoiceForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-FormRef $i "AuxiliaryChoiceForm" $def.auxiliaryChoiceForm Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" } function Emit-ConstantProperties { 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" } # Type — valueType (пустой явный '' → , реквизит без типа; отсутствие → String дефолт). $valueType = Build-TypeStr $def $typeEmpty = ($null -ne $def.valueType -and "$($def.valueType)".Trim() -eq '') -or ($null -ne $def.type -and "$($def.type)".Trim() -eq '') if ($typeEmpty) { X "$i" } else { if (-not $valueType) { $valueType = "String" }; Emit-ValueType $i $valueType } $useStdCmds = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmds" Emit-VerbatimRef $i "DefaultForm" $def.defaultForm Emit-MLText $i "ExtendedPresentation" $def.extendedPresentation Emit-MLText $i "Explanation" $def.explanation X "$i$(if (Get-BoolProp 'passwordMode' $false) { 'true' } else { 'false' })" Emit-MLText $i "Format" $def.format Emit-MLText $i "EditFormat" $def.editFormat Emit-MLText $i "ToolTip" $def.tooltip X "$i$(if (Get-BoolProp 'markNegatives' $false) { 'true' } else { 'false' })" if ($def.mask) { X "$i$(Esc-XmlText $def.mask)" } else { X "$i" } X "$i$(if (Get-BoolProp 'multiLine' $false) { 'true' } else { 'false' })" X "$i$(if (Get-BoolProp 'extendedEdit' $false) { 'true' } else { 'false' })" Emit-MinMaxValue $i "MinValue" $def.minValue Emit-MinMaxValue $i "MaxValue" $def.maxValue X "$i$(Get-EnumProp 'FillChecking' 'fillChecking' 'DontCheck')" X "$i$(Get-EnumProp 'ChoiceFoldersAndItems' 'choiceFoldersAndItems' 'Items')" Emit-ChoiceParameterLinks $i $def.choiceParameterLinks Emit-ChoiceParameters $i $def.choiceParameters X "$i$(Get-EnumProp 'QuickChoice' 'quickChoice' 'Auto')" if ($def.choiceForm) { X "$i$(Esc-Xml "$($def.choiceForm)")" } else { X "$i" } Emit-LinkByType $i $def.linkByType X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" X "$i$(Get-EnumProp 'DataLockControlMode' 'dataLockControlMode' 'Managed')" X "$i$(Get-EnumProp 'DataHistory' 'dataHistory' 'DontUse')" X "$i$(if (Get-BoolProp 'updateDataHistoryImmediatelyAfterWrite' $false) { 'true' } else { 'false' })" X "$i$(if (Get-BoolProp 'executeAfterWriteDataHistoryVersionProcessing' $false) { 'true' } else { 'false' })" } function Emit-InformationRegisterProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" X "$i$(Get-EnumProp 'EditType' 'editType' 'InDialog')" Emit-FormRef $i "DefaultRecordForm" $def.defaultRecordForm Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "AuxiliaryRecordForm" $def.auxiliaryRecordForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-StandardAttributes $i "InformationRegister" $periodicity = Get-EnumProp "InformationRegisterPeriodicity" "periodicity" "Nonperiodical" $writeMode = Get-EnumProp "WriteMode" "writeMode" "Independent" # MainFilterOnPeriod: захватывается независимо (авто-вывод из periodicity неверен — см. корпус). $mainFilterOnPeriod = if (Get-BoolProp "mainFilterOnPeriod" $false) { "true" } else { "false" } X "$i$periodicity" X "$i$writeMode" X "$i$mainFilterOnPeriod" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Managed" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" $enTotFirst = if (Get-BoolProp "enableTotalsSliceFirst" $false) { "true" } else { "false" } $enTotLast = if (Get-BoolProp "enableTotalsSliceLast" $false) { "true" } else { "false" } X "$i$enTotFirst" X "$i$enTotLast" Emit-MLText $i "RecordPresentation" $def.recordPresentation Emit-MLText $i "ExtendedRecordPresentation" $def.extendedRecordPresentation Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation X "$i$(Get-EnumProp 'DataHistory' 'dataHistory' 'DontUse')" $updDH = if (Get-BoolProp "updateDataHistoryImmediatelyAfterWrite" $false) { "true" } else { "false" } X "$i$updDH" $execDH = if (Get-BoolProp "executeAfterWriteDataHistoryVersionProcessing" $false) { "true" } else { "false" } X "$i$execDH" } function Emit-AccumulationRegisterProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm $registerType = Get-EnumProp "RegisterType" "registerType" "Balance" X "$i$registerType" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" Emit-StandardAttributes $i "AccumulationRegister" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Managed" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" $enableTotalsSplitting = if ($def.enableTotalsSplitting -eq $false) { "false" } else { "true" } X "$i$enableTotalsSplitting" Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation } # --- 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 if ($def.comment) { X "$i$(Esc-XmlText $def.comment)" } else { X "$i" } # Type — тип-значение (составной через ' + '); принимаем valueType (строка) или valueTypes (массив). # Единый эмиттер Emit-ValueType/Emit-TypeContent (refs d5p1, cfg:, платформенные, квалификаторы). Пусто → . $vt = if ($def.valueType) { "$($def.valueType)" } elseif ($def.valueTypes) { (@($def.valueTypes) | ForEach-Object { "$_" }) -join ' + ' } else { '' } if ($vt) { Emit-ValueType $i $vt } else { X "$i" } } function Emit-FunctionalOptionProperties { 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" } # Location — хранилище значения опции (Constant.X / InformationRegister.X.Resource.Y / <Тип>.X.Attribute.Y). # Ссылка verbatim (MDObjectRef-путь; принимаем location или value). $loc = if ($def.location) { "$($def.location)" } elseif ($def.value) { "$($def.value)" } else { "" } if ($loc) { X "$i$(Esc-Xml (Normalize-MDObjectRef $loc))" } else { X "$i" } # PrivilegedGetMode — привилегированный режим чтения (корпус 2864/2864 = true → дефолт true). X "$i$(if (Get-BoolProp 'privilegedGetMode' $true) { 'true' } else { 'false' })" # Content — объекты, зависящие от опции (список MDObjectRef-путей к реквизитам/измерениям/ресурсам). omit-on-empty. $content = @() if ($def.content) { $content = @($def.content) } if ($content.Count -gt 0) { X "$i" foreach ($obj in $content) { X "$i`t$(Esc-Xml (Normalize-MDObjectRef "$obj"))" } X "$i" } else { X "$i" } } # Общий эмиттер списка MDObjectRef (Documents/RegisterRecords с обёрткой ). omit-on-empty. function Emit-MDRefList { param([string]$indent, [string]$tag, $items) $arr = @(); if ($items) { $arr = @($items) } if ($arr.Count -gt 0) { X "$indent<$tag>" foreach ($it in $arr) { X "$indent`t$(Esc-Xml (Normalize-MDObjectRef "$it"))" } X "$indent" } else { X "$indent<$tag/>" } } function Emit-SequenceProperties { 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" } X "$i$(Get-EnumProp 'MoveBoundaryOnPosting' 'moveBoundaryOnPosting' 'DontMove')" Emit-MDRefList $i "Documents" $def.documents Emit-MDRefList $i "RegisterRecords" $def.registerRecords X "$i$(Get-EnumProp 'DataLockControlMode' 'dataLockControlMode' 'Managed')" } function Emit-FilterCriterionProperties { 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" } $vt = if ($def.valueType) { "$($def.valueType)" } elseif ($def.valueTypes) { (@($def.valueTypes) | ForEach-Object { "$_" }) -join ' + ' } else { '' } if ($vt) { Emit-ValueType $i $vt } else { X "$i" } $useStdCmds = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmds" # Content — объекты (реквизиты), по которым идёт отбор. $content = @(); if ($def.content) { $content = @($def.content) } if ($content.Count -gt 0) { X "$i" foreach ($obj in $content) { X "$i`t$(Esc-Xml (Normalize-MDObjectRef "$obj"))" } X "$i" } else { X "$i" } Emit-VerbatimRef $i "DefaultForm" $def.defaultForm Emit-VerbatimRef $i "AuxiliaryForm" $def.auxiliaryForm Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation } function Emit-DocumentNumeratorProperties { 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" } X "$i$(Get-EnumProp 'NumberType' 'numberType' 'String')" X "$i$(if ($null -ne $def.numberLength) { "$($def.numberLength)" } else { '11' })" X "$i$(Get-EnumProp 'NumberAllowedLength' 'numberAllowedLength' 'Variable')" X "$i$(Get-EnumProp 'NumberPeriodicity' 'numberPeriodicity' 'Year')" X "$i$(if (Get-BoolProp 'checkUnique' $true) { 'true' } else { 'false' })" } function Emit-SettingsStorageProperties { 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" } Emit-VerbatimRef $i "DefaultSaveForm" $def.defaultSaveForm Emit-VerbatimRef $i "DefaultLoadForm" $def.defaultLoadForm Emit-VerbatimRef $i "AuxiliarySaveForm" $def.auxiliarySaveForm Emit-VerbatimRef $i "AuxiliaryLoadForm" $def.auxiliaryLoadForm } function Emit-CommonFormProperties { 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" } X "$i$(Get-EnumProp 'FormType' 'formType' 'Managed')" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" # UsePurposes — назначения (использование в приложениях). Дефолт [PlatformApplication, MobilePlatformApplication]. $purposes = if ($def.usePurposes) { @($def.usePurposes) } else { @('PlatformApplication', 'MobilePlatformApplication') } if ($purposes.Count -gt 0) { X "$i" foreach ($p in $purposes) { X "$i`t$p" } X "$i" } else { X "$i" } $useStdCmds = if (Get-BoolProp "useStandardCommands" $false) { "true" } else { "false" } X "$i$useStdCmds" Emit-MLText $i "ExtendedPresentation" $def.extendedPresentation Emit-MLText $i "Explanation" $def.explanation } function Emit-SessionParameterProperties { 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" } $vt = if ($def.valueType) { "$($def.valueType)" } elseif ($def.valueTypes) { (@($def.valueTypes) | ForEach-Object { "$_" }) -join ' + ' } else { '' } if ($vt) { Emit-ValueType $i $vt } else { X "$i" } } function Emit-FunctionalOptionsParameterProperties { 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" } # Use — измерения регистров/реквизиты, к которым привязан параметр (список MDObjectRef). Emit-MDRefList $i "Use" $def.use } function Emit-WSReferenceProperties { 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" } $url = if ($def.locationURL) { "$($def.locationURL)" } elseif ($def.locationUrl) { "$($def.locationUrl)" } else { "" } if ($url) { X "$i$(Esc-XmlText $url)" } else { X "$i" } } function Emit-CommonPictureProperties { 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" } X "$i$(if (Get-BoolProp 'availabilityForChoice' $false) { 'true' } else { 'false' })" X "$i$(if (Get-BoolProp 'availabilityForAppearance' $false) { 'true' } else { 'false' })" } function Emit-CommonTemplateProperties { 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" } X "$i$(Get-EnumProp 'TemplateType' 'templateType' 'SpreadsheetDocument')" } function Emit-CommandGroupProperties { 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" } X "$i$(Get-EnumProp 'Representation' 'representation' 'Auto')" Emit-MLText $i "ToolTip" $def.tooltip Emit-CommandPicture $i $def X "$i$(Get-EnumProp 'Category' 'category' 'NavigationPanel')" } function Emit-CommonCommandProperties { 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" } $group = if ($def.group) { "$($def.group)" } else { "" } if ($group) { X "$i$(Esc-Xml $group)" } else { X "$i" } X "$i$(Get-EnumProp 'Representation' 'representation' 'Auto')" Emit-MLText $i "ToolTip" $def.tooltip Emit-CommandPicture $i $def if ($def.shortcut) { X "$i$(Esc-Xml "$($def.shortcut)")" } else { X "$i" } $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" if ($def.commandParameterType) { X "$i" Emit-TypeContent "$i`t" "$($def.commandParameterType)" X "$i" } else { X "$i" } X "$i$(Get-EnumProp 'ParameterUseMode' 'parameterUseMode' 'Single')" X "$i$(if (Get-BoolProp 'modifiesData' $false) { 'true' } else { 'false' })" X "$i$(Get-EnumProp 'OnMainServerUnavalableBehavior' 'onMainServerUnavalableBehavior' 'Auto')" } function Emit-CommonAttributeProperties { 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" } # Дефолт типа — String(0) (переменная длина 0), НЕ $def.type (это тип метаобъекта «CommonAttribute»). $vt = if ($def.valueType) { "$($def.valueType)" } else { 'String(0)' } Emit-ValueType $i $vt X "$i$(if (Get-BoolProp 'passwordMode' $false) { 'true' } else { 'false' })" Emit-MLText $i "Format" $def.format Emit-MLText $i "EditFormat" $def.editFormat Emit-MLText $i "ToolTip" $def.tooltip X "$i$(if (Get-BoolProp 'markNegatives' $false) { 'true' } else { 'false' })" if ($def.mask) { X "$i$(Esc-XmlText $def.mask)" } else { X "$i" } X "$i$(if (Get-BoolProp 'multiLine' $false) { 'true' } else { 'false' })" X "$i$(if (Get-BoolProp 'extendedEdit' $false) { 'true' } else { 'false' })" Emit-MinMaxValue $i "MinValue" $def.minValue Emit-MinMaxValue $i "MaxValue" $def.maxValue $ffv = if (Get-BoolProp 'fillFromFillingValue' $false) { 'true' } else { 'false' } X "$i$ffv" Emit-FillValue $i $vt $def.fillValue ($null -ne $def.fillValue) X "$i$(Get-EnumProp 'FillChecking' 'fillChecking' 'DontCheck')" X "$i$(Get-EnumProp 'ChoiceFoldersAndItems' 'choiceFoldersAndItems' 'Items')" Emit-ChoiceParameterLinks $i $def.choiceParameterLinks Emit-ChoiceParameters $i $def.choiceParameters X "$i$(Get-EnumProp 'QuickChoice' 'quickChoice' 'Auto')" X "$i$(Get-EnumProp 'CreateOnInput' 'createOnInput' 'Auto')" if ($def.choiceForm) { X "$i$(Esc-Xml "$($def.choiceForm)")" } else { X "$i" } Emit-LinkByType $i $def.linkByType X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" # Content — объекты, к которым добавлен общий реквизит: {metadata, use?, conditionalSeparation?}. $content = @(); if ($def.content) { $content = @($def.content) } if ($content.Count -gt 0) { X "$i" foreach ($c in $content) { $md = if ($c -is [string]) { "$c" } else { "$($c.metadata)" } $use = if ($c -is [string]) { 'Use' } elseif ($c.use) { "$($c.use)" } else { 'Use' } X "$i`t" X "$i`t`t$(Esc-Xml (Normalize-MDObjectRef $md))" X "$i`t`t$use" $cs = if ($c -isnot [string] -and $c.conditionalSeparation) { "$($c.conditionalSeparation)" } else { "" } if ($cs) { X "$i`t`t$(Esc-Xml $cs)" } else { X "$i`t`t" } X "$i`t" } X "$i" } else { X "$i" } X "$i$(Get-EnumProp 'AutoUse' 'autoUse' 'DontUse')" X "$i$(Get-EnumProp 'DataSeparation' 'dataSeparation' 'DontUse')" X "$i$(Get-EnumProp 'SeparatedDataUse' 'separatedDataUse' 'Independently')" $dsv = if ($def.dataSeparationValue) { "$($def.dataSeparationValue)" } else { "" } if ($dsv) { X "$i$(Esc-Xml $dsv)" } else { X "$i" } $dsu = if ($def.dataSeparationUse) { "$($def.dataSeparationUse)" } else { "" } if ($dsu) { X "$i$(Esc-Xml $dsu)" } else { X "$i" } $cs2 = if ($def.conditionalSeparation) { "$($def.conditionalSeparation)" } else { "" } if ($cs2) { X "$i$(Esc-Xml $cs2)" } else { X "$i" } X "$i$(Get-EnumProp 'UsersSeparation' 'usersSeparation' 'DontUse')" X "$i$(Get-EnumProp 'AuthenticationSeparation' 'authenticationSeparation' 'DontUse')" X "$i$(Get-EnumProp 'ConfigurationExtensionsSeparation' 'configurationExtensionsSeparation' 'DontUse')" X "$i$(Get-EnumProp 'Indexing' 'indexing' 'DontIndex')" X "$i$(Get-EnumProp 'FullTextSearch' 'fullTextSearch' 'Use')" X "$i$(Get-EnumProp 'DataHistory' 'dataHistory' 'Use')" } # Измерение последовательности: Name/Synonym/Comment/Type + DocumentMap/RegisterRecordsMap (списки MDObjectRef — # соответствие измерения реквизитам документов/движениям регистров). function Emit-SequenceDimension { param([string]$indent, $dimDef) $uuid = New-Guid-String $parsed = Parse-AttributeShorthand $dimDef 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" } if ($parsed.typeEmpty) { X "$indent`t`t" } elseif ($parsed.type) { Emit-ValueType "$indent`t`t" $parsed.type } else { X "$indent`t`t" } $dm = if ($dimDef -is [string]) { $null } else { $dimDef.documentMap } $rrm = if ($dimDef -is [string]) { $null } else { $dimDef.registerRecordsMap } Emit-MDRefList "$indent`t`t" "DocumentMap" $dm Emit-MDRefList "$indent`t`t" "RegisterRecordsMap" $rrm X "$indent`t" X "$indent" } function Emit-CommonModuleProperties { 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" } # 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 if ($def.comment) { X "$i$(Esc-XmlText $def.comment)" } else { 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)" # Description — плоская строка (дефолт ПУСТО: корпус 662 пустых / 209 заданы; не подставляем синоним — иначе роундтрип рвётся). $description = if ($def.description) { "$($def.description)" } else { "" } if ($description) { X "$i$(Esc-XmlText $description)" } else { X "$i" } $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 if ($def.comment) { X "$i$(Esc-XmlText $def.comment)" } else { X "$i" } # Source — набор типов-источников (объектные типы CatalogObject.X/DocumentObject.X/…RecordSet/…Manager → # cfg:; ссылочные → d5p1). Единый эмиттер Emit-TypeContent (см. §cfg-типы). Прощающий ввод русских корней типа. $sources = @() if ($def.source) { $sources = @($def.source) } if ($sources.Count -gt 0) { X "$i" foreach ($src in $sources) { Emit-TypeContent "$i`t" (Resolve-TypeStr "$src") } 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 if ($def.comment) { X "$i$(Esc-XmlText $def.comment)" } else { X "$i" } # UseStandardCommands: дефолт true (авторски-безопасно — доступность объекта через стандартный командный # интерфейс; при false и без переопределения размещения команд объект доступен лишь по навигационной ссылке). $useStdCmds = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmds" Emit-VerbatimRef $i "DefaultForm" $def.defaultForm Emit-VerbatimRef $i "AuxiliaryForm" $def.auxiliaryForm Emit-VerbatimRef $i "MainDataCompositionSchema" $def.mainDataCompositionSchema Emit-VerbatimRef $i "DefaultSettingsForm" $def.defaultSettingsForm Emit-VerbatimRef $i "AuxiliarySettingsForm" $def.auxiliarySettingsForm Emit-VerbatimRef $i "DefaultVariantForm" $def.defaultVariantForm Emit-VerbatimRef $i "VariantsStorage" $def.variantsStorage Emit-VerbatimRef $i "SettingsStorage" $def.settingsStorage $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" Emit-MLText $i "ExtendedPresentation" $def.extendedPresentation Emit-MLText $i "Explanation" $def.explanation } function Emit-DataProcessorProperties { 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" } $useStdCmds = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmds" Emit-VerbatimRef $i "DefaultForm" $def.defaultForm Emit-VerbatimRef $i "AuxiliaryForm" $def.auxiliaryForm $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" Emit-MLText $i "ExtendedPresentation" $def.extendedPresentation Emit-MLText $i "Explanation" $def.explanation } # --- 13c. Wave 3: ExchangePlan, ChartOfCharacteristicTypes, DocumentJournal --- function Emit-ExchangePlanProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" $codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "150" } $codeAllowedLength = Get-EnumProp "CodeAllowedLength" "codeAllowedLength" "Variable" X "$i$codeLength" X "$i$codeAllowedLength" X "$i$descriptionLength" X "$i$(Get-EnumProp 'DefaultPresentation' 'defaultPresentation' 'AsDescription')" X "$i$(Get-EnumProp 'EditType' 'editType' 'InDialog')" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$i$(Get-EnumProp 'ChoiceMode' 'choiceMode' 'BothWays')" # InputByString: override `inputByString` ЛИБО дефолт [Descr при D>0]+[Code при C>0] (prefix ExchangePlan). if (Test-DefKey 'inputByString') { $ibFields = @($def.inputByString | ForEach-Object { Expand-DataPath "$_" }) } else { $ibFields = @() if ([int]$descriptionLength -gt 0) { $ibFields += "ExchangePlan.$objName.StandardAttribute.Description" } if ([int]$codeLength -gt 0) { $ibFields += "ExchangePlan.$objName.StandardAttribute.Code" } } Emit-FieldBlock $i "InputByString" $ibFields X "$i$(Get-EnumProp 'SearchStringModeOnInputByString' 'searchStringModeOnInputByString' 'Begin')" X "$i$(Get-EnumProp 'FullTextSearchOnInputByString' 'fullTextSearchOnInputByString' 'DontUse')" X "$iDirectly" Emit-FormRef $i "DefaultObjectForm" $def.defaultObjectForm Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "DefaultChoiceForm" $def.defaultChoiceForm Emit-FormRef $i "AuxiliaryObjectForm" $def.auxiliaryObjectForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-FormRef $i "AuxiliaryChoiceForm" $def.auxiliaryChoiceForm Emit-StandardAttributes $i "ExchangePlan" Emit-Characteristics $i $def.characteristics Emit-BasedOn $i $def.basedOn $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$(Get-EnumProp 'CreateOnInput' 'createOnInput' 'DontUse')" X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" $dlFields = if (Test-DefKey 'dataLockFields') { @($def.dataLockFields | ForEach-Object { Expand-DataPath "$_" }) } else { @() } Emit-FieldBlock $i "DataLockFields" $dlFields X "$i$(Get-EnumProp 'DataLockControlMode' 'dataLockControlMode' 'Managed')" X "$i$(Get-EnumProp 'FullTextSearch' 'fullTextSearch' 'Use')" 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 'DataHistory' 'dataHistory' 'DontUse')" $updDH = if (Get-BoolProp "updateDataHistoryImmediatelyAfterWrite" $false) { "true" } else { "false" } X "$i$updDH" $execDH = if (Get-BoolProp "executeAfterWriteDataHistoryVersionProcessing" $false) { "true" } else { "false" } X "$i$execDH" } function Emit-ChartOfCharacteristicTypesProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" # CharacteristicExtValues — ссылка на справочник доп. значений характеристик (обычно пусто). if ($def.characteristicExtValues) { X "$i$(Esc-Xml "$($def.characteristicExtValues)")" } else { X "$i" } # Type — тип значения характеристики (составной). DSL `valueType` строка "A + B + C" ИЛИ массив; нет ключа → дефолт. $vt = $def.valueType; if (-not $vt -and $def.valueTypes) { $vt = ($def.valueTypes -join ' + ') } if ($vt) { X "$i" 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" $foldersOnTop = if ($def.foldersOnTop -eq $false) { "false" } else { "true" } X "$i$foldersOnTop" $codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "100" } X "$i$codeLength" X "$i$(Get-EnumProp 'CodeAllowedLength' 'codeAllowedLength' 'Variable')" X "$i$descriptionLength" X "$i$(Get-EnumProp 'CodeSeries' 'codeSeries' 'WholeCharacteristicKind')" $checkUnique = if ($def.checkUnique -eq $false) { "false" } else { "true" } X "$i$checkUnique" $autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" } X "$i$autonumbering" X "$i$(Get-EnumProp 'DefaultPresentation' 'defaultPresentation' 'AsDescription')" Emit-StandardAttributes $i "ChartOfCharacteristicTypes" Emit-Characteristics $i $def.characteristics X "$i$(Get-EnumProp 'PredefinedDataUpdate' 'predefinedDataUpdate' 'Auto')" X "$i$(Get-EnumProp 'EditType' 'editType' 'InDialog')" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$i$(Get-EnumProp 'ChoiceMode' 'choiceMode' 'BothWays')" # InputByString: override ЛИБО дефолт [Descr при D>0]+[Code при C>0] (prefix ChartOfCharacteristicTypes). if (Test-DefKey 'inputByString') { $ibFields = @($def.inputByString | ForEach-Object { Expand-DataPath "$_" }) } else { $ibFields = @() if ([int]$descriptionLength -gt 0) { $ibFields += "ChartOfCharacteristicTypes.$objName.StandardAttribute.Description" } if ([int]$codeLength -gt 0) { $ibFields += "ChartOfCharacteristicTypes.$objName.StandardAttribute.Code" } } Emit-FieldBlock $i "InputByString" $ibFields X "$i$(Get-EnumProp 'CreateOnInput' 'createOnInput' 'DontUse')" X "$i$(Get-EnumProp 'SearchStringModeOnInputByString' 'searchStringModeOnInputByString' 'Begin')" X "$iDirectly" X "$i$(Get-EnumProp 'FullTextSearchOnInputByString' 'fullTextSearchOnInputByString' 'DontUse')" X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" 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 Emit-BasedOn $i $def.basedOn $dlFields = if (Test-DefKey 'dataLockFields') { @($def.dataLockFields | ForEach-Object { Expand-DataPath "$_" }) } else { @() } Emit-FieldBlock $i "DataLockFields" $dlFields X "$i$(Get-EnumProp 'DataLockControlMode' 'dataLockControlMode' 'Managed')" X "$i$(Get-EnumProp 'FullTextSearch' 'fullTextSearch' 'Use')" 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 'DataHistory' 'dataHistory' 'DontUse')" $updDH = if (Get-BoolProp "updateDataHistoryImmediatelyAfterWrite" $false) { "true" } else { "false" } X "$i$updDH" $execDH = if (Get-BoolProp "executeAfterWriteDataHistoryVersionProcessing" $false) { "true" } else { "false" } X "$i$execDH" } function Emit-DocumentJournalProperties { 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" } Emit-VerbatimRef $i "DefaultForm" $def.defaultForm Emit-VerbatimRef $i "AuxiliaryForm" $def.auxiliaryForm $useStdCmds = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmds" # RegisteredDocuments — регистрируемые документы (список MDObjectRef, прощающий ввод русских корней). $regDocs = @() if ($def.registeredDocuments) { $regDocs = @($def.registeredDocuments) } if ($regDocs.Count -gt 0) { X "$i" foreach ($rd in $regDocs) { X "$i`t$(Esc-Xml (Normalize-MDObjectRef "$rd"))" } X "$i" } else { X "$i" } $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" Emit-StandardAttributes $i "DocumentJournal" Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation } # --- 13d. Wave 4: ChartOfAccounts, AccountingRegister, ChartOfCalculationTypes, CalculationRegister --- # Ссылка на объект метаданных: русский префикс типа → английский (ПланВидовХарактеристик.X → ChartOfCharacteristicTypes.X). function Resolve-TypePrefixSyn { param([string]$ref) if ($ref -and $ref.Contains('.')) { $d = $ref.IndexOf('.'); $p = $ref.Substring(0, $d); $s = $ref.Substring($d + 1) if ($script:objectTypeSynonyms.ContainsKey($p)) { $p = $script:objectTypeSynonyms[$p] } return "$p.$s" } return $ref } function Emit-ChartOfAccountsProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" Emit-BasedOn $i $def.basedOn # ExtDimensionTypes — ссылка на ПВХ видов субконто (прощающий ввод: ПланВидовХарактеристик.X → ChartOfCharacteristicTypes.X). $extDimTypes = if ($def.extDimensionTypes) { Resolve-TypePrefixSyn "$($def.extDimensionTypes)" } else { "" } if ($extDimTypes) { X "$i$(Esc-Xml $extDimTypes)" } else { X "$i" } # Количество субконто: без ПВХ (extDimensionTypes) платформа не даёт > 0 → дефолт 0; с ПВХ — 3. $maxExtDim = if ($null -ne $def.maxExtDimensionCount) { "$($def.maxExtDimensionCount)" } elseif ($extDimTypes) { "3" } else { "0" } X "$i$maxExtDim" if ($def.codeMask) { X "$i$(Esc-XmlText "$($def.codeMask)")" } else { X "$i" } $codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "25" } X "$i$codeLength" X "$i$descriptionLength" X "$i$(Get-EnumProp 'CodeSeries' 'codeSeries' 'WholeChartOfAccounts')" $checkUnique = if ($def.checkUnique -eq $false) { "false" } else { "true" } X "$i$checkUnique" X "$i$(Get-EnumProp 'DefaultPresentation' 'defaultPresentation' 'AsCode')" Emit-StandardAttributes $i "ChartOfAccounts" Emit-Characteristics $i $def.characteristics # StandardTabularSections — ExtDimensionTypes (обёртка платформенно-константна: Synonym с пустым lang «Виды субконто», # Comment/ToolTip/FillChecking; вложены 4 стандартных реквизита all-default). Кастомизация — не выведена (см. WORKFLOW). X "$i" X "$i`t" X "$i`t`t" X "$i`t`t`t" X "$i`t`t`t`t" X "$i`t`t`t`tВиды субконто" X "$i`t`t`t" X "$i`t`t" X "$i`t`t" X "$i`t`t" X "$i`t`tDontCheck" X "$i`t`t" foreach ($stAttr in @("TurnoversOnly","Predefined","ExtDimensionType","LineNumber")) { $stOv = if ($stAttr -eq "ExtDimensionType") { @{ FillChecking = "ShowError" } } else { $null } Emit-StandardAttribute "$i`t`t`t" $stAttr $stOv } X "$i`t`t" X "$i`t" 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" } X "$i$quickChoice" X "$i$(Get-EnumProp 'ChoiceMode' 'choiceMode' 'BothWays')" # InputByString: override ЛИБО дефолт [Descr при D>0]+[Code при C>0] (prefix ChartOfAccounts). if (Test-DefKey 'inputByString') { $ibFields = @($def.inputByString | ForEach-Object { Expand-DataPath "$_" }) } else { $ibFields = @() if ([int]$descriptionLength -gt 0) { $ibFields += "ChartOfAccounts.$objName.StandardAttribute.Description" } if ([int]$codeLength -gt 0) { $ibFields += "ChartOfAccounts.$objName.StandardAttribute.Code" } } Emit-FieldBlock $i "InputByString" $ibFields X "$i$(Get-EnumProp 'SearchStringModeOnInputByString' 'searchStringModeOnInputByString' 'Begin')" X "$i$(Get-EnumProp 'FullTextSearchOnInputByString' 'fullTextSearchOnInputByString' 'DontUse')" X "$iDirectly" X "$i$(Get-EnumProp 'CreateOnInput' 'createOnInput' 'DontUse')" X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" Emit-FormRef $i "DefaultObjectForm" $def.defaultObjectForm Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "DefaultChoiceForm" $def.defaultChoiceForm Emit-FormRef $i "AuxiliaryObjectForm" $def.auxiliaryObjectForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-FormRef $i "AuxiliaryChoiceForm" $def.auxiliaryChoiceForm $autoOrder = if ($def.autoOrderByCode -eq $false) { "false" } else { "true" } X "$i$autoOrder" $orderLength = if ($null -ne $def.orderLength) { "$($def.orderLength)" } else { "9" } X "$i$orderLength" $dlFields = if (Test-DefKey 'dataLockFields') { @($def.dataLockFields | ForEach-Object { Expand-DataPath "$_" }) } else { @() } Emit-FieldBlock $i "DataLockFields" $dlFields X "$i$(Get-EnumProp 'DataLockControlMode' 'dataLockControlMode' 'Managed')" X "$i$(Get-EnumProp 'FullTextSearch' 'fullTextSearch' 'Use')" X "$i$(Get-EnumProp 'DataHistory' 'dataHistory' 'DontUse')" $updDH = if (Get-BoolProp "updateDataHistoryImmediatelyAfterWrite" $false) { "true" } else { "false" } X "$i$updDH" $execDH = if (Get-BoolProp "executeAfterWriteDataHistoryVersionProcessing" $false) { "true" } else { "false" } X "$i$execDH" 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 } function Emit-AccountingRegisterProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" $chartOfAccounts = if ($def.chartOfAccounts) { "$($def.chartOfAccounts)" } else { "" } if ($chartOfAccounts) { X "$i$(Esc-Xml $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" Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-StandardAttributes $i "AccountingRegister" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Managed" X "$i$dataLockControlMode" $enableTotalsSplitting = if ($def.enableTotalsSplitting -eq $false) { "false" } else { "true" } X "$i$enableTotalsSplitting" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation } # Стандартные ТЧ Плана видов расчёта: Ведущие/Вытесняющие/Базовые виды расчёта. Обёртка платформенно-константна # (Synonym с пустым lang, Comment/ToolTip/FillChecking); вложены Predefined/CalculationType(ShowError)/LineNumber. $script:calcTypesStdTabular = @( @{ name = "LeadingCalculationTypes"; synonym = "Ведущие виды расчета" } @{ name = "DisplacingCalculationTypes"; synonym = "Вытесняющие виды расчета" } @{ name = "BaseCalculationTypes"; synonym = "Базовые виды расчета" } ) function Emit-CalcTypesStdTabular { param([string]$i) X "$i" foreach ($sts in $script:calcTypesStdTabular) { X "$i`t" X "$i`t`t" X "$i`t`t`t" X "$i`t`t`t`t" X "$i`t`t`t`t$(Esc-XmlText $sts.synonym)" X "$i`t`t`t" X "$i`t`t" X "$i`t`t" X "$i`t`t" X "$i`t`tDontCheck" X "$i`t`t" foreach ($stAttr in @("Predefined","CalculationType","LineNumber")) { $stOv = if ($stAttr -eq "CalculationType") { @{ FillChecking = "ShowError" } } else { $null } Emit-StandardAttribute "$i`t`t`t" $stAttr $stOv } X "$i`t`t" X "$i`t" } X "$i" } function Emit-ChartOfCalculationTypesProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" $codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "5" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "100" } X "$i$codeLength" X "$i$descriptionLength" X "$i$(Get-EnumProp 'CodeType' 'codeType' 'String')" X "$i$(Get-EnumProp 'CodeAllowedLength' 'codeAllowedLength' 'Variable')" X "$i$(Get-EnumProp 'DefaultPresentation' 'defaultPresentation' 'AsDescription')" X "$i$(Get-EnumProp 'EditType' 'editType' 'InDialog')" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$i$(Get-EnumProp 'ChoiceMode' 'choiceMode' 'BothWays')" # InputByString: override ЛИБО дефолт [Descr при D>0]+[Code при C>0]. if (Test-DefKey 'inputByString') { $ibFields = @($def.inputByString | ForEach-Object { Expand-DataPath "$_" }) } else { $ibFields = @() if ([int]$descriptionLength -gt 0) { $ibFields += "ChartOfCalculationTypes.$objName.StandardAttribute.Description" } if ([int]$codeLength -gt 0) { $ibFields += "ChartOfCalculationTypes.$objName.StandardAttribute.Code" } } Emit-FieldBlock $i "InputByString" $ibFields X "$i$(Get-EnumProp 'SearchStringModeOnInputByString' 'searchStringModeOnInputByString' 'Begin')" X "$i$(Get-EnumProp 'FullTextSearchOnInputByString' 'fullTextSearchOnInputByString' 'DontUse')" X "$iDirectly" X "$i$(Get-EnumProp 'CreateOnInput' 'createOnInput' 'DontUse')" X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" Emit-FormRef $i "DefaultObjectForm" $def.defaultObjectForm Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "DefaultChoiceForm" $def.defaultChoiceForm Emit-FormRef $i "AuxiliaryObjectForm" $def.auxiliaryObjectForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-FormRef $i "AuxiliaryChoiceForm" $def.auxiliaryChoiceForm Emit-BasedOn $i $def.basedOn X "$i$(Get-EnumProp 'DependenceOnCalculationTypes' 'dependenceOnCalculationTypes' 'DontUse')" # BaseCalculationTypes — список ссылок на ПВР (прощающий ввод ПланВидовРасчета.X → ChartOfCalculationTypes.X). $baseTypes = @(); if ($def.baseCalculationTypes) { $baseTypes = @($def.baseCalculationTypes | ForEach-Object { Resolve-TypePrefixSyn "$_" }) } if ($baseTypes.Count -gt 0) { X "$i" foreach ($bt in $baseTypes) { X "$i`t$(Esc-Xml $bt)" } X "$i" } else { X "$i" } $actionPeriodUse = if ($def.actionPeriodUse -eq $true) { "true" } else { "false" } X "$i$actionPeriodUse" Emit-StandardAttributes $i "ChartOfCalculationTypes" Emit-Characteristics $i $def.characteristics Emit-CalcTypesStdTabular $i X "$i$(Get-EnumProp 'PredefinedDataUpdate' 'predefinedDataUpdate' 'Auto')" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" $dlFields = if (Test-DefKey 'dataLockFields') { @($def.dataLockFields | ForEach-Object { Expand-DataPath "$_" }) } else { @() } Emit-FieldBlock $i "DataLockFields" $dlFields X "$i$(Get-EnumProp 'DataLockControlMode' 'dataLockControlMode' 'Managed')" X "$i$(Get-EnumProp 'FullTextSearch' 'fullTextSearch' 'Use')" 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 'DataHistory' 'dataHistory' 'DontUse')" $updDH = if (Get-BoolProp "updateDataHistoryImmediatelyAfterWrite" $false) { "true" } else { "false" } X "$i$updDH" $execDH = if (Get-BoolProp "executeAfterWriteDataHistoryVersionProcessing" $false) { "true" } else { "false" } X "$i$execDH" } function Emit-CalculationRegisterProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm $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$(Esc-Xml $schedule)" } else { X "$i" } $scheduleValue = if ($def.scheduleValue) { "$($def.scheduleValue)" } else { "" } if ($scheduleValue) { X "$i$(Esc-Xml $scheduleValue)" } else { X "$i" } $scheduleDate = if ($def.scheduleDate) { "$($def.scheduleDate)" } else { "" } if ($scheduleDate) { X "$i$(Esc-Xml $scheduleDate)" } else { X "$i" } $chartOfCalcTypes = if ($def.chartOfCalculationTypes) { "$($def.chartOfCalculationTypes)" } else { "" } if ($chartOfCalcTypes) { X "$i$(Esc-Xml $chartOfCalcTypes)" } else { X "$i" } $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" Emit-StandardAttributes $i "CalculationRegister" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Managed" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" Emit-MLText $i "ListPresentation" $def.listPresentation Emit-MLText $i "ExtendedListPresentation" $def.extendedListPresentation Emit-MLText $i "Explanation" $def.explanation } # --- 13e. Wave 5: BusinessProcess, Task --- function Emit-BusinessProcessProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" X "$i$(Get-EnumProp 'EditType' 'editType' 'InDialog')" if (Test-DefKey 'inputByString') { $ibFields = @($def.inputByString | ForEach-Object { Expand-DataPath "$_" }) } else { $ibFields = @("BusinessProcess.$objName.StandardAttribute.Number") } Emit-FieldBlock $i "InputByString" $ibFields X "$i$(Get-EnumProp 'CreateOnInput' 'createOnInput' 'DontUse')" X "$i$(Get-EnumProp 'SearchStringModeOnInputByString' 'searchStringModeOnInputByString' 'Begin')" X "$iDirectly" X "$i$(Get-EnumProp 'FullTextSearchOnInputByString' 'fullTextSearchOnInputByString' 'DontUse')" Emit-FormRef $i "DefaultObjectForm" $def.defaultObjectForm Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "DefaultChoiceForm" $def.defaultChoiceForm Emit-FormRef $i "AuxiliaryObjectForm" $def.auxiliaryObjectForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-FormRef $i "AuxiliaryChoiceForm" $def.auxiliaryChoiceForm X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" $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" } X "$i$numberType" X "$i$numberLength" X "$i$numberAllowedLength" X "$i$checkUnique" Emit-StandardAttributes $i "BusinessProcess" Emit-Characteristics $i $def.characteristics $autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" } X "$i$autonumbering" Emit-BasedOn $i $def.basedOn X "$i$(Get-EnumProp 'NumberPeriodicity' 'numberPeriodicity' 'Nonperiodical')" if ($def.task) { X "$i$(Esc-Xml "$($def.task)")" } else { X "$i" } $createTaskPriv = if (Get-BoolProp "createTaskInPrivilegedMode" $true) { "true" } else { "false" } X "$i$createTaskPriv" $dlFields = if (Test-DefKey 'dataLockFields') { @($def.dataLockFields | ForEach-Object { Expand-DataPath "$_" }) } else { @() } Emit-FieldBlock $i "DataLockFields" $dlFields X "$i$(Get-EnumProp 'DataLockControlMode' 'dataLockControlMode' 'Managed')" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" X "$i$(Get-EnumProp 'FullTextSearch' 'fullTextSearch' 'Use')" 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 'DataHistory' 'dataHistory' 'DontUse')" $updDH = if (Get-BoolProp "updateDataHistoryImmediatelyAfterWrite" $false) { "true" } else { "false" } X "$i$updDH" $execDH = if (Get-BoolProp "executeAfterWriteDataHistoryVersionProcessing" $false) { "true" } else { "false" } X "$i$execDH" } function Emit-TaskProperties { 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" } $useStdCmd = if (Get-BoolProp "useStandardCommands" $true) { "true" } else { "false" } X "$i$useStdCmd" $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" if ($def.addressing) { X "$i$(Esc-Xml "$($def.addressing)")" } else { X "$i" } if ($def.mainAddressingAttribute) { X "$i$(Esc-Xml "$($def.mainAddressingAttribute)")" } else { X "$i" } if ($def.currentPerformer) { X "$i$(Esc-Xml "$($def.currentPerformer)")" } else { X "$i" } Emit-BasedOn $i $def.basedOn Emit-StandardAttributes $i "Task" Emit-Characteristics $i $def.characteristics X "$i$(Get-EnumProp 'DefaultPresentation' 'defaultPresentation' 'AsDescription')" X "$i$(Get-EnumProp 'EditType' 'editType' 'InDialog')" if (Test-DefKey 'inputByString') { $ibFields = @($def.inputByString | ForEach-Object { Expand-DataPath "$_" }) } else { $ibFields = @("Task.$objName.StandardAttribute.Number") } Emit-FieldBlock $i "InputByString" $ibFields X "$i$(Get-EnumProp 'SearchStringModeOnInputByString' 'searchStringModeOnInputByString' 'Begin')" X "$i$(Get-EnumProp 'FullTextSearchOnInputByString' 'fullTextSearchOnInputByString' 'DontUse')" X "$iDirectly" X "$i$(Get-EnumProp 'CreateOnInput' 'createOnInput' 'DontUse')" Emit-FormRef $i "DefaultObjectForm" $def.defaultObjectForm Emit-FormRef $i "DefaultListForm" $def.defaultListForm Emit-FormRef $i "DefaultChoiceForm" $def.defaultChoiceForm Emit-FormRef $i "AuxiliaryObjectForm" $def.auxiliaryObjectForm Emit-FormRef $i "AuxiliaryListForm" $def.auxiliaryListForm Emit-FormRef $i "AuxiliaryChoiceForm" $def.auxiliaryChoiceForm X "$i$(Get-EnumProp 'ChoiceHistoryOnInput' 'choiceHistoryOnInput' 'Auto')" $inclHelp = if (Get-BoolProp "includeHelpInContents" $false) { "true" } else { "false" } X "$i$inclHelp" $dlFields = if (Test-DefKey 'dataLockFields') { @($def.dataLockFields | ForEach-Object { Expand-DataPath "$_" }) } else { @() } Emit-FieldBlock $i "DataLockFields" $dlFields X "$i$(Get-EnumProp 'DataLockControlMode' 'dataLockControlMode' 'Managed')" X "$i$(Get-EnumProp 'FullTextSearch' 'fullTextSearch' 'Use')" 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 'DataHistory' 'dataHistory' 'DontUse')" $updDH = if (Get-BoolProp "updateDataHistoryImmediatelyAfterWrite" $false) { "true" } else { "false" } X "$i$updDH" $execDH = if (Get-BoolProp "executeAfterWriteDataHistoryVersionProcessing" $false) { "true" } else { "false" } X "$i$execDH" } # --- 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 = $null $comment = "" $indexing = "DontIndex" $references = @() if ($colDef -is [string]) { $name = "$colDef" $synonym = Split-CamelCase $name } else { $name = "$($colDef.name)" $synonym = if ($null -ne $colDef.synonym) { $colDef.synonym } else { Split-CamelCase $name } # строка ИЛИ {ru,en} if ($colDef.comment) { $comment = "$($colDef.comment)" } 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 if ($comment) { X "$indent`t`t$(Esc-XmlText $comment)" } else { 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$(Esc-Xml (Normalize-MDObjectRef "$ref"))" } X "$indent`t`t" } else { X "$indent`t`t" } 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) # Реквизит адресации = полный object-слой реквизита (контекст task-addressing) + AddressingDimension. $parsed = Parse-AttributeShorthand $addrDef Emit-Attribute $indent $parsed "task-addressing" "AddressingAttribute" } # --- 14. Namespaces --- $script:xmlnsDecl = 'xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' # --- 14a. Detect format version from existing Configuration.xml --- function Detect-FormatVersion([string]$dir) { $d = $dir while ($d) { $cfgPath = Join-Path $d "Configuration.xml" if (Test-Path $cfgPath) { $head = [System.IO.File]::ReadAllText($cfgPath, [System.Text.Encoding]::UTF8).Substring(0, [Math]::Min(2000, (Get-Item $cfgPath).Length)) if ($head -match ']+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" } "FunctionalOption" { Emit-FunctionalOptionProperties "`t`t`t" } "Sequence" { Emit-SequenceProperties "`t`t`t" } "FilterCriterion" { Emit-FilterCriterionProperties "`t`t`t" } "DocumentNumerator" { Emit-DocumentNumeratorProperties "`t`t`t" } "SettingsStorage" { Emit-SettingsStorageProperties "`t`t`t" } "CommonForm" { Emit-CommonFormProperties "`t`t`t" } "SessionParameter" { Emit-SessionParameterProperties "`t`t`t" } "CommonCommand" { Emit-CommonCommandProperties "`t`t`t" } "CommandGroup" { Emit-CommandGroupProperties "`t`t`t" } "CommonAttribute" { Emit-CommonAttributeProperties "`t`t`t" } "FunctionalOptionsParameter" { Emit-FunctionalOptionsParameterProperties "`t`t`t" } "WSReference" { Emit-WSReferenceProperties "`t`t`t" } "CommonPicture" { Emit-CommonPictureProperties "`t`t`t" } "CommonTemplate" { Emit-CommonTemplateProperties "`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; lineNumber = $null; fillChecking = $null; use = $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 }; lineNumber = $val.lineNumber; fillChecking = $val.fillChecking; use = $val.use } } 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 (признаки учёта — структурно как реквизит, # но без Indexing/FullTextSearch/Use; тип по умолчанию Boolean). Парсим как реквизиты. $acctFlags = @() $extDimFlags = @() if ($objType -eq "ChartOfAccounts") { if ($def.accountingFlags) { foreach ($af in $def.accountingFlags) { $acctFlags += Parse-AttributeShorthand $af } } if ($def.extDimensionAccountingFlags) { foreach ($edf in $def.extDimensionAccountingFlags) { $extDimFlags += Parse-AttributeShorthand $edf } } } # 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" } "ChartOfCharacteristicTypes" { "catalog" } # реквизиты ПВХ структурно как у справочника (Use/FillFromFillingValue/DataHistory) { $_ -in @("ChartOfAccounts","ChartOfCalculationTypes") } { "account" } # как catalog, но БЕЗ (реквизиты ПС/ПВР не иерархичны как справочник) 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 $tsE.lineNumber $tsE.fillChecking $tsE.use } foreach ($af in $acctFlags) { Emit-Attribute "`t`t`t" $af "account-flag" "AccountingFlag" } foreach ($edf in $extDimFlags) { Emit-Attribute "`t`t`t" $edf "account-flag" "ExtDimensionAccountingFlag" } 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 } } $regCommands = @() if ($def.commands) { if ($def.commands -is [array] -or $def.commands.GetType().Name -eq 'Object[]') { foreach ($c in $def.commands) { $regCommands += @{ name = "$($c.name)"; def = $c } } } else { $def.commands.PSObject.Properties | ForEach-Object { $regCommands += @{ name = $_.Name; def = $_.Value } } } } if ($dims.Count -gt 0 -or $resources.Count -gt 0 -or $regAttrs.Count -gt 0 -or $regCommands.Count -gt 0) { $hasChildren = $true X "`t`t" # InformationRegister.Attribute supports FillFromFillingValue/FillValue/DataHistory; прочие — нет. # CalculationRegister.Attribute несёт → отдельный контекст register-calc. $regCtx = switch ($objType) { "InformationRegister" { "register-info" } "CalculationRegister" { "register-calc" } default { "register-other" } } # Все семейства регистров: ресурсы/измерения — через богатый Emit-Attribute (общий слой object-свойств). $dimResCtx = switch ($objType) { "InformationRegister" { "register-info" } "AccumulationRegister" { "register-accum" } "CalculationRegister" { "register-calc" } "AccountingRegister" { "register-account" } default { $null } } foreach ($r in $resources) { if ($dimResCtx) { Emit-Attribute "`t`t`t" $r $dimResCtx "Resource" } else { Emit-Resource "`t`t`t" $r $objType } } foreach ($d in $dims) { if ($dimResCtx) { Emit-Attribute "`t`t`t" $d $dimResCtx "Dimension" } else { Emit-Dimension "`t`t`t" $d $objType } } foreach ($a in $regAttrs) { Emit-Attribute "`t`t`t" $a $regCtx } foreach ($cmd in $regCommands) { Emit-Command "`t`t`t" $cmd.name $cmd.def } X "`t`t" } else { X "`t`t" } } # --- DocumentJournal: columns + commands --- if ($objType -eq "DocumentJournal") { $columns = @() if ($def.columns) { $columns = @($def.columns) } $djCommands = @() if ($def.commands) { if ($def.commands -is [array] -or $def.commands.GetType().Name -eq 'Object[]') { foreach ($c in $def.commands) { $djCommands += @{ name = "$($c.name)"; def = $c } } } else { $def.commands.PSObject.Properties | ForEach-Object { $djCommands += @{ name = $_.Name; def = $_.Value } } } } if ($columns.Count -gt 0 -or $djCommands.Count -gt 0) { $hasChildren = $true X "`t`t" foreach ($col in $columns) { Emit-Column "`t`t`t" $col } foreach ($cmd in $djCommands) { Emit-Command "`t`t`t" $cmd.name $cmd.def } X "`t`t" } else { X "`t`t" } } # --- Sequence: dimensions --- if ($objType -eq "Sequence") { $seqDims = @() if ($def.dimensions) { $seqDims = @($def.dimensions) } if ($seqDims.Count -gt 0) { $hasChildren = $true X "`t`t" foreach ($d in $seqDims) { Emit-SequenceDimension "`t`t`t" $d } X "`t`t" } else { X "`t`t" } } # --- FilterCriterion / SettingsStorage: ChildObjects (формы вне скоупа; FilterCriterion может нести ) --- if ($objType -in @("FilterCriterion", "SettingsStorage")) { $fcCommands = @() if ($def.commands) { if ($def.commands -is [array] -or $def.commands.GetType().Name -eq 'Object[]') { foreach ($c in $def.commands) { $fcCommands += @{ name = "$($c.name)"; def = $c } } } else { $def.commands.PSObject.Properties | ForEach-Object { $fcCommands += @{ name = $_.Name; def = $_.Value } } } } if ($fcCommands.Count -gt 0) { $hasChildren = $true X "`t`t" foreach ($cmd in $fcCommands) { Emit-Command "`t`t`t" $cmd.name $cmd.def } X "`t`t" } else { X "`t`t" } } # DocumentNumerator: ChildObjects нет вовсе (не эмитим). # --- HTTPService: URLTemplates --- if ($objType -eq "HTTPService") { $urlTemplates = @{} if ($def.urlTemplates) { $def.urlTemplates.PSObject.Properties | ForEach-Object { $urlTemplates[$_.Name] = $_.Value } } if ($urlTemplates.Count -gt 0) { $hasChildren = $true X "`t`t" 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" "FunctionalOption" = "FunctionalOptions" "Sequence" = "Sequences" "FilterCriterion" = "FilterCriteria" "DocumentNumerator" = "DocumentNumerators" "SettingsStorage" = "SettingsStorages" "CommonForm" = "CommonForms" "SessionParameter" = "SessionParameters" "CommonCommand" = "CommonCommands" "CommandGroup" = "CommandGroups" "CommonAttribute" = "CommonAttributes" "FunctionalOptionsParameter" = "FunctionalOptionsParameters" "WSReference" = "WSReferences" "CommonPicture" = "CommonPictures" "CommonTemplate" = "CommonTemplates" } $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]) { # Грамматика "(Код) Имя [Наименование]: Тип" (тип — как в полях СКД/реквизитах). Порядок разбора зеркалит # Parse-CalcShorthand: сначала вынуть [Наим] (может содержать ':'), затем отделить тип по ':'. $s = "$val"; $type = $null; $descRaw = $null; $hasDesc = $false if ($s -match '\[(.*)\]') { $descRaw = $Matches[1]; $hasDesc = $true; $s = $s -replace '\s*\[.*\]', '' } if ($s.Contains(':')) { $p = $s -split ':', 2; $s = $p[0]; $type = $p[1].Trim() } # '' → пустой $m = [regex]::Match($s.Trim(), '^\s*(?:\(([^)]*)\)\s*)?(\S+)\s*$') $name = $m.Groups[2].Value $code = if ($m.Groups[1].Success) { $m.Groups[1].Value } else { '' } $desc = if ($hasDesc) { $descRaw } else { Split-CamelCase $name } return @{ name = $name; code = $code; desc = $desc; isFolder = $false; children = @(); type = $type } } # Объектная форма + русские синонимы (прощающий ввод). $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','подчиненные') $typeV = & $gv $val @('type','тип') # тип значения характеристики (ПВХ): строка "A + B" ИЛИ массив if ($typeV -is [System.Array]) { $typeV = ($typeV -join ' + ') } return @{ name = $name; code = $code; desc = $desc; isFolder = $isFolder; children = @(if ($subs) { $subs } else { @() }); type = $typeV } } 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") } # Type — тип значения предопределённой характеристики (ПВХ); между Description и IsFolder. # type=$null → блока нет (Catalog); type='' → пустой ; type='A + B' → наполненный. if ($null -ne $r.type -and "$($r.type)" -eq '') { [void]$sb.Append("$indent`t`n") } elseif ($r.type) { [void]$sb.Append("$indent`t`n") $tmp = New-Object System.Text.StringBuilder $saveXml = $script:xml; $script:xml = $tmp Emit-TypeContent "$indent`t`t" "$($r.type)" $script:xml = $saveXml [void]$sb.Append(($tmp.ToString() -replace "`r`n", "`n")) [void]$sb.Append("$indent`t`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() } # --- Предопределённые СЧЕТА Плана счетов (отдельная грамматика: AccountType/OffBalance/Order/AccountingFlags/ # ExtDimensionTypes/ChildItems). Флаги перечисляем по def-порядку списков признаков плана; в DSL — только TRUE. --- $script:predefAccGet = { param($o, [string[]]$keys) foreach ($k in $keys) { if ($o -is [System.Collections.IDictionary]) { if ($o.Contains($k)) { return $o[$k] } } elseif ($o.PSObject -and $o.PSObject.Properties[$k]) { return $o.$k } } return $null } # «Только обороты» () — предопределённый признак учёта субконто. В DSL — токен в списке flags # наравне с добавленными признаками (ЛИБО отдельный ключ turnover). Распознаём по имени (регистронезависимо). $script:subcontoTurnoverTokens = @('turnover', 'толькообороты', 'только обороты', 'оборотный') function Emit-PredefAccountFlags { param($sb, [string]$indent, [string]$tag, [string]$refKind, [string]$objName, [string[]]$flagNames, $trueSet) if (-not $flagNames -or $flagNames.Count -eq 0) { [void]$sb.Append("$indent<$tag/>`n"); return } $set = @{}; if ($trueSet) { foreach ($t in @($trueSet)) { $set["$t"] = $true } } [void]$sb.Append("$indent<$tag>`n") foreach ($fn in $flagNames) { $v = if ($set.ContainsKey($fn)) { 'true' } else { 'false' } [void]$sb.Append("$indent`t$v`n") } [void]$sb.Append("$indent`n") } function Emit-PredefAccount { param($sb, $val, [string]$indent, [string]$objName, [string[]]$acctFlagNames, [string[]]$extDimFlagNames, [string]$extDimTypesRef = '') $gv = $script:predefAccGet $name = "$(& $gv $val @('name','имя'))" $codeV = & $gv $val @('code','код'); $code = if ($null -ne $codeV) { "$codeV" } else { '' } $hasDesc = ($val -is [System.Collections.IDictionary] -and ($val.Contains('description') -or $val.Contains('наименование'))) -or ($val.PSObject -and ($val.PSObject.Properties['description'] -or $val.PSObject.Properties['наименование'])) $descV = & $gv $val @('description','наименование') $desc = if ($hasDesc) { "$descV" } else { Split-CamelCase $name } $acctType = "$(& $gv $val @('accountType','видСчета','вид'))"; if (-not $acctType) { $acctType = 'ActivePassive' } $offV = & $gv $val @('offBalance','забалансовый'); $off = if ($offV -eq $true) { 'true' } else { 'false' } $order = "$(& $gv $val @('order','порядок'))" $flags = & $gv $val @('flags','признаки') $subconto = & $gv $val @('subconto','extDimensionTypes','видыСубконто') $children = & $gv $val @('childItems','подчиненные') [void]$sb.Append("$indent`n") [void]$sb.Append("$indent`t$(Esc-XmlText $name)`n") if (-not $code) { [void]$sb.Append("$indent`t`n") } else { [void]$sb.Append("$indent`t$(Esc-XmlText $code)`n") } if ($desc -eq '') { [void]$sb.Append("$indent`t`n") } else { [void]$sb.Append("$indent`t$(Esc-XmlText $desc)`n") } [void]$sb.Append("$indent`t$acctType`n") [void]$sb.Append("$indent`t$off`n") [void]$sb.Append("$indent`t$(Esc-XmlText $order)`n") Emit-PredefAccountFlags $sb "$indent`t" 'AccountingFlags' 'AccountingFlag' $objName $acctFlagNames $flags # ExtDimensionTypes — субконто: пусто → self-close; иначе список с Turnover + признаками. $subArr = @(); if ($subconto) { $subArr = @($subconto) } if ($subArr.Count -eq 0) { [void]$sb.Append("$indent`t`n") } else { [void]$sb.Append("$indent`t`n") foreach ($sc in $subArr) { # Строковая форма "Тип | Признак1, Признак2" (флаги после |, turnover=false). Объектная — {type, turnover?, flags?}. if ($sc -is [string]) { $scTurnV = $null; $scFlags = $null; $scStr = "$sc" if ($scStr.Contains('|')) { $scParts = $scStr.Split('|', 2); $scType = $scParts[0].Trim() $scFlags = @($scParts[1].Split(',') | ForEach-Object { $_.Trim() } | Where-Object { $_ }) } else { $scType = $scStr.Trim() } } else { $scType = "$(& $gv $sc @('type','тип'))"; $scTurnV = & $gv $sc @('turnover','толькоОбороты','оборотный'); $scFlags = & $gv $sc @('flags','признаки') } # Короткая запись: голое имя значения → префикс ПВХ видов субконто плана (extDimensionTypes); иначе резолв синонима. if (-not $scType.Contains('.')) { if ($extDimTypesRef) { $scType = "$extDimTypesRef.$scType" } } else { $scType = Resolve-TypePrefixSyn $scType } # «Только обороты» — токен в списке flags (или отдельный ключ turnover); вынимаем из настоящих признаков. $scTurn = if ($scTurnV -eq $true) { 'true' } else { 'false' } $scFlagsReal = @() foreach ($f in @($scFlags)) { if ("$f".Trim().ToLower() -in $script:subcontoTurnoverTokens) { $scTurn = 'true' } else { $scFlagsReal += $f } } $scFlags = $scFlagsReal [void]$sb.Append("$indent`t`t`n") [void]$sb.Append("$indent`t`t`t$scTurn`n") Emit-PredefAccountFlags $sb "$indent`t`t`t" 'AccountingFlags' 'ExtDimensionAccountingFlag' $objName $extDimFlagNames $scFlags [void]$sb.Append("$indent`t`t`n") } [void]$sb.Append("$indent`t`n") } $childArr = @(); if ($children) { $childArr = @($children) } if ($childArr.Count -gt 0) { [void]$sb.Append("$indent`t`n") foreach ($c in $childArr) { Emit-PredefAccount $sb $c "$indent`t`t" $objName $acctFlagNames $extDimFlagNames $extDimTypesRef } [void]$sb.Append("$indent`t`n") } [void]$sb.Append("$indent`n") } function Build-PredefinedAccountXml { param($items, [string]$objName, [string[]]$acctFlagNames, [string[]]$extDimFlagNames, [string]$extDimTypesRef = '') $sb = New-Object System.Text.StringBuilder [void]$sb.Append("`n") [void]$sb.Append("`n") foreach ($it in $items) { Emit-PredefAccount $sb $it "`t" $objName $acctFlagNames $extDimFlagNames $extDimTypesRef } [void]$sb.Append("`n") return $sb.ToString() } # --- Предопределённые ВИДЫ РАСЧЁТА (плоские: Name/Code/Description/ActionPeriodIsBase). Строка "(Код) Имя [Наим]" # ЛИБО объект {name, code, description, actionPeriodIsBase}. --- function Emit-PredefCalcType { param($sb, $val, [string]$indent) $r = Resolve-PredefItem $val $apib = 'false' if ($val -isnot [string]) { $apibV = & $script:predefAccGet $val @('actionPeriodIsBase','периодДействияБазовый') if ($apibV -eq $true) { $apib = 'true' } } [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") } 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$apib`n") [void]$sb.Append("$indent`n") } function Build-PredefinedCalcTypeXml { param($items) $sb = New-Object System.Text.StringBuilder [void]$sb.Append("`n") [void]$sb.Append("`n") foreach ($it in $items) { Emit-PredefCalcType $sb $it "`t" } [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 } } # CommonCommand — заготовка модуля команды (CommandModule.bsl). if ($objType -eq "CommonCommand") { $modulePath = Join-Path $extDir "CommandModule.bsl" if (-not (Test-Path $modulePath)) { Ensure-ExtDir [System.IO.File]::WriteAllText($modulePath, "", $enc) $modulesCreated += $modulePath } } # CommonForm — заготовка структуры формы под компиляцию: Ext/Form.xml (пустая управляемая форма) + Ext/Form/Module.bsl. # Содержимое формы наполняет form-compile/form-edit (не перезаписываем существующее). if ($objType -eq "CommonForm") { Ensure-ExtDir $cfFormXmlPath = Join-Path $extDir "Form.xml" if (-not (Test-Path $cfFormXmlPath)) { $cfFormNs = 'xmlns="http://v8.1c.ru/8.3/xcf/logform" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings" 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: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"' $cfFormXml = "`n
`n`t`n`t`ttrue`n`t`n`t`n`n" [System.IO.File]::WriteAllText($cfFormXmlPath, $cfFormXml, $enc) $modulesCreated += $cfFormXmlPath } $cfModuleDir = Join-Path $extDir "Form" if (-not (Test-Path $cfModuleDir)) { New-Item -ItemType Directory -Path $cfModuleDir -Force | Out-Null } $cfModulePath = Join-Path $cfModuleDir "Module.bsl" if (-not (Test-Path $cfModulePath)) { [System.IO.File]::WriteAllText($cfModulePath, "", $enc) $modulesCreated += $cfModulePath } } # Special files # --- Состав плана обмена (ExchangePlan, Ext/Content.xml). Ключ `content`/`Состав`: # [ "MDRef" (AutoRecord=Deny, дефолт) | "MDRef: autoRecord" (Allow) | {metadata, autoRecord} ]. # Токен-признак autoRecord/АвтоРегистрация (или Allow/Разрешить) → авторегистрация вкл. Метаданные — MDObjectRef verbatim. --- function Parse-ExchangeContentItem($entry) { if ($entry -is [string]) { $s = "$entry"; $ref = $s; $ar = 'Deny' $ci = $s.LastIndexOf(':') if ($ci -ge 0) { $ref = $s.Substring(0, $ci).Trim() $flag = $s.Substring($ci + 1).Trim() if ($flag -match '^(autoRecord|АвтоРегистрация|Allow|Разрешить)$') { $ar = 'Allow' } elseif ($flag -match '^(Deny|Запретить)$') { $ar = 'Deny' } } return @{ metadata = $ref.Trim(); autoRecord = $ar } } $ref = if ($null -ne $entry.metadata) { "$($entry.metadata)" } elseif ($null -ne $entry.Метаданные) { "$($entry.Метаданные)" } elseif ($null -ne $entry.объект) { "$($entry.объект)" } else { '' } $rawAr = if ($null -ne $entry.autoRecord) { $entry.autoRecord } elseif ($null -ne $entry.АвтоРегистрация) { $entry.АвтоРегистрация } else { $false } $ar = 'Deny' if ($rawAr -is [bool]) { if ($rawAr) { $ar = 'Allow' } } elseif ("$rawAr" -match '^(Allow|Разрешить|true|autoRecord|АвтоРегистрация)$') { $ar = 'Allow' } return @{ metadata = $ref.Trim(); autoRecord = $ar } } if ($objType -eq "ExchangePlan") { $contentPath = Join-Path $extDir "Content.xml" $xepNs = 'xmlns="http://v8.1c.ru/8.3/xcf/extrnprops" 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"' $cItems = @() $cSrc = if ($null -ne $def.content) { $def.content } elseif ($null -ne $def.Состав) { $def.Состав } else { $null } if ($cSrc) { foreach ($e in @($cSrc)) { $it = Parse-ExchangeContentItem $e; if ($it.metadata) { $cItems += $it } } } if ($cItems.Count -gt 0) { Ensure-ExtDir $sbC = New-Object System.Text.StringBuilder [void]$sbC.Append("`r`n") [void]$sbC.Append("`r`n") foreach ($it in $cItems) { [void]$sbC.Append("`t`r`n") [void]$sbC.Append("`t`t$(Esc-Xml $it.metadata)`r`n") [void]$sbC.Append("`t`t$($it.autoRecord)`r`n") [void]$sbC.Append("`t`r`n") } [void]$sbC.Append("`r`n") [System.IO.File]::WriteAllText($contentPath, $sbC.ToString(), $enc) $modulesCreated += $contentPath } elseif (-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). Root-элемент — по типу. Пусто/нет ключа → файл не создаём. $predefRootByType = @{ 'Catalog' = 'CatalogPredefinedItems'; 'ChartOfCharacteristicTypes' = 'PlanOfCharacteristicKindPredefinedItems' } if ($objType -eq 'ChartOfAccounts' -and $def.predefined -and @($def.predefined).Count -gt 0) { # Предопределённые СЧЕТА — отдельная грамматика (флаги разворачиваются по def-порядку признаков плана). Ensure-ExtDir $afNames = @(); if ($def.accountingFlags) { foreach ($af in $def.accountingFlags) { $afNames += (Parse-AttributeShorthand $af).name } } $edfNames = @(); if ($def.extDimensionAccountingFlags) { foreach ($edf in $def.extDimensionAccountingFlags) { $edfNames += (Parse-AttributeShorthand $edf).name } } $edtRef = if ($def.extDimensionTypes) { Resolve-TypePrefixSyn "$($def.extDimensionTypes)" } else { '' } $predefXml = Build-PredefinedAccountXml @($def.predefined) $objName $afNames $edfNames $edtRef $predefPath = Join-Path $extDir "Predefined.xml" [System.IO.File]::WriteAllText($predefPath, $predefXml, $enc) $modulesCreated += $predefPath } elseif ($objType -eq 'ChartOfCalculationTypes' -and $def.predefined -and @($def.predefined).Count -gt 0) { Ensure-ExtDir $predefXml = Build-PredefinedCalcTypeXml @($def.predefined) $predefPath = Join-Path $extDir "Predefined.xml" [System.IO.File]::WriteAllText($predefPath, $predefXml, $enc) $modulesCreated += $predefPath } elseif ($predefRootByType.ContainsKey($objType) -and $def.predefined -and @($def.predefined).Count -gt 0) { Ensure-ExtDir $catCodeType = if ($def.codeType) { "$($def.codeType)" } else { 'String' } $predefXml = Build-PredefinedXml @($def.predefined) $predefRootByType[$objType] $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`"" } }