Files
ADMIN/DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.Designer.vb
2026-04-27 08:16:27 +02:00

3727 lines
142 KiB
VB.net

'' ------------------------------------------------------------------------------
'' <auto-generated>
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
'' {"TargetFramework":"Net48","NameSpace":"SummarischeAnmeldung_001","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
'' </auto-generated>
'' ------------------------------------------------------------------------------
#Disable Warning
Imports System
Imports System.Diagnostics
Imports System.Xml.Serialization
Imports System.Runtime.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel
Imports System.Xml
Imports System.IO
Imports System.Text
Imports System.Collections.Generic
Namespace SummarischeAnmeldung_001
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code"),
XmlRoot("SummarischeAnmeldung", [Namespace]:="", IsNullable:=False)>
Partial Public Class SummarischeAnmeldungVVTyp
Inherits DatenaustauschSumAInTyp
#Region "Private fields"
Private _einzelSummarischeAnmeldung As EinzelSummarischeAnmledungTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._einzelSummarischeAnmeldung = New EinzelSummarischeAnmledungTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EinzelSummarischeAnmeldung() As EinzelSummarischeAnmledungTyp
Get
Return Me._einzelSummarischeAnmeldung
End Get
Set
Me._einzelSummarischeAnmeldung = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SummarischeAnmeldungVVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize SummarischeAnmeldungVVTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes SummarischeAnmeldungVVTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output SummarischeAnmeldungVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SummarischeAnmeldungVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SummarischeAnmeldungVVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SummarischeAnmeldungVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As SummarischeAnmeldungVVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SummarischeAnmeldungVVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As SummarischeAnmeldungVVTyp
Return CType(SerializerXml.Deserialize(s), SummarischeAnmeldungVVTyp)
End Function
#End Region
''' <summary>
''' Serializes current SummarischeAnmeldungVVTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an SummarischeAnmeldungVVTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output SummarischeAnmeldungVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SummarischeAnmeldungVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, SummarischeAnmeldungVVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SummarischeAnmeldungVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SummarischeAnmeldungVVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class EinzelSummarischeAnmledungTyp
#Region "Private fields"
Private _objektIdentifizierung As ObjektIdentifizierungVVTyp
Private _kopfDaten As KopfDatenSummarischeAnmeldungTyp
Private _position As List(Of PositionSummarischeAnmeldungTyp)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._position = New List(Of PositionSummarischeAnmeldungTyp)()
Me._kopfDaten = New KopfDatenSummarischeAnmeldungTyp()
Me._objektIdentifizierung = New ObjektIdentifizierungVVTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ObjektIdentifizierung() As ObjektIdentifizierungVVTyp
Get
Return Me._objektIdentifizierung
End Get
Set
Me._objektIdentifizierung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KopfDaten() As KopfDatenSummarischeAnmeldungTyp
Get
Return Me._kopfDaten
End Get
Set
Me._kopfDaten = Value
End Set
End Property
<XmlElement("Position", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Position() As List(Of PositionSummarischeAnmeldungTyp)
Get
Return Me._position
End Get
Set
Me._position = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelSummarischeAnmledungTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize EinzelSummarischeAnmledungTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes EinzelSummarischeAnmledungTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output EinzelSummarischeAnmledungTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSummarischeAnmledungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelSummarischeAnmledungTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSummarischeAnmledungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelSummarischeAnmledungTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelSummarischeAnmledungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelSummarischeAnmledungTyp
Return CType(SerializerXml.Deserialize(s), EinzelSummarischeAnmledungTyp)
End Function
#End Region
''' <summary>
''' Serializes current EinzelSummarischeAnmledungTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an EinzelSummarischeAnmledungTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output EinzelSummarischeAnmledungTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelSummarischeAnmledungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, EinzelSummarischeAnmledungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelSummarischeAnmledungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelSummarischeAnmledungTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ObjektIdentifizierungVVTyp
#Region "Private fields"
Private _objektName As String
Private _objektAliasname As String
Private _bezugsnummerVorblendung As String
Private _kopieVon As String
Private _objektAktion As List(Of String)
Private _compliancePruefung As String
Private _bearbeiter As String
Private _shipmentReferenz As String
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._objektAktion = New List(Of String)()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ObjektName() As String
Get
Return Me._objektName
End Get
Set
Me._objektName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ObjektAliasname() As String
Get
Return Me._objektAliasname
End Get
Set
Me._objektAliasname = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BezugsnummerVorblendung() As String
Get
Return Me._bezugsnummerVorblendung
End Get
Set
Me._bezugsnummerVorblendung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KopieVon() As String
Get
Return Me._kopieVon
End Get
Set
Me._kopieVon = Value
End Set
End Property
<XmlElement("ObjektAktion", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ObjektAktion() As List(Of String)
Get
Return Me._objektAktion
End Get
Set
Me._objektAktion = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property CompliancePruefung() As String
Get
Return Me._compliancePruefung
End Get
Set
Me._compliancePruefung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Bearbeiter() As String
Get
Return Me._bearbeiter
End Get
Set
Me._bearbeiter = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ShipmentReferenz() As String
Get
Return Me._shipmentReferenz
End Get
Set
Me._shipmentReferenz = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungVVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ObjektIdentifizierungVVTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ObjektIdentifizierungVVTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ObjektIdentifizierungVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungVVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungVVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungVVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungVVTyp
Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungVVTyp)
End Function
#End Region
''' <summary>
''' Serializes current ObjektIdentifizierungVVTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ObjektIdentifizierungVVTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ObjektIdentifizierungVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ObjektIdentifizierungVVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungVVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class PostbehaelterVVTyp
#Region "Private fields"
Private _postbehaelterID As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PostbehaelterID() As String
Get
Return Me._postbehaelterID
End Get
Set
Me._postbehaelterID = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PostbehaelterVVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize PostbehaelterVVTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes PostbehaelterVVTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PostbehaelterVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PostbehaelterVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PostbehaelterVVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PostbehaelterVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PostbehaelterVVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PostbehaelterVVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As PostbehaelterVVTyp
Return CType(SerializerXml.Deserialize(s), PostbehaelterVVTyp)
End Function
#End Region
''' <summary>
''' Serializes current PostbehaelterVVTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an PostbehaelterVVTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PostbehaelterVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PostbehaelterVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PostbehaelterVVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PostbehaelterVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PostbehaelterVVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class TransportausruestungVVTyp
#Region "Private fields"
Private _containernummer As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Containernummer() As String
Get
Return Me._containernummer
End Get
Set
Me._containernummer = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportausruestungVVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize TransportausruestungVVTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes TransportausruestungVVTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TransportausruestungVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportausruestungVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportausruestungVVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportausruestungVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransportausruestungVVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportausruestungVVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportausruestungVVTyp
Return CType(SerializerXml.Deserialize(s), TransportausruestungVVTyp)
End Function
#End Region
''' <summary>
''' Serializes current TransportausruestungVVTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an TransportausruestungVVTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TransportausruestungVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportausruestungVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportausruestungVVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportausruestungVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportausruestungVVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class TransportdokumentSammelsendungVVTyp
#Region "Private fields"
Private _art As String
Private _nummer As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Art() As String
Get
Return Me._art
End Get
Set
Me._art = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Nummer() As String
Get
Return Me._nummer
End Get
Set
Me._nummer = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportdokumentSammelsendungVVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize TransportdokumentSammelsendungVVTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes TransportdokumentSammelsendungVVTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TransportdokumentSammelsendungVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportdokumentSammelsendungVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportdokumentSammelsendungVVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportdokumentSammelsendungVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransportdokumentSammelsendungVVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportdokumentSammelsendungVVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportdokumentSammelsendungVVTyp
Return CType(SerializerXml.Deserialize(s), TransportdokumentSammelsendungVVTyp)
End Function
#End Region
''' <summary>
''' Serializes current TransportdokumentSammelsendungVVTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an TransportdokumentSammelsendungVVTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TransportdokumentSammelsendungVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportdokumentSammelsendungVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportdokumentSammelsendungVVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportdokumentSammelsendungVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportdokumentSammelsendungVVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class TransportdokumentVVTyp
#Region "Private fields"
Private _art As String
Private _nummer As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Art() As String
Get
Return Me._art
End Get
Set
Me._art = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Nummer() As String
Get
Return Me._nummer
End Get
Set
Me._nummer = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransportdokumentVVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize TransportdokumentVVTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes TransportdokumentVVTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TransportdokumentVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportdokumentVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportdokumentVVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransportdokumentVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransportdokumentVVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransportdokumentVVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransportdokumentVVTyp
Return CType(SerializerXml.Deserialize(s), TransportdokumentVVTyp)
End Function
#End Region
''' <summary>
''' Serializes current TransportdokumentVVTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an TransportdokumentVVTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TransportdokumentVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportdokumentVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransportdokumentVVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransportdokumentVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransportdokumentVVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class PositionSummarischeAnmeldungTyp
#Region "Private fields"
Private _positionsnummer As String
Private _versendungsland As String
Private _bestimmungsort As String
Private _zollStatusWare As String
Private _artSpO As String
Private _spezifischerOrdnungsbegriff As String
Private _artPackstuecke As String
Private _stueckzahl As String
Private _rohmasse As String
Private _warenbeschreibung As String
Private _warenkreis As String
Private _verwahrerEORI As String
Private _verwahrerNLNR As String
Private _verwahrer As String
Private _schluesselVerwahrungsort As String
Private _verwahrerBewilligung As String
Private _verfuegungsberechtigterEORI As String
Private _verfuegungsberechtigterNLNR As String
Private _verfuegungsberechtigter As String
Private _unterdrueckungVerwahrungsmitteilung As String
Private _mRNEingangSumA As String
Private _mRNPosition As String
Private _kZFreizone As String
Private _poUSMRN As String
Private _poUSPositionsnummer As String
Private _transportdokument As TransportdokumentVVTyp
Private _transportdokumentSammelsendung As TransportdokumentSammelsendungVVTyp
Private _befoerdererEORI As String
Private _transportausruestung As TransportausruestungVVTyp
Private _postbehaelter As PostbehaelterVVTyp
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
Me._postbehaelter = New PostbehaelterVVTyp()
Me._transportausruestung = New TransportausruestungVVTyp()
Me._transportdokumentSammelsendung = New TransportdokumentSammelsendungVVTyp()
Me._transportdokument = New TransportdokumentVVTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Positionsnummer() As String
Get
Return Me._positionsnummer
End Get
Set
Me._positionsnummer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Versendungsland() As String
Get
Return Me._versendungsland
End Get
Set
Me._versendungsland = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Bestimmungsort() As String
Get
Return Me._bestimmungsort
End Get
Set
Me._bestimmungsort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZollStatusWare() As String
Get
Return Me._zollStatusWare
End Get
Set
Me._zollStatusWare = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ArtSpO() As String
Get
Return Me._artSpO
End Get
Set
Me._artSpO = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SpezifischerOrdnungsbegriff() As String
Get
Return Me._spezifischerOrdnungsbegriff
End Get
Set
Me._spezifischerOrdnungsbegriff = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ArtPackstuecke() As String
Get
Return Me._artPackstuecke
End Get
Set
Me._artPackstuecke = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Stueckzahl() As String
Get
Return Me._stueckzahl
End Get
Set
Me._stueckzahl = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Rohmasse() As String
Get
Return Me._rohmasse
End Get
Set
Me._rohmasse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Warenbeschreibung() As String
Get
Return Me._warenbeschreibung
End Get
Set
Me._warenbeschreibung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Warenkreis() As String
Get
Return Me._warenkreis
End Get
Set
Me._warenkreis = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerwahrerEORI() As String
Get
Return Me._verwahrerEORI
End Get
Set
Me._verwahrerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerwahrerNLNR() As String
Get
Return Me._verwahrerNLNR
End Get
Set
Me._verwahrerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Verwahrer() As String
Get
Return Me._verwahrer
End Get
Set
Me._verwahrer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SchluesselVerwahrungsort() As String
Get
Return Me._schluesselVerwahrungsort
End Get
Set
Me._schluesselVerwahrungsort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerwahrerBewilligung() As String
Get
Return Me._verwahrerBewilligung
End Get
Set
Me._verwahrerBewilligung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerfuegungsberechtigterEORI() As String
Get
Return Me._verfuegungsberechtigterEORI
End Get
Set
Me._verfuegungsberechtigterEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerfuegungsberechtigterNLNR() As String
Get
Return Me._verfuegungsberechtigterNLNR
End Get
Set
Me._verfuegungsberechtigterNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Verfuegungsberechtigter() As String
Get
Return Me._verfuegungsberechtigter
End Get
Set
Me._verfuegungsberechtigter = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property UnterdrueckungVerwahrungsmitteilung() As String
Get
Return Me._unterdrueckungVerwahrungsmitteilung
End Get
Set
Me._unterdrueckungVerwahrungsmitteilung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property MRNEingangSumA() As String
Get
Return Me._mRNEingangSumA
End Get
Set
Me._mRNEingangSumA = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property MRNPosition() As String
Get
Return Me._mRNPosition
End Get
Set
Me._mRNPosition = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property KZFreizone() As String
Get
Return Me._kZFreizone
End Get
Set
Me._kZFreizone = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PoUSMRN() As String
Get
Return Me._poUSMRN
End Get
Set
Me._poUSMRN = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PoUSPositionsnummer() As String
Get
Return Me._poUSPositionsnummer
End Get
Set
Me._poUSPositionsnummer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Transportdokument() As TransportdokumentVVTyp
Get
Return Me._transportdokument
End Get
Set
Me._transportdokument = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TransportdokumentSammelsendung() As TransportdokumentSammelsendungVVTyp
Get
Return Me._transportdokumentSammelsendung
End Get
Set
Me._transportdokumentSammelsendung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BefoerdererEORI() As String
Get
Return Me._befoerdererEORI
End Get
Set
Me._befoerdererEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Transportausruestung() As TransportausruestungVVTyp
Get
Return Me._transportausruestung
End Get
Set
Me._transportausruestung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Postbehaelter() As PostbehaelterVVTyp
Get
Return Me._postbehaelter
End Get
Set
Me._postbehaelter = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ApplicationInternalData() As ApplicationInternalDataType
Get
Return Me._applicationInternalData
End Get
Set
Me._applicationInternalData = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(PositionSummarischeAnmeldungTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize PositionSummarischeAnmeldungTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes PositionSummarischeAnmeldungTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output PositionSummarischeAnmeldungTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSummarischeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionSummarischeAnmeldungTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSummarischeAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As PositionSummarischeAnmeldungTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionSummarischeAnmeldungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As PositionSummarischeAnmeldungTyp
Return CType(SerializerXml.Deserialize(s), PositionSummarischeAnmeldungTyp)
End Function
#End Region
''' <summary>
''' Serializes current PositionSummarischeAnmeldungTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an PositionSummarischeAnmeldungTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output PositionSummarischeAnmeldungTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSummarischeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, PositionSummarischeAnmeldungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSummarischeAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionSummarischeAnmeldungTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ApplicationInternalDataType
#Region "Private fields"
Private _additionalDetails As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._additionalDetails = New List(Of ApplicationInternalDataAdditionalDetailsDataType)()
End Sub
<XmlArray(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified),
XmlArrayItem("Data", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, IsNullable:=False)>
Public Property AdditionalDetails() As List(Of ApplicationInternalDataAdditionalDetailsDataType)
Get
Return Me._additionalDetails
End Get
Set
Me._additionalDetails = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ApplicationInternalDataType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ApplicationInternalDataType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ApplicationInternalDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataType)
End Function
#End Region
''' <summary>
''' Serializes current ApplicationInternalDataType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ApplicationInternalDataType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ApplicationInternalDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class ApplicationInternalDataAdditionalDetailsDataType
#Region "Private fields"
Private _key As String
Private _value As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Key() As String
Get
Return Me._key
End Get
Set
Me._key = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Value() As String
Get
Return Me._value
End Get
Set
Me._value = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicationInternalDataAdditionalDetailsDataType))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize ApplicationInternalDataAdditionalDetailsDataType object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes ApplicationInternalDataAdditionalDetailsDataType object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicationInternalDataAdditionalDetailsDataType
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicationInternalDataAdditionalDetailsDataType)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicationInternalDataAdditionalDetailsDataType
Return CType(SerializerXml.Deserialize(s), ApplicationInternalDataAdditionalDetailsDataType)
End Function
#End Region
''' <summary>
''' Serializes current ApplicationInternalDataAdditionalDetailsDataType object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an ApplicationInternalDataAdditionalDetailsDataType object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output ApplicationInternalDataAdditionalDetailsDataType object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, ApplicationInternalDataAdditionalDetailsDataType)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicationInternalDataAdditionalDetailsDataType) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicationInternalDataAdditionalDetailsDataType
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class BefoerderungsmittelVVTyp
#Region "Private fields"
Private _artCode As String
Private _beschreibungSonstiges As String
Private _kennzeichen As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ArtCode() As String
Get
Return Me._artCode
End Get
Set
Me._artCode = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BeschreibungSonstiges() As String
Get
Return Me._beschreibungSonstiges
End Get
Set
Me._beschreibungSonstiges = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Kennzeichen() As String
Get
Return Me._kennzeichen
End Get
Set
Me._kennzeichen = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelVVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize BefoerderungsmittelVVTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes BefoerderungsmittelVVTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output BefoerderungsmittelVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BefoerderungsmittelVVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelVVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelVVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As BefoerderungsmittelVVTyp
Return CType(SerializerXml.Deserialize(s), BefoerderungsmittelVVTyp)
End Function
#End Region
''' <summary>
''' Serializes current BefoerderungsmittelVVTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an BefoerderungsmittelVVTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output BefoerderungsmittelVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, BefoerderungsmittelVVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BefoerderungsmittelVVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class AdresseVVTyp
#Region "Private fields"
Private _teilnehmerEORI As String
Private _teilnehmerNLNR As String
Private _zollnummer As String
Private _nameFirma As String
Private _nationalitaet As String
Private _strasseHausnummer As String
Private _postleitzahlS As String
Private _ortS As String
Private _ortsteil As String
Private _postfach As String
Private _postleitzahlP As String
Private _ortP As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerEORI() As String
Get
Return Me._teilnehmerEORI
End Get
Set
Me._teilnehmerEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property TeilnehmerNLNR() As String
Get
Return Me._teilnehmerNLNR
End Get
Set
Me._teilnehmerNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Zollnummer() As String
Get
Return Me._zollnummer
End Get
Set
Me._zollnummer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NameFirma() As String
Get
Return Me._nameFirma
End Get
Set
Me._nameFirma = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Nationalitaet() As String
Get
Return Me._nationalitaet
End Get
Set
Me._nationalitaet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property StrasseHausnummer() As String
Get
Return Me._strasseHausnummer
End Get
Set
Me._strasseHausnummer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PostleitzahlS() As String
Get
Return Me._postleitzahlS
End Get
Set
Me._postleitzahlS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property OrtS() As String
Get
Return Me._ortS
End Get
Set
Me._ortS = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ortsteil() As String
Get
Return Me._ortsteil
End Get
Set
Me._ortsteil = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Postfach() As String
Get
Return Me._postfach
End Get
Set
Me._postfach = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property PostleitzahlP() As String
Get
Return Me._postleitzahlP
End Get
Set
Me._postleitzahlP = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property OrtP() As String
Get
Return Me._ortP
End Get
Set
Me._ortP = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdresseVVTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize AdresseVVTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes AdresseVVTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output AdresseVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdresseVVTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseVVTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdresseVVTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As AdresseVVTyp
Return CType(SerializerXml.Deserialize(s), AdresseVVTyp)
End Function
#End Region
''' <summary>
''' Serializes current AdresseVVTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an AdresseVVTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output AdresseVVTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseVVTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, AdresseVVTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseVVTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdresseVVTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class KopfDatenSummarischeAnmeldungTyp
#Region "Private fields"
Private _dienststelle As String
Private _gestellender As AdresseVVTyp
Private _vertreterEORI As String
Private _vertreterNLNR As String
Private _vertreter As String
Private _bearbeiterName As String
Private _bearbeiterStellungFirma As String
Private _bearbeiterTelefonNr As String
Private _bearbeiterEmailAdresse As String
Private _vorzeitigKz As String
Private _gestellungsdatum As Date
Private _gestellungsuhrzeit As Date
Private _nCTSVersandKz As String
Private _seeverkehrKz As String
Private _befoerderungsmittel As BefoerderungsmittelVVTyp
Private _nummerBefoerderung As String
Private _ankunftsdatum As String
Private _abgangsstelleBeladeort As String
Private _gesamtContainerAnz As String
Private _vorpapierart As String
Private _vorpapiernummer As String
Private _verkehrszweigGrenze As String
Private _ersteEingangsZollstelleAngemeldet As String
Private _ersteEingangsZollstelleKennzeichen As String
Private _zusatzAngabenAnmeldung As String
Private _applicationInternalData As ApplicationInternalDataType
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._applicationInternalData = New ApplicationInternalDataType()
Me._befoerderungsmittel = New BefoerderungsmittelVVTyp()
Me._gestellender = New AdresseVVTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Dienststelle() As String
Get
Return Me._dienststelle
End Get
Set
Me._dienststelle = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Gestellender() As AdresseVVTyp
Get
Return Me._gestellender
End Get
Set
Me._gestellender = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterEORI() As String
Get
Return Me._vertreterEORI
End Get
Set
Me._vertreterEORI = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VertreterNLNR() As String
Get
Return Me._vertreterNLNR
End Get
Set
Me._vertreterNLNR = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Vertreter() As String
Get
Return Me._vertreter
End Get
Set
Me._vertreter = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BearbeiterName() As String
Get
Return Me._bearbeiterName
End Get
Set
Me._bearbeiterName = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BearbeiterStellungFirma() As String
Get
Return Me._bearbeiterStellungFirma
End Get
Set
Me._bearbeiterStellungFirma = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BearbeiterTelefonNr() As String
Get
Return Me._bearbeiterTelefonNr
End Get
Set
Me._bearbeiterTelefonNr = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property BearbeiterEmailAdresse() As String
Get
Return Me._bearbeiterEmailAdresse
End Get
Set
Me._bearbeiterEmailAdresse = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VorzeitigKz() As String
Get
Return Me._vorzeitigKz
End Get
Set
Me._vorzeitigKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
Public Property Gestellungsdatum() As Date
Get
Return Me._gestellungsdatum
End Get
Set
Me._gestellungsdatum = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="time")>
Public Property Gestellungsuhrzeit() As Date
Get
Return Me._gestellungsuhrzeit
End Get
Set
Me._gestellungsuhrzeit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NCTSVersandKz() As String
Get
Return Me._nCTSVersandKz
End Get
Set
Me._nCTSVersandKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property SeeverkehrKz() As String
Get
Return Me._seeverkehrKz
End Get
Set
Me._seeverkehrKz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Befoerderungsmittel() As BefoerderungsmittelVVTyp
Get
Return Me._befoerderungsmittel
End Get
Set
Me._befoerderungsmittel = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NummerBefoerderung() As String
Get
Return Me._nummerBefoerderung
End Get
Set
Me._nummerBefoerderung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ankunftsdatum() As String
Get
Return Me._ankunftsdatum
End Get
Set
Me._ankunftsdatum = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AbgangsstelleBeladeort() As String
Get
Return Me._abgangsstelleBeladeort
End Get
Set
Me._abgangsstelleBeladeort = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property GesamtContainerAnz() As String
Get
Return Me._gesamtContainerAnz
End Get
Set
Me._gesamtContainerAnz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Vorpapierart() As String
Get
Return Me._vorpapierart
End Get
Set
Me._vorpapierart = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Vorpapiernummer() As String
Get
Return Me._vorpapiernummer
End Get
Set
Me._vorpapiernummer = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property VerkehrszweigGrenze() As String
Get
Return Me._verkehrszweigGrenze
End Get
Set
Me._verkehrszweigGrenze = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ErsteEingangsZollstelleAngemeldet() As String
Get
Return Me._ersteEingangsZollstelleAngemeldet
End Get
Set
Me._ersteEingangsZollstelleAngemeldet = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ErsteEingangsZollstelleKennzeichen() As String
Get
Return Me._ersteEingangsZollstelleKennzeichen
End Get
Set
Me._ersteEingangsZollstelleKennzeichen = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZusatzAngabenAnmeldung() As String
Get
Return Me._zusatzAngabenAnmeldung
End Get
Set
Me._zusatzAngabenAnmeldung = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ApplicationInternalData() As ApplicationInternalDataType
Get
Return Me._applicationInternalData
End Get
Set
Me._applicationInternalData = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenSummarischeAnmeldungTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize KopfDatenSummarischeAnmeldungTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes KopfDatenSummarischeAnmeldungTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output KopfDatenSummarischeAnmeldungTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSummarischeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenSummarischeAnmeldungTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSummarischeAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenSummarischeAnmeldungTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenSummarischeAnmeldungTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenSummarischeAnmeldungTyp
Return CType(SerializerXml.Deserialize(s), KopfDatenSummarischeAnmeldungTyp)
End Function
#End Region
''' <summary>
''' Serializes current KopfDatenSummarischeAnmeldungTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an KopfDatenSummarischeAnmeldungTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output KopfDatenSummarischeAnmeldungTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenSummarischeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, KopfDatenSummarischeAnmeldungTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenSummarischeAnmeldungTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenSummarischeAnmeldungTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class TransaktionSumAInTyp
#Region "Private fields"
Private _iOPartner As String
Private _iODivision1 As String
Private _iODivision2 As String
Private _iODivision3 As String
Private _iOReferenz As String
Private _iODatumZeit As Date
Private _version As String
Private Shared _serializerXml As XmlSerializer
#End Region
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IOPartner() As String
Get
Return Me._iOPartner
End Get
Set
Me._iOPartner = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODivision1() As String
Get
Return Me._iODivision1
End Get
Set
Me._iODivision1 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODivision2() As String
Get
Return Me._iODivision2
End Get
Set
Me._iODivision2 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODivision3() As String
Get
Return Me._iODivision3
End Get
Set
Me._iODivision3 = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IOReferenz() As String
Get
Return Me._iOReferenz
End Get
Set
Me._iOReferenz = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IODatumZeit() As Date
Get
Return Me._iODatumZeit
End Get
Set
Me._iODatumZeit = Value
End Set
End Property
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="nonNegativeInteger")>
Public Property Version() As String
Get
Return Me._version
End Get
Set
Me._version = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionSumAInTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize TransaktionSumAInTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes TransaktionSumAInTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output TransaktionSumAInTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAInTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionSumAInTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAInTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionSumAInTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionSumAInTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionSumAInTyp
Return CType(SerializerXml.Deserialize(s), TransaktionSumAInTyp)
End Function
#End Region
''' <summary>
''' Serializes current TransaktionSumAInTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an TransaktionSumAInTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output TransaktionSumAInTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionSumAInTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, TransaktionSumAInTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionSumAInTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionSumAInTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<XmlIncludeAttribute(GetType(SummarischeAnmeldungVVTyp)),
System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9221.0"),
System.Serializable,
DebuggerStepThrough,
DesignerCategoryAttribute("code")>
Partial Public Class DatenaustauschSumAInTyp
#Region "Private fields"
Private _transaktion As TransaktionSumAInTyp
Private Shared _serializerXml As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._transaktion = New TransaktionSumAInTyp()
End Sub
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Transaktion() As TransaktionSumAInTyp
Get
Return Me._transaktion
End Get
Set
Me._transaktion = Value
End Set
End Property
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
Get
If (_serializerXml Is Nothing) Then
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschSumAInTyp))
End If
Return _serializerXml
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serialize DatenaustauschSumAInTyp object
''' </summary>
''' <returns>XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As StreamReader = Nothing
Dim memoryStream As MemoryStream = Nothing
Try
memoryStream = New MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
SerializerXml.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes DatenaustauschSumAInTyp object
''' </summary>
''' <param name="input">string to deserialize</param>
''' <param name="obj">Output DatenaustauschSumAInTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAInTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschSumAInTyp)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAInTyp) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschSumAInTyp
Dim stringReader As StringReader = Nothing
Try
stringReader = New StringReader(input)
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschSumAInTyp)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschSumAInTyp
Return CType(SerializerXml.Deserialize(s), DatenaustauschSumAInTyp)
End Function
#End Region
''' <summary>
''' Serializes current DatenaustauschSumAInTyp object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As StreamWriter = Nothing
Try
Dim dataString As String = Serialize()
Dim outputFile As FileInfo = New FileInfo(fileName)
streamWriter = outputFile.CreateText
streamWriter.WriteLine(dataString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an DatenaustauschSumAInTyp object
''' </summary>
''' <param name="fileName">File to load and deserialize</param>
''' <param name="obj">Output DatenaustauschSumAInTyp object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschSumAInTyp, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, DatenaustauschSumAInTyp)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschSumAInTyp) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschSumAInTyp
Dim file As FileStream = Nothing
Dim sr As StreamReader = Nothing
Try
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(file)
Dim dataString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(dataString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
End Namespace
#Enable Warning