mirror of
https://github.com/Nikolay-Shirokov/cc-1c-skills.git
synced 2026-08-07 20:20:20 +03:00
Nick ShirokovandClaude Opus 5
3ef9e76f03
Детекторы версии искали только Configuration.xml, поэтому внутри автономной внешней обработки или отчёта всегда получалось 2.17 — независимо от version в корне самого объекта. Теперь версия наследуется от корня EPF/ERF: подъём по дереву проверяет и <каталог>.xml с корнем ExternalDataProcessor/ExternalReport, а form-add и template-add читают её прямо из файла объекта, с которым работают. Только после этого у epf-init/erf-init появился параметр -FormatVersion (2.17…2.21, дефолт 2.17 — прежнее поведение). Без наследования он дал бы обработку 2.21, внутри которой формы и макеты остаются 2.17. Проверено сквозным прогоном: epf-init -FormatVersion 2.21 → form-add → template-add → mxl-compile, все файлы 2.21 с xmlns:pal, порты идентичны. Снэпшоты role-info/role-validate/cf-edit обновлены — их фикстуры строит role-compile, дрейф только от смены его формата на платформенный. 648/648 ps1, 645/648 py. Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
209 lines
8.0 KiB
PowerShell
209 lines
8.0 KiB
PowerShell
# erf-init v1.4 — Init 1C external report scaffold
|
|
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
|
|
param(
|
|
[Parameter(Mandatory)]
|
|
[string]$Name,
|
|
|
|
[string]$Synonym = $Name,
|
|
|
|
[string]$SrcDir = "src",
|
|
|
|
[switch]$WithSKD,
|
|
|
|
# Версия формата выгрузки. Своей конфигурации у автономного отчёта нет, наследовать
|
|
# версию неоткуда — поэтому её задают явно. Формы, макеты и справку внутри отчёта
|
|
# навыки берут уже отсюда: их детектор читает version из корня этого файла.
|
|
[ValidateSet("2.17", "2.18", "2.19", "2.20", "2.21")]
|
|
[string]$FormatVersion = "2.17"
|
|
)
|
|
|
|
$ErrorActionPreference = "Stop"
|
|
[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
|
|
[Console]::InputEncoding = [System.Text.Encoding]::UTF8
|
|
|
|
$uuid1 = [guid]::NewGuid().ToString()
|
|
$uuid2 = [guid]::NewGuid().ToString()
|
|
$uuid3 = [guid]::NewGuid().ToString()
|
|
$uuid4 = [guid]::NewGuid().ToString()
|
|
|
|
# Объявления пространств имён — одной переменной: места эмиссии её только интерполируют.
|
|
$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"'
|
|
# 2.21 (8.5) добавила в шапку пространство палитры. Вставляем НА МЕСТО (после lf, перед style):
|
|
# платформа держит объявления по алфавиту, дописать в конец нельзя.
|
|
if (($FormatVersion -match '^(\d+)\.(\d+)$') -and ([int]$Matches[1] * 100 + [int]$Matches[2]) -ge 221) {
|
|
$xmlnsDecl = $xmlnsDecl -replace ' xmlns:style=', ' xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style='
|
|
}
|
|
|
|
# --- Формируем Properties ---
|
|
|
|
$mainDCSValue = ""
|
|
$childObjectsContent = ""
|
|
|
|
if ($WithSKD) {
|
|
$mainDCSValue = "ExternalReport.$Name.Template.ОсновнаяСхемаКомпоновкиДанных"
|
|
$childObjectsContent = @"
|
|
|
|
<Template>ОсновнаяСхемаКомпоновкиДанных</Template>
|
|
|
|
"@
|
|
}
|
|
|
|
$mainDCSElement = if ($mainDCSValue) {
|
|
"<MainDataCompositionSchema>$mainDCSValue</MainDataCompositionSchema>"
|
|
} else {
|
|
"<MainDataCompositionSchema/>"
|
|
}
|
|
|
|
$childObjectsXml = if ($childObjectsContent) {
|
|
"<ChildObjects>$childObjectsContent</ChildObjects>"
|
|
} else {
|
|
"<ChildObjects/>"
|
|
}
|
|
|
|
$xml = @"
|
|
<?xml version="1.0" encoding="UTF-8"?>
|
|
<MetaDataObject $xmlnsDecl version="$FormatVersion">
|
|
<ExternalReport uuid="$uuid1">
|
|
<InternalInfo>
|
|
<xr:ContainedObject>
|
|
<xr:ClassId>e41aff26-25cf-4bb6-b6c1-3f478a75f374</xr:ClassId>
|
|
<xr:ObjectId>$uuid2</xr:ObjectId>
|
|
</xr:ContainedObject>
|
|
<xr:GeneratedType name="ExternalReportObject.$Name" category="Object">
|
|
<xr:TypeId>$uuid3</xr:TypeId>
|
|
<xr:ValueId>$uuid4</xr:ValueId>
|
|
</xr:GeneratedType>
|
|
</InternalInfo>
|
|
<Properties>
|
|
<Name>$Name</Name>
|
|
<Synonym>
|
|
<v8:item>
|
|
<v8:lang>ru</v8:lang>
|
|
<v8:content>$Synonym</v8:content>
|
|
</v8:item>
|
|
</Synonym>
|
|
<Comment/>
|
|
<DefaultForm/>
|
|
<AuxiliaryForm/>
|
|
$mainDCSElement
|
|
<DefaultSettingsForm/>
|
|
<AuxiliarySettingsForm/>
|
|
<DefaultVariantForm/>
|
|
<VariantsStorage/>
|
|
<SettingsStorage/>
|
|
</Properties>
|
|
$childObjectsXml
|
|
</ExternalReport>
|
|
</MetaDataObject>
|
|
"@
|
|
|
|
$rootFile = Join-Path $SrcDir "$Name.xml"
|
|
$reportDir = Join-Path $SrcDir $Name
|
|
|
|
if (Test-Path $rootFile) {
|
|
Write-Error "Файл уже существует: $rootFile"
|
|
exit 1
|
|
}
|
|
|
|
if (-not (Test-Path $SrcDir)) {
|
|
New-Item -ItemType Directory -Path $SrcDir -Force | Out-Null
|
|
}
|
|
$extDir = Join-Path $reportDir "Ext"
|
|
New-Item -ItemType Directory -Path $extDir -Force | Out-Null
|
|
|
|
$enc = New-Object System.Text.UTF8Encoding($true)
|
|
# XML в каноне выгрузки Конфигуратора: CRLF в разделителях, без перевода в конце.
|
|
#
|
|
# Копия этой функции есть в каждом навыке-эмиттере (навыки автономны). Держать
|
|
# копии одинаковыми — сознательно: разошедшиеся копии сводят на нет весь смысл.
|
|
function Write-XmlFile([string]$path, [string]$text, $encoding) {
|
|
$t = ($text -replace "`r`n", "`n") -replace "`n", "`r`n"
|
|
[System.IO.File]::WriteAllText($path, $t.TrimEnd("`r", "`n"), $encoding)
|
|
}
|
|
|
|
Write-XmlFile (Resolve-Path $SrcDir | Join-Path -ChildPath "$Name.xml") $xml $enc
|
|
|
|
# --- Модуль объекта ---
|
|
|
|
$moduleBsl = @"
|
|
#Область ОписаниеПеременных
|
|
|
|
#КонецОбласти
|
|
|
|
#Область ПрограммныйИнтерфейс
|
|
|
|
#КонецОбласти
|
|
|
|
#Область СлужебныеПроцедурыИФункции
|
|
|
|
#КонецОбласти
|
|
"@
|
|
|
|
$modulePath = Join-Path $extDir "ObjectModule.bsl"
|
|
# Модуль пишем в каноне платформы: CRLF в разделителях строк (корпус: 2643 CRLF,
|
|
# чисто-LF 0 из 3001). Хвостовой перевод НЕ навязываем — у платформы он
|
|
# неканоничен (1235 модулей с ним, 766 без). Шаблон берёт переводы строк из
|
|
# самого скрипта, а он в репозитории хранится с LF.
|
|
$moduleBsl = ($moduleBsl -replace "`r`n", "`n") -replace "`n", "`r`n"
|
|
[System.IO.File]::WriteAllText($modulePath, $moduleBsl, $enc)
|
|
|
|
Write-Host "[OK] Создан отчёт: $rootFile"
|
|
Write-Host " Каталог: $reportDir"
|
|
Write-Host " Модуль: $modulePath"
|
|
|
|
# --- СКД-макет (если --WithSKD) ---
|
|
|
|
if ($WithSKD) {
|
|
$templatesDir = Join-Path $reportDir "Templates"
|
|
$skdName = "ОсновнаяСхемаКомпоновкиДанных"
|
|
$skdMetaPath = Join-Path $templatesDir "$skdName.xml"
|
|
$skdExtDir = Join-Path (Join-Path $templatesDir $skdName) "Ext"
|
|
New-Item -ItemType Directory -Path $skdExtDir -Force | Out-Null
|
|
|
|
$skdUuid = [guid]::NewGuid().ToString()
|
|
|
|
$skdMetaXml = @"
|
|
<?xml version="1.0" encoding="UTF-8"?>
|
|
<MetaDataObject $xmlnsDecl version="$FormatVersion">
|
|
<Template uuid="$skdUuid">
|
|
<Properties>
|
|
<Name>$skdName</Name>
|
|
<Synonym>
|
|
<v8:item>
|
|
<v8:lang>ru</v8:lang>
|
|
<v8:content>Основная схема компоновки данных</v8:content>
|
|
</v8:item>
|
|
</Synonym>
|
|
<Comment/>
|
|
<TemplateType>DataCompositionSchema</TemplateType>
|
|
</Properties>
|
|
</Template>
|
|
</MetaDataObject>
|
|
"@
|
|
|
|
Write-XmlFile $skdMetaPath $skdMetaXml $enc
|
|
|
|
$skdContent = @"
|
|
<?xml version="1.0" encoding="UTF-8"?>
|
|
<DataCompositionSchema xmlns="http://v8.1c.ru/8.1/data-composition-system/schema"
|
|
xmlns:dcscom="http://v8.1c.ru/8.1/data-composition-system/common"
|
|
xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core"
|
|
xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings"
|
|
xmlns:v8="http://v8.1c.ru/8.1/data/core"
|
|
xmlns:v8ui="http://v8.1c.ru/8.1/data/ui"
|
|
xmlns:xs="http://www.w3.org/2001/XMLSchema"
|
|
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
|
<dataSource>
|
|
<name>ИсточникДанных1</name>
|
|
<dataSourceType>Local</dataSourceType>
|
|
</dataSource>
|
|
</DataCompositionSchema>
|
|
"@
|
|
|
|
$skdFilePath = Join-Path $skdExtDir "Template.xml"
|
|
Write-XmlFile $skdFilePath $skdContent $enc
|
|
|
|
Write-Host " СКД: $skdMetaPath"
|
|
Write-Host " Тело: $skdFilePath"
|
|
}
|