mirror of
https://github.com/Nikolay-Shirokov/cc-1c-skills.git
synced 2026-07-29 08:01:02 +03:00
Nick ShirokovandClaude Opus 4.6
d155086444
When working with existing configs dumped from newer platforms (8.3.27+), XML files use version="2.20" instead of "2.17". Skills now detect the version from the nearest Configuration.xml walking up the directory tree, falling back to "2.17" if not found. This prevents format version mismatch errors during LoadConfigFromFiles. Updated skills (11): meta-compile, form-compile, form-add, template-add, cfe-borrow, epf-add-form, help-add, role-compile, subsystem-compile, interface-edit. Also fixed form-validate to accept version 2.20. Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
485 lines
17 KiB
PowerShell
485 lines
17 KiB
PowerShell
# form-add v1.3 — Add managed form to 1C config object
|
||
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
|
||
param(
|
||
[Parameter(Mandatory)]
|
||
[string]$ObjectPath,
|
||
|
||
[Parameter(Mandatory)]
|
||
[string]$FormName,
|
||
|
||
[string]$Synonym = $FormName,
|
||
|
||
[string]$Purpose = "Object",
|
||
|
||
[switch]$SetDefault
|
||
)
|
||
|
||
$ErrorActionPreference = "Stop"
|
||
|
||
# --- Detect XML format version ---
|
||
|
||
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 '<MetaDataObject[^>]+version="(\d+\.\d+)"') { return $Matches[1] }
|
||
}
|
||
$parent = Split-Path $d -Parent
|
||
if ($parent -eq $d) { break }
|
||
$d = $parent
|
||
}
|
||
return "2.17"
|
||
}
|
||
|
||
# --- Фаза 1: Определение типа объекта ---
|
||
|
||
# Resolve ObjectPath (directory → .xml)
|
||
if (-not [System.IO.Path]::IsPathRooted($ObjectPath)) {
|
||
$ObjectPath = Join-Path (Get-Location).Path $ObjectPath
|
||
}
|
||
if (Test-Path $ObjectPath -PathType Container) {
|
||
$dirName = Split-Path $ObjectPath -Leaf
|
||
$candidate = Join-Path $ObjectPath "$dirName.xml"
|
||
$sibling = Join-Path (Split-Path $ObjectPath) "$dirName.xml"
|
||
if (Test-Path $candidate) { $ObjectPath = $candidate }
|
||
elseif (Test-Path $sibling) { $ObjectPath = $sibling }
|
||
}
|
||
|
||
if (-not (Test-Path $ObjectPath)) {
|
||
Write-Error "Файл объекта не найден: $ObjectPath"
|
||
exit 1
|
||
}
|
||
|
||
$objectXmlFull = Resolve-Path $ObjectPath
|
||
$script:formatVersion = Detect-FormatVersion (Split-Path $objectXmlFull.Path -Parent)
|
||
|
||
$xmlDoc = New-Object System.Xml.XmlDocument
|
||
$xmlDoc.PreserveWhitespace = $true
|
||
$xmlDoc.Load($objectXmlFull.Path)
|
||
|
||
$nsMgr = New-Object System.Xml.XmlNamespaceManager($xmlDoc.NameTable)
|
||
$nsMgr.AddNamespace("md", "http://v8.1c.ru/8.3/MDClasses")
|
||
$nsMgr.AddNamespace("v8", "http://v8.1c.ru/8.1/data/core")
|
||
|
||
# Определяем тип объекта по корневому тегу внутри MetaDataObject
|
||
$metaDataObject = $xmlDoc.SelectSingleNode("//md:MetaDataObject", $nsMgr)
|
||
if (-not $metaDataObject) {
|
||
# Пробуем без namespace (fallback)
|
||
$metaDataObject = $xmlDoc.DocumentElement
|
||
}
|
||
|
||
$supportedTypes = @(
|
||
"Document", "Catalog", "DataProcessor", "Report",
|
||
"ExternalDataProcessor", "ExternalReport",
|
||
"InformationRegister", "ChartOfAccounts", "ChartOfCharacteristicTypes",
|
||
"ExchangePlan", "BusinessProcess", "Task"
|
||
)
|
||
|
||
$objectType = $null
|
||
$objectNode = $null
|
||
foreach ($t in $supportedTypes) {
|
||
$node = $xmlDoc.SelectSingleNode("//md:$t", $nsMgr)
|
||
if ($node) {
|
||
$objectType = $t
|
||
$objectNode = $node
|
||
break
|
||
}
|
||
}
|
||
|
||
if (-not $objectType) {
|
||
Write-Error "Не удалось определить тип объекта. Поддерживаемые типы: $($supportedTypes -join ', ')"
|
||
exit 1
|
||
}
|
||
|
||
# Имя объекта из Properties/Name
|
||
$objectName = $xmlDoc.SelectSingleNode("//md:${objectType}/md:Properties/md:Name", $nsMgr).InnerText
|
||
if (-not $objectName) {
|
||
Write-Error "Не удалось определить имя объекта из Properties/Name"
|
||
exit 1
|
||
}
|
||
|
||
Write-Host ""
|
||
Write-Host "=== form-add ==="
|
||
Write-Host ""
|
||
Write-Host "Object: $objectType.$objectName"
|
||
|
||
# --- Фаза 2: Валидация Purpose ---
|
||
|
||
$Purpose = $Purpose.Substring(0,1).ToUpper() + $Purpose.Substring(1).ToLower()
|
||
# Нормализация
|
||
switch ($Purpose) {
|
||
"Object" { }
|
||
"List" { }
|
||
"Choice" { }
|
||
"Record" { }
|
||
default {
|
||
Write-Error "Недопустимое назначение: $Purpose. Допустимые: Object, List, Choice, Record"
|
||
exit 1
|
||
}
|
||
}
|
||
|
||
$objectLikeTypes = @("Document", "Catalog", "ChartOfAccounts", "ChartOfCharacteristicTypes", "ExchangePlan", "BusinessProcess", "Task")
|
||
$processorLikeTypes = @("DataProcessor", "Report", "ExternalDataProcessor", "ExternalReport")
|
||
|
||
switch ($Purpose) {
|
||
"Object" {
|
||
# допустимо для всех типов
|
||
}
|
||
"List" {
|
||
if ($objectType -eq "DataProcessor") {
|
||
Write-Error "Purpose=List недопустим для DataProcessor"
|
||
exit 1
|
||
}
|
||
}
|
||
"Choice" {
|
||
if ($objectType -in $processorLikeTypes -or $objectType -eq "InformationRegister") {
|
||
Write-Error "Purpose=Choice недопустим для $objectType"
|
||
exit 1
|
||
}
|
||
}
|
||
"Record" {
|
||
if ($objectType -ne "InformationRegister") {
|
||
Write-Error "Purpose=Record допустим только для InformationRegister"
|
||
exit 1
|
||
}
|
||
}
|
||
}
|
||
|
||
# --- Фаза 3: Создание файлов ---
|
||
|
||
$objectDir = [System.IO.Path]::ChangeExtension($objectXmlFull.Path, $null).TrimEnd('.')
|
||
$formsDir = Join-Path $objectDir "Forms"
|
||
$formMetaPath = Join-Path $formsDir "$FormName.xml"
|
||
|
||
if (Test-Path $formMetaPath) {
|
||
Write-Error "Форма уже существует: $formMetaPath"
|
||
exit 1
|
||
}
|
||
|
||
$formDir = Join-Path $formsDir $FormName
|
||
$formExtDir = Join-Path $formDir "Ext"
|
||
$formModuleDir = Join-Path $formExtDir "Form"
|
||
|
||
New-Item -ItemType Directory -Path $formModuleDir -Force | Out-Null
|
||
|
||
$encBom = New-Object System.Text.UTF8Encoding($true)
|
||
|
||
# --- 3a. Метаданные формы ---
|
||
|
||
$formUuid = [guid]::NewGuid().ToString()
|
||
|
||
# ExtendedPresentation — only for DataProcessor, Report, ExternalDataProcessor, ExternalReport forms
|
||
$extPresentationLine = ""
|
||
if ($objectType -in $processorLikeTypes) {
|
||
$extPresentationLine = "`n`t`t`t<ExtendedPresentation/>"
|
||
}
|
||
|
||
$formMetaXml = @"
|
||
<?xml version="1.0" encoding="UTF-8"?>
|
||
<MetaDataObject 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" version="$($script:formatVersion)">
|
||
<Form uuid="$formUuid">
|
||
<Properties>
|
||
<Name>$FormName</Name>
|
||
<Synonym>
|
||
<v8:item>
|
||
<v8:lang>ru</v8:lang>
|
||
<v8:content>$Synonym</v8:content>
|
||
</v8:item>
|
||
</Synonym>
|
||
<Comment/>
|
||
<FormType>Managed</FormType>
|
||
<IncludeHelpInContents>false</IncludeHelpInContents>
|
||
<UsePurposes>
|
||
<v8:Value xsi:type="app:ApplicationUsePurpose">PlatformApplication</v8:Value>
|
||
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
|
||
</UsePurposes>$extPresentationLine
|
||
</Properties>
|
||
</Form>
|
||
</MetaDataObject>
|
||
"@
|
||
|
||
[System.IO.File]::WriteAllText($formMetaPath, $formMetaXml, $encBom)
|
||
|
||
# --- 3b. Form.xml ---
|
||
|
||
$formXmlPath = Join-Path $formExtDir "Form.xml"
|
||
|
||
$formNsDecl = 'xmlns="http://v8.1c.ru/8.3/xcf/logform" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"'
|
||
|
||
if ($Purpose -eq "List" -or $Purpose -eq "Choice") {
|
||
# Динамический список
|
||
# MainTable: тип.имя
|
||
$mainTable = "$objectType.$objectName"
|
||
|
||
$formXml = @"
|
||
<?xml version="1.0" encoding="UTF-8"?>
|
||
<Form $formNsDecl version="$($script:formatVersion)">
|
||
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
|
||
<Autofill>true</Autofill>
|
||
</AutoCommandBar>
|
||
<Events>
|
||
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
|
||
</Events>
|
||
<ChildItems/>
|
||
<Attributes>
|
||
<Attribute name="Список" id="1">
|
||
<Type>
|
||
<v8:Type>cfg:DynamicList</v8:Type>
|
||
</Type>
|
||
<MainAttribute>true</MainAttribute>
|
||
<Settings xsi:type="DynamicList">
|
||
<MainTable>$mainTable</MainTable>
|
||
</Settings>
|
||
</Attribute>
|
||
</Attributes>
|
||
</Form>
|
||
"@
|
||
} elseif ($Purpose -eq "Record") {
|
||
# Запись регистра сведений
|
||
$mainAttrName = "Запись"
|
||
$mainAttrType = "InformationRegisterRecordManager.$objectName"
|
||
|
||
$formXml = @"
|
||
<?xml version="1.0" encoding="UTF-8"?>
|
||
<Form $formNsDecl version="$($script:formatVersion)">
|
||
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
|
||
<Autofill>true</Autofill>
|
||
</AutoCommandBar>
|
||
<Events>
|
||
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
|
||
</Events>
|
||
<ChildItems/>
|
||
<Attributes>
|
||
<Attribute name="$mainAttrName" id="1">
|
||
<Type>
|
||
<v8:Type>cfg:$mainAttrType</v8:Type>
|
||
</Type>
|
||
<MainAttribute>true</MainAttribute>
|
||
<SavedData>true</SavedData>
|
||
</Attribute>
|
||
</Attributes>
|
||
</Form>
|
||
"@
|
||
} else {
|
||
# Object — форма объекта
|
||
$mainAttrName = "Объект"
|
||
|
||
# Маппинг типа объекта на тип реквизита
|
||
$attrTypeMap = @{
|
||
"Document" = "DocumentObject"
|
||
"Catalog" = "CatalogObject"
|
||
"DataProcessor" = "DataProcessorObject"
|
||
"Report" = "ReportObject"
|
||
"ExternalDataProcessor" = "ExternalDataProcessorObject"
|
||
"ExternalReport" = "ExternalReportObject"
|
||
"ChartOfAccounts" = "ChartOfAccountsObject"
|
||
"ChartOfCharacteristicTypes" = "ChartOfCharacteristicTypesObject"
|
||
"ExchangePlan" = "ExchangePlanObject"
|
||
"BusinessProcess" = "BusinessProcessObject"
|
||
"Task" = "TaskObject"
|
||
"InformationRegister" = "InformationRegisterRecordManager"
|
||
}
|
||
|
||
$mainAttrType = "$($attrTypeMap[$objectType]).$objectName"
|
||
|
||
$formXml = @"
|
||
<?xml version="1.0" encoding="UTF-8"?>
|
||
<Form $formNsDecl version="$($script:formatVersion)">
|
||
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
|
||
<Autofill>true</Autofill>
|
||
</AutoCommandBar>
|
||
<Events>
|
||
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
|
||
</Events>
|
||
<ChildItems/>
|
||
<Attributes>
|
||
<Attribute name="$mainAttrName" id="1">
|
||
<Type>
|
||
<v8:Type>cfg:$mainAttrType</v8:Type>
|
||
</Type>
|
||
<MainAttribute>true</MainAttribute>
|
||
<SavedData>true</SavedData>
|
||
</Attribute>
|
||
</Attributes>
|
||
</Form>
|
||
"@
|
||
}
|
||
|
||
if (Test-Path $formXmlPath) {
|
||
Write-Host "[SKIP] Form.xml already exists: $formXmlPath — not overwriting"
|
||
} else {
|
||
[System.IO.File]::WriteAllText($formXmlPath, $formXml, $encBom)
|
||
}
|
||
|
||
# --- 3c. Module.bsl ---
|
||
|
||
$modulePath = Join-Path $formModuleDir "Module.bsl"
|
||
|
||
$moduleBsl = @"
|
||
#Область ОбработчикиСобытийФормы
|
||
|
||
&НаСервере
|
||
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
||
|
||
КонецПроцедуры
|
||
|
||
#КонецОбласти
|
||
|
||
#Область ОбработчикиСобытийЭлементовФормы
|
||
|
||
#КонецОбласти
|
||
|
||
#Область ОбработчикиКомандФормы
|
||
|
||
#КонецОбласти
|
||
|
||
#Область ОбработчикиОповещений
|
||
|
||
#КонецОбласти
|
||
|
||
#Область СлужебныеПроцедурыИФункции
|
||
|
||
#КонецОбласти
|
||
"@
|
||
|
||
if (Test-Path $modulePath) {
|
||
Write-Host "[SKIP] Module.bsl already exists: $modulePath — not overwriting"
|
||
} else {
|
||
[System.IO.File]::WriteAllText($modulePath, $moduleBsl, $encBom)
|
||
}
|
||
|
||
# --- Фаза 4: Регистрация в родительском объекте ---
|
||
|
||
$childObjects = $xmlDoc.SelectSingleNode("//md:${objectType}/md:ChildObjects", $nsMgr)
|
||
if (-not $childObjects) {
|
||
Write-Error "Не найден элемент ChildObjects в $ObjectPath"
|
||
exit 1
|
||
}
|
||
|
||
# Добавить <Form>$FormName</Form>
|
||
$formElem = $xmlDoc.CreateElement("Form", "http://v8.1c.ru/8.3/MDClasses")
|
||
$formElem.InnerText = $FormName
|
||
|
||
# Ищем первый <Template> для вставки перед ним
|
||
$firstTemplate = $childObjects.SelectSingleNode("md:Template", $nsMgr)
|
||
# Ищем первую <TabularSection> для вставки перед ней (если нет Template)
|
||
$firstTabular = $childObjects.SelectSingleNode("md:TabularSection", $nsMgr)
|
||
|
||
# Определяем точку вставки: перед Template, перед TabularSection, или в конец
|
||
$insertBefore = $null
|
||
if ($firstTemplate) {
|
||
$insertBefore = $firstTemplate
|
||
} elseif ($firstTabular) {
|
||
$insertBefore = $firstTabular
|
||
}
|
||
|
||
if ($insertBefore) {
|
||
# Вставить перед найденным элементом, с переносом строки
|
||
$whitespace = $xmlDoc.CreateWhitespace("`n`t`t`t")
|
||
$childObjects.InsertBefore($formElem, $insertBefore) | Out-Null
|
||
$childObjects.InsertBefore($whitespace, $formElem) | Out-Null
|
||
# Переставляем: whitespace перед formElem — неправильный порядок
|
||
# Правильно: formElem, затем whitespace перед insertBefore
|
||
# InsertBefore возвращает вставленный узел, порядок: ... formElem whitespace insertBefore ...
|
||
# На самом деле нам нужно: ... \n\t\t\tformElem \n\t\t\tinsertBefore
|
||
# Удалим и вставим правильно
|
||
$childObjects.RemoveChild($whitespace) | Out-Null
|
||
$childObjects.RemoveChild($formElem) | Out-Null
|
||
|
||
$childObjects.InsertBefore($formElem, $insertBefore) | Out-Null
|
||
# Whitespace нужен ДО formElem (перенос строки + отступ)
|
||
# Но перед insertBefore уже должен быть whitespace от предыдущего элемента
|
||
# Нам нужно добавить whitespace ПОСЛЕ formElem (перед insertBefore)
|
||
$ws = $xmlDoc.CreateWhitespace("`n`t`t`t")
|
||
$childObjects.InsertBefore($ws, $insertBefore) | Out-Null
|
||
} else {
|
||
# Добавить в конец ChildObjects
|
||
if ($childObjects.ChildNodes.Count -eq 0) {
|
||
$childObjects.AppendChild($xmlDoc.CreateWhitespace("`n`t`t`t")) | Out-Null
|
||
$childObjects.AppendChild($formElem) | Out-Null
|
||
$childObjects.AppendChild($xmlDoc.CreateWhitespace("`n`t`t")) | Out-Null
|
||
} else {
|
||
$lastChild = $childObjects.LastChild
|
||
if ($lastChild.NodeType -eq [System.Xml.XmlNodeType]::Whitespace) {
|
||
$childObjects.InsertBefore($xmlDoc.CreateWhitespace("`n`t`t`t"), $lastChild) | Out-Null
|
||
$childObjects.InsertBefore($formElem, $lastChild) | Out-Null
|
||
} else {
|
||
$childObjects.AppendChild($xmlDoc.CreateWhitespace("`n`t`t`t")) | Out-Null
|
||
$childObjects.AppendChild($formElem) | Out-Null
|
||
$childObjects.AppendChild($xmlDoc.CreateWhitespace("`n`t`t")) | Out-Null
|
||
}
|
||
}
|
||
}
|
||
|
||
# --- SetDefault ---
|
||
|
||
$existingForms = $childObjects.SelectNodes("md:Form", $nsMgr)
|
||
$isFirstFormForPurpose = $false
|
||
$defaultPropName = $null
|
||
$defaultValue = "$objectType.$objectName.Form.$FormName"
|
||
|
||
# Определяем имя свойства для DefaultForm
|
||
switch ($Purpose) {
|
||
"Object" {
|
||
if ($objectType -in $processorLikeTypes) {
|
||
$defaultPropName = "DefaultForm"
|
||
} else {
|
||
$defaultPropName = "DefaultObjectForm"
|
||
}
|
||
}
|
||
"List" { $defaultPropName = "DefaultListForm" }
|
||
"Choice" { $defaultPropName = "DefaultChoiceForm" }
|
||
"Record" { $defaultPropName = "DefaultRecordForm" }
|
||
}
|
||
|
||
# Проверяем, установлено ли уже значение
|
||
$defaultNode = $xmlDoc.SelectSingleNode("//md:${objectType}/md:Properties/md:$defaultPropName", $nsMgr)
|
||
if ($defaultNode) {
|
||
$isFirstFormForPurpose = [string]::IsNullOrWhiteSpace($defaultNode.InnerText)
|
||
}
|
||
|
||
$defaultUpdated = $false
|
||
if ($SetDefault -or $isFirstFormForPurpose) {
|
||
if ($defaultNode) {
|
||
$defaultNode.InnerText = $defaultValue
|
||
$defaultUpdated = $true
|
||
}
|
||
}
|
||
|
||
# Сохранить с BOM
|
||
$settings = New-Object System.Xml.XmlWriterSettings
|
||
$settings.Encoding = $encBom
|
||
$settings.Indent = $false
|
||
|
||
$stream = New-Object System.IO.FileStream($objectXmlFull.Path, [System.IO.FileMode]::Create)
|
||
$writer = [System.Xml.XmlWriter]::Create($stream, $settings)
|
||
$xmlDoc.Save($writer)
|
||
$writer.Close()
|
||
$stream.Close()
|
||
|
||
# --- Фаза 5: Вывод ---
|
||
|
||
# Относительные пути для вывода
|
||
$basePath = Split-Path $objectXmlFull.Path -Parent
|
||
# Определяем корень (ищем родительский каталог типа Documents, Catalogs и т.д.)
|
||
$relFormMeta = $formMetaPath.Replace($basePath, "").TrimStart("\", "/")
|
||
$relFormXml = $formXmlPath.Replace($basePath, "").TrimStart("\", "/")
|
||
$relModule = $modulePath.Replace($basePath, "").TrimStart("\", "/")
|
||
|
||
$objFileName = [System.IO.Path]::GetFileName($ObjectPath)
|
||
$objDirName = Split-Path $ObjectPath -Parent
|
||
$objBaseName = [System.IO.Path]::GetFileNameWithoutExtension($ObjectPath)
|
||
|
||
Write-Host "Created:"
|
||
Write-Host " Metadata: $objDirName\$objBaseName\Forms\$FormName.xml"
|
||
Write-Host " Form: $objDirName\$objBaseName\Forms\$FormName\Ext\Form.xml"
|
||
Write-Host " Module: $objDirName\$objBaseName\Forms\$FormName\Ext\Form\Module.bsl"
|
||
Write-Host ""
|
||
Write-Host "Registered: <Form>$FormName</Form> in ChildObjects"
|
||
if ($defaultUpdated) {
|
||
Write-Host "${defaultPropName}: $defaultValue"
|
||
}
|
||
Write-Host ""
|