# meta-compile v1.14 — Compile 1C metadata object from JSON # Source: https://github.com/Nikolay-Shirokov/cc-1c-skills param( [Parameter(Mandatory)] [string]$JsonPath, [Parameter(Mandatory)] [string]$OutputDir ) $ErrorActionPreference = "Stop" [Console]::OutputEncoding = [System.Text.Encoding]::UTF8 # --- 1. Load and validate JSON --- if (-not (Test-Path $JsonPath)) { Write-Error "File not found: $JsonPath" exit 1 } $json = Get-Content -Raw -Encoding UTF8 $JsonPath $def = $json | ConvertFrom-Json # --- Support guard (Ext/ParentConfigurations.bin) --- # See docs/1c-support-state-spec.md. Blocks edits of vendor objects "на замке" / # read-only configs unless allowed. Trigger = bin present; reaction from # .v8-project.json editingAllowedCheck (deny|warn|off, default deny). Never # throws — guard errors degrade to allow. function Get-RootUuid([string]$xmlPath) { if (-not (Test-Path $xmlPath)) { return $null } try { [xml]$mx = Get-Content -Path $xmlPath -Encoding UTF8 $el = $mx.DocumentElement.FirstChild while ($el -and $el.NodeType -ne 'Element') { $el = $el.NextSibling } if ($el) { $u = $el.GetAttribute("uuid"); if ($u) { return $u } } } catch {} return $null } function Find-V8Project([string]$startDir) { $d = $startDir for ($i = 0; $i -lt 20 -and $d; $i++) { $pj = Join-Path $d ".v8-project.json" if (Test-Path $pj) { return $pj } $parent = [System.IO.Path]::GetDirectoryName($d) if ($parent -eq $d) { break } $d = $parent } return $null } function Get-EditMode([string]$cfgDir) { try { $pj = Find-V8Project (Get-Location).Path if (-not $pj) { $pj = Find-V8Project $cfgDir } if (-not $pj) { return 'deny' } $proj = Get-Content -Raw $pj | ConvertFrom-Json $cfgFull = [System.IO.Path]::GetFullPath($cfgDir).TrimEnd('\', '/') if ($proj.databases) { foreach ($db in $proj.databases) { if ($db.configSrc) { $src = [System.IO.Path]::GetFullPath($db.configSrc).TrimEnd('\', '/') if ($cfgFull -eq $src -or $cfgFull.StartsWith($src + [System.IO.Path]::DirectorySeparatorChar)) { if ($db.editingAllowedCheck) { return $db.editingAllowedCheck } } } } } if ($proj.editingAllowedCheck) { return $proj.editingAllowedCheck } return 'deny' } catch { return 'deny' } } function Assert-EditAllowed([string]$targetPath, [string]$require) { try { $rp = $targetPath try { $rp = (Resolve-Path $targetPath -ErrorAction Stop).Path } catch {} $elemUuid = Get-RootUuid $rp $cfgDir = $null; $binPath = $null $d = if (Test-Path $rp -PathType Container) { $rp } else { [System.IO.Path]::GetDirectoryName($rp) } for ($i = 0; $i -lt 12 -and $d; $i++) { if (-not $elemUuid) { $elemUuid = Get-RootUuid "$d.xml" } if (-not $cfgDir) { $cand = Join-Path (Join-Path $d "Ext") "ParentConfigurations.bin" if ((Test-Path $cand) -or (Test-Path (Join-Path $d "Configuration.xml"))) { $cfgDir = $d; $binPath = $cand } } if ($elemUuid -and $cfgDir) { break } $parent = [System.IO.Path]::GetDirectoryName($d) if ($parent -eq $d) { break } $d = $parent } # New object (no element file): fall back to config root uuid. if (-not $elemUuid -and $cfgDir) { $elemUuid = Get-RootUuid (Join-Path $cfgDir "Configuration.xml") } if (-not $binPath -or -not (Test-Path $binPath)) { return } $bytes = [System.IO.File]::ReadAllBytes($binPath) if ($bytes.Length -le 32) { return } $start = 0 if ($bytes.Length -ge 3 -and $bytes[0] -eq 0xEF -and $bytes[1] -eq 0xBB -and $bytes[2] -eq 0xBF) { $start = 3 } $text = [System.Text.Encoding]::UTF8.GetString($bytes, $start, $bytes.Length - $start) $hm = [regex]::Match($text, '^\{6,(\d+),(\d+),') if (-not $hm.Success) { return } $G = [int]$hm.Groups[1].Value $K = [int]$hm.Groups[2].Value if ($K -eq 0) { return } $best = $null if ($elemUuid) { $u = [regex]::Escape($elemUuid.ToLower()) foreach ($m in [regex]::Matches($text, "([0-2]),0,$u")) { $f1 = [int]$m.Groups[1].Value if ($null -eq $best -or $f1 -lt $best) { $best = $f1 } } } $blocked = $false; $code = ""; $reason = "" if ($G -eq 1) { $blocked = $true; $code = "capability-off"; $reason = "возможность изменения конфигурации выключена (вся конфигурация read-only)" } elseif ($require -eq 'removed') { if ($null -ne $best -and $best -ne 2) { $blocked = $true; $code = "not-removed"; $reason = "объект не снят с поддержки — удаление сломает обновления" } } else { if ($null -ne $best -and $best -eq 0) { $blocked = $true; $code = "locked"; $reason = "объект на замке — редактирование сломает обновления" } } if (-not $blocked) { return } $mode = Get-EditMode $cfgDir if ($mode -eq 'off') { return } # Use Console.Error (not Write-Error) — under ErrorActionPreference=Stop the # latter throws and would be swallowed by this function's own catch. if ($mode -eq 'warn') { [Console]::Error.WriteLine("[support-guard] ПРЕДУПРЕЖДЕНИЕ: $reason. Цель: $rp"); return } $head = "[support-guard] Редактирование отклонено: это объект типовой конфигурации на поддержке поставщика, прямое редактирование молча сломает будущие обновления." $cfe = "Рекомендуемый путь: внести доработку в расширение (навыки cfe-borrow / cfe-patch-method) — состояние поддержки менять не нужно, обновления вендора сохраняются." $offNote = "Снять проверку для этой базы: editingAllowedCheck = warn|off в .v8-project.json." if ($code -eq "capability-off") { $state = "Состояние: у всей конфигурации выключена возможность изменения (режим read-only «из коробки») — поэтому объект «$rp» редактировать нельзя." $fix = "Либо снять защиту явно (навык support-edit, два шага):`n 1. support-edit -Path ""$cfgDir"" -Capability on — включить возможность изменения (объекты пока остаются на замке);`n 2. support-edit -Path ""$rp"" -Set editable — открыть этот объект для редактирования.`n Изменение применяется в базу полной загрузкой выгрузки и обходит механизм обновлений вендора." } elseif ($code -eq "not-removed") { $state = "Состояние: объект «$rp» на поддержке (не снят с поддержки) — его удаление разорвёт обновления вендора." $fix = "Либо сначала снять объект с поддержки, затем удалять:`n support-edit -Path ""$rp"" -Set off-support — объект уходит из-под обновлений, после этого удаление безопасно." } else { $state = "Состояние: объект «$rp» на замке (возможность изменения конфигурации включена, но сам объект не редактируется)." $fix = "Либо разрешить редактирование этого объекта (навык support-edit, выбрать одно):`n support-edit -Path ""$rp"" -Set editable — редактировать и дальше получать обновления вендора (возможны конфликты слияния);`n support-edit -Path ""$rp"" -Set off-support — снять с поддержки: обновления по объекту больше не приходят." } [Console]::Error.WriteLine("$head`n$state`n$cfe`n$fix`n$offNote") exit 1 } catch { return } } Assert-EditAllowed $OutputDir 'editable' # --- Batch mode: JSON array of objects --- if ($def -is [array] -or ($null -ne $def -and $def.GetType().BaseType.Name -eq 'Array')) { $batchOk = 0 $batchFail = 0 $idx = 0 foreach ($item in $def) { $idx++ $tmpJson = Join-Path ([System.IO.Path]::GetTempPath()) "meta-compile-batch-$idx.json" try { $item | ConvertTo-Json -Depth 20 | Set-Content -Encoding UTF8 $tmpJson $proc = Start-Process -FilePath "powershell.exe" -ArgumentList "-NoProfile -File `"$PSCommandPath`" -JsonPath `"$tmpJson`" -OutputDir `"$OutputDir`"" -NoNewWindow -Wait -PassThru if ($proc.ExitCode -eq 0) { $batchOk++ } else { $batchFail++ } } finally { Remove-Item $tmpJson -Force -ErrorAction SilentlyContinue } } Write-Host "" Write-Host "=== Batch: $idx objects, $batchOk compiled, $batchFail failed ===" if ($batchFail -gt 0) { exit 1 } exit 0 } # Normalize field synonyms: accept "objectType" as alias for "type" if (-not $def.type -and $def.objectType) { $def | Add-Member -NotePropertyName "type" -NotePropertyValue $def.objectType } # Object type synonyms (Russian → English) $script:objectTypeSynonyms = @{ "Справочник" = "Catalog" "Каталог" = "Catalog" "Документ" = "Document" "Перечисление" = "Enum" "Константа" = "Constant" "РегистрСведений" = "InformationRegister" "РегистрНакопления" = "AccumulationRegister" "РегистрБухгалтерии" = "AccountingRegister" "РегистрРасчёта" = "CalculationRegister" "РегистрРасчета" = "CalculationRegister" "ПланСчетов" = "ChartOfAccounts" "ПланВидовХарактеристик" = "ChartOfCharacteristicTypes" "ПланВидовРасчёта" = "ChartOfCalculationTypes" "ПланВидовРасчета" = "ChartOfCalculationTypes" "БизнесПроцесс" = "BusinessProcess" "Задача" = "Task" "ПланОбмена" = "ExchangePlan" "ЖурналДокументов" = "DocumentJournal" "Отчёт" = "Report" "Отчет" = "Report" "Обработка" = "DataProcessor" "ОбщийМодуль" = "CommonModule" "РегламентноеЗадание" = "ScheduledJob" "ПодпискаНаСобытие" = "EventSubscription" "HTTPСервис" = "HTTPService" "ВебСервис" = "WebService" "ОпределяемыйТип" = "DefinedType" } # Enum property value synonyms — model often gets these slightly wrong $script:enumValueAliases = @{ # RegisterType (AccumulationRegister) "Balances" = "Balance"; "Остатки" = "Balance"; "Обороты" = "Turnovers" # WriteMode (InformationRegister) "RecordSubordinate" = "RecorderSubordinate"; "Subordinate" = "RecorderSubordinate" "ПодчинениеРегистратору" = "RecorderSubordinate"; "Независимый" = "Independent" # DependenceOnCalculationTypes (ChartOfCalculationTypes) "NotDependOnCalculationTypes" = "DontUse"; "NoDependence" = "DontUse"; "NotUsed" = "DontUse" "Depend" = "OnActionPeriod"; "ПоПериодуДействия" = "OnActionPeriod" # InformationRegisterPeriodicity "None" = "Nonperiodical"; "Daily" = "Day"; "Monthly" = "Month" "Quarterly" = "Quarter"; "Yearly" = "Year" "Непериодический" = "Nonperiodical"; "Секунда" = "Second"; "День" = "Day" "Месяц" = "Month"; "Квартал" = "Quarter"; "Год" = "Year" "ПозицияРегистратора" = "RecorderPosition" # DataLockControlMode "Автоматический" = "Automatic"; "Управляемый" = "Managed" # FullTextSearch "Использовать" = "Use"; "НеИспользовать" = "DontUse" # Posting "Разрешить" = "Allow"; "Запретить" = "Deny" # EditType "ВДиалоге" = "InDialog"; "ВСписке" = "InList"; "ОбаСпособа" = "BothWays" # DefaultPresentation "ВВидеНаименования" = "AsDescription"; "ВВидеКода" = "AsCode" # FillChecking "НеПроверять" = "DontCheck"; "Ошибка" = "ShowError"; "Предупреждение" = "ShowWarning" # Indexing "НеИндексировать" = "DontIndex"; "Индексировать" = "Index" "ИндексироватьСДопУпорядочиванием" = "IndexWithAdditionalOrder" } # Valid enum values per property (from meta-validate) $script:validEnumValues = @{ "RegisterType" = @("Balance","Turnovers") "WriteMode" = @("Independent","RecorderSubordinate") "InformationRegisterPeriodicity" = @("Nonperiodical","Second","Day","Month","Quarter","Year","RecorderPosition") "DependenceOnCalculationTypes" = @("DontUse","OnActionPeriod") "DataLockControlMode" = @("Automatic","Managed") "FullTextSearch" = @("Use","DontUse") "DataHistory" = @("Use","DontUse") "DefaultPresentation" = @("AsDescription","AsCode") "Posting" = @("Allow","Deny") "RealTimePosting" = @("Allow","Deny") "EditType" = @("InDialog","InList","BothWays") "HierarchyType" = @("HierarchyFoldersAndItems","HierarchyItemsOnly") "CodeType" = @("String","Number") "CodeAllowedLength" = @("Variable","Fixed") "NumberType" = @("String","Number") "NumberAllowedLength" = @("Variable","Fixed") "RegisterRecordsDeletion" = @("AutoDelete","AutoDeleteOnUnpost","AutoDeleteOff") "RegisterRecordsWritingOnPost" = @("WriteModified","WriteSelected","WriteAll") "ReturnValuesReuse" = @("DontUse","DuringRequest","DuringSession") "ReuseSessions" = @("DontUse","AutoUse") "FillChecking" = @("DontCheck","ShowError","ShowWarning") "Indexing" = @("DontIndex","Index","IndexWithAdditionalOrder") "SubordinationUse" = @("ToItems","ToFolders","ToFoldersAndItems") "CodeSeries" = @("WholeCatalog","WithinSubordination") "ChoiceMode" = @("BothWays","QuickChoice","FromForm") } function Normalize-EnumValue { param([string]$propName, [string]$value) # 1. Check alias dictionary — silent auto-correct if ($script:enumValueAliases.ContainsKey($value)) { return $script:enumValueAliases[$value] } # 2. Case-insensitive match against valid values — silent $valid = $script:validEnumValues[$propName] if ($valid) { foreach ($v in $valid) { if ($v -ieq $value) { return $v } } # 3. Known property, unknown value — error with hint Write-Error "Invalid value '$value' for property '$propName'. Valid values: $($valid -join ', ')" exit 1 } # 4. Unknown property — pass-through (no validation data) return $value } # Helper: read enum property from $def with default and normalization function Get-EnumProp { param([string]$propName, [string]$fieldName, [string]$default) $val = $def.$fieldName $raw = if ($val) { "$val" } else { $default } return (Normalize-EnumValue $propName $raw) } if (-not $def.type) { Write-Error "JSON must have 'type' field" exit 1 } # Resolve type synonym $objType = "$($def.type)" if ($script:objectTypeSynonyms.ContainsKey($objType)) { $objType = $script:objectTypeSynonyms[$objType] } $validTypes = @("Catalog","Document","Enum","Constant","InformationRegister","AccumulationRegister", "AccountingRegister","CalculationRegister","ChartOfAccounts","ChartOfCharacteristicTypes", "ChartOfCalculationTypes","BusinessProcess","Task","ExchangePlan","DocumentJournal", "Report","DataProcessor","CommonModule","ScheduledJob","EventSubscription", "HTTPService","WebService","DefinedType") if ($objType -notin $validTypes) { Write-Error "Unsupported type: $objType. Valid: $($validTypes -join ', ')" exit 1 } if (-not $def.name) { Write-Error "JSON must have 'name' field" exit 1 } $objName = "$($def.name)" # --- 2. XML helpers --- $script:xml = New-Object System.Text.StringBuilder 32768 function X { param([string]$text) $script:xml.AppendLine($text) | Out-Null } function Esc-Xml { param([string]$s) return $s.Replace('&','&').Replace('<','<').Replace('>','>').Replace('"','"') } function Emit-MLText { param([string]$indent, [string]$tag, [string]$text) if (-not $text) { X "$indent<$tag/>" return } X "$indent<$tag>" X "$indent`t" X "$indent`t`tru" X "$indent`t`t$(Esc-Xml $text)" X "$indent`t" X "$indent" } function New-Guid-String { return [System.Guid]::NewGuid().ToString() } # --- 3. CamelCase splitter --- function Split-CamelCase { param([string]$name) if (-not $name) { return $name } # Insert space before uppercase that follows lowercase (Cyrillic + Latin) $result = [regex]::Replace($name, '([а-яё])([А-ЯЁ])', '$1 $2') $result = [regex]::Replace($result, '([a-z])([A-Z])', '$1 $2') # Lowercase all but first character of the result if ($result.Length -gt 1) { $result = $result.Substring(0,1) + $result.Substring(1).ToLower() } return $result } # Auto-synonym $synonym = if ($def.synonym) { "$($def.synonym)" } else { Split-CamelCase $objName } $comment = if ($def.comment) { "$($def.comment)" } else { "" } # --- 4. Type system --- $script:typeSynonyms = New-Object System.Collections.Hashtable $script:typeSynonyms["число"] = "Number" $script:typeSynonyms["строка"] = "String" $script:typeSynonyms["булево"] = "Boolean" $script:typeSynonyms["дата"] = "Date" $script:typeSynonyms["датавремя"]= "DateTime" $script:typeSynonyms["number"] = "Number" $script:typeSynonyms["string"] = "String" $script:typeSynonyms["boolean"] = "Boolean" $script:typeSynonyms["date"] = "Date" $script:typeSynonyms["datetime"] = "DateTime" $script:typeSynonyms["bool"] = "Boolean" # Reference synonyms (Russian, lowercase) $script:typeSynonyms["справочникссылка"] = "CatalogRef" $script:typeSynonyms["документссылка"] = "DocumentRef" $script:typeSynonyms["перечислениессылка"] = "EnumRef" $script:typeSynonyms["плансчетовссылка"] = "ChartOfAccountsRef" $script:typeSynonyms["планвидовхарактеристикссылка"] = "ChartOfCharacteristicTypesRef" $script:typeSynonyms["планвидоврасчётассылка"] = "ChartOfCalculationTypesRef" $script:typeSynonyms["планвидоврасчетассылка"] = "ChartOfCalculationTypesRef" $script:typeSynonyms["планобменассылка"] = "ExchangePlanRef" $script:typeSynonyms["бизнеспроцессссылка"] = "BusinessProcessRef" $script:typeSynonyms["задачассылка"] = "TaskRef" $script:typeSynonyms["определяемыйтип"] = "DefinedType" $script:typeSynonyms["definedtype"] = "DefinedType" # English lowercase ref synonyms $script:typeSynonyms["catalogref"] = "CatalogRef" $script:typeSynonyms["documentref"] = "DocumentRef" $script:typeSynonyms["enumref"] = "EnumRef" function Resolve-TypeStr { param([string]$typeStr) if (-not $typeStr) { return $typeStr } # Check for parameterized types: Number(15,2), Строка(100), etc. if ($typeStr -match '^([^(]+)\((.+)\)$') { $baseName = $Matches[1].Trim() $params = $Matches[2] $resolved = $script:typeSynonyms[$baseName.ToLower()] if ($resolved) { return "$resolved($params)" } return $typeStr } # Check for reference types: СправочникСсылка.Организации → CatalogRef.Организации if ($typeStr.Contains('.')) { $dotIdx = $typeStr.IndexOf('.') $prefix = $typeStr.Substring(0, $dotIdx) $suffix = $typeStr.Substring($dotIdx) # includes the dot $resolved = $script:typeSynonyms[$prefix.ToLower()] if ($resolved) { return "$resolved$suffix" } return $typeStr } # Simple name lookup $resolved = $script:typeSynonyms[$typeStr.ToLower()] if ($resolved) { return $resolved } return $typeStr } function Emit-TypeContent { param([string]$indent, [string]$typeStr) if (-not $typeStr) { return } # Composite type: "Type1 + Type2 + Type3" if ($typeStr.Contains(' + ')) { $parts = $typeStr -split '\s*\+\s*' foreach ($part in $parts) { Emit-TypeContent $indent $part.Trim() } return } $typeStr = Resolve-TypeStr $typeStr # Boolean if ($typeStr -eq "Boolean") { X "$indentxs:boolean" return } # String or String(N) if ($typeStr -match '^String(\((\d+)\))?$') { $len = if ($Matches[2]) { $Matches[2] } else { "10" } X "$indentxs:string" X "$indent" X "$indent`t$len" X "$indent`tVariable" X "$indent" return } # Number without params → Number(10,0) if ($typeStr -eq "Number") { X "$indentxs:decimal" X "$indent" X "$indent`t10" X "$indent`t0" X "$indent`tAny" X "$indent" return } # Number(D,F) or Number(D,F,nonneg) if ($typeStr -match '^Number\((\d+),(\d+)(,nonneg)?\)$') { $digits = $Matches[1] $fraction = $Matches[2] $sign = if ($Matches[3]) { "Nonnegative" } else { "Any" } X "$indentxs:decimal" X "$indent" X "$indent`t$digits" X "$indent`t$fraction" X "$indent`t$sign" X "$indent" return } # Date / DateTime if ($typeStr -eq "Date") { X "$indentxs:dateTime" X "$indent" X "$indent`tDate" X "$indent" return } if ($typeStr -eq "DateTime") { X "$indentxs:dateTime" X "$indent" X "$indent`tDateTime" X "$indent" return } # DefinedType if ($typeStr -match '^DefinedType\.(.+)$') { $dtName = $Matches[1] X "$indentcfg:DefinedType.$dtName" return } # ValueStorage if ($typeStr -eq "ValueStorage") { X "$indentxs:base64Binary" return } # Reference types — use local xmlns declaration for 1C compatibility if ($typeStr -match '^(CatalogRef|DocumentRef|EnumRef|ChartOfAccountsRef|ChartOfCharacteristicTypesRef|ChartOfCalculationTypesRef|ExchangePlanRef|BusinessProcessRef|TaskRef)\.(.+)$') { X "$indentd5p1:$typeStr" return } # Fallback — emit as-is X "$indent$typeStr" } function Emit-ValueType { param([string]$indent, [string]$typeStr) X "$indent" Emit-TypeContent "$indent`t" $typeStr X "$indent" } function Emit-FillValue { param([string]$indent, [string]$typeStr) if (-not $typeStr) { X "$indent" return } $typeStr = Resolve-TypeStr $typeStr if ($typeStr -eq "Boolean") { X "$indentfalse" return } if ($typeStr -match '^String') { X "$indent" return } if ($typeStr -match '^Number') { X "$indent0" return } if ($typeStr -match '^(Date|DateTime)$') { X "$indent" return } # References and others X "$indent" } # --- 5. Attribute shorthand parser --- function Build-TypeStr { param($obj) $t = if ($obj.valueType) { "$($obj.valueType)" } elseif ($obj.type) { "$($obj.type)" } else { "" } if ($t -and -not $t.Contains('(')) { if ($t -eq "String" -and $obj.length) { $t = "String($($obj.length))" } elseif ($t -eq "Number" -and $obj.length) { $p = if ($obj.precision) { $obj.precision } else { 0 } $nn = if ($obj.nonneg -or $obj.nonnegative) { ",nonneg" } else { "" } $t = "Number($($obj.length),$p$nn)" } } return $t } function Parse-AttributeShorthand { param($val) if ($val -is [string]) { $str = "$val" $parsed = @{ name = "" type = "" synonym = "" comment = "" flags = @() } # Split by | for flags $parts = $str -split '\|', 2 $mainPart = $parts[0].Trim() if ($parts.Count -gt 1) { $flagStr = $parts[1].Trim() $parsed.flags = @($flagStr -split ',' | ForEach-Object { $_.Trim().ToLower() } | Where-Object { $_ }) } # Split by : for name and type $colonParts = $mainPart -split ':', 2 $parsed.name = $colonParts[0].Trim() if ($colonParts.Count -gt 1) { $parsed.type = $colonParts[1].Trim() } $parsed.synonym = Split-CamelCase $parsed.name return $parsed } # Object form $name = "$($val.name)" return @{ name = $name type = Build-TypeStr $val synonym = if ($val.synonym) { "$($val.synonym)" } else { Split-CamelCase $name } comment = if ($val.comment) { "$($val.comment)" } else { "" } flags = @(if ($val.flags) { $val.flags } else { @() }) fillChecking = if ($val.fillChecking) { "$($val.fillChecking)" } else { "" } indexing = if ($val.indexing) { "$($val.indexing)" } else { "" } multiLine = if ($val.multiLine -eq $true) { $true } else { $false } choiceHistoryOnInput = if ($val.choiceHistoryOnInput) { "$($val.choiceHistoryOnInput)" } else { "" } } } function Parse-EnumValueShorthand { param($val) if ($val -is [string]) { $name = "$val" return @{ name = $name synonym = Split-CamelCase $name comment = "" } } $name = "$($val.name)" return @{ name = $name synonym = if ($val.synonym) { "$($val.synonym)" } else { Split-CamelCase $name } comment = if ($val.comment) { "$($val.comment)" } else { "" } } } # --- 6. GeneratedType categories --- $script:generatedTypes = @{ "Catalog" = @( @{ prefix = "CatalogObject"; category = "Object" } @{ prefix = "CatalogRef"; category = "Ref" } @{ prefix = "CatalogSelection"; category = "Selection" } @{ prefix = "CatalogList"; category = "List" } @{ prefix = "CatalogManager"; category = "Manager" } ) "Document" = @( @{ prefix = "DocumentObject"; category = "Object" } @{ prefix = "DocumentRef"; category = "Ref" } @{ prefix = "DocumentSelection"; category = "Selection" } @{ prefix = "DocumentList"; category = "List" } @{ prefix = "DocumentManager"; category = "Manager" } ) "Enum" = @( @{ prefix = "EnumRef"; category = "Ref" } @{ prefix = "EnumManager"; category = "Manager" } @{ prefix = "EnumList"; category = "List" } ) "Constant" = @( @{ prefix = "ConstantManager"; category = "Manager" } @{ prefix = "ConstantValueManager"; category = "ValueManager" } @{ prefix = "ConstantValueKey"; category = "ValueKey" } ) "InformationRegister" = @( @{ prefix = "InformationRegisterRecord"; category = "Record" } @{ prefix = "InformationRegisterManager"; category = "Manager" } @{ prefix = "InformationRegisterSelection"; category = "Selection" } @{ prefix = "InformationRegisterList"; category = "List" } @{ prefix = "InformationRegisterRecordSet"; category = "RecordSet" } @{ prefix = "InformationRegisterRecordKey"; category = "RecordKey" } @{ prefix = "InformationRegisterRecordManager"; category = "RecordManager" } ) "AccumulationRegister" = @( @{ prefix = "AccumulationRegisterRecord"; category = "Record" } @{ prefix = "AccumulationRegisterManager"; category = "Manager" } @{ prefix = "AccumulationRegisterSelection"; category = "Selection" } @{ prefix = "AccumulationRegisterList"; category = "List" } @{ prefix = "AccumulationRegisterRecordSet"; category = "RecordSet" } @{ prefix = "AccumulationRegisterRecordKey"; category = "RecordKey" } ) "AccountingRegister" = @( @{ prefix = "AccountingRegisterRecord"; category = "Record" } @{ prefix = "AccountingRegisterExtDimensions"; category = "ExtDimensions" } @{ prefix = "AccountingRegisterRecordSet"; category = "RecordSet" } @{ prefix = "AccountingRegisterRecordKey"; category = "RecordKey" } @{ prefix = "AccountingRegisterSelection"; category = "Selection" } @{ prefix = "AccountingRegisterList"; category = "List" } @{ prefix = "AccountingRegisterManager"; category = "Manager" } ) "CalculationRegister" = @( @{ prefix = "CalculationRegisterRecord"; category = "Record" } @{ prefix = "CalculationRegisterManager"; category = "Manager" } @{ prefix = "CalculationRegisterSelection"; category = "Selection" } @{ prefix = "CalculationRegisterList"; category = "List" } @{ prefix = "CalculationRegisterRecordSet"; category = "RecordSet" } @{ prefix = "CalculationRegisterRecordKey"; category = "RecordKey" } @{ prefix = "RecalculationsManager"; category = "Recalcs" } ) "ChartOfAccounts" = @( @{ prefix = "ChartOfAccountsObject"; category = "Object" } @{ prefix = "ChartOfAccountsRef"; category = "Ref" } @{ prefix = "ChartOfAccountsSelection"; category = "Selection" } @{ prefix = "ChartOfAccountsList"; category = "List" } @{ prefix = "ChartOfAccountsManager"; category = "Manager" } @{ prefix = "ChartOfAccountsExtDimensionTypes"; category = "ExtDimensionTypes" } @{ prefix = "ChartOfAccountsExtDimensionTypesRow"; category = "ExtDimensionTypesRow" } ) "ChartOfCharacteristicTypes" = @( @{ prefix = "ChartOfCharacteristicTypesObject"; category = "Object" } @{ prefix = "ChartOfCharacteristicTypesRef"; category = "Ref" } @{ prefix = "ChartOfCharacteristicTypesSelection"; category = "Selection" } @{ prefix = "ChartOfCharacteristicTypesList"; category = "List" } @{ prefix = "ChartOfCharacteristicTypesCharacteristic"; category = "Characteristic" } @{ prefix = "ChartOfCharacteristicTypesManager"; category = "Manager" } ) "ChartOfCalculationTypes" = @( @{ prefix = "ChartOfCalculationTypesObject"; category = "Object" } @{ prefix = "ChartOfCalculationTypesRef"; category = "Ref" } @{ prefix = "ChartOfCalculationTypesSelection"; category = "Selection" } @{ prefix = "ChartOfCalculationTypesList"; category = "List" } @{ prefix = "ChartOfCalculationTypesManager"; category = "Manager" } @{ prefix = "DisplacingCalculationTypes"; category = "DisplacingCalculationTypes" } @{ prefix = "DisplacingCalculationTypesRow"; category = "DisplacingCalculationTypesRow" } @{ prefix = "BaseCalculationTypes"; category = "BaseCalculationTypes" } @{ prefix = "BaseCalculationTypesRow"; category = "BaseCalculationTypesRow" } @{ prefix = "LeadingCalculationTypes"; category = "LeadingCalculationTypes" } @{ prefix = "LeadingCalculationTypesRow"; category = "LeadingCalculationTypesRow" } ) "BusinessProcess" = @( @{ prefix = "BusinessProcessObject"; category = "Object" } @{ prefix = "BusinessProcessRef"; category = "Ref" } @{ prefix = "BusinessProcessSelection"; category = "Selection" } @{ prefix = "BusinessProcessList"; category = "List" } @{ prefix = "BusinessProcessManager"; category = "Manager" } @{ prefix = "BusinessProcessRoutePointRef"; category = "RoutePointRef" } ) "Task" = @( @{ prefix = "TaskObject"; category = "Object" } @{ prefix = "TaskRef"; category = "Ref" } @{ prefix = "TaskSelection"; category = "Selection" } @{ prefix = "TaskList"; category = "List" } @{ prefix = "TaskManager"; category = "Manager" } ) "ExchangePlan" = @( @{ prefix = "ExchangePlanObject"; category = "Object" } @{ prefix = "ExchangePlanRef"; category = "Ref" } @{ prefix = "ExchangePlanSelection"; category = "Selection" } @{ prefix = "ExchangePlanList"; category = "List" } @{ prefix = "ExchangePlanManager"; category = "Manager" } ) "DefinedType" = @( @{ prefix = "DefinedType"; category = "DefinedType" } ) "DocumentJournal" = @( @{ prefix = "DocumentJournalSelection"; category = "Selection" } @{ prefix = "DocumentJournalList"; category = "List" } @{ prefix = "DocumentJournalManager"; category = "Manager" } ) "Report" = @( @{ prefix = "ReportObject"; category = "Object" } @{ prefix = "ReportManager"; category = "Manager" } ) "DataProcessor" = @( @{ prefix = "DataProcessorObject"; category = "Object" } @{ prefix = "DataProcessorManager"; category = "Manager" } ) } function Emit-InternalInfo { param([string]$indent, [string]$objectType, [string]$objectName) $types = $script:generatedTypes[$objectType] if (-not $types) { return } X "$indent" # ExchangePlan: ThisNode UUID before GeneratedTypes if ($objectType -eq "ExchangePlan") { X "$indent`t$(New-Guid-String)" } foreach ($gt in $types) { $fullName = "$($gt.prefix).$objectName" X "$indent`t" X "$indent`t`t$(New-Guid-String)" X "$indent`t`t$(New-Guid-String)" X "$indent`t" } X "$indent" } # --- 7. StandardAttributes --- $script:standardAttributesByType = @{ "Catalog" = @("PredefinedDataName","Predefined","Ref","DeletionMark","IsFolder","Owner","Parent","Description","Code") "Document" = @("Posted","Ref","DeletionMark","Date","Number") "Enum" = @("Order","Ref") "InformationRegister" = @("Active","LineNumber","Recorder","Period") "AccumulationRegister" = @("Active","LineNumber","Recorder","Period") "AccountingRegister" = @("Active","Period","Recorder","LineNumber","Account") "CalculationRegister" = @("Active","Recorder","LineNumber","RegistrationPeriod","CalculationType","ReversingEntry") "ChartOfAccounts" = @("PredefinedDataName","Predefined","Ref","DeletionMark","Description","Code","Parent","Order","Type","OffBalance") "ChartOfCharacteristicTypes" = @("PredefinedDataName","Predefined","Ref","DeletionMark","Description","Code","Parent","ValueType") "ChartOfCalculationTypes" = @("PredefinedDataName","Predefined","Ref","DeletionMark","Description","Code","ActionPeriodIsBasic") "BusinessProcess" = @("Ref","DeletionMark","Date","Number","Started","Completed","HeadTask") "Task" = @("Ref","DeletionMark","Date","Number","Executed","Description","RoutePoint","BusinessProcess") "ExchangePlan" = @("Ref","DeletionMark","Code","Description","ThisNode","SentNo","ReceivedNo") "DocumentJournal" = @("Type","Ref","Date","Posted","DeletionMark","Number") } function Emit-StandardAttribute { param([string]$indent, [string]$attrName) X "$indent" X "$indent`t" X "$indent`tDontCheck" X "$indent`tfalse" X "$indent`tfalse" X "$indent`tAuto" X "$indent`t" X "$indent`t" X "$indent`tfalse" X "$indent`t" X "$indent`t" X "$indent`tAuto" X "$indent`tAuto" X "$indent`t" X "$indent`tfalse" X "$indent`tUse" X "$indent`tfalse" X "$indent`t" X "$indent`t" X "$indent`t" X "$indent`tUse" X "$indent`t" X "$indent`t" X "$indent`t" X "$indent`t" X "$indent" } function Emit-StandardAttributes { param([string]$indent, [string]$objectType) $attrs = $script:standardAttributesByType[$objectType] if (-not $attrs) { return } X "$indent" foreach ($a in $attrs) { Emit-StandardAttribute "$indent`t" $a } X "$indent" } # TabularSection standard attributes (just LineNumber) function Emit-TabularStandardAttributes { param([string]$indent) X "$indent" Emit-StandardAttribute "$indent`t" "LineNumber" X "$indent" } # --- 8. Attribute emitter --- $script:reservedAttrNames = @{ "Ref"="Ссылка"; "DeletionMark"="ПометкаУдаления"; "Code"="Код"; "Description"="Наименование" "Date"="Дата"; "Number"="Номер"; "Posted"="Проведен"; "Parent"="Родитель"; "Owner"="Владелец" "IsFolder"="ЭтоГруппа"; "Predefined"="Предопределенный"; "PredefinedDataName"="ИмяПредопределенныхДанных" "Recorder"="Регистратор"; "Period"="Период"; "LineNumber"="НомерСтроки"; "Active"="Активность" "Order"="Порядок"; "Type"="Тип"; "OffBalance"="Забалансовый" "Started"="Стартован"; "Completed"="Завершен"; "HeadTask"="ВедущаяЗадача" "Executed"="Выполнена"; "RoutePoint"="ТочкаМаршрута"; "BusinessProcess"="БизнесПроцесс" "ThisNode"="ЭтотУзел"; "SentNo"="НомерОтправленного"; "ReceivedNo"="НомерПринятого" "CalculationType"="ВидРасчета"; "RegistrationPeriod"="ПериодРегистрации"; "ReversingEntry"="СторноЗапись" "Account"="Счет"; "ValueType"="ТипЗначения"; "ActionPeriodIsBasic"="ПериодДействияБазовый" } function Emit-Attribute { param([string]$indent, $parsed, [string]$context) # $context: "catalog", "document", "object", "processor", "tabular", "processor-tabular", "register" $attrName = $parsed.name if ($context -notin @("tabular", "processor-tabular") -and ($script:reservedAttrNames.ContainsKey($attrName) -or $script:reservedAttrNames.ContainsValue($attrName))) { Write-Warning "Attribute '$attrName' conflicts with a standard attribute name. This may cause errors when loading into 1C." } $uuid = New-Guid-String X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $parsed.name)" Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym X "$indent`t`t" # Type $typeStr = $parsed.type if ($typeStr) { Emit-ValueType "$indent`t`t" $typeStr } else { # Default: unqualified string X "$indent`t`t" X "$indent`t`t`txs:string" X "$indent`t`t" } X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" $multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" } X "$indent`t`t$multiLine" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" # FillFromFillingValue — not for tabular/processor/chart/register-other # (Chart*, AccumulationRegister/AccountingRegister/CalculationRegister don't support these) if ($context -notin @("tabular", "processor", "chart", "register-other")) { X "$indent`t`tfalse" } # FillValue — same restriction if ($context -notin @("tabular", "processor", "chart", "register-other")) { Emit-FillValue "$indent`t`t" $typeStr } # FillChecking $fillChecking = "DontCheck" if ($parsed.flags -contains "req") { $fillChecking = "ShowError" } if ($parsed.fillChecking) { $fillChecking = $parsed.fillChecking } X "$indent`t`t$fillChecking" X "$indent`t`tItems" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`tAuto" X "$indent`t`t" X "$indent`t`t" $chi = if ($parsed.choiceHistoryOnInput) { $parsed.choiceHistoryOnInput } else { "Auto" } X "$indent`t`t$chi" # Use — only for catalog top-level attributes if ($context -eq "catalog") { X "$indent`t`tForItem" } # Indexing/FullTextSearch/DataHistory — not for non-stored objects (processor, processor-tabular) if ($context -notin @("processor", "processor-tabular")) { $indexing = "DontIndex" if ($parsed.flags -contains "index") { $indexing = "Index" } if ($parsed.flags -contains "indexadditional") { $indexing = "IndexWithAdditionalOrder" } if ($parsed.indexing) { $indexing = $parsed.indexing } X "$indent`t`t$indexing" X "$indent`t`tUse" # DataHistory — not for Chart* types and non-InformationRegister register family if ($context -notin @("chart", "register-other")) { X "$indent`t`tUse" } } X "$indent`t" X "$indent" } # --- 9. TabularSection emitter --- function Emit-TabularSection { param([string]$indent, [string]$tsName, $columns, [string]$objectType, [string]$objectName) $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 = Split-CamelCase $tsName X "$indent`t" X "$indent`t`t$(Esc-Xml $tsName)" Emit-MLText "$indent`t`t" "Synonym" $tsSynonym X "$indent`t`t" X "$indent`t`t" X "$indent`t`tDontCheck" Emit-TabularStandardAttributes "$indent`t`t" # Use=ForItem only for Catalog tabular sections (Document does not have Use) if ($objectType -eq "Catalog") { X "$indent`t`tForItem" } X "$indent`t" $tsContext = if ($objectType -in @("DataProcessor","Report")) { "processor-tabular" } else { "tabular" } X "$indent`t" foreach ($col in $columns) { $parsed = Parse-AttributeShorthand $col Emit-Attribute "$indent`t`t" $parsed $tsContext } X "$indent`t" X "$indent" } # --- 10. EnumValue emitter --- function Emit-EnumValue { param([string]$indent, $parsed) $uuid = New-Guid-String X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $parsed.name)" Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym X "$indent`t`t" X "$indent`t" X "$indent" } # --- 11. Dimension emitter --- function Emit-Dimension { param([string]$indent, $parsed, [string]$registerType) # $registerType: "InformationRegister" or "AccumulationRegister" $uuid = New-Guid-String X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $parsed.name)" Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym X "$indent`t`t" $typeStr = $parsed.type if ($typeStr) { Emit-ValueType "$indent`t`t" $typeStr } else { X "$indent`t`t" X "$indent`t`t`txs:string" X "$indent`t`t" } X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" $multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" } X "$indent`t`t$multiLine" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" # InformationRegister dimensions have FillFromFillingValue if ($registerType -eq "InformationRegister") { $fillFrom = if ($parsed.flags -contains "master") { "true" } else { "false" } X "$indent`t`t$fillFrom" X "$indent`t`t" } $fillChecking = "DontCheck" if ($parsed.flags -contains "req") { $fillChecking = "ShowError" } X "$indent`t`t$fillChecking" X "$indent`t`tItems" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`tAuto" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" # InformationRegister dimensions: Master, MainFilter, DenyIncompleteValues if ($registerType -eq "InformationRegister") { $master = if ($parsed.flags -contains "master") { "true" } else { "false" } $mainFilter = if ($parsed.flags -contains "mainfilter") { "true" } else { "false" } $denyIncomplete = if ($parsed.flags -contains "denyincomplete") { "true" } else { "false" } X "$indent`t`t$master" X "$indent`t`t$mainFilter" X "$indent`t`t$denyIncomplete" } # AccumulationRegister dimensions: DenyIncompleteValues if ($registerType -eq "AccumulationRegister") { $denyIncomplete = if ($parsed.flags -contains "denyincomplete") { "true" } else { "false" } X "$indent`t`t$denyIncomplete" } $indexing = "DontIndex" if ($parsed.flags -contains "index") { $indexing = "Index" } X "$indent`t`t$indexing" X "$indent`t`tUse" # AccumulationRegister dimensions: UseInTotals if ($registerType -eq "AccumulationRegister") { $useInTotals = if ($parsed.flags -contains "nouseintotals") { "false" } else { "true" } X "$indent`t`t$useInTotals" } # InformationRegister dimensions: DataHistory if ($registerType -eq "InformationRegister") { X "$indent`t`tUse" } X "$indent`t" X "$indent" } # --- 12. Resource emitter --- function Emit-Resource { param([string]$indent, $parsed, [string]$registerType) $uuid = New-Guid-String X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $parsed.name)" Emit-MLText "$indent`t`t" "Synonym" $parsed.synonym X "$indent`t`t" $typeStr = $parsed.type if ($typeStr) { Emit-ValueType "$indent`t`t" $typeStr } else { X "$indent`t`t" X "$indent`t`t`txs:decimal" X "$indent`t`t`t" X "$indent`t`t`t`t15" X "$indent`t`t`t`t2" X "$indent`t`t`t`tAny" X "$indent`t`t`t" X "$indent`t`t" } X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" $multiLine = if ($parsed.multiLine -eq $true -or $parsed.flags -contains "multiline") { "true" } else { "false" } X "$indent`t`t$multiLine" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" # InformationRegister resources have FillFromFillingValue, FillValue if ($registerType -eq "InformationRegister") { X "$indent`t`tfalse" X "$indent`t`t" } $fillChecking = "DontCheck" if ($parsed.flags -contains "req") { $fillChecking = "ShowError" } X "$indent`t`t$fillChecking" X "$indent`t`tItems" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`tAuto" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" # InformationRegister resources: Indexing, FullTextSearch, DataHistory if ($registerType -eq "InformationRegister") { X "$indent`t`tDontIndex" X "$indent`t`tUse" X "$indent`t`tUse" } # AccumulationRegister resources: FullTextSearch (no Indexing, no DataHistory) if ($registerType -eq "AccumulationRegister") { X "$indent`t`tUse" } X "$indent`t" X "$indent" } # --- 13. Property emitters per type --- function Emit-CatalogProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym 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" X "$itrue" if ($def.owners -and $def.owners.Count -gt 0) { X "$i" foreach ($ownerRef in $def.owners) { $fullRef = if ("$ownerRef" -match '\.') { "$ownerRef" } else { "Catalog.$ownerRef" } X "$i`t$fullRef" } X "$i" } else { X "$i" } $subordinationUse = Get-EnumProp "SubordinationUse" "subordinationUse" "ToItems" X "$i$subordinationUse" $codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "25" } $codeType = Get-EnumProp "CodeType" "codeType" "String" $codeAllowedLength = Get-EnumProp "CodeAllowedLength" "codeAllowedLength" "Variable" $autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" } $checkUnique = if ($def.checkUnique -eq $true) { "true" } else { "false" } X "$i$codeLength" X "$i$descriptionLength" X "$i$codeType" X "$i$codeAllowedLength" $codeSeries = Get-EnumProp "CodeSeries" "codeSeries" "WholeCatalog" X "$i$codeSeries" X "$i$checkUnique" X "$i$autonumbering" $defaultPresentation = Get-EnumProp "DefaultPresentation" "defaultPresentation" "AsDescription" X "$i$defaultPresentation" Emit-StandardAttributes $i "Catalog" X "$i" X "$iAuto" X "$iInDialog" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } $choiceMode = Get-EnumProp "ChoiceMode" "choiceMode" "BothWays" X "$i$quickChoice" X "$i$choiceMode" X "$i" X "$i`tCatalog.$objName.StandardAttribute.Description" X "$i`tCatalog.$objName.StandardAttribute.Code" X "$i" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iDontUse" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-DocumentProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$i" $numberType = Get-EnumProp "NumberType" "numberType" "String" $numberLength = if ($null -ne $def.numberLength) { "$($def.numberLength)" } else { "11" } $numberAllowedLength = Get-EnumProp "NumberAllowedLength" "numberAllowedLength" "Variable" $numberPeriodicity = if ($def.numberPeriodicity) { "$($def.numberPeriodicity)" } else { "Year" } $checkUnique = if ($def.checkUnique -eq $false) { "false" } else { "true" } $autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" } X "$i$numberType" X "$i$numberLength" X "$i$numberAllowedLength" X "$i$numberPeriodicity" X "$i$checkUnique" X "$i$autonumbering" Emit-StandardAttributes $i "Document" X "$i" X "$i" X "$i" X "$i`tDocument.$objName.StandardAttribute.Number" X "$i" X "$iDontUse" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" $posting = Get-EnumProp "Posting" "posting" "Allow" $realTimePosting = Get-EnumProp "RealTimePosting" "realTimePosting" "Deny" $registerRecordsDeletion = Get-EnumProp "RegisterRecordsDeletion" "registerRecordsDeletion" "AutoDelete" $registerRecordsWritingOnPost = Get-EnumProp "RegisterRecordsWritingOnPost" "registerRecordsWritingOnPost" "WriteModified" $sequenceFilling = if ($def.sequenceFilling) { "$($def.sequenceFilling)" } else { "AutoFill" } $postInPrivilegedMode = if ($def.postInPrivilegedMode -eq $false) { "false" } else { "true" } $unpostInPrivilegedMode = if ($def.unpostInPrivilegedMode -eq $false) { "false" } else { "true" } X "$i$posting" X "$i$realTimePosting" X "$i$registerRecordsDeletion" X "$i$registerRecordsWritingOnPost" X "$i$sequenceFilling" # RegisterRecords $regRecords = @() if ($def.registerRecords) { foreach ($rr in $def.registerRecords) { $rrStr = "$rr" # Resolve Russian synonyms in register records if ($rrStr.Contains('.')) { $dotIdx = $rrStr.IndexOf('.') $rrPrefix = $rrStr.Substring(0, $dotIdx) $rrSuffix = $rrStr.Substring($dotIdx + 1) if ($script:objectTypeSynonyms.ContainsKey($rrPrefix)) { $rrPrefix = $script:objectTypeSynonyms[$rrPrefix] } $regRecords += "$rrPrefix.$rrSuffix" } else { $regRecords += $rrStr } } } if ($regRecords.Count -gt 0) { X "$i" foreach ($rr in $regRecords) { X "$i`t$rr" } X "$i" } else { X "$i" } X "$i$postInPrivilegedMode" X "$i$unpostInPrivilegedMode" X "$ifalse" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-EnumProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$ifalse" Emit-StandardAttributes $i "Enum" X "$i" $quickChoice = if ($def.quickChoice -eq $false) { "false" } else { "true" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iAuto" } function Emit-ConstantProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" # Type $valueType = Build-TypeStr $def if (-not $valueType) { $valueType = "String" } Emit-ValueType $i $valueType X "$itrue" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$ifalse" X "$ifalse" X "$i" X "$i" X "$iDontCheck" X "$iItems" X "$i" X "$i" X "$iAuto" X "$i" X "$i" X "$iAuto" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-InformationRegisterProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$iInDialog" X "$i" X "$i" X "$i" X "$i" Emit-StandardAttributes $i "InformationRegister" $periodicity = Get-EnumProp "InformationRegisterPeriodicity" "periodicity" "Nonperiodical" $writeMode = Get-EnumProp "WriteMode" "writeMode" "Independent" # MainFilterOnPeriod: auto based on periodicity unless explicitly set $mainFilterOnPeriod = "false" if ($null -ne $def.mainFilterOnPeriod) { $mainFilterOnPeriod = if ($def.mainFilterOnPeriod -eq $true) { "true" } else { "false" } } elseif ($periodicity -ne "Nonperiodical") { $mainFilterOnPeriod = "true" } X "$i$periodicity" X "$i$writeMode" X "$i$mainFilterOnPeriod" X "$ifalse" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$ifalse" X "$ifalse" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-AccumulationRegisterProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$i" X "$i" $registerType = Get-EnumProp "RegisterType" "registerType" "Balance" X "$i$registerType" X "$ifalse" Emit-StandardAttributes $i "AccumulationRegister" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" $enableTotalsSplitting = if ($def.enableTotalsSplitting -eq $false) { "false" } else { "true" } X "$i$enableTotalsSplitting" X "$i" X "$i" X "$i" } # --- 13a. Wave 1: DefinedType, CommonModule, ScheduledJob, EventSubscription --- function Emit-DefinedTypeProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" # Type — composite type with multiple v8:Type entries (accept both valueType and valueTypes) $valueTypes = @() if ($def.valueTypes) { $valueTypes = @($def.valueTypes) } elseif ($def.valueType) { $valueTypes = @($def.valueType) } if ($valueTypes.Count -gt 0) { X "$i" foreach ($vt in $valueTypes) { $resolved = Resolve-TypeStr "$vt" if ($resolved -match '^(CatalogRef|DocumentRef|EnumRef|ChartOfAccountsRef|ChartOfCharacteristicTypesRef|ChartOfCalculationTypesRef|ExchangePlanRef|BusinessProcessRef|TaskRef)\.') { X "$i`td5p1:$resolved" } elseif ($resolved -eq "Boolean") { X "$i`txs:boolean" } elseif ($resolved -match '^String') { X "$i`txs:string" X "$i`t" X "$i`t`t0" X "$i`t`tVariable" X "$i`t" } else { X "$i`tcfg:$resolved" } } X "$i" } else { X "$i" } } function Emit-CommonModuleProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" # Context shortcuts $context = if ($def.context) { "$($def.context)" } else { "" } $global = if ($def.global -eq $true) { "true" } else { "false" } $server = "false"; $serverCall = "false"; $clientManaged = "false" $clientOrdinary = "false"; $externalConnection = "false"; $privileged = "false" switch ($context) { "server" { $server = "true"; $serverCall = "true" } "serverCall" { $server = "true"; $serverCall = "true" } "client" { $clientManaged = "true" } "serverClient" { $server = "true"; $clientManaged = "true" } default { if ($def.server -eq $true) { $server = "true" } if ($def.serverCall -eq $true) { $serverCall = "true" } if ($def.clientManagedApplication -eq $true) { $clientManaged = "true" } if ($def.clientOrdinaryApplication -eq $true) { $clientOrdinary = "true" } if ($def.externalConnection -eq $true) { $externalConnection = "true" } if ($def.privileged -eq $true) { $privileged = "true" } } } X "$i$global" X "$i$clientManaged" X "$i$server" X "$i$externalConnection" X "$i$clientOrdinary" X "$i$serverCall" X "$i$privileged" $returnValuesReuse = Get-EnumProp "ReturnValuesReuse" "returnValuesReuse" "DontUse" X "$i$returnValuesReuse" } function Emit-ScheduledJobProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" $methodName = if ($def.methodName) { "$($def.methodName)" } else { "" } # Ensure CommonModule. prefix if ($methodName -and -not $methodName.StartsWith("CommonModule.")) { $methodName = "CommonModule.$methodName" } X "$i$(Esc-Xml $methodName)" $description = if ($def.description) { "$($def.description)" } else { $synonym } X "$i$(Esc-Xml $description)" $key = if ($def.key) { "$($def.key)" } else { "" } X "$i$(Esc-Xml $key)" $use = if ($def.use -eq $true) { "true" } else { "false" } X "$i$use" $predefined = if ($def.predefined -eq $true) { "true" } else { "false" } X "$i$predefined" $restartCount = if ($null -ne $def.restartCountOnFailure) { "$($def.restartCountOnFailure)" } else { "3" } $restartInterval = if ($null -ne $def.restartIntervalOnFailure) { "$($def.restartIntervalOnFailure)" } else { "10" } X "$i$restartCount" X "$i$restartInterval" } function Emit-EventSubscriptionProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" # Source — array of v8:Type $sources = @() if ($def.source) { $sources = @($def.source) } if ($sources.Count -gt 0) { X "$i" foreach ($src in $sources) { $resolved = Resolve-TypeStr "$src" X "$i`td5p1:$resolved" } X "$i" } else { X "$i" } $event = if ($def.event) { "$($def.event)" } else { "BeforeWrite" } X "$i$event" $handler = if ($def.handler) { "$($def.handler)" } else { "" } # Ensure CommonModule. prefix if ($handler -and -not $handler.StartsWith("CommonModule.")) { $handler = "CommonModule.$handler" } X "$i$(Esc-Xml $handler)" } # --- 13b. Wave 2: Report, DataProcessor --- function Emit-ReportProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $defaultForm = if ($def.defaultForm) { "$($def.defaultForm)" } else { "" } if ($defaultForm) { X "$i$defaultForm" } else { X "$i" } $auxForm = if ($def.auxiliaryForm) { "$($def.auxiliaryForm)" } else { "" } if ($auxForm) { X "$i$auxForm" } else { X "$i" } $mainDCS = if ($def.mainDataCompositionSchema) { "$($def.mainDataCompositionSchema)" } else { "" } if ($mainDCS) { X "$i$mainDCS" } else { X "$i" } $defSettings = if ($def.defaultSettingsForm) { "$($def.defaultSettingsForm)" } else { "" } if ($defSettings) { X "$i$defSettings" } else { X "$i" } $auxSettings = if ($def.auxiliarySettingsForm) { "$($def.auxiliarySettingsForm)" } else { "" } if ($auxSettings) { X "$i$auxSettings" } else { X "$i" } $defVariant = if ($def.defaultVariantForm) { "$($def.defaultVariantForm)" } else { "" } if ($defVariant) { X "$i$defVariant" } else { X "$i" } X "$i" X "$i" X "$ifalse" X "$i" X "$i" } function Emit-DataProcessorProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$ifalse" $defaultForm = if ($def.defaultForm) { "$($def.defaultForm)" } else { "" } if ($defaultForm) { X "$i$defaultForm" } else { X "$i" } $auxForm = if ($def.auxiliaryForm) { "$($def.auxiliaryForm)" } else { "" } if ($auxForm) { X "$i$auxForm" } else { X "$i" } X "$ifalse" X "$i" X "$i" } # --- 13c. Wave 3: ExchangePlan, ChartOfCharacteristicTypes, DocumentJournal --- function Emit-ExchangePlanProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "100" } $codeAllowedLength = Get-EnumProp "CodeAllowedLength" "codeAllowedLength" "Variable" X "$i$codeLength" X "$i$codeAllowedLength" X "$i$descriptionLength" X "$iAsDescription" X "$iInDialog" Emit-StandardAttributes $i "ExchangePlan" $distributed = if ($def.distributedInfoBase -eq $true) { "true" } else { "false" } $includeExt = if ($def.includeConfigurationExtensions -eq $true) { "true" } else { "false" } X "$i$distributed" X "$i$includeExt" X "$i" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i`tExchangePlan.$objName.StandardAttribute.Description" X "$i`tExchangePlan.$objName.StandardAttribute.Code" X "$i" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iDontUse" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-ChartOfCharacteristicTypesProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "25" } $codeAllowedLength = Get-EnumProp "CodeAllowedLength" "codeAllowedLength" "Variable" $autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" } $checkUnique = if ($def.checkUnique -eq $true) { "true" } else { "false" } X "$i$codeLength" X "$i$codeAllowedLength" X "$i$descriptionLength" X "$i$checkUnique" X "$i$autonumbering" X "$iAsDescription" # CharacteristicExtValues $charExtValues = if ($def.characteristicExtValues) { "$($def.characteristicExtValues)" } else { "" } if ($charExtValues) { X "$i$charExtValues" } else { X "$i" } # Type — composite type of allowed characteristic value types $valueTypes = @() if ($def.valueTypes) { $valueTypes = @($def.valueTypes) } if ($valueTypes.Count -gt 0) { X "$i" foreach ($vt in $valueTypes) { Emit-TypeContent "$i`t" "$vt" } X "$i" } else { X "$i" X "$i`txs:boolean" X "$i`txs:string" X "$i`t" X "$i`t`t100" X "$i`t`tVariable" X "$i`t" X "$i`txs:decimal" X "$i`t" X "$i`t`t15" X "$i`t`t2" X "$i`t`tAny" X "$i`t" X "$i`txs:dateTime" X "$i`t" X "$i`t`tDateTime" X "$i`t" X "$i" } $hierarchical = if ($def.hierarchical -eq $true) { "true" } else { "false" } X "$i$hierarchical" X "$itrue" Emit-StandardAttributes $i "ChartOfCharacteristicTypes" X "$i" X "$iAuto" X "$iInDialog" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i`tChartOfCharacteristicTypes.$objName.StandardAttribute.Description" X "$i`tChartOfCharacteristicTypes.$objName.StandardAttribute.Code" X "$i" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iDontUse" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-DocumentJournalProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" $defaultForm = if ($def.defaultForm) { "$($def.defaultForm)" } else { "" } if ($defaultForm) { X "$i$defaultForm" } else { X "$i" } $auxForm = if ($def.auxiliaryForm) { "$($def.auxiliaryForm)" } else { "" } if ($auxForm) { X "$i$auxForm" } else { X "$i" } X "$itrue" # RegisteredDocuments $regDocs = @() if ($def.registeredDocuments) { $regDocs = @($def.registeredDocuments) } if ($regDocs.Count -gt 0) { X "$i" foreach ($rd in $regDocs) { $rdStr = "$rd" # Resolve Russian synonyms: Документ.Xxx → Document.Xxx if ($rdStr.Contains('.')) { $dotIdx = $rdStr.IndexOf('.') $rdPrefix = $rdStr.Substring(0, $dotIdx) $rdSuffix = $rdStr.Substring($dotIdx + 1) if ($script:objectTypeSynonyms.ContainsKey($rdPrefix)) { $rdPrefix = $script:objectTypeSynonyms[$rdPrefix] } $rdStr = "$rdPrefix.$rdSuffix" } X "$i`t$rdStr" } X "$i" } else { X "$i" } Emit-StandardAttributes $i "DocumentJournal" X "$i" X "$i" X "$i" } # --- 13d. Wave 4: ChartOfAccounts, AccountingRegister, ChartOfCalculationTypes, CalculationRegister --- function Emit-ChartOfAccountsProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" # ExtDimensionTypes $extDimTypes = if ($def.extDimensionTypes) { "$($def.extDimensionTypes)" } else { "" } if ($extDimTypes) { X "$i$extDimTypes" } else { X "$i" } $maxExtDim = if ($null -ne $def.maxExtDimensionCount) { "$($def.maxExtDimensionCount)" } else { "3" } X "$i$maxExtDim" $codeMask = if ($def.codeMask) { "$($def.codeMask)" } else { "" } if ($codeMask) { X "$i$codeMask" } else { X "$i" } $codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "8" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "120" } $codeSeries = if ($def.codeSeries) { "$($def.codeSeries)" } else { "WholeChartOfAccounts" } $autoOrder = if ($def.autoOrderByCode -eq $false) { "false" } else { "true" } $orderLength = if ($null -ne $def.orderLength) { "$($def.orderLength)" } else { "5" } X "$i$codeLength" X "$i$descriptionLength" X "$i$codeSeries" X "$ifalse" X "$iAsDescription" X "$i$autoOrder" X "$i$orderLength" X "$iInDialog" Emit-StandardAttributes $i "ChartOfAccounts" # StandardTabularSections — ExtDimensionTypes X "$i" X "$i`t" X "$i`t`t" foreach ($stAttr in @("TurnoversOnly","Predefined","ExtDimensionType","LineNumber")) { Emit-StandardAttribute "$i`t`t`t" $stAttr } X "$i`t`t" X "$i`t" X "$i" X "$i" X "$iAuto" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i`tChartOfAccounts.$objName.StandardAttribute.Description" X "$i`tChartOfAccounts.$objName.StandardAttribute.Code" X "$i" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iDontUse" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-AccountingRegisterProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$i" X "$i" $chartOfAccounts = if ($def.chartOfAccounts) { "$($def.chartOfAccounts)" } else { "" } if ($chartOfAccounts) { X "$i$chartOfAccounts" } else { X "$i" } $correspondence = if ($def.correspondence -eq $true) { "true" } else { "false" } X "$i$correspondence" $periodAdjLen = if ($null -ne $def.periodAdjustmentLength) { "$($def.periodAdjustmentLength)" } else { "0" } X "$i$periodAdjLen" X "$ifalse" Emit-StandardAttributes $i "AccountingRegister" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" } function Emit-ChartOfCalculationTypesProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $codeLength = if ($null -ne $def.codeLength) { "$($def.codeLength)" } else { "9" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "25" } $codeType = Get-EnumProp "CodeType" "codeType" "String" $codeAllowedLength = Get-EnumProp "CodeAllowedLength" "codeAllowedLength" "Variable" X "$i$codeLength" X "$i$codeType" X "$i$codeAllowedLength" X "$i$descriptionLength" X "$iAsDescription" $dependence = Get-EnumProp "DependenceOnCalculationTypes" "dependenceOnCalculationTypes" "DontUse" X "$i$dependence" # BaseCalculationTypes $baseTypes = @() if ($def.baseCalculationTypes) { $baseTypes = @($def.baseCalculationTypes) } if ($baseTypes.Count -gt 0) { X "$i" foreach ($bt in $baseTypes) { X "$i`t$bt" } X "$i" } else { X "$i" } $actionPeriodUse = if ($def.actionPeriodUse -eq $true) { "true" } else { "false" } X "$i$actionPeriodUse" Emit-StandardAttributes $i "ChartOfCalculationTypes" X "$i" X "$iAuto" X "$iInDialog" $quickChoice = if ($def.quickChoice -eq $true) { "true" } else { "false" } X "$i$quickChoice" X "$iBothWays" X "$i" X "$i`tChartOfCalculationTypes.$objName.StandardAttribute.Description" X "$i`tChartOfCalculationTypes.$objName.StandardAttribute.Code" X "$i" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iDontUse" X "$iAuto" } function Emit-CalculationRegisterProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" X "$i" X "$i" $chartOfCalcTypes = if ($def.chartOfCalculationTypes) { "$($def.chartOfCalculationTypes)" } else { "" } if ($chartOfCalcTypes) { X "$i$chartOfCalcTypes" } else { X "$i" } $periodicity = Get-EnumProp "InformationRegisterPeriodicity" "periodicity" "Month" X "$i$periodicity" $actionPeriod = if ($def.actionPeriod -eq $true) { "true" } else { "false" } X "$i$actionPeriod" $basePeriod = if ($def.basePeriod -eq $true) { "true" } else { "false" } X "$i$basePeriod" $schedule = if ($def.schedule) { "$($def.schedule)" } else { "" } if ($schedule) { X "$i$schedule" } else { X "$i" } $scheduleValue = if ($def.scheduleValue) { "$($def.scheduleValue)" } else { "" } if ($scheduleValue) { X "$i$scheduleValue" } else { X "$i" } $scheduleDate = if ($def.scheduleDate) { "$($def.scheduleDate)" } else { "" } if ($scheduleDate) { X "$i$scheduleDate" } else { X "$i" } X "$ifalse" Emit-StandardAttributes $i "CalculationRegister" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" } # --- 13e. Wave 5: BusinessProcess, Task --- function Emit-BusinessProcessProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $editType = Get-EnumProp "EditType" "editType" "InDialog" X "$i$editType" $numberType = Get-EnumProp "NumberType" "numberType" "String" $numberLength = if ($null -ne $def.numberLength) { "$($def.numberLength)" } else { "11" } $numberAllowedLength = Get-EnumProp "NumberAllowedLength" "numberAllowedLength" "Variable" $checkUnique = if ($def.checkUnique -eq $false) { "false" } else { "true" } $autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" } X "$i$numberType" X "$i$numberLength" X "$i$numberAllowedLength" X "$i$checkUnique" X "$i$autonumbering" Emit-StandardAttributes $i "BusinessProcess" X "$i" $task = if ($def.task) { "$($def.task)" } else { "" } if ($task) { X "$i$task" } else { X "$i" } X "$i" X "$i" X "$i`tBusinessProcess.$objName.StandardAttribute.Number" X "$i" X "$iDontUse" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } function Emit-TaskProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" X "$itrue" $numberType = Get-EnumProp "NumberType" "numberType" "String" $numberLength = if ($null -ne $def.numberLength) { "$($def.numberLength)" } else { "14" } $numberAllowedLength = Get-EnumProp "NumberAllowedLength" "numberAllowedLength" "Variable" $checkUnique = if ($def.checkUnique -eq $false) { "false" } else { "true" } $autonumbering = if ($def.autonumbering -eq $false) { "false" } else { "true" } $taskNumberAutoPrefix = if ($def.taskNumberAutoPrefix) { "$($def.taskNumberAutoPrefix)" } else { "BusinessProcessNumber" } $descriptionLength = if ($null -ne $def.descriptionLength) { "$($def.descriptionLength)" } else { "150" } X "$i$numberType" X "$i$numberLength" X "$i$numberAllowedLength" X "$i$checkUnique" X "$i$autonumbering" X "$i$taskNumberAutoPrefix" X "$i$descriptionLength" # Addressing $addressing = if ($def.addressing) { "$($def.addressing)" } else { "" } if ($addressing) { X "$i$addressing" } else { X "$i" } $mainAddressing = if ($def.mainAddressingAttribute) { "$($def.mainAddressingAttribute)" } else { "" } if ($mainAddressing) { X "$i$mainAddressing" } else { X "$i" } $currentPerformer = if ($def.currentPerformer) { "$($def.currentPerformer)" } else { "" } if ($currentPerformer) { X "$i$currentPerformer" } else { X "$i" } Emit-StandardAttributes $i "Task" X "$i" X "$i" X "$i" X "$i`tTask.$objName.StandardAttribute.Number" X "$i" X "$iDontUse" X "$iBegin" X "$iDontUse" X "$iDirectly" X "$i" X "$i" X "$i" X "$i" X "$i" X "$i" X "$ifalse" X "$i" $dataLockControlMode = Get-EnumProp "DataLockControlMode" "dataLockControlMode" "Automatic" X "$i$dataLockControlMode" $fullTextSearch = Get-EnumProp "FullTextSearch" "fullTextSearch" "Use" X "$i$fullTextSearch" X "$i" X "$i" X "$i" X "$i" X "$i" X "$iAuto" X "$iDontUse" X "$ifalse" X "$ifalse" } # --- 13f. Wave 6: HTTPService, WebService --- function Emit-HTTPServiceProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" $rootURL = if ($def.rootURL) { "$($def.rootURL)" } else { $objName.ToLower() } X "$i$(Esc-Xml $rootURL)" $reuseSessions = Get-EnumProp "ReuseSessions" "reuseSessions" "DontUse" X "$i$reuseSessions" $sessionMaxAge = if ($null -ne $def.sessionMaxAge) { "$($def.sessionMaxAge)" } else { "20" } X "$i$sessionMaxAge" } function Emit-WebServiceProperties { param([string]$indent) $i = $indent X "$i$(Esc-Xml $objName)" Emit-MLText $i "Synonym" $synonym X "$i" $namespace = if ($def.namespace) { "$($def.namespace)" } else { "" } X "$i$(Esc-Xml $namespace)" $xdtoPackages = if ($def.xdtoPackages) { "$($def.xdtoPackages)" } else { "" } if ($xdtoPackages) { X "$i$xdtoPackages" } else { X "$i" } $reuseSessions = Get-EnumProp "ReuseSessions" "reuseSessions" "DontUse" X "$i$reuseSessions" $sessionMaxAge = if ($null -ne $def.sessionMaxAge) { "$($def.sessionMaxAge)" } else { "20" } X "$i$sessionMaxAge" } # --- 13g. ChildObjects emitters for new types --- function Emit-Column { param([string]$indent, $colDef) $uuid = New-Guid-String $name = "" $synonym = "" $indexing = "DontIndex" $references = @() if ($colDef -is [string]) { $name = "$colDef" $synonym = Split-CamelCase $name } else { $name = "$($colDef.name)" $synonym = if ($colDef.synonym) { "$($colDef.synonym)" } else { Split-CamelCase $name } if ($colDef.indexing) { $indexing = "$($colDef.indexing)" } if ($colDef.references) { $references = @($colDef.references) } } X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $name)" Emit-MLText "$indent`t`t" "Synonym" $synonym X "$indent`t`t" X "$indent`t`t$indexing" if ($references.Count -gt 0) { X "$indent`t`t" foreach ($ref in $references) { X "$indent`t`t`t$ref" } X "$indent`t`t" } else { X "$indent`t`t" } X "$indent`t" X "$indent" } function Emit-AccountingFlag { param([string]$indent, [string]$flagName) $uuid = New-Guid-String $flagSynonym = Split-CamelCase $flagName X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $flagName)" Emit-MLText "$indent`t`t" "Synonym" $flagSynonym X "$indent`t`t" X "$indent`t`t" X "$indent`t`t`txs:boolean" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tDontCheck" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t" X "$indent" } function Emit-ExtDimensionAccountingFlag { param([string]$indent, [string]$flagName) $uuid = New-Guid-String $flagSynonym = Split-CamelCase $flagName X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $flagName)" Emit-MLText "$indent`t`t" "Synonym" $flagSynonym X "$indent`t`t" X "$indent`t`t" X "$indent`t`t`txs:boolean" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`tfalse" X "$indent`t`tfalse" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tDontCheck" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t`t" X "$indent`t`t" X "$indent`t`tAuto" X "$indent`t" X "$indent" } function Emit-URLTemplate { param([string]$indent, [string]$tmplName, $tmplDef) $uuid = New-Guid-String $tmplSynonym = Split-CamelCase $tmplName $template = "" $methods = @{} if ($tmplDef -is [string]) { $template = "$tmplDef" } else { $template = if ($tmplDef.template) { "$($tmplDef.template)" } else { "/$($tmplName.ToLower())" } if ($tmplDef.methods) { $tmplDef.methods.PSObject.Properties | ForEach-Object { $methods[$_.Name] = "$($_.Value)" } } } X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $tmplName)" Emit-MLText "$indent`t`t" "Synonym" $tmplSynonym X "$indent`t`t" X "$indent`t" if ($methods.Count -gt 0) { X "$indent`t" foreach ($methodName in $methods.Keys) { $methodUuid = New-Guid-String $httpMethod = $methods[$methodName] $methodSynonym = Split-CamelCase $methodName $handler = "${tmplName}${methodName}" X "$indent`t`t" X "$indent`t`t`t" X "$indent`t`t`t`t$(Esc-Xml $methodName)" Emit-MLText "$indent`t`t`t`t" "Synonym" $methodSynonym X "$indent`t`t`t`t$httpMethod" X "$indent`t`t`t`t$(Esc-Xml $handler)" X "$indent`t`t`t" X "$indent`t`t" } X "$indent`t" } else { X "$indent`t" } X "$indent" } function Emit-Operation { param([string]$indent, [string]$opName, $opDef) $uuid = New-Guid-String $opSynonym = Split-CamelCase $opName $returnType = "xs:string" $nillable = "false" $transactioned = "false" $handler = $opName $params = @{} if ($opDef -is [string]) { $returnType = "$opDef" } else { if ($opDef.returnType) { $returnType = "$($opDef.returnType)" } if ($opDef.nillable -eq $true) { $nillable = "true" } if ($opDef.transactioned -eq $true) { $transactioned = "true" } if ($opDef.handler) { $handler = "$($opDef.handler)" } if ($opDef.parameters) { $opDef.parameters.PSObject.Properties | ForEach-Object { $params[$_.Name] = $_.Value } } } X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $opName)" Emit-MLText "$indent`t`t" "Synonym" $opSynonym X "$indent`t`t" X "$indent`t`t$returnType" X "$indent`t`t$nillable" X "$indent`t`t$transactioned" X "$indent`t`t$(Esc-Xml $handler)" X "$indent`t" if ($params.Count -gt 0) { X "$indent`t" foreach ($paramName in $params.Keys) { $paramUuid = New-Guid-String $paramDef = $params[$paramName] $paramSynonym = Split-CamelCase $paramName $paramType = "xs:string" $paramNillable = "true" $paramDir = "In" if ($paramDef -is [string]) { $paramType = "$paramDef" } else { if ($paramDef.type) { $paramType = "$($paramDef.type)" } if ($paramDef.nillable -eq $false) { $paramNillable = "false" } if ($paramDef.direction) { $paramDir = "$($paramDef.direction)" } } X "$indent`t`t" X "$indent`t`t`t" X "$indent`t`t`t`t$(Esc-Xml $paramName)" Emit-MLText "$indent`t`t`t`t" "Synonym" $paramSynonym X "$indent`t`t`t`t$paramType" X "$indent`t`t`t`t$paramNillable" X "$indent`t`t`t`t$paramDir" X "$indent`t`t`t" X "$indent`t`t" } X "$indent`t" } else { X "$indent`t" } X "$indent" } function Emit-AddressingAttribute { param([string]$indent, $addrDef) $uuid = New-Guid-String $name = "" $attrSynonym = "" $typeStr = "" $addressingDimension = "" $indexing = "Index" $parsed = Parse-AttributeShorthand $addrDef $name = $parsed.name $attrSynonym = $parsed.synonym $typeStr = $parsed.type if ($addrDef -isnot [string]) { if ($addrDef.addressingDimension) { $addressingDimension = "$($addrDef.addressingDimension)" } if ($addrDef.indexing) { $indexing = "$($addrDef.indexing)" } } X "$indent" X "$indent`t" X "$indent`t`t$(Esc-Xml $name)" Emit-MLText "$indent`t`t" "Synonym" $attrSynonym X "$indent`t`t" if ($typeStr) { Emit-ValueType "$indent`t`t" $typeStr } else { X "$indent`t`t" X "$indent`t`t`txs:string" X "$indent`t`t" } if ($addressingDimension) { X "$indent`t`t$addressingDimension" } else { X "$indent`t`t" } X "$indent`t`t$indexing" X "$indent`t`tUse" X "$indent`t`tUse" X "$indent`t" X "$indent" } # --- 14. Namespaces --- $script:xmlnsDecl = 'xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' # --- 14a. Detect format version from existing Configuration.xml --- function Detect-FormatVersion([string]$dir) { $d = $dir while ($d) { $cfgPath = Join-Path $d "Configuration.xml" if (Test-Path $cfgPath) { $head = [System.IO.File]::ReadAllText($cfgPath, [System.Text.Encoding]::UTF8).Substring(0, [Math]::Min(2000, (Get-Item $cfgPath).Length)) if ($head -match ']+version="(\d+\.\d+)"') { return $Matches[1] } } $parent = Split-Path $d -Parent if ($parent -eq $d) { break } $d = $parent } return "2.17" } $script:formatVersion = Detect-FormatVersion $OutputDir # --- 15. Main assembler --- $uuid = New-Guid-String # XML declaration X '' X "" X "`t<$objType uuid=`"$uuid`">" # InternalInfo Emit-InternalInfo "`t`t" $objType $objName # Properties X "`t`t" switch ($objType) { "Catalog" { Emit-CatalogProperties "`t`t`t" } "Document" { Emit-DocumentProperties "`t`t`t" } "Enum" { Emit-EnumProperties "`t`t`t" } "Constant" { Emit-ConstantProperties "`t`t`t" } "InformationRegister" { Emit-InformationRegisterProperties "`t`t`t" } "AccumulationRegister" { Emit-AccumulationRegisterProperties "`t`t`t" } "DefinedType" { Emit-DefinedTypeProperties "`t`t`t" } "CommonModule" { Emit-CommonModuleProperties "`t`t`t" } "ScheduledJob" { Emit-ScheduledJobProperties "`t`t`t" } "EventSubscription" { Emit-EventSubscriptionProperties "`t`t`t" } "Report" { Emit-ReportProperties "`t`t`t" } "DataProcessor" { Emit-DataProcessorProperties "`t`t`t" } "ExchangePlan" { Emit-ExchangePlanProperties "`t`t`t" } "ChartOfCharacteristicTypes" { Emit-ChartOfCharacteristicTypesProperties "`t`t`t" } "DocumentJournal" { Emit-DocumentJournalProperties "`t`t`t" } "ChartOfAccounts" { Emit-ChartOfAccountsProperties "`t`t`t" } "AccountingRegister" { Emit-AccountingRegisterProperties "`t`t`t" } "ChartOfCalculationTypes" { Emit-ChartOfCalculationTypesProperties "`t`t`t" } "CalculationRegister" { Emit-CalculationRegisterProperties "`t`t`t" } "BusinessProcess" { Emit-BusinessProcessProperties "`t`t`t" } "Task" { Emit-TaskProperties "`t`t`t" } "HTTPService" { Emit-HTTPServiceProperties "`t`t`t" } "WebService" { Emit-WebServiceProperties "`t`t`t" } } X "`t`t" # ChildObjects $hasChildren = $false # --- Types with Attributes + TabularSections --- $typesWithAttrTS = @("Catalog","Document","Report","DataProcessor","ExchangePlan", "ChartOfCharacteristicTypes","ChartOfAccounts","ChartOfCalculationTypes", "BusinessProcess","Task") if ($objType -in $typesWithAttrTS) { $attrs = @() if ($def.attributes) { foreach ($a in $def.attributes) { $attrs += Parse-AttributeShorthand $a } } $tsSections = [ordered]@{} if ($def.tabularSections) { # Normalize array format: [{name:"X", attributes:[...]}, ...] → {"X": [...]} if ($def.tabularSections -is [array] -or $def.tabularSections.GetType().Name -eq "Object[]") { foreach ($ts in $def.tabularSections) { $tsName = $ts.name $tsCols = if ($ts.attributes) { @($ts.attributes) } else { @() } $tsSections[$tsName] = $tsCols } } else { $def.tabularSections.PSObject.Properties | ForEach-Object { $tsSections[$_.Name] = @($_.Value) } } } # ChartOfAccounts: AccountingFlags + ExtDimensionAccountingFlags $acctFlags = @() $extDimFlags = @() if ($objType -eq "ChartOfAccounts") { if ($def.accountingFlags) { $acctFlags = @($def.accountingFlags) } if ($def.extDimensionAccountingFlags) { $extDimFlags = @($def.extDimensionAccountingFlags) } } # Task: AddressingAttributes $addrAttrs = @() if ($objType -eq "Task" -and $def.addressingAttributes) { $addrAttrs = @($def.addressingAttributes) } $childCount = $attrs.Count + $tsSections.Count + $acctFlags.Count + $extDimFlags.Count + $addrAttrs.Count if ($childCount -gt 0) { $hasChildren = $true X "`t`t" $context = switch ($objType) { "Catalog" { "catalog" } "Document" { "document" } { $_ -in @("DataProcessor","Report") } { "processor" } { $_ -in @("ChartOfAccounts","ChartOfCharacteristicTypes","ChartOfCalculationTypes") } { "chart" } default { "object" } } foreach ($a in $attrs) { Emit-Attribute "`t`t`t" $a $context } foreach ($tsName in $tsSections.Keys) { $columns = $tsSections[$tsName] Emit-TabularSection "`t`t`t" $tsName $columns $objType $objName } foreach ($af in $acctFlags) { $afName = if ($af.name) { $af.name } else { "$af" } Emit-AccountingFlag "`t`t`t" $afName } foreach ($edf in $extDimFlags) { $edfName = if ($edf.name) { $edf.name } else { "$edf" } Emit-ExtDimensionAccountingFlag "`t`t`t" $edfName } foreach ($aa in $addrAttrs) { Emit-AddressingAttribute "`t`t`t" $aa } X "`t`t" } else { X "`t`t" } } # --- Enum: enum values --- if ($objType -eq "Enum") { $values = @() if ($def.values) { foreach ($v in $def.values) { $values += Parse-EnumValueShorthand $v } } if ($values.Count -gt 0) { $hasChildren = $true X "`t`t" foreach ($v in $values) { Emit-EnumValue "`t`t`t" $v } X "`t`t" } else { X "`t`t" } } # --- Constant, DefinedType, ScheduledJob, EventSubscription: no ChildObjects --- # --- Registers: dimensions + resources + attributes --- if ($objType -in @("InformationRegister","AccumulationRegister","AccountingRegister","CalculationRegister")) { $dims = @() $resources = @() $regAttrs = @() if ($def.dimensions) { foreach ($d in $def.dimensions) { $dims += Parse-AttributeShorthand $d } } if ($def.resources) { foreach ($r in $def.resources) { $resources += Parse-AttributeShorthand $r } } if ($def.attributes) { foreach ($a in $def.attributes) { $regAttrs += Parse-AttributeShorthand $a } } if ($dims.Count -gt 0 -or $resources.Count -gt 0 -or $regAttrs.Count -gt 0) { $hasChildren = $true X "`t`t" foreach ($r in $resources) { Emit-Resource "`t`t`t" $r $objType } foreach ($d in $dims) { Emit-Dimension "`t`t`t" $d $objType } # InformationRegister.Attribute supports FillFromFillingValue/FillValue/DataHistory; # AccumulationRegister/AccountingRegister/CalculationRegister.Attribute do NOT. $regCtx = if ($objType -eq "InformationRegister") { "register-info" } else { "register-other" } foreach ($a in $regAttrs) { Emit-Attribute "`t`t`t" $a $regCtx } X "`t`t" } else { X "`t`t" } } # --- DocumentJournal: columns --- if ($objType -eq "DocumentJournal") { $columns = @() if ($def.columns) { $columns = @($def.columns) } if ($columns.Count -gt 0) { $hasChildren = $true X "`t`t" foreach ($col in $columns) { Emit-Column "`t`t`t" $col } X "`t`t" } else { X "`t`t" } } # --- HTTPService: URLTemplates --- if ($objType -eq "HTTPService") { $urlTemplates = @{} if ($def.urlTemplates) { $def.urlTemplates.PSObject.Properties | ForEach-Object { $urlTemplates[$_.Name] = $_.Value } } if ($urlTemplates.Count -gt 0) { $hasChildren = $true X "`t`t" foreach ($tmplName in $urlTemplates.Keys) { Emit-URLTemplate "`t`t`t" $tmplName $urlTemplates[$tmplName] } X "`t`t" } else { X "`t`t" } } # --- WebService: Operations --- if ($objType -eq "WebService") { $operations = @{} if ($def.operations) { $def.operations.PSObject.Properties | ForEach-Object { $operations[$_.Name] = $_.Value } } if ($operations.Count -gt 0) { $hasChildren = $true X "`t`t" foreach ($opName in $operations.Keys) { Emit-Operation "`t`t`t" $opName $operations[$opName] } X "`t`t" } else { X "`t`t" } } # --- CommonModule: no ChildObjects --- X "`t" X "" $metadataXml = $script:xml.ToString() # --- 16. Write files --- # Type → plural directory mapping $script:typePluralMap = @{ "Catalog" = "Catalogs" "Document" = "Documents" "Enum" = "Enums" "Constant" = "Constants" "InformationRegister" = "InformationRegisters" "AccumulationRegister" = "AccumulationRegisters" "AccountingRegister" = "AccountingRegisters" "CalculationRegister" = "CalculationRegisters" "ChartOfAccounts" = "ChartsOfAccounts" "ChartOfCharacteristicTypes"= "ChartsOfCharacteristicTypes" "ChartOfCalculationTypes" = "ChartsOfCalculationTypes" "BusinessProcess" = "BusinessProcesses" "Task" = "Tasks" "ExchangePlan" = "ExchangePlans" "DocumentJournal" = "DocumentJournals" "Report" = "Reports" "DataProcessor" = "DataProcessors" "CommonModule" = "CommonModules" "ScheduledJob" = "ScheduledJobs" "EventSubscription" = "EventSubscriptions" "HTTPService" = "HTTPServices" "WebService" = "WebServices" "DefinedType" = "DefinedTypes" } $typePlural = $script:typePluralMap[$objType] $typeDir = Join-Path $OutputDir $typePlural # Main XML file: {OutputDir}/{TypePlural}/{Name}.xml $mainXmlPath = Join-Path $typeDir "$objName.xml" # Types that don't have subdirectory structure (no Ext/, no modules) $typesNoSubDir = @("DefinedType","ScheduledJob","EventSubscription") # Object subdirectory: {OutputDir}/{TypePlural}/{Name}/Ext/ $objSubDir = Join-Path $typeDir $objName $extDir = Join-Path $objSubDir "Ext" if (-not (Test-Path $typeDir)) { New-Item -ItemType Directory -Path $typeDir -Force | Out-Null } if ($objType -notin $typesNoSubDir) { if (-not (Test-Path $objSubDir)) { New-Item -ItemType Directory -Path $objSubDir -Force | Out-Null } } $enc = New-Object System.Text.UTF8Encoding($true) [System.IO.File]::WriteAllText($mainXmlPath, $metadataXml, $enc) # Module files $modulesCreated = @() # Helper: create Ext/ only when needed (avoids empty Ext/ for Constant, Enum, etc.) function Ensure-ExtDir { if (-not (Test-Path $extDir)) { New-Item -ItemType Directory -Path $extDir -Force | Out-Null } } # Types with ObjectModule.bsl $typesWithObjectModule = @("Catalog","Document","Report","DataProcessor","ExchangePlan", "ChartOfAccounts","ChartOfCharacteristicTypes","ChartOfCalculationTypes", "BusinessProcess","Task") # Types with RecordSetModule.bsl $typesWithRecordSetModule = @("InformationRegister","AccumulationRegister","AccountingRegister","CalculationRegister") # Types with ManagerModule.bsl $typesWithManagerModule = @("Report","DataProcessor","Constant","Enum") # Types with ValueManagerModule.bsl $typesWithValueManagerModule = @("Constant") # Types with Module.bsl (general) $typesWithModule = @("CommonModule","HTTPService","WebService") if ($objType -in $typesWithObjectModule) { $modulePath = Join-Path $extDir "ObjectModule.bsl" if (-not (Test-Path $modulePath)) { Ensure-ExtDir [System.IO.File]::WriteAllText($modulePath, "", $enc) $modulesCreated += $modulePath } } if ($objType -in $typesWithManagerModule) { $modulePath = Join-Path $extDir "ManagerModule.bsl" if (-not (Test-Path $modulePath)) { Ensure-ExtDir [System.IO.File]::WriteAllText($modulePath, "", $enc) $modulesCreated += $modulePath } } if ($objType -in $typesWithValueManagerModule) { $modulePath = Join-Path $extDir "ValueManagerModule.bsl" if (-not (Test-Path $modulePath)) { Ensure-ExtDir [System.IO.File]::WriteAllText($modulePath, "", $enc) $modulesCreated += $modulePath } } if ($objType -in $typesWithRecordSetModule) { $modulePath = Join-Path $extDir "RecordSetModule.bsl" if (-not (Test-Path $modulePath)) { Ensure-ExtDir [System.IO.File]::WriteAllText($modulePath, "", $enc) $modulesCreated += $modulePath } } if ($objType -in $typesWithModule) { $modulePath = Join-Path $extDir "Module.bsl" if (-not (Test-Path $modulePath)) { Ensure-ExtDir [System.IO.File]::WriteAllText($modulePath, "", $enc) $modulesCreated += $modulePath } } # Special files if ($objType -eq "ExchangePlan") { $contentPath = Join-Path $extDir "Content.xml" if (-not (Test-Path $contentPath)) { Ensure-ExtDir $contentXml = "`r`n`r`n" [System.IO.File]::WriteAllText($contentPath, $contentXml, $enc) $modulesCreated += $contentPath } } if ($objType -eq "BusinessProcess") { $flowchartPath = Join-Path $extDir "Flowchart.xml" if (-not (Test-Path $flowchartPath)) { Ensure-ExtDir $flowchartXml = "`r`n`r`n" [System.IO.File]::WriteAllText($flowchartPath, $flowchartXml, $enc) $modulesCreated += $flowchartPath } } # --- 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`"" } }