creator/cc-1c-skills
1
0
Fork 0
mirror of https://github.com/Nikolay-Shirokov/cc-1c-skills.git synced 2026-07-24 05:31:02 +03:00
Code Issues Packages Projects Releases Wiki Activity

feat(meta-compile,meta-decompile): короткая запись субконто ПС + фикс регистра описания счёта (v1.38/v0.27)

Browse Source 
Субконто предопределённого счёта — компактная строка "Вид | Признак1, Признак2": type — голое
имя значения ПВХ (компилятор разворачивает через extDimensionTypes плана), признаки после '|' —
только TRUE (разворот по def-порядку extDimensionAccountingFlags). Объектная форма {type, turnover?,
flags?} остаётся для turnover=true («Только обороты», синоним `толькоОбороты`). Декомпилятор пишет
строку при turnover=false, объект — при true. Хелпер Resolve-TypePrefixSyn (общий с extDimensionTypes).

Фикс (нашёлся на реальных счетах): PS `-ne` регистронезависим → description предопределённого счёта
с хвостовой аббревиатурой (ОС/НМА) ошибочно опускался (auto==actual регистронезависимо), компилятор
регенерил lowercase через Split-CamelCase. Декомпилятор теперь сравнивает регистрочувствительно (-cne).
Harness маскировал (его семантический дифф регистронезависим) — реальная 1С регистр сохраняет.

Роундтрип 3/3 match. Проверены обе формы субконто (строка/объект, смешанный массив, turnover=true).
Регресс 47/47 ps1+py, form-compile-from-object 12/12. spec §7.2c.

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
Nick Shirokov
2026-07-05 20:25:21 +03:00
co-authored by Claude Opus 4.8
parent 7eee8086ea
commit a08fcc1bcc
4 changed files with 95 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.claude/skills/meta-decompile/scripts/meta-decompile.ps1
+18 -7
View File
@@ -1,4 +1,4 @@
# meta-decompile v0.26 — XML объекта метаданных 1С → JSON-черновик формата meta-compile
# meta-decompile v0.27 — XML объекта метаданных 1С → JSON-черновик формата meta-compile
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
#
# Поддержаны: Catalog, ExchangePlan, ChartOfCharacteristicTypes, ChartOfAccounts. Инверс meta-compile (omit-on-default: ключ эмитим только
@@ -808,25 +808,36 @@ if (Test-Path -LiteralPath $predefPath) {
foreach ($fl in @($itemEl.SelectNodes("*[local-name()='AccountingFlags']/*[local-name()='Flag']"))) {
if ($fl.InnerText -eq 'true') { $r = $fl.GetAttribute('ref'); $trueFlags += ($r -split '\.')[-1] }
}
# ExtDimensionTypes → subconto [{type, turnover?, flags?}].
# ExtDimensionTypes → subconto. Короткая запись: срезаем префикс ПВХ видов субконто плана (extDimensionTypes).
# turnover=false → строка "Тип | Признак1, Признак2" (или "Тип" без признаков); turnover=true → объект.
$edtPfx = if ($dsl['extDimensionTypes']) { "$($dsl['extDimensionTypes'])." } else { $null }
$subconto = [System.Collections.ArrayList]@()
foreach ($edt in @($itemEl.SelectNodes("*[local-name()='ExtDimensionTypes']/*[local-name()='ExtDimensionType']"))) {
$so = [ordered]@{ type = $edt.GetAttribute('name') }
$scT = $edt.GetAttribute('name')
if ($edtPfx -and $scT.StartsWith($edtPfx)) { $scT = $scT.Substring($edtPfx.Length) }
$tEl = $edt.SelectSingleNode("*[local-name()='Turnover']")
if ($tEl -and $tEl.InnerText -eq 'true') { $so['turnover'] = $true }
$scTurn = ($tEl -and $tEl.InnerText -eq 'true')
$stf = @()
foreach ($fl in @($edt.SelectNodes("*[local-name()='AccountingFlags']/*[local-name()='Flag']"))) {
if ($fl.InnerText -eq 'true') { $r = $fl.GetAttribute('ref'); $stf += ($r -split '\.')[-1] }
}
if ($stf.Count -gt 0) { $so['flags'] = [System.Collections.ArrayList]@($stf) }
[void]$subconto.Add($so)
if (-not $scTurn) {
if ($stf.Count -gt 0) { [void]$subconto.Add("$scT | " + ($stf -join ', ')) }
else { [void]$subconto.Add($scT) }
} else {
$so = [ordered]@{ type = $scT; turnover = $true }
if ($stf.Count -gt 0) { $so['flags'] = [System.Collections.ArrayList]@($stf) }
[void]$subconto.Add($so)
}
}
$childContainer = $itemEl.SelectSingleNode("*[local-name()='ChildItems']")
$kids = @(if ($childContainer) { $childContainer.SelectNodes("*[local-name()='Item']") } else { @() })
$o = [ordered]@{ name = $name }
if ($code) { $o['code'] = $code }
if ($desc -ne $auto) { $o['description'] = $desc }
# -cne (регистрочувствительно!): PS `-ne` регистронезависим → «…ОС» == «…ос» и description ошибочно
# опускался, а компилятор регенерил lowercase (Split-CamelCase). Хвостовые аббревиатуры (ОС/НМА) теряли регистр.
if ($desc -cne $auto) { $o['description'] = $desc }
$o['accountType'] = $acctType
if ($off) { $o['offBalance'] = $true }
$o['order'] = $order