feat(form-validate): путь на необъявленный основной реквизит заимствованной формы

Форма, которую платформа отвергала с «Неверный путь к полю - Объект.Партнер»,
проходила валидацию с вердиктом OK. Check 5 такое не видит по двум причинам:
у формы с BaseForm он пропускает базовые элементы (id < 1000000), а привязка
внутри <ChoiceParameterLinks> лежит в <xr:DataPath> и в его список тегов не
входит вовсе.

Проверка 11d: если форма не объявляет основной реквизит, любой путь с корнем
«Объект» не разрешится — ошибка. Непрозрачные формы пути (1/0:uuid), которыми
как раз и заменяет такие ссылки Конфигуратор, ошибкой не считаются.

Две фикстуры: висячая ссылка ловится, та же форма в uuid-форме проходит.
Регресс 13/13 на обоих рантаймах.
This commit is contained in:
Nick Shirokov
2026-08-12 15:58:45 +03:00
parent 1bd0c7724e
commit 9a28fbfacb
7 changed files with 188 additions and 2 deletions
@@ -1,4 +1,4 @@
# form-validate v1.10 — Validate 1C managed form
# form-validate v1.11 — Validate 1C managed form
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
param(
[Parameter(Mandatory)]
@@ -742,6 +742,36 @@ if (-not $stopped -and $isExtension) {
Report-OK "Extension ID ranges: $extAttrCount attr(s), $extCmdCount cmd(s) — all >= 1000000"
}
}
# 11d. Пути на основной реквизит, которого форма не объявляет.
# Check 5 такое пропускает: у заимствованной формы он не проверяет базовые элементы (id < 1000000),
# а привязки в <xr:Link> вообще вне его списка тегов. Между тем это ровно тот случай, на котором
# платформа отвергает загрузку: «Неверный путь к полю - Объект.X». Правило: если основной реквизит
# не объявлен в <Attributes> формы, любой путь с корнем «Объект» не разрешится.
$mainAttrDeclared = $false
foreach ($attr in $attrNodes) {
$maNode = $attr.SelectSingleNode("f:MainAttribute", $nsMgr)
if ($maNode -and $maNode.InnerText.Trim() -eq "true") { $mainAttrDeclared = $true; break }
}
if (-not $mainAttrDeclared) {
# Значения привязок ищем текстом: интересуют и обычные теги, и <xr:DataPath> внутри
# <ChoiceParameterLinks>, а те живут в чужом пространстве имён.
$rawForm = [System.IO.File]::ReadAllText($FormPath, [System.Text.Encoding]::UTF8)
$mainBase = $baseFormNode.SelectSingleNode("f:Attributes/f:Attribute[f:MainAttribute='true']", $bfNs)
$danglingPaths = @{}
foreach ($m in [regex]::Matches($rawForm, '<(?:\w+:)?\w*DataPath[^>]*>(Объект\.[^<]+)</(?:\w+:)?\w*DataPath>')) {
$danglingPaths[$m.Groups[1].Value] = $true
}
if ($danglingPaths.Count -gt 0) {
$shown = @($danglingPaths.Keys | Sort-Object)
$sample = ($shown | Select-Object -First 3) -join ", "
$suffix = if ($shown.Count -gt 3) { " (и ещё $($shown.Count - 3))" } else { "" }
Report-Error "Path(s) rooted at 'Объект' but the form declares no MainAttribute: $sample$suffix"
} elseif ($mainBase) {
Report-OK "Object paths: none dangling (MainAttribute not declared)"
}
}
}
# Check callType without BaseForm (structural warning)