edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

klassen für ens angepasst

Browse Source
This commit is contained in:
m.ilhan
2025-03-19 15:33:35 +01:00
parent d5e9ecbd84
commit 255f7a50f4
8 changed files with 1932 additions and 213 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC315A-v11-2.Designer.vb generated
View File

@@ -224,6 +224,7 @@ Namespace ENS_CC315A
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CUSOFFLON() As CUSOFFLONType
Get
@@ -264,6 +265,7 @@ Namespace ENS_CC315A
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CUSOFFFENT730() As CUSOFFFENT730Type
Get
@@ -284,6 +286,7 @@ Namespace ENS_CC315A
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRACARENT601() As TRACARENT601Type
Get
@@ -307,28 +310,28 @@ Namespace ENS_CC315A
''' Test whether GOOITEGDS should be serialized
''' </summary>
Public Overridable Function ShouldSerializeGOOITEGDS() As Boolean
Return GOOITEGDS IsNot Nothing And GOOITEGDS.Count > 0
Return GOOITEGDS IsNot Nothing AndAlso GOOITEGDS.Count > 0
End Function
''' <summary>
''' Test whether ITI should be serialized
''' </summary>
Public Overridable Function ShouldSerializeITI() As Boolean
Return ITI IsNot Nothing And ITI.Count > 0
Return ITI IsNot Nothing AndAlso ITI.Count > 0
End Function
''' <summary>
''' Test whether SEAID529 should be serialized
''' </summary>
Public Overridable Function ShouldSerializeSEAID529() As Boolean
Return SEAID529 IsNot Nothing And SEAID529.Count > 0
Return SEAID529 IsNot Nothing AndAlso SEAID529.Count > 0
End Function
''' <summary>
''' Test whether CUSOFFSENT740 should be serialized
''' </summary>
Public Overridable Function ShouldSerializeCUSOFFSENT740() As Boolean
Return CUSOFFSENT740 IsNot Nothing And CUSOFFSENT740.Count > 0
Return CUSOFFSENT740 IsNot Nothing AndAlso CUSOFFSENT740.Count > 0
End Function
''' <summary>
@@ -463,17 +466,24 @@ Namespace ENS_CC315A
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriterSettings As New System.Xml.XmlWriterSettings()
xmlWriterSettings.Encoding = encoding
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
xmlWriterSettings.NewLineOnAttributes = True
' Optional: Entfernen Sie NewLineOnAttributes, wenn es zu ungewollter Formatierung f<>hrt.
xmlWriterSettings.OmitXmlDeclaration = True
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
' Erstelle ein Namespace-Objekt mit dem gew<65>nschten Pr<50>fix <20> es wird nur im Root-Element deklariert.
Dim ns As New XmlSerializerNamespaces()
ns.Add("ie", "http://ics.dgtaxud.ec/CC315A")
' <20>bergib das ns-Objekt beim Serialisieren
SerializerXml.Serialize(xmlWriter, Me, ns)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream, encoding)
Return streamReader.ReadToEnd
Return streamReader.ReadToEnd()
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
@@ -484,6 +494,7 @@ Namespace ENS_CC315A
End Try
End Function
Public Overridable Overloads Function Serialize() As String
Return Serialize(System.Text.Encoding.UTF8)
End Function
@@ -3599,74 +3610,69 @@ Namespace ENS_CC315A
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlType([Namespace]:="http://ics.dgtaxud.ec/complex_ics")>
DesignerCategoryAttribute("code")>
Partial Public Class PACGS2Type
#Region "Private fields"
Private _kinOfPacGS23 As String
Private _numOfPacGS24 As String
Private _numOfPieGS25 As String
Private _marNumOfPacGSL21 As String
Private _marNumOfPacGSL21LNG As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token", Order:=1)>
Public Property KinOfPacGS23() As String
Get
Return Me._kinOfPacGS23
End Get
Set
Me._kinOfPacGS23 = Value
Set(ByVal value As String)
Me._kinOfPacGS23 = value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token", Order:=2)>
Public Property NumOfPacGS24() As String
Get
Return Me._numOfPacGS24
End Get
Set
Me._numOfPacGS24 = Value
Set(ByVal value As String)
Me._numOfPacGS24 = value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token", Order:=3)>
Public Property NumOfPieGS25() As String
Get
Return Me._numOfPieGS25
End Get
Set
Me._numOfPieGS25 = Value
Set(ByVal value As String)
Me._numOfPieGS25 = value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token", Order:=4)>
Public Property MarNumOfPacGSL21() As String
Get
Return Me._marNumOfPacGSL21
End Get
Set
Me._marNumOfPacGSL21 = Value
Set(ByVal value As String)
Me._marNumOfPacGSL21 = value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token", Order:=5)>
Public Property MarNumOfPacGSL21LNG() As String
Get
Return Me._marNumOfPacGSL21LNG
End Get
Set
Me._marNumOfPacGSL21LNG = Value
Set(ByVal value As String)
Me._marNumOfPacGSL21LNG = value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
@@ -5396,40 +5402,37 @@ Namespace ENS_CC315A
#Region "Private fields"
Private _docTypDC21 As String
Private _docRefDC23 As String
Private _docRefDCLNG As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token", Order:=1)>
Public Property DocTypDC21() As String
Get
Return Me._docTypDC21
End Get
Set
Set(ByVal Value As String)
Me._docTypDC21 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token", Order:=2)>
Public Property DocRefDC23() As String
Get
Return Me._docRefDC23
End Get
Set
Set(ByVal Value As String)
Me._docRefDC23 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token", Order:=3)>
Public Property DocRefDCLNG() As String
Get
Return Me._docRefDCLNG
End Get
Set
Set(ByVal Value As String)
Me._docRefDCLNG = Value
End Set
End Property
@@ -5816,6 +5819,7 @@ Namespace ENS_CC315A
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TRACONCO2() As TRACONCO2Type
Get
@@ -5899,35 +5903,35 @@ Namespace ENS_CC315A
''' Test whether PRODOCDC2 should be serialized
''' </summary>
Public Overridable Function ShouldSerializePRODOCDC2() As Boolean
Return PRODOCDC2 IsNot Nothing And PRODOCDC2.Count > 0
Return PRODOCDC2 IsNot Nothing AndAlso PRODOCDC2.Count > 0
End Function
''' <summary>
''' Test whether SPEMENMT2 should be serialized
''' </summary>
Public Overridable Function ShouldSerializeSPEMENMT2() As Boolean
Return SPEMENMT2 IsNot Nothing And SPEMENMT2.Count > 0
Return SPEMENMT2 IsNot Nothing AndAlso SPEMENMT2.Count > 0
End Function
''' <summary>
''' Test whether CONNR2 should be serialized
''' </summary>
Public Overridable Function ShouldSerializeCONNR2() As Boolean
Return CONNR2 IsNot Nothing And CONNR2.Count > 0
Return CONNR2 IsNot Nothing AndAlso CONNR2.Count > 0
End Function
''' <summary>
''' Test whether IDEMEATRAGI970 should be serialized
''' </summary>
Public Overridable Function ShouldSerializeIDEMEATRAGI970() As Boolean
Return IDEMEATRAGI970 IsNot Nothing And IDEMEATRAGI970.Count > 0
Return IDEMEATRAGI970 IsNot Nothing AndAlso IDEMEATRAGI970.Count > 0
End Function
''' <summary>
''' Test whether PACGS2 should be serialized
''' </summary>
Public Overridable Function ShouldSerializePACGS2() As Boolean
Return PACGS2 IsNot Nothing And PACGS2.Count > 0
Return PACGS2 IsNot Nothing AndAlso PACGS2.Count > 0
End Function
''' <summary>