This site uses cookies. Visit our cookies policy page or click the link in any footer for more information and to change your preferences.

Accept all cookies Accept only essential cookies

Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit 1f001842 authored by David AMO GONZALEZ's avatar David AMO GONZALEZ
Browse files

feat(input): generate v2.7 XSD VECTO input

parent d6da35fc
No related branches found
No related tags found
1 merge request!3Implement VECTO input for v2.7
Show whitespace changes
Inline Side-by-side
CSE/GUI/F_VECTOInput.Designer.vb
+ 143
− 36
View file @ 1f001842
......@@ -39,157 +39,254 @@ Partial Class F_VECTOInput
Me.Label9 = New System.Windows.Forms.Label()
Me.ButtonCancel = New System.Windows.Forms.Button()
Me.ButtonOK = New System.Windows.Forms.Button()
Me.GBCFD = New System.Windows.Forms.GroupBox()
Me.LBDeltaCFD_Unit = New System.Windows.Forms.Label()
Me.LBLicenseCFDMethod = New System.Windows.Forms.Label()
Me.LBCdACFD = New System.Windows.Forms.Label()
Me.TBCdACFD = New System.Windows.Forms.TextBox()
Me.TBLicenseCFDMethod = New System.Windows.Forms.TextBox()
Me.CBCFD_Enabled = New System.Windows.Forms.CheckBox()
Me.GBCFD.SuspendLayout()
Me.SuspendLayout()
'
'TBManufacturer
'
Me.TBManufacturer.Location = New System.Drawing.Point(171, 12)
Me.TBManufacturer.Location = New System.Drawing.Point(256, 18)
Me.TBManufacturer.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TBManufacturer.Name = "TBManufacturer"
Me.TBManufacturer.Size = New System.Drawing.Size(151, 20)
Me.TBManufacturer.Size = New System.Drawing.Size(224, 26)
Me.TBManufacturer.TabIndex = 0
'
'TBModel
'
Me.TBModel.Location = New System.Drawing.Point(171, 38)
Me.TBModel.Location = New System.Drawing.Point(256, 58)
Me.TBModel.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TBModel.Name = "TBModel"
Me.TBModel.Size = New System.Drawing.Size(151, 20)
Me.TBModel.Size = New System.Drawing.Size(224, 26)
Me.TBModel.TabIndex = 1
'
'TBCertNum
'
Me.TBCertNum.Location = New System.Drawing.Point(171, 64)
Me.TBCertNum.Location = New System.Drawing.Point(256, 98)
Me.TBCertNum.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TBCertNum.Name = "TBCertNum"
Me.TBCertNum.Size = New System.Drawing.Size(151, 20)
Me.TBCertNum.Size = New System.Drawing.Size(224, 26)
Me.TBCertNum.TabIndex = 2
'
'TBCdxA
'
Me.TBCdxA.Location = New System.Drawing.Point(171, 90)
Me.TBCdxA.Location = New System.Drawing.Point(256, 138)
Me.TBCdxA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TBCdxA.Name = "TBCdxA"
Me.TBCdxA.Size = New System.Drawing.Size(100, 20)
Me.TBCdxA.Size = New System.Drawing.Size(148, 26)
Me.TBCdxA.TabIndex = 3
'
'TBTransR
'
Me.TBTransR.Location = New System.Drawing.Point(171, 116)
Me.TBTransR.Location = New System.Drawing.Point(254, 362)
Me.TBTransR.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TBTransR.Name = "TBTransR"
Me.TBTransR.Size = New System.Drawing.Size(100, 20)
Me.TBTransR.Size = New System.Drawing.Size(148, 26)
Me.TBTransR.TabIndex = 4
'
'TBWorstCase
'
Me.TBWorstCase.Location = New System.Drawing.Point(171, 142)
Me.TBWorstCase.Location = New System.Drawing.Point(254, 402)
Me.TBWorstCase.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TBWorstCase.Name = "TBWorstCase"
Me.TBWorstCase.Size = New System.Drawing.Size(100, 20)
Me.TBWorstCase.Size = New System.Drawing.Size(148, 26)
Me.TBWorstCase.TabIndex = 5
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 15)
Me.Label1.Location = New System.Drawing.Point(18, 23)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(70, 13)
Me.Label1.Size = New System.Drawing.Size(104, 20)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Manufacturer"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 41)
Me.Label2.Location = New System.Drawing.Point(18, 63)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(36, 13)
Me.Label2.Size = New System.Drawing.Size(52, 20)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Model"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 67)
Me.Label3.Location = New System.Drawing.Point(18, 103)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(102, 13)
Me.Label3.Size = New System.Drawing.Size(153, 20)
Me.Label3.TabIndex = 8
Me.Label3.Text = "Certification Number"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 93)
Me.Label4.Location = New System.Drawing.Point(18, 143)
Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(32, 13)
Me.Label4.Size = New System.Drawing.Size(47, 20)
Me.Label4.TabIndex = 9
Me.Label4.Text = "CdxA"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(12, 119)
Me.Label5.Location = New System.Drawing.Point(16, 367)
Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(129, 13)
Me.Label5.Size = New System.Drawing.Size(195, 20)
Me.Label5.TabIndex = 10
Me.Label5.Text = "Delta CdxA - transfer rules"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(12, 145)
Me.Label6.Location = New System.Drawing.Point(16, 407)
Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(153, 13)
Me.Label6.Size = New System.Drawing.Size(228, 20)
Me.Label6.TabIndex = 11
Me.Label6.Text = "Delta CdxA - worst case parent"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(277, 93)
Me.Label7.Location = New System.Drawing.Point(416, 143)
Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(18, 13)
Me.Label7.Size = New System.Drawing.Size(27, 20)
Me.Label7.TabIndex = 12
Me.Label7.Text = "m²"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(277, 145)
Me.Label8.Location = New System.Drawing.Point(414, 407)
Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(18, 13)
Me.Label8.Size = New System.Drawing.Size(27, 20)
Me.Label8.TabIndex = 13
Me.Label8.Text = "m²"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(277, 119)
Me.Label9.Location = New System.Drawing.Point(414, 367)
Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(18, 13)
Me.Label9.Size = New System.Drawing.Size(27, 20)
Me.Label9.TabIndex = 14
Me.Label9.Text = "m²"
'
'ButtonCancel
'
Me.ButtonCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.ButtonCancel.Location = New System.Drawing.Point(247, 181)
Me.ButtonCancel.Location = New System.Drawing.Point(368, 462)
Me.ButtonCancel.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.ButtonCancel.Name = "ButtonCancel"
Me.ButtonCancel.Size = New System.Drawing.Size(75, 23)
Me.ButtonCancel.Size = New System.Drawing.Size(112, 35)
Me.ButtonCancel.TabIndex = 15
Me.ButtonCancel.Text = "Cancel"
Me.ButtonCancel.UseVisualStyleBackColor = True
'
'ButtonOK
'
Me.ButtonOK.Location = New System.Drawing.Point(166, 181)
Me.ButtonOK.Location = New System.Drawing.Point(247, 462)
Me.ButtonOK.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.ButtonOK.Name = "ButtonOK"
Me.ButtonOK.Size = New System.Drawing.Size(75, 23)
Me.ButtonOK.Size = New System.Drawing.Size(112, 35)
Me.ButtonOK.TabIndex = 16
Me.ButtonOK.Text = "OK"
Me.ButtonOK.UseVisualStyleBackColor = True
'
'GBCFD
'
Me.GBCFD.Controls.Add(Me.CBCFD_Enabled)
Me.GBCFD.Controls.Add(Me.LBDeltaCFD_Unit)
Me.GBCFD.Controls.Add(Me.LBLicenseCFDMethod)
Me.GBCFD.Controls.Add(Me.LBCdACFD)
Me.GBCFD.Controls.Add(Me.TBCdACFD)
Me.GBCFD.Controls.Add(Me.TBLicenseCFDMethod)
Me.GBCFD.Location = New System.Drawing.Point(22, 172)
Me.GBCFD.Name = "GBCFD"
Me.GBCFD.Size = New System.Drawing.Size(458, 182)
Me.GBCFD.TabIndex = 17
Me.GBCFD.TabStop = False
Me.GBCFD.Text = "CFD"
'
'LBDeltaCFD_Unit
'
Me.LBDeltaCFD_Unit.AutoSize = True
Me.LBDeltaCFD_Unit.Location = New System.Drawing.Point(413, 69)
Me.LBDeltaCFD_Unit.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.LBDeltaCFD_Unit.Name = "LBDeltaCFD_Unit"
Me.LBDeltaCFD_Unit.Size = New System.Drawing.Size(27, 20)
Me.LBDeltaCFD_Unit.TabIndex = 20
Me.LBDeltaCFD_Unit.Text = "m²"
'
'LBLicenseCFDMethod
'
Me.LBLicenseCFDMethod.AutoSize = True
Me.LBLicenseCFDMethod.Location = New System.Drawing.Point(18, 109)
Me.LBLicenseCFDMethod.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.LBLicenseCFDMethod.Name = "LBLicenseCFDMethod"
Me.LBLicenseCFDMethod.Size = New System.Drawing.Size(219, 20)
Me.LBLicenseCFDMethod.TabIndex = 21
Me.LBLicenseCFDMethod.Text = "License Number CFD Method"
'
'LBCdACFD
'
Me.LBCdACFD.AutoSize = True
Me.LBCdACFD.Location = New System.Drawing.Point(18, 69)
Me.LBCdACFD.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.LBCdACFD.Name = "LBCdACFD"
Me.LBCdACFD.Size = New System.Drawing.Size(135, 20)
Me.LBCdACFD.TabIndex = 19
Me.LBCdACFD.Text = "Delta CdxA - CFD"
'
'TBCdACFD
'
Me.TBCdACFD.Location = New System.Drawing.Point(253, 64)
Me.TBCdACFD.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TBCdACFD.Name = "TBCdACFD"
Me.TBCdACFD.Size = New System.Drawing.Size(148, 26)
Me.TBCdACFD.TabIndex = 18
'
'TBLicenseCFDMethod
'
Me.TBLicenseCFDMethod.Location = New System.Drawing.Point(19, 136)
Me.TBLicenseCFDMethod.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TBLicenseCFDMethod.Name = "TBLicenseCFDMethod"
Me.TBLicenseCFDMethod.Size = New System.Drawing.Size(382, 26)
Me.TBLicenseCFDMethod.TabIndex = 3
'
'CBCFD_Enabled
'
Me.CBCFD_Enabled.AutoSize = True
Me.CBCFD_Enabled.Location = New System.Drawing.Point(22, 29)
Me.CBCFD_Enabled.Name = "CBCFD_Enabled"
Me.CBCFD_Enabled.Size = New System.Drawing.Size(94, 24)
Me.CBCFD_Enabled.TabIndex = 22
Me.CBCFD_Enabled.Text = "Enabled"
Me.CBCFD_Enabled.UseVisualStyleBackColor = True
'
'F_VECTOInput
'
Me.AcceptButton = Me.ButtonOK
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.ButtonCancel
Me.ClientSize = New System.Drawing.Size(334, 216)
Me.ClientSize = New System.Drawing.Size(501, 519)
Me.Controls.Add(Me.GBCFD)
Me.Controls.Add(Me.ButtonOK)
Me.Controls.Add(Me.ButtonCancel)
Me.Controls.Add(Me.Label9)
......@@ -207,8 +304,11 @@ Partial Class F_VECTOInput
Me.Controls.Add(Me.TBCertNum)
Me.Controls.Add(Me.TBModel)
Me.Controls.Add(Me.TBManufacturer)
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "F_VECTOInput"
Me.Text = "F_VECTOInput"
Me.GBCFD.ResumeLayout(False)
Me.GBCFD.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
......@@ -231,4 +331,11 @@ Partial Class F_VECTOInput
Friend WithEvents Label9 As Label
Friend WithEvents ButtonCancel As Button
Friend WithEvents ButtonOK As Button
Friend WithEvents GBCFD As GroupBox
Friend WithEvents TBLicenseCFDMethod As TextBox
Friend WithEvents LBDeltaCFD_Unit As Label
Friend WithEvents LBCdACFD As Label
Friend WithEvents TBCdACFD As TextBox
Friend WithEvents LBLicenseCFDMethod As Label
Friend WithEvents CBCFD_Enabled As CheckBox
End Class
CSE/GUI/F_VECTOInput.vb
+ 99
− 2
View file @ 1f001842
Imports System.IO
Imports System.Xml
Imports TUGraz.VectoHashing
Imports TUGraz.VectoCommon
Public Class F_VECTOInput
' Declaration
Dim componentNamespace As XNamespace = "urn:tugraz:ivt:VectoAPI:DeclarationComponent:v1.0"
Dim componentNamespaceV22 As XNamespace = "urn:tugraz:ivt:VectoAPI:DeclarationComponent:v2.2"
Dim tns As XNamespace = "urn:tugraz:ivt:VectoAPI:DeclarationDefinitions:v1.0"
' Load GUI
......@@ -34,6 +34,9 @@ Public Class F_VECTOInput
TBManufacturer.Text = VECTOconf.Manufacturer
TBTransR.Text = 0
TBWorstCase.Text = 0
CBCFD_Enabled.Checked = False
EnableCFDComponents(CBCFD_Enabled.Checked)
End Sub
' Get values from GUI and put in config values
......@@ -45,10 +48,20 @@ Public Class F_VECTOInput
value.AppVers = AppName & " " & AppVers
value.TransfR = Convert.ToDouble(Me.TBTransR.Text)
value.WorstCase = Convert.ToDouble(Me.TBWorstCase.Text)
value.CdxACFD = If(String.IsNullOrEmpty(Me.TBCdACFD.Text), Nothing, Convert.ToDouble(Me.TBCdACFD.Text))
value.LicenseNumberMethodCFD = Me.TBLicenseCFDMethod.Text
End Sub
Private Sub EnableCFDComponents(enabled As Boolean)
Me.TBCdACFD.Enabled = enabled
Me.LBCdACFD.Enabled = enabled
Me.LBDeltaCFD_Unit.Enabled = enabled
Me.TBLicenseCFDMethod.Enabled = enabled
Me.LBLicenseCFDMethod.Enabled = enabled
End Sub
#Region "Buttons"
' Cacnel
' Cancel
Private Sub ButtonCancel_Click(sender As Object, e As EventArgs) Handles ButtonCancel.Click
Me.Close()
End Sub
......@@ -79,6 +92,7 @@ Public Class F_VECTOInput
If check Then
' Write the xml file and Hashing
Call AirDragDocument()
Call AirDragDocumentV26()
' Message
logme(7, False, "Generation of the VECTO input file successful.")
......@@ -135,6 +149,11 @@ Public Class F_VECTOInput
TBWorstCase.Focus()
End If
End Sub
Private Sub CBCFD_Enabled_CheckedChanged(sender As Object, e As EventArgs) Handles CBCFD_Enabled.CheckedChanged
EnableCFDComponents(CBCFD_Enabled.Checked)
End Sub
#End Region
#Region "Hashing & xml File"
......@@ -153,6 +172,21 @@ Public Class F_VECTOInput
Return True
End Function
Private Function AirDragDocumentV26() As Boolean
Dim stream As MemoryStream = New MemoryStream()
Dim writer As StreamWriter = New StreamWriter(stream)
writer.Write(GenerateComponentDocumentV26(CreateAirdragV26(componentNamespaceV22)))
writer.Flush()
stream.Seek(0, SeekOrigin.Begin)
Dim h = VectoHash.Load(stream)
Dim Report As XDocument = h.AddHash()
Report.Save(OutFolder & fName(JobFile, False) & "_v26.xml")
Return True
End Function
Protected Function GenerateComponentDocument(content As XElement) As XDocument
' Declaration
Dim xsi = XNamespace.[Get]("http://www.w3.org/2001/XMLSchema-instance")
......@@ -192,5 +226,68 @@ Public Class F_VECTOInput
New XElement(tns + "TransferredCdxA", Math.Round(VECTOconf.CdxA + VECTOconf.TransfR, 2, MidpointRounding.AwayFromZero).ToString("0.00")),
New XElement(tns + "DeclaredCdxA", Math.Round((VECTOconf.CdxA + VECTOconf.TransfR + VECTOconf.WorstCase), 2, MidpointRounding.AwayFromZero).ToString("0.00"))))
End Function
Protected Function GenerateComponentDocumentV26(content As XElement) As XDocument
' Declaration
Dim xsi = XNamespace.[Get]("http://www.w3.org/2001/XMLSchema-instance")
Dim SchemaVersion As String = "2.0"
Dim SchemaLocationBaseUrl As String = "https://webgate.ec.europa.eu/CITnet/svn/VECTO/trunk/Share/XML/XSD/"
Dim ns = "urn:tugraz:ivt:VectoAPI:DeclarationDefinitions"
Dim xmlnsComponent = "urn:tugraz:ivt:VectoAPI:DeclarationComponent:v2.2"
Dim xmlns As XNamespace = "urn:tugraz:ivt:VectoAPI:DeclarationComponent:v2.2"
Dim component = New XDocument()
component.Add(New XElement(componentNamespaceV22 + "VectoInputDeclaration",
New XAttribute("schemaVersion", SchemaVersion),
New XAttribute(XNamespace.Xmlns + "xsi", xsi.NamespaceName),
New XAttribute("xmlns", xmlns),
New XAttribute(XNamespace.Xmlns + "v2.0", $"{ns}:v2.0"),
New XAttribute(XNamespace.Xmlns + "v2.3", $"{ns}:v2.3"),
New XAttribute(XNamespace.Xmlns + "v2.6", $"{ns}:v2.6"),
New XAttribute(XNamespace.Xmlns + "tns", componentNamespaceV22),
New XAttribute(xsi + "schemaLocation", String.Format("{0} {1}VectoComponent.xsd", componentNamespaceV22, SchemaLocationBaseUrl)),
content))
Return component
End Function
Protected Function CreateAirdragV26(ns As XNamespace)
Dim AppVersx As String
Dim xsi = XNamespace.[Get]("http://www.w3.org/2001/XMLSchema-instance")
If RELEASE_CANDIDATE Then
AppVersx = AppVers + " - RELEASE CANDIDATE, NOT FOR CERTIFICATION!"
ElseIf BETA_VERSION Then
AppVersx = AppVers + " - BETA VERSION, NOT FOR CERTIFICATION!"
Else
AppVersx = AppVers
End If
Dim v26 = "v2.6"
Dim v20Namespace As XNamespace = "urn:tugraz:ivt:VectoAPI:DeclarationDefinitions:v2.0"
Dim v26Namespace As XNamespace = $"urn:tugraz:ivt:VectoAPI:DeclarationDefinitions:{v26}"
Dim cfdXElements
If (VECTOconf.CdxACFD IsNot Nothing And Not String.IsNullOrEmpty(VECTOconf.LicenseNumberMethodCFD)) Then
cfdXElements = New XElement() {
New XElement(v26Namespace + "DeltaCdxA_CFD", Math.Round((VECTOconf.CdxACFD.Value), 2, MidpointRounding.AwayFromZero).ToString("0.00")),
New XElement(v26Namespace + "LicenseNumberCFDMethod", VECTOconf.LicenseNumberMethodCFD)}
Else
cfdXElements = New XElement() {}
End If
Return New XElement(ns + "AirDrag",
New XElement(v20Namespace + "Data",
New XAttribute(xsi + "type", $"{v26}:AirDragDataDeclarationType"),
New XElement(v26Namespace + "Manufacturer", VECTOconf.Manufacturer),
New XElement(v26Namespace + "Model", VECTOconf.Model),
New XElement(v26Namespace + "CertificationNumber", VECTOconf.CertNum),
New XElement(v26Namespace + "Date", XmlConvert.ToString(DateTime.Now, XmlDateTimeSerializationMode.Utc)),
New XElement(v26Namespace + "AppVersion", "VECTOAirDrag_" + AppVersx),
New XElement(v26Namespace + "CdxA_0", Math.Round(VECTOconf.CdxA, 2, MidpointRounding.AwayFromZero).ToString("0.00")),
cfdXElements,
New XElement(v26Namespace + "DeltaCdxA_declared", Math.Round((VECTOconf.WorstCase), 2, MidpointRounding.AwayFromZero).ToString("0.00")),
New XElement(v26Namespace + "DeltaTransferredCdxA", Math.Round(VECTOconf.TransfR, 2, MidpointRounding.AwayFromZero).ToString("0.00"))))
End Function
#End Region
End Class
\ No newline at end of file
CSE/IO/cVECTOconfig.vb
+ 32
− 0
View file @ 1f001842
......@@ -37,6 +37,8 @@ Public Class cVECTOconfig
' "CdxA": 0,
' "TransfR": 0,
' "WorstCase": 0,
' "CdxACFD": null,
' "LicenseNumberMethodCFD": "",
' }</json>.Value)
End Function
......@@ -92,6 +94,18 @@ Public Class cVECTOconfig
"default": 0,
"description": "The Delta CdxA - worst case parent",
},
"LicenseNumberMethodCFD": {
"title": "License Number Method CFD",
"type": ["string", "null"],
"default": null,
"description": "The License Number Method CFD.",
},
"CdxACFD": {
"title": "Delta CdxA - CFD",
"type": "number",
"default": null,
"description": "The Delta CdxA - CFD",
},
}
}</json>.Value
End Function
......@@ -194,5 +208,23 @@ Public Class cVECTOconfig
End Set
End Property
Public Property LicenseNumberMethodCFD As String
Get
Return PropOrDefault(".LicenseNumberMethodCFD")
End Get
Set(ByVal value As String)
Me.Body("LicenseNumberMethodCFD") = value
End Set
End Property
Public Property CdxACFD As Double?
Get
Return PropOrDefault(".CdxACFD")
End Get
Set(ByVal value As Double?)
Me.Body("CdxACFD") = value
End Set
End Property
#End Region ' "json props"
End Class
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

For further information about the platform and support, please see https://code.europa.eu/info/about