8767 lines
325 KiB
VB.net
8767 lines
325 KiB
VB.net
'' ------------------------------------------------------------------------------
|
|
'' <auto-generated>
|
|
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
|
|
'' {"TargetFramework":"Net48","NameSpace":"FreierVerkehrAktVeredelUmwandlung_004","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true,"NewLineOnAttributes":true},"JsonOutput":{},"Enabled":true,"DefaultEncoder":"ASCII"},"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 FreierVerkehrAktVeredelUmwandlung_004
|
|
|
|
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code"),
|
|
XmlRoot("FreierVerkehrAktVeredelUmwandlung", [Namespace]:="", IsNullable:=False)>
|
|
Partial Public Class FreierVerkehrAktVeredelUmwandlungAVUVTyp
|
|
Inherits DatenaustauschFreierVerkehrTyp
|
|
|
|
#Region "Private fields"
|
|
Private _einzelAnmeldung As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me._einzelAnmeldung = New List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)()
|
|
End Sub
|
|
|
|
<XmlElement("EinzelAnmeldung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property EinzelAnmeldung() As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
Get
|
|
Return Me._einzelAnmeldung
|
|
End Get
|
|
Set
|
|
Me._einzelAnmeldung = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FreierVerkehrAktVeredelUmwandlungAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize FreierVerkehrAktVeredelUmwandlungAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 FreierVerkehrAktVeredelUmwandlungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output FreierVerkehrAktVeredelUmwandlungAVUVTyp 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp)
|
|
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 FreierVerkehrAktVeredelUmwandlungAVUVTyp) 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FreierVerkehrAktVeredelUmwandlungAVUVTyp)
|
|
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 FreierVerkehrAktVeredelUmwandlungAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), FreierVerkehrAktVeredelUmwandlungAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output FreierVerkehrAktVeredelUmwandlungAVUVTyp 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp)
|
|
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 FreierVerkehrAktVeredelUmwandlungAVUVTyp) 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 FreierVerkehrAktVeredelUmwandlungAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class EinzelEinfuhrUnvollstaendigeAnmeldungTyp
|
|
|
|
#Region "Private fields"
|
|
Private _objektIdentifizierung As ObjektIdentifizierungAVUVTyp
|
|
|
|
Private _kopfDaten As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp
|
|
|
|
Private _warenPosition As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me._warenPosition = New List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)()
|
|
Me._kopfDaten = New KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp()
|
|
Me._objektIdentifizierung = New ObjektIdentifizierungAVUVTyp()
|
|
End Sub
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ObjektIdentifizierung() As ObjektIdentifizierungAVUVTyp
|
|
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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp
|
|
Get
|
|
Return Me._kopfDaten
|
|
End Get
|
|
Set
|
|
Me._kopfDaten = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("WarenPosition", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenPosition() As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
Get
|
|
Return Me._warenPosition
|
|
End Get
|
|
Set
|
|
Me._warenPosition = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEinfuhrUnvollstaendigeAnmeldungTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize EinzelEinfuhrUnvollstaendigeAnmeldungTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp) 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp
|
|
Return CType(SerializerXml.Deserialize(s), EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp) 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 EinzelEinfuhrUnvollstaendigeAnmeldungTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class ObjektIdentifizierungAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _objektName As String
|
|
|
|
Private _objektAlias As String
|
|
|
|
Private _anmeldungArt As String
|
|
|
|
Private _objektQuittung As String
|
|
|
|
Private _bezugsnummerVorblendung As String
|
|
|
|
Private _userVorblendung As String
|
|
|
|
Private _kopieVon As String
|
|
|
|
Private _objektAktion As List(Of String)
|
|
|
|
Private _compliancePruefung As String
|
|
|
|
Private _bearbeiter As String
|
|
|
|
Private _anfBemerkungStatusanzeige As String
|
|
|
|
Private _absenderSystemName 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 ObjektAlias() As String
|
|
Get
|
|
Return Me._objektAlias
|
|
End Get
|
|
Set
|
|
Me._objektAlias = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AnmeldungArt() As String
|
|
Get
|
|
Return Me._anmeldungArt
|
|
End Get
|
|
Set
|
|
Me._anmeldungArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ObjektQuittung() As String
|
|
Get
|
|
Return Me._objektQuittung
|
|
End Get
|
|
Set
|
|
Me._objektQuittung = 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 UserVorblendung() As String
|
|
Get
|
|
Return Me._userVorblendung
|
|
End Get
|
|
Set
|
|
Me._userVorblendung = 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 AnfBemerkungStatusanzeige() As String
|
|
Get
|
|
Return Me._anfBemerkungStatusanzeige
|
|
End Get
|
|
Set
|
|
Me._anfBemerkungStatusanzeige = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AbsenderSystemName() As String
|
|
Get
|
|
Return Me._absenderSystemName
|
|
End Get
|
|
Set
|
|
Me._absenderSystemName = 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(ObjektIdentifizierungAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize ObjektIdentifizierungAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 ObjektIdentifizierungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output ObjektIdentifizierungAVUVTyp 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 ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ObjektIdentifizierungAVUVTyp)
|
|
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 ObjektIdentifizierungAVUVTyp) 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 ObjektIdentifizierungAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungAVUVTyp)
|
|
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 ObjektIdentifizierungAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current ObjektIdentifizierungAVUVTyp 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 ObjektIdentifizierungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output ObjektIdentifizierungAVUVTyp 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 ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ObjektIdentifizierungAVUVTyp)
|
|
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 ObjektIdentifizierungAVUVTyp) 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 ObjektIdentifizierungAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class AussenhandelsstatistikAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _verkehrszweigInland As String
|
|
|
|
Private _verkehrszweigGrenze As String
|
|
|
|
Private _versendungsland As String
|
|
|
|
Private _bestimmungsbundesland As String
|
|
|
|
Private _bestimmungsland As String
|
|
|
|
Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String
|
|
|
|
Private _befoerderungsmittelGrenzeArt As String
|
|
|
|
Private _befoerderungsmittelBeschreibung As String
|
|
|
|
Private _artGeschaeft As String
|
|
|
|
Private _statistikstatus As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerkehrszweigInland() As String
|
|
Get
|
|
Return Me._verkehrszweigInland
|
|
End Get
|
|
Set
|
|
Me._verkehrszweigInland = 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 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 Bestimmungsbundesland() As String
|
|
Get
|
|
Return Me._bestimmungsbundesland
|
|
End Get
|
|
Set
|
|
Me._bestimmungsbundesland = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Bestimmungsland() As String
|
|
Get
|
|
Return Me._bestimmungsland
|
|
End Get
|
|
Set
|
|
Me._bestimmungsland = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String
|
|
Get
|
|
Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode
|
|
End Get
|
|
Set
|
|
Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BefoerderungsmittelGrenzeArt() As String
|
|
Get
|
|
Return Me._befoerderungsmittelGrenzeArt
|
|
End Get
|
|
Set
|
|
Me._befoerderungsmittelGrenzeArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BefoerderungsmittelBeschreibung() As String
|
|
Get
|
|
Return Me._befoerderungsmittelBeschreibung
|
|
End Get
|
|
Set
|
|
Me._befoerderungsmittelBeschreibung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ArtGeschaeft() As String
|
|
Get
|
|
Return Me._artGeschaeft
|
|
End Get
|
|
Set
|
|
Me._artGeschaeft = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Statistikstatus() As String
|
|
Get
|
|
Return Me._statistikstatus
|
|
End Get
|
|
Set
|
|
Me._statistikstatus = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AussenhandelsstatistikAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize AussenhandelsstatistikAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 AussenhandelsstatistikAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output AussenhandelsstatistikAVUVTyp 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 AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AussenhandelsstatistikAVUVTyp)
|
|
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 AussenhandelsstatistikAVUVTyp) 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 AussenhandelsstatistikAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AussenhandelsstatistikAVUVTyp)
|
|
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 AussenhandelsstatistikAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), AussenhandelsstatistikAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current AussenhandelsstatistikAVUVTyp 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 AussenhandelsstatistikAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output AussenhandelsstatistikAVUVTyp 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 AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AussenhandelsstatistikAVUVTyp)
|
|
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 AussenhandelsstatistikAVUVTyp) 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 AussenhandelsstatistikAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class AbzugHinzurechnungAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _artCode As String
|
|
|
|
Private _beschreibungAndereZahlungen As String
|
|
|
|
Private _betrag As String
|
|
|
|
Private _waehrung As String
|
|
|
|
Private _kursVereinbartKz As String
|
|
|
|
Private _kursDatum As Date
|
|
|
|
Private _prozentsatz As String
|
|
|
|
Private _betragInEUR As String
|
|
|
|
Private _iATAKursKz As String
|
|
|
|
Private _frachtkostenBerechnungsgrundlage As String
|
|
|
|
Private _kursAuslandswaehrung 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 BeschreibungAndereZahlungen() As String
|
|
Get
|
|
Return Me._beschreibungAndereZahlungen
|
|
End Get
|
|
Set
|
|
Me._beschreibungAndereZahlungen = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Betrag() As String
|
|
Get
|
|
Return Me._betrag
|
|
End Get
|
|
Set
|
|
Me._betrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Waehrung() As String
|
|
Get
|
|
Return Me._waehrung
|
|
End Get
|
|
Set
|
|
Me._waehrung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KursVereinbartKz() As String
|
|
Get
|
|
Return Me._kursVereinbartKz
|
|
End Get
|
|
Set
|
|
Me._kursVereinbartKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
|
|
Public Property KursDatum() As Date
|
|
Get
|
|
Return Me._kursDatum
|
|
End Get
|
|
Set
|
|
Me._kursDatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Prozentsatz() As String
|
|
Get
|
|
Return Me._prozentsatz
|
|
End Get
|
|
Set
|
|
Me._prozentsatz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BetragInEUR() As String
|
|
Get
|
|
Return Me._betragInEUR
|
|
End Get
|
|
Set
|
|
Me._betragInEUR = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property IATAKursKz() As String
|
|
Get
|
|
Return Me._iATAKursKz
|
|
End Get
|
|
Set
|
|
Me._iATAKursKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property FrachtkostenBerechnungsgrundlage() As String
|
|
Get
|
|
Return Me._frachtkostenBerechnungsgrundlage
|
|
End Get
|
|
Set
|
|
Me._frachtkostenBerechnungsgrundlage = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KursAuslandswaehrung() As String
|
|
Get
|
|
Return Me._kursAuslandswaehrung
|
|
End Get
|
|
Set
|
|
Me._kursAuslandswaehrung = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize AbzugHinzurechnungAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 AbzugHinzurechnungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output AbzugHinzurechnungAVUVTyp 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 AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbzugHinzurechnungAVUVTyp)
|
|
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 AbzugHinzurechnungAVUVTyp) 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 AbzugHinzurechnungAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungAVUVTyp)
|
|
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 AbzugHinzurechnungAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), AbzugHinzurechnungAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current AbzugHinzurechnungAVUVTyp 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 AbzugHinzurechnungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output AbzugHinzurechnungAVUVTyp 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 AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbzugHinzurechnungAVUVTyp)
|
|
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 AbzugHinzurechnungAVUVTyp) 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 AbzugHinzurechnungAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class BesondereWertangabeAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _wert As String
|
|
|
|
Private _preisartCode As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Wert() As String
|
|
Get
|
|
Return Me._wert
|
|
End Get
|
|
Set
|
|
Me._wert = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property PreisartCode() As String
|
|
Get
|
|
Return Me._preisartCode
|
|
End Get
|
|
Set
|
|
Me._preisartCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BesondereWertangabeAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize BesondereWertangabeAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 BesondereWertangabeAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output BesondereWertangabeAVUVTyp 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 BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, BesondereWertangabeAVUVTyp)
|
|
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 BesondereWertangabeAVUVTyp) 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 BesondereWertangabeAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BesondereWertangabeAVUVTyp)
|
|
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 BesondereWertangabeAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), BesondereWertangabeAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current BesondereWertangabeAVUVTyp 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 BesondereWertangabeAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output BesondereWertangabeAVUVTyp 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 BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, BesondereWertangabeAVUVTyp)
|
|
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 BesondereWertangabeAVUVTyp) 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 BesondereWertangabeAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class UnterlageVZPositionAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _bereich As String
|
|
|
|
Private _art As String
|
|
|
|
Private _nummer As String
|
|
|
|
Private _datumAusstellung As Date
|
|
|
|
Private _vorlageKz As String
|
|
|
|
Private _abschreibungsMenge As String
|
|
|
|
Private _abschreibungsMengeMasseinheit As String
|
|
|
|
Private _abschreibungsMengeMasseinheitQualifier As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Bereich() As String
|
|
Get
|
|
Return Me._bereich
|
|
End Get
|
|
Set
|
|
Me._bereich = Value
|
|
End Set
|
|
End Property
|
|
|
|
<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
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
|
|
Public Property DatumAusstellung() As Date
|
|
Get
|
|
Return Me._datumAusstellung
|
|
End Get
|
|
Set
|
|
Me._datumAusstellung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VorlageKz() As String
|
|
Get
|
|
Return Me._vorlageKz
|
|
End Get
|
|
Set
|
|
Me._vorlageKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AbschreibungsMenge() As String
|
|
Get
|
|
Return Me._abschreibungsMenge
|
|
End Get
|
|
Set
|
|
Me._abschreibungsMenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AbschreibungsMengeMasseinheit() As String
|
|
Get
|
|
Return Me._abschreibungsMengeMasseinheit
|
|
End Get
|
|
Set
|
|
Me._abschreibungsMengeMasseinheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AbschreibungsMengeMasseinheitQualifier() As String
|
|
Get
|
|
Return Me._abschreibungsMengeMasseinheitQualifier
|
|
End Get
|
|
Set
|
|
Me._abschreibungsMengeMasseinheitQualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVZPositionAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize UnterlageVZPositionAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 UnterlageVZPositionAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output UnterlageVZPositionAVUVTyp 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 UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, UnterlageVZPositionAVUVTyp)
|
|
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 UnterlageVZPositionAVUVTyp) 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 UnterlageVZPositionAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVZPositionAVUVTyp)
|
|
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 UnterlageVZPositionAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), UnterlageVZPositionAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current UnterlageVZPositionAVUVTyp 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 UnterlageVZPositionAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output UnterlageVZPositionAVUVTyp 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 UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, UnterlageVZPositionAVUVTyp)
|
|
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 UnterlageVZPositionAVUVTyp) 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 UnterlageVZPositionAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class SonderfalldatenAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _sonderabgabenGruppeCode As String
|
|
|
|
Private _anwendungArt As String
|
|
|
|
Private _satzBetragFaktor As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SonderabgabenGruppeCode() As String
|
|
Get
|
|
Return Me._sonderabgabenGruppeCode
|
|
End Get
|
|
Set
|
|
Me._sonderabgabenGruppeCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AnwendungArt() As String
|
|
Get
|
|
Return Me._anwendungArt
|
|
End Get
|
|
Set
|
|
Me._anwendungArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SatzBetragFaktor() As String
|
|
Get
|
|
Return Me._satzBetragFaktor
|
|
End Get
|
|
Set
|
|
Me._satzBetragFaktor = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalldatenAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize SonderfalldatenAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 SonderfalldatenAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output SonderfalldatenAVUVTyp 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 SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SonderfalldatenAVUVTyp)
|
|
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 SonderfalldatenAVUVTyp) 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 SonderfalldatenAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SonderfalldatenAVUVTyp)
|
|
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 SonderfalldatenAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), SonderfalldatenAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current SonderfalldatenAVUVTyp 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 SonderfalldatenAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output SonderfalldatenAVUVTyp 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 SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SonderfalldatenAVUVTyp)
|
|
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 SonderfalldatenAVUVTyp) 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 SonderfalldatenAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class AbgabenminderungAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _abgabengruppeCode As String
|
|
|
|
Private _minderungsbetrag As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AbgabengruppeCode() As String
|
|
Get
|
|
Return Me._abgabengruppeCode
|
|
End Get
|
|
Set
|
|
Me._abgabengruppeCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Minderungsbetrag() As String
|
|
Get
|
|
Return Me._minderungsbetrag
|
|
End Get
|
|
Set
|
|
Me._minderungsbetrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenminderungAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize AbgabenminderungAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 AbgabenminderungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output AbgabenminderungAVUVTyp 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 AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabenminderungAVUVTyp)
|
|
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 AbgabenminderungAVUVTyp) 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 AbgabenminderungAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AbgabenminderungAVUVTyp)
|
|
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 AbgabenminderungAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), AbgabenminderungAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current AbgabenminderungAVUVTyp 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 AbgabenminderungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output AbgabenminderungAVUVTyp 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 AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbgabenminderungAVUVTyp)
|
|
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 AbgabenminderungAVUVTyp) 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 AbgabenminderungAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class VerbrauchssteuerAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _verbrauchsteuerCode As String
|
|
|
|
Private _verbrauchssteuerMenge As String
|
|
|
|
Private _verbrauchssteuerMasseinheitCode As String
|
|
|
|
Private _verbrauchssteuerMasseinheitQualifier As String
|
|
|
|
Private _gradProzent As String
|
|
|
|
Private _verbrauchssteuerWertBasis As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerbrauchsteuerCode() As String
|
|
Get
|
|
Return Me._verbrauchsteuerCode
|
|
End Get
|
|
Set
|
|
Me._verbrauchsteuerCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerbrauchssteuerMenge() As String
|
|
Get
|
|
Return Me._verbrauchssteuerMenge
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerMenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerbrauchssteuerMasseinheitCode() As String
|
|
Get
|
|
Return Me._verbrauchssteuerMasseinheitCode
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerMasseinheitCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerbrauchssteuerMasseinheitQualifier() As String
|
|
Get
|
|
Return Me._verbrauchssteuerMasseinheitQualifier
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerMasseinheitQualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property GradProzent() As String
|
|
Get
|
|
Return Me._gradProzent
|
|
End Get
|
|
Set
|
|
Me._gradProzent = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerbrauchssteuerWertBasis() As String
|
|
Get
|
|
Return Me._verbrauchssteuerWertBasis
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuerWertBasis = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchssteuerAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize VerbrauchssteuerAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 VerbrauchssteuerAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output VerbrauchssteuerAVUVTyp 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 VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, VerbrauchssteuerAVUVTyp)
|
|
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 VerbrauchssteuerAVUVTyp) 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 VerbrauchssteuerAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), VerbrauchssteuerAVUVTyp)
|
|
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 VerbrauchssteuerAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), VerbrauchssteuerAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current VerbrauchssteuerAVUVTyp 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 VerbrauchssteuerAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output VerbrauchssteuerAVUVTyp 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 VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, VerbrauchssteuerAVUVTyp)
|
|
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 VerbrauchssteuerAVUVTyp) 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 VerbrauchssteuerAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class BeguenstigungsMengeAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _menge As String
|
|
|
|
Private _masseinheitCode As String
|
|
|
|
Private _masseinheitQualifier As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Menge() As String
|
|
Get
|
|
Return Me._menge
|
|
End Get
|
|
Set
|
|
Me._menge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property MasseinheitCode() As String
|
|
Get
|
|
Return Me._masseinheitCode
|
|
End Get
|
|
Set
|
|
Me._masseinheitCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property MasseinheitQualifier() As String
|
|
Get
|
|
Return Me._masseinheitQualifier
|
|
End Get
|
|
Set
|
|
Me._masseinheitQualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BeguenstigungsMengeAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize BeguenstigungsMengeAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 BeguenstigungsMengeAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output BeguenstigungsMengeAVUVTyp 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 BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, BeguenstigungsMengeAVUVTyp)
|
|
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 BeguenstigungsMengeAVUVTyp) 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 BeguenstigungsMengeAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BeguenstigungsMengeAVUVTyp)
|
|
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 BeguenstigungsMengeAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), BeguenstigungsMengeAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current BeguenstigungsMengeAVUVTyp 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 BeguenstigungsMengeAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output BeguenstigungsMengeAVUVTyp 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 BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, BeguenstigungsMengeAVUVTyp)
|
|
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 BeguenstigungsMengeAVUVTyp) 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 BeguenstigungsMengeAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class GehaltsangabenAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _artCode As String
|
|
|
|
Private _gradProzent 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 GradProzent() As String
|
|
Get
|
|
Return Me._gradProzent
|
|
End Get
|
|
Set
|
|
Me._gradProzent = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize GehaltsangabenAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 GehaltsangabenAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output GehaltsangabenAVUVTyp 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 GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, GehaltsangabenAVUVTyp)
|
|
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 GehaltsangabenAVUVTyp) 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 GehaltsangabenAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenAVUVTyp)
|
|
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 GehaltsangabenAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), GehaltsangabenAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current GehaltsangabenAVUVTyp 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 GehaltsangabenAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output GehaltsangabenAVUVTyp 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 GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, GehaltsangabenAVUVTyp)
|
|
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 GehaltsangabenAVUVTyp) 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 GehaltsangabenAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class AVVeredelungserzeugnisTyp
|
|
|
|
#Region "Private fields"
|
|
Private _warenbezeichnung As String
|
|
|
|
Private _ausbeuteart As String
|
|
|
|
Private _ausbeutesatz As String
|
|
|
|
Private _kNCode As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Warenbezeichnung() As String
|
|
Get
|
|
Return Me._warenbezeichnung
|
|
End Get
|
|
Set
|
|
Me._warenbezeichnung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Ausbeuteart() As String
|
|
Get
|
|
Return Me._ausbeuteart
|
|
End Get
|
|
Set
|
|
Me._ausbeuteart = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Ausbeutesatz() As String
|
|
Get
|
|
Return Me._ausbeutesatz
|
|
End Get
|
|
Set
|
|
Me._ausbeutesatz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KNCode() As String
|
|
Get
|
|
Return Me._kNCode
|
|
End Get
|
|
Set
|
|
Me._kNCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVVeredelungserzeugnisTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize AVVeredelungserzeugnisTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 AVVeredelungserzeugnisTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output AVVeredelungserzeugnisTyp 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 AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AVVeredelungserzeugnisTyp)
|
|
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 AVVeredelungserzeugnisTyp) 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 AVVeredelungserzeugnisTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVVeredelungserzeugnisTyp)
|
|
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 AVVeredelungserzeugnisTyp
|
|
Return CType(SerializerXml.Deserialize(s), AVVeredelungserzeugnisTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current AVVeredelungserzeugnisTyp 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 AVVeredelungserzeugnisTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output AVVeredelungserzeugnisTyp 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 AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AVVeredelungserzeugnisTyp)
|
|
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 AVVeredelungserzeugnisTyp) 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 AVVeredelungserzeugnisTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class WarenMengeAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _menge As String
|
|
|
|
Private _masseinheit As String
|
|
|
|
Private _qualifier As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Menge() As String
|
|
Get
|
|
Return Me._menge
|
|
End Get
|
|
Set
|
|
Me._menge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Masseinheit() As String
|
|
Get
|
|
Return Me._masseinheit
|
|
End Get
|
|
Set
|
|
Me._masseinheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Qualifier() As String
|
|
Get
|
|
Return Me._qualifier
|
|
End Get
|
|
Set
|
|
Me._qualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize WarenMengeAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 WarenMengeAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output WarenMengeAVUVTyp 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 WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, WarenMengeAVUVTyp)
|
|
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 WarenMengeAVUVTyp) 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 WarenMengeAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), WarenMengeAVUVTyp)
|
|
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 WarenMengeAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), WarenMengeAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current WarenMengeAVUVTyp 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 WarenMengeAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output WarenMengeAVUVTyp 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 WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, WarenMengeAVUVTyp)
|
|
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 WarenMengeAVUVTyp) 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 WarenMengeAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class PositionEinfuhrUnvollstaendigeAnmeldungTyp
|
|
|
|
#Region "Private fields"
|
|
Private _positionsnummer As String
|
|
|
|
Private _artikelNummer As String
|
|
|
|
Private _warenNummerEZT As String
|
|
|
|
Private _warenNummerZusatzCode As List(Of String)
|
|
|
|
Private _warenNummerZusatz1 As String
|
|
|
|
Private _warenNummerZusatz2 As String
|
|
|
|
Private _warenBezeichnung As String
|
|
|
|
Private _verfahrenscodeVorangegangenesVerfahren As String
|
|
|
|
Private _abgabensteuerungKz As String
|
|
|
|
Private _eUCode As List(Of String)
|
|
|
|
Private _ursprungslandCode As String
|
|
|
|
Private _praeferenzursprungsland As String
|
|
|
|
Private _rohmasse As String
|
|
|
|
Private _eigenmasse As String
|
|
|
|
Private _aHStatMenge As String
|
|
|
|
Private _aHStatMengeMasseinheit As String
|
|
|
|
Private _aHStatMengeQualifier As String
|
|
|
|
Private _kostenEUSt As String
|
|
|
|
Private _aHStatWert As String
|
|
|
|
Private _packstueckAnzahl As String
|
|
|
|
Private _packstueckArt As String
|
|
|
|
Private _packstueckZeichen As String
|
|
|
|
Private _warenMenge As List(Of WarenMengeAVUVTyp)
|
|
|
|
Private _warenMengeZoll As String
|
|
|
|
Private _warenMengeZollMasseinheit As String
|
|
|
|
Private _warenMengeZollMasseinheitQualifier As String
|
|
|
|
Private _beguenstigungBeantragtCode As String
|
|
|
|
Private _kontingentnummer As List(Of String)
|
|
|
|
Private _positionsZusatz As String
|
|
|
|
Private _aHStatWertManuellKZ As String
|
|
|
|
Private _artikelpreis As String
|
|
|
|
Private _ortVerbringens As String
|
|
|
|
Private _abflughafenIATACode As String
|
|
|
|
Private _warenmengeAVUVZugang As String
|
|
|
|
Private _warenmengeAVUVZugangMasseinheit As String
|
|
|
|
Private _warenmengeAVUVZugangMasseinheitQualifier As String
|
|
|
|
Private _warenmengeAgrarzoll As String
|
|
|
|
Private _warenmengeAgrarzollMasseinheit As String
|
|
|
|
Private _warenmengeAgrarzollMasseinheitQualifier As String
|
|
|
|
Private _sachbereich As String
|
|
|
|
Private _bedingungCode As String
|
|
|
|
Private _veredelungWertsteigerung As String
|
|
|
|
Private _tabakSteuerzeichenID As String
|
|
|
|
Private _aVWirtschaftlicheVoraussetzungen As String
|
|
|
|
Private _aVNaemlichkeitsmittel As String
|
|
|
|
Private _aVErlaeuterungNaemlichkeit As String
|
|
|
|
Private _aVVeredelungserzeugnis As List(Of AVVeredelungserzeugnisTyp)
|
|
|
|
Private _gehaltsangaben As List(Of GehaltsangabenAVUVTyp)
|
|
|
|
Private _beguenstigungsmenge As BeguenstigungsMengeAVUVTyp
|
|
|
|
Private _verbrauchssteuer As List(Of VerbrauchssteuerAVUVTyp)
|
|
|
|
Private _abgabenminderung As List(Of AbgabenminderungAVUVTyp)
|
|
|
|
Private _sonderfalldaten As List(Of SonderfalldatenAVUVTyp)
|
|
|
|
Private _unterlage As List(Of UnterlageVZPositionAVUVTyp)
|
|
|
|
Private _besondereWertangabe As List(Of BesondereWertangabeAVUVTyp)
|
|
|
|
Private _vZAStatus As String
|
|
|
|
Private _eGZStatus As String
|
|
|
|
Private _dV1Status As String
|
|
|
|
Private _anmeldeArt As String
|
|
|
|
Private _befundDatum As Date
|
|
|
|
Private _anmelderAdressCodeEORI As String
|
|
|
|
Private _anmelderAdressCodeZollnummer As String
|
|
|
|
Private _zollverfahren As String
|
|
|
|
Private _abrechnungszollstelleCode As String
|
|
|
|
Private _sachbereichCode As String
|
|
|
|
Private _registriernummervZA As String
|
|
|
|
Private _anmeldeVerfahren As String
|
|
|
|
Private _bewilligungsnummer As String
|
|
|
|
Private _bewilligungsnummerEndverwenderEGZDurchDritte As String
|
|
|
|
Private _zollwert As String
|
|
|
|
Private _luftfrachtkostenGesamt As String
|
|
|
|
Private _iATAKursKz As String
|
|
|
|
Private _luftfrachtkostenGesamtWaehrung As String
|
|
|
|
Private _kursVereinbartKz As String
|
|
|
|
Private _kursBetragVereinbart As String
|
|
|
|
Private _kursDatum As Date
|
|
|
|
Private _abzugHinzurechnung As List(Of AbzugHinzurechnungAVUVTyp)
|
|
|
|
Private _aussenhandelsstatistik As AussenhandelsstatistikAVUVTyp
|
|
|
|
Private _applicationInternalData As ApplicationInternalDataType
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me._applicationInternalData = New ApplicationInternalDataType()
|
|
Me._aussenhandelsstatistik = New AussenhandelsstatistikAVUVTyp()
|
|
Me._abzugHinzurechnung = New List(Of AbzugHinzurechnungAVUVTyp)()
|
|
Me._besondereWertangabe = New List(Of BesondereWertangabeAVUVTyp)()
|
|
Me._unterlage = New List(Of UnterlageVZPositionAVUVTyp)()
|
|
Me._sonderfalldaten = New List(Of SonderfalldatenAVUVTyp)()
|
|
Me._abgabenminderung = New List(Of AbgabenminderungAVUVTyp)()
|
|
Me._verbrauchssteuer = New List(Of VerbrauchssteuerAVUVTyp)()
|
|
Me._beguenstigungsmenge = New BeguenstigungsMengeAVUVTyp()
|
|
Me._gehaltsangaben = New List(Of GehaltsangabenAVUVTyp)()
|
|
Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)()
|
|
Me._kontingentnummer = New List(Of String)()
|
|
Me._warenMenge = New List(Of WarenMengeAVUVTyp)()
|
|
Me._eUCode = New List(Of String)()
|
|
Me._warenNummerZusatzCode = New List(Of String)()
|
|
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 ArtikelNummer() As String
|
|
Get
|
|
Return Me._artikelNummer
|
|
End Get
|
|
Set
|
|
Me._artikelNummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenNummerEZT() As String
|
|
Get
|
|
Return Me._warenNummerEZT
|
|
End Get
|
|
Set
|
|
Me._warenNummerEZT = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("WarenNummerZusatzCode", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenNummerZusatzCode() As List(Of String)
|
|
Get
|
|
Return Me._warenNummerZusatzCode
|
|
End Get
|
|
Set
|
|
Me._warenNummerZusatzCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenNummerZusatz1() As String
|
|
Get
|
|
Return Me._warenNummerZusatz1
|
|
End Get
|
|
Set
|
|
Me._warenNummerZusatz1 = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenNummerZusatz2() As String
|
|
Get
|
|
Return Me._warenNummerZusatz2
|
|
End Get
|
|
Set
|
|
Me._warenNummerZusatz2 = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenBezeichnung() As String
|
|
Get
|
|
Return Me._warenBezeichnung
|
|
End Get
|
|
Set
|
|
Me._warenBezeichnung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerfahrenscodeVorangegangenesVerfahren() As String
|
|
Get
|
|
Return Me._verfahrenscodeVorangegangenesVerfahren
|
|
End Get
|
|
Set
|
|
Me._verfahrenscodeVorangegangenesVerfahren = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AbgabensteuerungKz() As String
|
|
Get
|
|
Return Me._abgabensteuerungKz
|
|
End Get
|
|
Set
|
|
Me._abgabensteuerungKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("EUCode", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property EUCode() As List(Of String)
|
|
Get
|
|
Return Me._eUCode
|
|
End Get
|
|
Set
|
|
Me._eUCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property UrsprungslandCode() As String
|
|
Get
|
|
Return Me._ursprungslandCode
|
|
End Get
|
|
Set
|
|
Me._ursprungslandCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Praeferenzursprungsland() As String
|
|
Get
|
|
Return Me._praeferenzursprungsland
|
|
End Get
|
|
Set
|
|
Me._praeferenzursprungsland = 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 Eigenmasse() As String
|
|
Get
|
|
Return Me._eigenmasse
|
|
End Get
|
|
Set
|
|
Me._eigenmasse = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AHStatMenge() As String
|
|
Get
|
|
Return Me._aHStatMenge
|
|
End Get
|
|
Set
|
|
Me._aHStatMenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AHStatMengeMasseinheit() As String
|
|
Get
|
|
Return Me._aHStatMengeMasseinheit
|
|
End Get
|
|
Set
|
|
Me._aHStatMengeMasseinheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AHStatMengeQualifier() As String
|
|
Get
|
|
Return Me._aHStatMengeQualifier
|
|
End Get
|
|
Set
|
|
Me._aHStatMengeQualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KostenEUSt() As String
|
|
Get
|
|
Return Me._kostenEUSt
|
|
End Get
|
|
Set
|
|
Me._kostenEUSt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AHStatWert() As String
|
|
Get
|
|
Return Me._aHStatWert
|
|
End Get
|
|
Set
|
|
Me._aHStatWert = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property PackstueckAnzahl() As String
|
|
Get
|
|
Return Me._packstueckAnzahl
|
|
End Get
|
|
Set
|
|
Me._packstueckAnzahl = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property PackstueckArt() As String
|
|
Get
|
|
Return Me._packstueckArt
|
|
End Get
|
|
Set
|
|
Me._packstueckArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property PackstueckZeichen() As String
|
|
Get
|
|
Return Me._packstueckZeichen
|
|
End Get
|
|
Set
|
|
Me._packstueckZeichen = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("WarenMenge", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenMenge() As List(Of WarenMengeAVUVTyp)
|
|
Get
|
|
Return Me._warenMenge
|
|
End Get
|
|
Set
|
|
Me._warenMenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenMengeZoll() As String
|
|
Get
|
|
Return Me._warenMengeZoll
|
|
End Get
|
|
Set
|
|
Me._warenMengeZoll = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenMengeZollMasseinheit() As String
|
|
Get
|
|
Return Me._warenMengeZollMasseinheit
|
|
End Get
|
|
Set
|
|
Me._warenMengeZollMasseinheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenMengeZollMasseinheitQualifier() As String
|
|
Get
|
|
Return Me._warenMengeZollMasseinheitQualifier
|
|
End Get
|
|
Set
|
|
Me._warenMengeZollMasseinheitQualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BeguenstigungBeantragtCode() As String
|
|
Get
|
|
Return Me._beguenstigungBeantragtCode
|
|
End Get
|
|
Set
|
|
Me._beguenstigungBeantragtCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Kontingentnummer", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Kontingentnummer() As List(Of String)
|
|
Get
|
|
Return Me._kontingentnummer
|
|
End Get
|
|
Set
|
|
Me._kontingentnummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property PositionsZusatz() As String
|
|
Get
|
|
Return Me._positionsZusatz
|
|
End Get
|
|
Set
|
|
Me._positionsZusatz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AHStatWertManuellKZ() As String
|
|
Get
|
|
Return Me._aHStatWertManuellKZ
|
|
End Get
|
|
Set
|
|
Me._aHStatWertManuellKZ = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Artikelpreis() As String
|
|
Get
|
|
Return Me._artikelpreis
|
|
End Get
|
|
Set
|
|
Me._artikelpreis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property OrtVerbringens() As String
|
|
Get
|
|
Return Me._ortVerbringens
|
|
End Get
|
|
Set
|
|
Me._ortVerbringens = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AbflughafenIATACode() As String
|
|
Get
|
|
Return Me._abflughafenIATACode
|
|
End Get
|
|
Set
|
|
Me._abflughafenIATACode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenmengeAVUVZugang() As String
|
|
Get
|
|
Return Me._warenmengeAVUVZugang
|
|
End Get
|
|
Set
|
|
Me._warenmengeAVUVZugang = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenmengeAVUVZugangMasseinheit() As String
|
|
Get
|
|
Return Me._warenmengeAVUVZugangMasseinheit
|
|
End Get
|
|
Set
|
|
Me._warenmengeAVUVZugangMasseinheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenmengeAVUVZugangMasseinheitQualifier() As String
|
|
Get
|
|
Return Me._warenmengeAVUVZugangMasseinheitQualifier
|
|
End Get
|
|
Set
|
|
Me._warenmengeAVUVZugangMasseinheitQualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenmengeAgrarzoll() As String
|
|
Get
|
|
Return Me._warenmengeAgrarzoll
|
|
End Get
|
|
Set
|
|
Me._warenmengeAgrarzoll = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenmengeAgrarzollMasseinheit() As String
|
|
Get
|
|
Return Me._warenmengeAgrarzollMasseinheit
|
|
End Get
|
|
Set
|
|
Me._warenmengeAgrarzollMasseinheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenmengeAgrarzollMasseinheitQualifier() As String
|
|
Get
|
|
Return Me._warenmengeAgrarzollMasseinheitQualifier
|
|
End Get
|
|
Set
|
|
Me._warenmengeAgrarzollMasseinheitQualifier = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Sachbereich() As String
|
|
Get
|
|
Return Me._sachbereich
|
|
End Get
|
|
Set
|
|
Me._sachbereich = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BedingungCode() As String
|
|
Get
|
|
Return Me._bedingungCode
|
|
End Get
|
|
Set
|
|
Me._bedingungCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VeredelungWertsteigerung() As String
|
|
Get
|
|
Return Me._veredelungWertsteigerung
|
|
End Get
|
|
Set
|
|
Me._veredelungWertsteigerung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property TabakSteuerzeichenID() As String
|
|
Get
|
|
Return Me._tabakSteuerzeichenID
|
|
End Get
|
|
Set
|
|
Me._tabakSteuerzeichenID = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AVWirtschaftlicheVoraussetzungen() As String
|
|
Get
|
|
Return Me._aVWirtschaftlicheVoraussetzungen
|
|
End Get
|
|
Set
|
|
Me._aVWirtschaftlicheVoraussetzungen = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AVNaemlichkeitsmittel() As String
|
|
Get
|
|
Return Me._aVNaemlichkeitsmittel
|
|
End Get
|
|
Set
|
|
Me._aVNaemlichkeitsmittel = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AVErlaeuterungNaemlichkeit() As String
|
|
Get
|
|
Return Me._aVErlaeuterungNaemlichkeit
|
|
End Get
|
|
Set
|
|
Me._aVErlaeuterungNaemlichkeit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("AVVeredelungserzeugnis", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AVVeredelungserzeugnis() As List(Of AVVeredelungserzeugnisTyp)
|
|
Get
|
|
Return Me._aVVeredelungserzeugnis
|
|
End Get
|
|
Set
|
|
Me._aVVeredelungserzeugnis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Gehaltsangaben", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Gehaltsangaben() As List(Of GehaltsangabenAVUVTyp)
|
|
Get
|
|
Return Me._gehaltsangaben
|
|
End Get
|
|
Set
|
|
Me._gehaltsangaben = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Beguenstigungsmenge() As BeguenstigungsMengeAVUVTyp
|
|
Get
|
|
Return Me._beguenstigungsmenge
|
|
End Get
|
|
Set
|
|
Me._beguenstigungsmenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Verbrauchssteuer", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Verbrauchssteuer() As List(Of VerbrauchssteuerAVUVTyp)
|
|
Get
|
|
Return Me._verbrauchssteuer
|
|
End Get
|
|
Set
|
|
Me._verbrauchssteuer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Abgabenminderung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Abgabenminderung() As List(Of AbgabenminderungAVUVTyp)
|
|
Get
|
|
Return Me._abgabenminderung
|
|
End Get
|
|
Set
|
|
Me._abgabenminderung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Sonderfalldaten", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Sonderfalldaten() As List(Of SonderfalldatenAVUVTyp)
|
|
Get
|
|
Return Me._sonderfalldaten
|
|
End Get
|
|
Set
|
|
Me._sonderfalldaten = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Unterlage", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Unterlage() As List(Of UnterlageVZPositionAVUVTyp)
|
|
Get
|
|
Return Me._unterlage
|
|
End Get
|
|
Set
|
|
Me._unterlage = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("BesondereWertangabe", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BesondereWertangabe() As List(Of BesondereWertangabeAVUVTyp)
|
|
Get
|
|
Return Me._besondereWertangabe
|
|
End Get
|
|
Set
|
|
Me._besondereWertangabe = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VZAStatus() As String
|
|
Get
|
|
Return Me._vZAStatus
|
|
End Get
|
|
Set
|
|
Me._vZAStatus = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property EGZStatus() As String
|
|
Get
|
|
Return Me._eGZStatus
|
|
End Get
|
|
Set
|
|
Me._eGZStatus = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property DV1Status() As String
|
|
Get
|
|
Return Me._dV1Status
|
|
End Get
|
|
Set
|
|
Me._dV1Status = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AnmeldeArt() As String
|
|
Get
|
|
Return Me._anmeldeArt
|
|
End Get
|
|
Set
|
|
Me._anmeldeArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
|
|
Public Property BefundDatum() As Date
|
|
Get
|
|
Return Me._befundDatum
|
|
End Get
|
|
Set
|
|
Me._befundDatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AnmelderAdressCodeEORI() As String
|
|
Get
|
|
Return Me._anmelderAdressCodeEORI
|
|
End Get
|
|
Set
|
|
Me._anmelderAdressCodeEORI = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AnmelderAdressCodeZollnummer() As String
|
|
Get
|
|
Return Me._anmelderAdressCodeZollnummer
|
|
End Get
|
|
Set
|
|
Me._anmelderAdressCodeZollnummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Zollverfahren() As String
|
|
Get
|
|
Return Me._zollverfahren
|
|
End Get
|
|
Set
|
|
Me._zollverfahren = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AbrechnungszollstelleCode() As String
|
|
Get
|
|
Return Me._abrechnungszollstelleCode
|
|
End Get
|
|
Set
|
|
Me._abrechnungszollstelleCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SachbereichCode() As String
|
|
Get
|
|
Return Me._sachbereichCode
|
|
End Get
|
|
Set
|
|
Me._sachbereichCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property RegistriernummervZA() As String
|
|
Get
|
|
Return Me._registriernummervZA
|
|
End Get
|
|
Set
|
|
Me._registriernummervZA = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AnmeldeVerfahren() As String
|
|
Get
|
|
Return Me._anmeldeVerfahren
|
|
End Get
|
|
Set
|
|
Me._anmeldeVerfahren = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Bewilligungsnummer() As String
|
|
Get
|
|
Return Me._bewilligungsnummer
|
|
End Get
|
|
Set
|
|
Me._bewilligungsnummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BewilligungsnummerEndverwenderEGZDurchDritte() As String
|
|
Get
|
|
Return Me._bewilligungsnummerEndverwenderEGZDurchDritte
|
|
End Get
|
|
Set
|
|
Me._bewilligungsnummerEndverwenderEGZDurchDritte = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Zollwert() As String
|
|
Get
|
|
Return Me._zollwert
|
|
End Get
|
|
Set
|
|
Me._zollwert = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property LuftfrachtkostenGesamt() As String
|
|
Get
|
|
Return Me._luftfrachtkostenGesamt
|
|
End Get
|
|
Set
|
|
Me._luftfrachtkostenGesamt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property IATAKursKz() As String
|
|
Get
|
|
Return Me._iATAKursKz
|
|
End Get
|
|
Set
|
|
Me._iATAKursKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property LuftfrachtkostenGesamtWaehrung() As String
|
|
Get
|
|
Return Me._luftfrachtkostenGesamtWaehrung
|
|
End Get
|
|
Set
|
|
Me._luftfrachtkostenGesamtWaehrung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KursVereinbartKz() As String
|
|
Get
|
|
Return Me._kursVereinbartKz
|
|
End Get
|
|
Set
|
|
Me._kursVereinbartKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KursBetragVereinbart() As String
|
|
Get
|
|
Return Me._kursBetragVereinbart
|
|
End Get
|
|
Set
|
|
Me._kursBetragVereinbart = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
|
|
Public Property KursDatum() As Date
|
|
Get
|
|
Return Me._kursDatum
|
|
End Get
|
|
Set
|
|
Me._kursDatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("AbzugHinzurechnung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AbzugHinzurechnung() As List(Of AbzugHinzurechnungAVUVTyp)
|
|
Get
|
|
Return Me._abzugHinzurechnung
|
|
End Get
|
|
Set
|
|
Me._abzugHinzurechnung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Aussenhandelsstatistik() As AussenhandelsstatistikAVUVTyp
|
|
Get
|
|
Return Me._aussenhandelsstatistik
|
|
End Get
|
|
Set
|
|
Me._aussenhandelsstatistik = 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(PositionEinfuhrUnvollstaendigeAnmeldungTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize PositionEinfuhrUnvollstaendigeAnmeldungTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 PositionEinfuhrUnvollstaendigeAnmeldungTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output PositionEinfuhrUnvollstaendigeAnmeldungTyp 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
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 PositionEinfuhrUnvollstaendigeAnmeldungTyp) 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), PositionEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
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 PositionEinfuhrUnvollstaendigeAnmeldungTyp
|
|
Return CType(SerializerXml.Deserialize(s), PositionEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output PositionEinfuhrUnvollstaendigeAnmeldungTyp 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
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 PositionEinfuhrUnvollstaendigeAnmeldungTyp) 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 PositionEinfuhrUnvollstaendigeAnmeldungTyp
|
|
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.9037.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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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.9037.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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class AdressenVzImportAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _adressTyp As String
|
|
|
|
Private _adressCode As String
|
|
|
|
Private _teilnehmerEORI As String
|
|
|
|
Private _teilnehmerNLNR As String
|
|
|
|
Private _zollNr As String
|
|
|
|
Private _nameFirma As String
|
|
|
|
Private _strasseHausNr As String
|
|
|
|
Private _ortsteil As String
|
|
|
|
Private _landCode As String
|
|
|
|
Private _pLZS As String
|
|
|
|
Private _ortS As String
|
|
|
|
Private _uStIDAnmelder As String
|
|
|
|
Private _finanzamtIDAnmelder As String
|
|
|
|
Private _sitzEinfuehrer As String
|
|
|
|
Private _bewilligungsnummer As String
|
|
|
|
Private _bewilligungFachVerfahren As String
|
|
|
|
Private _bewilligungsnummerEndverwender As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AdressTyp() As String
|
|
Get
|
|
Return Me._adressTyp
|
|
End Get
|
|
Set
|
|
Me._adressTyp = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AdressCode() As String
|
|
Get
|
|
Return Me._adressCode
|
|
End Get
|
|
Set
|
|
Me._adressCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<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 ZollNr() As String
|
|
Get
|
|
Return Me._zollNr
|
|
End Get
|
|
Set
|
|
Me._zollNr = 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 StrasseHausNr() As String
|
|
Get
|
|
Return Me._strasseHausNr
|
|
End Get
|
|
Set
|
|
Me._strasseHausNr = 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 LandCode() As String
|
|
Get
|
|
Return Me._landCode
|
|
End Get
|
|
Set
|
|
Me._landCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("PLZ-S", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property PLZS() As String
|
|
Get
|
|
Return Me._pLZS
|
|
End Get
|
|
Set
|
|
Me._pLZS = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Ort-S", 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 UStIDAnmelder() As String
|
|
Get
|
|
Return Me._uStIDAnmelder
|
|
End Get
|
|
Set
|
|
Me._uStIDAnmelder = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property FinanzamtIDAnmelder() As String
|
|
Get
|
|
Return Me._finanzamtIDAnmelder
|
|
End Get
|
|
Set
|
|
Me._finanzamtIDAnmelder = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SitzEinfuehrer() As String
|
|
Get
|
|
Return Me._sitzEinfuehrer
|
|
End Get
|
|
Set
|
|
Me._sitzEinfuehrer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Bewilligungsnummer() As String
|
|
Get
|
|
Return Me._bewilligungsnummer
|
|
End Get
|
|
Set
|
|
Me._bewilligungsnummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BewilligungFachVerfahren() As String
|
|
Get
|
|
Return Me._bewilligungFachVerfahren
|
|
End Get
|
|
Set
|
|
Me._bewilligungFachVerfahren = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BewilligungsnummerEndverwender() As String
|
|
Get
|
|
Return Me._bewilligungsnummerEndverwender
|
|
End Get
|
|
Set
|
|
Me._bewilligungsnummerEndverwender = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AdressenVzImportAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize AdressenVzImportAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 AdressenVzImportAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output AdressenVzImportAVUVTyp 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 AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AdressenVzImportAVUVTyp)
|
|
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 AdressenVzImportAVUVTyp) 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 AdressenVzImportAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AdressenVzImportAVUVTyp)
|
|
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 AdressenVzImportAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), AdressenVzImportAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current AdressenVzImportAVUVTyp 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 AdressenVzImportAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output AdressenVzImportAVUVTyp 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 AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AdressenVzImportAVUVTyp)
|
|
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 AdressenVzImportAVUVTyp) 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 AdressenVzImportAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class ZusaetzlicheSteuerlicheVerweiseTyp
|
|
|
|
#Region "Private fields"
|
|
Private _kennnummer As String
|
|
|
|
Private _steuerbeteiligterTIN As String
|
|
|
|
Private _name As String
|
|
|
|
Private _strasseUndHausnummer As String
|
|
|
|
Private _land As String
|
|
|
|
Private _pLZ As String
|
|
|
|
Private _ort As String
|
|
|
|
Private _ortsteil As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Kennnummer() As String
|
|
Get
|
|
Return Me._kennnummer
|
|
End Get
|
|
Set
|
|
Me._kennnummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SteuerbeteiligterTIN() As String
|
|
Get
|
|
Return Me._steuerbeteiligterTIN
|
|
End Get
|
|
Set
|
|
Me._steuerbeteiligterTIN = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Name() As String
|
|
Get
|
|
Return Me._name
|
|
End Get
|
|
Set
|
|
Me._name = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property StrasseUndHausnummer() As String
|
|
Get
|
|
Return Me._strasseUndHausnummer
|
|
End Get
|
|
Set
|
|
Me._strasseUndHausnummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Land() As String
|
|
Get
|
|
Return Me._land
|
|
End Get
|
|
Set
|
|
Me._land = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property PLZ() As String
|
|
Get
|
|
Return Me._pLZ
|
|
End Get
|
|
Set
|
|
Me._pLZ = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Ort() As String
|
|
Get
|
|
Return Me._ort
|
|
End Get
|
|
Set
|
|
Me._ort = 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
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ZusaetzlicheSteuerlicheVerweiseTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize ZusaetzlicheSteuerlicheVerweiseTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 ZusaetzlicheSteuerlicheVerweiseTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output ZusaetzlicheSteuerlicheVerweiseTyp 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 ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp)
|
|
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 ZusaetzlicheSteuerlicheVerweiseTyp) 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 ZusaetzlicheSteuerlicheVerweiseTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ZusaetzlicheSteuerlicheVerweiseTyp)
|
|
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 ZusaetzlicheSteuerlicheVerweiseTyp
|
|
Return CType(SerializerXml.Deserialize(s), ZusaetzlicheSteuerlicheVerweiseTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current ZusaetzlicheSteuerlicheVerweiseTyp 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 ZusaetzlicheSteuerlicheVerweiseTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output ZusaetzlicheSteuerlicheVerweiseTyp 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 ZusaetzlicheSteuerlicheVerweiseTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ZusaetzlicheSteuerlicheVerweiseTyp)
|
|
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 ZusaetzlicheSteuerlicheVerweiseTyp) 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 ZusaetzlicheSteuerlicheVerweiseTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class AVBuchhaltVeredelungTyp
|
|
|
|
#Region "Private fields"
|
|
Private _strasse As String
|
|
|
|
Private _land As String
|
|
|
|
Private _pLZ As String
|
|
|
|
Private _ort As String
|
|
|
|
Private _ortsteil As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Strasse() As String
|
|
Get
|
|
Return Me._strasse
|
|
End Get
|
|
Set
|
|
Me._strasse = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Land() As String
|
|
Get
|
|
Return Me._land
|
|
End Get
|
|
Set
|
|
Me._land = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property PLZ() As String
|
|
Get
|
|
Return Me._pLZ
|
|
End Get
|
|
Set
|
|
Me._pLZ = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Ort() As String
|
|
Get
|
|
Return Me._ort
|
|
End Get
|
|
Set
|
|
Me._ort = 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
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AVBuchhaltVeredelungTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize AVBuchhaltVeredelungTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 AVBuchhaltVeredelungTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output AVBuchhaltVeredelungTyp 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 AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AVBuchhaltVeredelungTyp)
|
|
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 AVBuchhaltVeredelungTyp) 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 AVBuchhaltVeredelungTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AVBuchhaltVeredelungTyp)
|
|
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 AVBuchhaltVeredelungTyp
|
|
Return CType(SerializerXml.Deserialize(s), AVBuchhaltVeredelungTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current AVBuchhaltVeredelungTyp 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 AVBuchhaltVeredelungTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output AVBuchhaltVeredelungTyp 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 AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AVBuchhaltVeredelungTyp)
|
|
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 AVBuchhaltVeredelungTyp) 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 AVBuchhaltVeredelungTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class BEAnteilZLAVUVPositionAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _registriernummerZugang As String
|
|
|
|
Private _positionZugang As String
|
|
|
|
Private _artikelcodeATZL As String
|
|
|
|
Private _eigentuemerATZL As String
|
|
|
|
Private _chargennummerATZL As String
|
|
|
|
Private _ursprungslandATZL As String
|
|
|
|
Private _atlasKz As String
|
|
|
|
Private _warennummer As String
|
|
|
|
Private _ueblicheBehandlungKz As String
|
|
|
|
Private _handelsmenge As String
|
|
|
|
Private _masseinheitHandelsmenge As String
|
|
|
|
Private _qualifikatorHandelsmenge As String
|
|
|
|
Private _abgangsmenge As String
|
|
|
|
Private _masseinheitAbgangsmenge As String
|
|
|
|
Private _qualifikatorAbgangsmenge As String
|
|
|
|
Private _positionszusatz As String
|
|
|
|
Private _warenbezogeneAngaben As String
|
|
|
|
Private _funktionPositionAusWE As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property RegistriernummerZugang() As String
|
|
Get
|
|
Return Me._registriernummerZugang
|
|
End Get
|
|
Set
|
|
Me._registriernummerZugang = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property PositionZugang() As String
|
|
Get
|
|
Return Me._positionZugang
|
|
End Get
|
|
Set
|
|
Me._positionZugang = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ArtikelcodeATZL() As String
|
|
Get
|
|
Return Me._artikelcodeATZL
|
|
End Get
|
|
Set
|
|
Me._artikelcodeATZL = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property EigentuemerATZL() As String
|
|
Get
|
|
Return Me._eigentuemerATZL
|
|
End Get
|
|
Set
|
|
Me._eigentuemerATZL = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ChargennummerATZL() As String
|
|
Get
|
|
Return Me._chargennummerATZL
|
|
End Get
|
|
Set
|
|
Me._chargennummerATZL = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property UrsprungslandATZL() As String
|
|
Get
|
|
Return Me._ursprungslandATZL
|
|
End Get
|
|
Set
|
|
Me._ursprungslandATZL = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AtlasKz() As String
|
|
Get
|
|
Return Me._atlasKz
|
|
End Get
|
|
Set
|
|
Me._atlasKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Warennummer() As String
|
|
Get
|
|
Return Me._warennummer
|
|
End Get
|
|
Set
|
|
Me._warennummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property UeblicheBehandlungKz() As String
|
|
Get
|
|
Return Me._ueblicheBehandlungKz
|
|
End Get
|
|
Set
|
|
Me._ueblicheBehandlungKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Handelsmenge() As String
|
|
Get
|
|
Return Me._handelsmenge
|
|
End Get
|
|
Set
|
|
Me._handelsmenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property MasseinheitHandelsmenge() As String
|
|
Get
|
|
Return Me._masseinheitHandelsmenge
|
|
End Get
|
|
Set
|
|
Me._masseinheitHandelsmenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property QualifikatorHandelsmenge() As String
|
|
Get
|
|
Return Me._qualifikatorHandelsmenge
|
|
End Get
|
|
Set
|
|
Me._qualifikatorHandelsmenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Abgangsmenge() As String
|
|
Get
|
|
Return Me._abgangsmenge
|
|
End Get
|
|
Set
|
|
Me._abgangsmenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property MasseinheitAbgangsmenge() As String
|
|
Get
|
|
Return Me._masseinheitAbgangsmenge
|
|
End Get
|
|
Set
|
|
Me._masseinheitAbgangsmenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property QualifikatorAbgangsmenge() As String
|
|
Get
|
|
Return Me._qualifikatorAbgangsmenge
|
|
End Get
|
|
Set
|
|
Me._qualifikatorAbgangsmenge = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Positionszusatz() As String
|
|
Get
|
|
Return Me._positionszusatz
|
|
End Get
|
|
Set
|
|
Me._positionszusatz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WarenbezogeneAngaben() As String
|
|
Get
|
|
Return Me._warenbezogeneAngaben
|
|
End Get
|
|
Set
|
|
Me._warenbezogeneAngaben = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property FunktionPositionAusWE() As String
|
|
Get
|
|
Return Me._funktionPositionAusWE
|
|
End Get
|
|
Set
|
|
Me._funktionPositionAusWE = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(BEAnteilZLAVUVPositionAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize BEAnteilZLAVUVPositionAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 BEAnteilZLAVUVPositionAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output BEAnteilZLAVUVPositionAVUVTyp 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 BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp)
|
|
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 BEAnteilZLAVUVPositionAVUVTyp) 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 BEAnteilZLAVUVPositionAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), BEAnteilZLAVUVPositionAVUVTyp)
|
|
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 BEAnteilZLAVUVPositionAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), BEAnteilZLAVUVPositionAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current BEAnteilZLAVUVPositionAVUVTyp 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 BEAnteilZLAVUVPositionAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output BEAnteilZLAVUVPositionAVUVTyp 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 BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp)
|
|
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 BEAnteilZLAVUVPositionAVUVTyp) 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 BEAnteilZLAVUVPositionAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class SumABeendigungsAnteilAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _sumARegistriernummer As String
|
|
|
|
Private _sumAPosNr As String
|
|
|
|
Private _beendigungsPackstueckzahl As String
|
|
|
|
Private _artIdentifikation As String
|
|
|
|
Private _verwahrerEORI As String
|
|
|
|
Private _zollNummerVerwahrer As String
|
|
|
|
Private _spezifOrdnungsbegriffArt As String
|
|
|
|
Private _spezifOrdnungsbegriff As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SumARegistriernummer() As String
|
|
Get
|
|
Return Me._sumARegistriernummer
|
|
End Get
|
|
Set
|
|
Me._sumARegistriernummer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SumAPosNr() As String
|
|
Get
|
|
Return Me._sumAPosNr
|
|
End Get
|
|
Set
|
|
Me._sumAPosNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BeendigungsPackstueckzahl() As String
|
|
Get
|
|
Return Me._beendigungsPackstueckzahl
|
|
End Get
|
|
Set
|
|
Me._beendigungsPackstueckzahl = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ArtIdentifikation() As String
|
|
Get
|
|
Return Me._artIdentifikation
|
|
End Get
|
|
Set
|
|
Me._artIdentifikation = 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 ZollNummerVerwahrer() As String
|
|
Get
|
|
Return Me._zollNummerVerwahrer
|
|
End Get
|
|
Set
|
|
Me._zollNummerVerwahrer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SpezifOrdnungsbegriffArt() As String
|
|
Get
|
|
Return Me._spezifOrdnungsbegriffArt
|
|
End Get
|
|
Set
|
|
Me._spezifOrdnungsbegriffArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SpezifOrdnungsbegriff() As String
|
|
Get
|
|
Return Me._spezifOrdnungsbegriff
|
|
End Get
|
|
Set
|
|
Me._spezifOrdnungsbegriff = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SumABeendigungsAnteilAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize SumABeendigungsAnteilAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 SumABeendigungsAnteilAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output SumABeendigungsAnteilAVUVTyp 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 SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp)
|
|
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 SumABeendigungsAnteilAVUVTyp) 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 SumABeendigungsAnteilAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SumABeendigungsAnteilAVUVTyp)
|
|
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 SumABeendigungsAnteilAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), SumABeendigungsAnteilAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current SumABeendigungsAnteilAVUVTyp 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 SumABeendigungsAnteilAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output SumABeendigungsAnteilAVUVTyp 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 SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp)
|
|
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 SumABeendigungsAnteilAVUVTyp) 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 SumABeendigungsAnteilAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class AufschubAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _aufschubart As String
|
|
|
|
Private _artAufschubantrag As String
|
|
|
|
Private _aufschubnehmerEORI As String
|
|
|
|
Private _kennbuchstabenAufschub As String
|
|
|
|
Private _zollnummerAufschubnehmer As String
|
|
|
|
Private _kontoBewHZA As String
|
|
|
|
Private _kontoNr As String
|
|
|
|
Private _aufschubBIN As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Aufschubart() As String
|
|
Get
|
|
Return Me._aufschubart
|
|
End Get
|
|
Set
|
|
Me._aufschubart = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ArtAufschubantrag() As String
|
|
Get
|
|
Return Me._artAufschubantrag
|
|
End Get
|
|
Set
|
|
Me._artAufschubantrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AufschubnehmerEORI() As String
|
|
Get
|
|
Return Me._aufschubnehmerEORI
|
|
End Get
|
|
Set
|
|
Me._aufschubnehmerEORI = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KennbuchstabenAufschub() As String
|
|
Get
|
|
Return Me._kennbuchstabenAufschub
|
|
End Get
|
|
Set
|
|
Me._kennbuchstabenAufschub = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ZollnummerAufschubnehmer() As String
|
|
Get
|
|
Return Me._zollnummerAufschubnehmer
|
|
End Get
|
|
Set
|
|
Me._zollnummerAufschubnehmer = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KontoBewHZA() As String
|
|
Get
|
|
Return Me._kontoBewHZA
|
|
End Get
|
|
Set
|
|
Me._kontoBewHZA = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KontoNr() As String
|
|
Get
|
|
Return Me._kontoNr
|
|
End Get
|
|
Set
|
|
Me._kontoNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AufschubBIN() As String
|
|
Get
|
|
Return Me._aufschubBIN
|
|
End Get
|
|
Set
|
|
Me._aufschubBIN = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AufschubAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize AufschubAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 AufschubAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output AufschubAVUVTyp 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 AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AufschubAVUVTyp)
|
|
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 AufschubAVUVTyp) 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 AufschubAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AufschubAVUVTyp)
|
|
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 AufschubAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), AufschubAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current AufschubAVUVTyp 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 AufschubAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output AufschubAVUVTyp 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 AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AufschubAVUVTyp)
|
|
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 AufschubAVUVTyp) 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 AufschubAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class UnterlageVzKopfAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _bereich As String
|
|
|
|
Private _art As String
|
|
|
|
Private _nummer As String
|
|
|
|
Private _datumAusstellung As Date
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Bereich() As String
|
|
Get
|
|
Return Me._bereich
|
|
End Get
|
|
Set
|
|
Me._bereich = Value
|
|
End Set
|
|
End Property
|
|
|
|
<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
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
|
|
Public Property DatumAusstellung() As Date
|
|
Get
|
|
Return Me._datumAusstellung
|
|
End Get
|
|
Set
|
|
Me._datumAusstellung = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVzKopfAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize UnterlageVzKopfAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 UnterlageVzKopfAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output UnterlageVzKopfAVUVTyp 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 UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, UnterlageVzKopfAVUVTyp)
|
|
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 UnterlageVzKopfAVUVTyp) 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 UnterlageVzKopfAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), UnterlageVzKopfAVUVTyp)
|
|
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 UnterlageVzKopfAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), UnterlageVzKopfAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current UnterlageVzKopfAVUVTyp 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 UnterlageVzKopfAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output UnterlageVzKopfAVUVTyp 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 UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, UnterlageVzKopfAVUVTyp)
|
|
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 UnterlageVzKopfAVUVTyp) 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 UnterlageVzKopfAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class DV1KostenverteilungAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _kostenart As String
|
|
|
|
Private _kosten As String
|
|
|
|
Private _kostenWaehrung As String
|
|
|
|
Private _wechselkursArt As String
|
|
|
|
Private _wechselkurs As String
|
|
|
|
Private _wechselkursDatum As Date
|
|
|
|
Private _verteilungsart As String
|
|
|
|
Private _minimalbetrag As String
|
|
|
|
Private _rabattProzent As String
|
|
|
|
Private _skontoProzent As String
|
|
|
|
Private _bemerkungen As String
|
|
|
|
Private _versicherungBerechnenKz As String
|
|
|
|
Private _prozentualerAnteil As String
|
|
|
|
Private _imaginaererProfit As String
|
|
|
|
Private _andereZahlung As String
|
|
|
|
Private _summeRechnungManuell As String
|
|
|
|
Private _summeFrachtManuell As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Kostenart() As String
|
|
Get
|
|
Return Me._kostenart
|
|
End Get
|
|
Set
|
|
Me._kostenart = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Kosten() As String
|
|
Get
|
|
Return Me._kosten
|
|
End Get
|
|
Set
|
|
Me._kosten = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KostenWaehrung() As String
|
|
Get
|
|
Return Me._kostenWaehrung
|
|
End Get
|
|
Set
|
|
Me._kostenWaehrung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property WechselkursArt() As String
|
|
Get
|
|
Return Me._wechselkursArt
|
|
End Get
|
|
Set
|
|
Me._wechselkursArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Wechselkurs() As String
|
|
Get
|
|
Return Me._wechselkurs
|
|
End Get
|
|
Set
|
|
Me._wechselkurs = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
|
|
Public Property WechselkursDatum() As Date
|
|
Get
|
|
Return Me._wechselkursDatum
|
|
End Get
|
|
Set
|
|
Me._wechselkursDatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Verteilungsart() As String
|
|
Get
|
|
Return Me._verteilungsart
|
|
End Get
|
|
Set
|
|
Me._verteilungsart = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Minimalbetrag() As String
|
|
Get
|
|
Return Me._minimalbetrag
|
|
End Get
|
|
Set
|
|
Me._minimalbetrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property RabattProzent() As String
|
|
Get
|
|
Return Me._rabattProzent
|
|
End Get
|
|
Set
|
|
Me._rabattProzent = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SkontoProzent() As String
|
|
Get
|
|
Return Me._skontoProzent
|
|
End Get
|
|
Set
|
|
Me._skontoProzent = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Bemerkungen() As String
|
|
Get
|
|
Return Me._bemerkungen
|
|
End Get
|
|
Set
|
|
Me._bemerkungen = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VersicherungBerechnenKz() As String
|
|
Get
|
|
Return Me._versicherungBerechnenKz
|
|
End Get
|
|
Set
|
|
Me._versicherungBerechnenKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ProzentualerAnteil() As String
|
|
Get
|
|
Return Me._prozentualerAnteil
|
|
End Get
|
|
Set
|
|
Me._prozentualerAnteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ImaginaererProfit() As String
|
|
Get
|
|
Return Me._imaginaererProfit
|
|
End Get
|
|
Set
|
|
Me._imaginaererProfit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AndereZahlung() As String
|
|
Get
|
|
Return Me._andereZahlung
|
|
End Get
|
|
Set
|
|
Me._andereZahlung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SummeRechnungManuell() As String
|
|
Get
|
|
Return Me._summeRechnungManuell
|
|
End Get
|
|
Set
|
|
Me._summeRechnungManuell = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SummeFrachtManuell() As String
|
|
Get
|
|
Return Me._summeFrachtManuell
|
|
End Get
|
|
Set
|
|
Me._summeFrachtManuell = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DV1KostenverteilungAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize DV1KostenverteilungAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 DV1KostenverteilungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output DV1KostenverteilungAVUVTyp 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 DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DV1KostenverteilungAVUVTyp)
|
|
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 DV1KostenverteilungAVUVTyp) 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 DV1KostenverteilungAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DV1KostenverteilungAVUVTyp)
|
|
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 DV1KostenverteilungAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), DV1KostenverteilungAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DV1KostenverteilungAVUVTyp 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 DV1KostenverteilungAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output DV1KostenverteilungAVUVTyp 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 DV1KostenverteilungAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DV1KostenverteilungAVUVTyp)
|
|
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 DV1KostenverteilungAVUVTyp) 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 DV1KostenverteilungAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class DV1AngabenAVUVTyp
|
|
|
|
#Region "Private fields"
|
|
Private _dV1Kz As String
|
|
|
|
Private _vertretungsverhaeltnis As String
|
|
|
|
Private _fruehereEntscheidungen As String
|
|
|
|
Private _verbundenheit As String
|
|
|
|
Private _verbundenheitEinzelheiten As String
|
|
|
|
Private _einschraenkungenKz As String
|
|
|
|
Private _bedingungenLeistungenKz As String
|
|
|
|
Private _bedingungenLeistungenArt As String
|
|
|
|
Private _lizenzgebuehrenKz As String
|
|
|
|
Private _lizenzgebuehrenUmstand As String
|
|
|
|
Private _spezielleVereinbarungKz As String
|
|
|
|
Private _spezielleVereinbarungUmstand As String
|
|
|
|
Private _iATAAbflughafen As String
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property DV1Kz() As String
|
|
Get
|
|
Return Me._dV1Kz
|
|
End Get
|
|
Set
|
|
Me._dV1Kz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Vertretungsverhaeltnis() As String
|
|
Get
|
|
Return Me._vertretungsverhaeltnis
|
|
End Get
|
|
Set
|
|
Me._vertretungsverhaeltnis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property FruehereEntscheidungen() As String
|
|
Get
|
|
Return Me._fruehereEntscheidungen
|
|
End Get
|
|
Set
|
|
Me._fruehereEntscheidungen = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Verbundenheit() As String
|
|
Get
|
|
Return Me._verbundenheit
|
|
End Get
|
|
Set
|
|
Me._verbundenheit = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerbundenheitEinzelheiten() As String
|
|
Get
|
|
Return Me._verbundenheitEinzelheiten
|
|
End Get
|
|
Set
|
|
Me._verbundenheitEinzelheiten = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property EinschraenkungenKz() As String
|
|
Get
|
|
Return Me._einschraenkungenKz
|
|
End Get
|
|
Set
|
|
Me._einschraenkungenKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BedingungenLeistungenKz() As String
|
|
Get
|
|
Return Me._bedingungenLeistungenKz
|
|
End Get
|
|
Set
|
|
Me._bedingungenLeistungenKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BedingungenLeistungenArt() As String
|
|
Get
|
|
Return Me._bedingungenLeistungenArt
|
|
End Get
|
|
Set
|
|
Me._bedingungenLeistungenArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property LizenzgebuehrenKz() As String
|
|
Get
|
|
Return Me._lizenzgebuehrenKz
|
|
End Get
|
|
Set
|
|
Me._lizenzgebuehrenKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property LizenzgebuehrenUmstand() As String
|
|
Get
|
|
Return Me._lizenzgebuehrenUmstand
|
|
End Get
|
|
Set
|
|
Me._lizenzgebuehrenUmstand = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SpezielleVereinbarungKz() As String
|
|
Get
|
|
Return Me._spezielleVereinbarungKz
|
|
End Get
|
|
Set
|
|
Me._spezielleVereinbarungKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SpezielleVereinbarungUmstand() As String
|
|
Get
|
|
Return Me._spezielleVereinbarungUmstand
|
|
End Get
|
|
Set
|
|
Me._spezielleVereinbarungUmstand = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property IATAAbflughafen() As String
|
|
Get
|
|
Return Me._iATAAbflughafen
|
|
End Get
|
|
Set
|
|
Me._iATAAbflughafen = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
|
Get
|
|
If (_serializerXml Is Nothing) Then
|
|
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DV1AngabenAVUVTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize DV1AngabenAVUVTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 DV1AngabenAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output DV1AngabenAVUVTyp 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 DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DV1AngabenAVUVTyp)
|
|
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 DV1AngabenAVUVTyp) 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 DV1AngabenAVUVTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DV1AngabenAVUVTyp)
|
|
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 DV1AngabenAVUVTyp
|
|
Return CType(SerializerXml.Deserialize(s), DV1AngabenAVUVTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DV1AngabenAVUVTyp 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 DV1AngabenAVUVTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output DV1AngabenAVUVTyp 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 DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DV1AngabenAVUVTyp)
|
|
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 DV1AngabenAVUVTyp) 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 DV1AngabenAVUVTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp
|
|
|
|
#Region "Private fields"
|
|
Private _adressierteZollstelle As String
|
|
|
|
Private _anmelderIstEmpfaenger As String
|
|
|
|
Private _vertretungsverhaeltnisCode As String
|
|
|
|
Private _vorsteuerabzug As String
|
|
|
|
Private _nameAnmeldenderBearbeiter As String
|
|
|
|
Private _telefonnummerAnmeldenderBearbeiter As String
|
|
|
|
Private _stellungAnmeldenderBearbeiter As String
|
|
|
|
Private _emailAdresseAnmeldenderBearbeiter As String
|
|
|
|
Private _fiskalvertretungKz As String
|
|
|
|
Private _zusammenfassendeMeldungKzStdKto As String
|
|
|
|
Private _zusammenfassendeMeldungMelderkto As String
|
|
|
|
Private _intrastatKzStdKto As String
|
|
|
|
Private _intrastatMelderkto As String
|
|
|
|
Private _ausstellungsort As String
|
|
|
|
Private _zollrechtlicherStatus As String
|
|
|
|
Private _gesamtRohMasse As String
|
|
|
|
Private _verfahrenBeantragtCode As String
|
|
|
|
Private _verkehrszweigInland As String
|
|
|
|
Private _verkehrszweigGrenze As String
|
|
|
|
Private _versendungslandCode As String
|
|
|
|
Private _bestimmungsbundesland As String
|
|
|
|
Private _bestimmungsland As String
|
|
|
|
Private _kennzeichenNameBefoerderungsmittelAnkunft As String
|
|
|
|
Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String
|
|
|
|
Private _befoerderungsmittelGrenzeArt As String
|
|
|
|
Private _befoerderungsmittelGrenze As String
|
|
|
|
Private _lieferbedingungCode As String
|
|
|
|
Private _lieferbedingungText As String
|
|
|
|
Private _lieferbedingungSchluessel As String
|
|
|
|
Private _lieferbedingungOrt As String
|
|
|
|
Private _vorpapierArtCode As String
|
|
|
|
Private _vorpapierNr As String
|
|
|
|
Private _artGeschaeftCode As String
|
|
|
|
Private _statistikStatus As String
|
|
|
|
Private _warenort As String
|
|
|
|
Private _rechnungspreis As String
|
|
|
|
Private _rechnungswaehrung As String
|
|
|
|
Private _dV1Angaben As DV1AngabenAVUVTyp
|
|
|
|
Private _dV1Kostenverteilung As List(Of DV1KostenverteilungAVUVTyp)
|
|
|
|
Private _unterlage As List(Of UnterlageVzKopfAVUVTyp)
|
|
|
|
Private _zusatzAngabenAnmeldung As String
|
|
|
|
Private _kzAutoBestaetigung As String
|
|
|
|
Private _anschreibungDatum As Date
|
|
|
|
Private _vereinfachterBewilligungsantragKzAV As String
|
|
|
|
Private _eingangszollstelle As String
|
|
|
|
Private _zahlungsart As String
|
|
|
|
Private _aufschub As List(Of AufschubAVUVTyp)
|
|
|
|
Private _sumABeendigungsAnteil As List(Of SumABeendigungsAnteilAVUVTyp)
|
|
|
|
Private _containerNr As List(Of String)
|
|
|
|
Private _beendigungsAnteilArtCode As String
|
|
|
|
Private _bewilligungsIDZLAVUV As String
|
|
|
|
Private _bezugsnummerBEAnteilZL As String
|
|
|
|
Private _bEAnteilZLAVUV As List(Of BEAnteilZLAVUVPositionAVUVTyp)
|
|
|
|
Private _kzVereinfBewillAntrgBEAnteilAV As String
|
|
|
|
Private _deutschesUeHZAbeiAV As String
|
|
|
|
Private _erledigungsfristAV As String
|
|
|
|
Private _bemEinfuhrabgKz As String
|
|
|
|
Private _zusatzAngabenAV As String
|
|
|
|
Private _einzelheitenVeredelung As String
|
|
|
|
Private _aVBuchhaltVeredelung As List(Of AVBuchhaltVeredelungTyp)
|
|
|
|
Private _aVErledZollstelle As List(Of String)
|
|
|
|
Private _zusaetzlicheSteuerlicheVerweise As List(Of ZusaetzlicheSteuerlicheVerweiseTyp)
|
|
|
|
Private _adressen As List(Of AdressenVzImportAVUVTyp)
|
|
|
|
Private _applicationInternalData As ApplicationInternalDataType
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me._applicationInternalData = New ApplicationInternalDataType()
|
|
Me._adressen = New List(Of AdressenVzImportAVUVTyp)()
|
|
Me._zusaetzlicheSteuerlicheVerweise = New List(Of ZusaetzlicheSteuerlicheVerweiseTyp)()
|
|
Me._aVErledZollstelle = New List(Of String)()
|
|
Me._aVBuchhaltVeredelung = New List(Of AVBuchhaltVeredelungTyp)()
|
|
Me._bEAnteilZLAVUV = New List(Of BEAnteilZLAVUVPositionAVUVTyp)()
|
|
Me._containerNr = New List(Of String)()
|
|
Me._sumABeendigungsAnteil = New List(Of SumABeendigungsAnteilAVUVTyp)()
|
|
Me._aufschub = New List(Of AufschubAVUVTyp)()
|
|
Me._unterlage = New List(Of UnterlageVzKopfAVUVTyp)()
|
|
Me._dV1Kostenverteilung = New List(Of DV1KostenverteilungAVUVTyp)()
|
|
Me._dV1Angaben = New DV1AngabenAVUVTyp()
|
|
End Sub
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AdressierteZollstelle() As String
|
|
Get
|
|
Return Me._adressierteZollstelle
|
|
End Get
|
|
Set
|
|
Me._adressierteZollstelle = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AnmelderIstEmpfaenger() As String
|
|
Get
|
|
Return Me._anmelderIstEmpfaenger
|
|
End Get
|
|
Set
|
|
Me._anmelderIstEmpfaenger = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VertretungsverhaeltnisCode() As String
|
|
Get
|
|
Return Me._vertretungsverhaeltnisCode
|
|
End Get
|
|
Set
|
|
Me._vertretungsverhaeltnisCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Vorsteuerabzug() As String
|
|
Get
|
|
Return Me._vorsteuerabzug
|
|
End Get
|
|
Set
|
|
Me._vorsteuerabzug = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property NameAnmeldenderBearbeiter() As String
|
|
Get
|
|
Return Me._nameAnmeldenderBearbeiter
|
|
End Get
|
|
Set
|
|
Me._nameAnmeldenderBearbeiter = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property TelefonnummerAnmeldenderBearbeiter() As String
|
|
Get
|
|
Return Me._telefonnummerAnmeldenderBearbeiter
|
|
End Get
|
|
Set
|
|
Me._telefonnummerAnmeldenderBearbeiter = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property StellungAnmeldenderBearbeiter() As String
|
|
Get
|
|
Return Me._stellungAnmeldenderBearbeiter
|
|
End Get
|
|
Set
|
|
Me._stellungAnmeldenderBearbeiter = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property EmailAdresseAnmeldenderBearbeiter() As String
|
|
Get
|
|
Return Me._emailAdresseAnmeldenderBearbeiter
|
|
End Get
|
|
Set
|
|
Me._emailAdresseAnmeldenderBearbeiter = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property FiskalvertretungKz() As String
|
|
Get
|
|
Return Me._fiskalvertretungKz
|
|
End Get
|
|
Set
|
|
Me._fiskalvertretungKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ZusammenfassendeMeldungKzStdKto() As String
|
|
Get
|
|
Return Me._zusammenfassendeMeldungKzStdKto
|
|
End Get
|
|
Set
|
|
Me._zusammenfassendeMeldungKzStdKto = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ZusammenfassendeMeldungMelderkto() As String
|
|
Get
|
|
Return Me._zusammenfassendeMeldungMelderkto
|
|
End Get
|
|
Set
|
|
Me._zusammenfassendeMeldungMelderkto = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property IntrastatKzStdKto() As String
|
|
Get
|
|
Return Me._intrastatKzStdKto
|
|
End Get
|
|
Set
|
|
Me._intrastatKzStdKto = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property IntrastatMelderkto() As String
|
|
Get
|
|
Return Me._intrastatMelderkto
|
|
End Get
|
|
Set
|
|
Me._intrastatMelderkto = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Ausstellungsort() As String
|
|
Get
|
|
Return Me._ausstellungsort
|
|
End Get
|
|
Set
|
|
Me._ausstellungsort = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ZollrechtlicherStatus() As String
|
|
Get
|
|
Return Me._zollrechtlicherStatus
|
|
End Get
|
|
Set
|
|
Me._zollrechtlicherStatus = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property GesamtRohMasse() As String
|
|
Get
|
|
Return Me._gesamtRohMasse
|
|
End Get
|
|
Set
|
|
Me._gesamtRohMasse = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerfahrenBeantragtCode() As String
|
|
Get
|
|
Return Me._verfahrenBeantragtCode
|
|
End Get
|
|
Set
|
|
Me._verfahrenBeantragtCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VerkehrszweigInland() As String
|
|
Get
|
|
Return Me._verkehrszweigInland
|
|
End Get
|
|
Set
|
|
Me._verkehrszweigInland = 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 VersendungslandCode() As String
|
|
Get
|
|
Return Me._versendungslandCode
|
|
End Get
|
|
Set
|
|
Me._versendungslandCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Bestimmungsbundesland() As String
|
|
Get
|
|
Return Me._bestimmungsbundesland
|
|
End Get
|
|
Set
|
|
Me._bestimmungsbundesland = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Bestimmungsland() As String
|
|
Get
|
|
Return Me._bestimmungsland
|
|
End Get
|
|
Set
|
|
Me._bestimmungsland = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KennzeichenNameBefoerderungsmittelAnkunft() As String
|
|
Get
|
|
Return Me._kennzeichenNameBefoerderungsmittelAnkunft
|
|
End Get
|
|
Set
|
|
Me._kennzeichenNameBefoerderungsmittelAnkunft = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String
|
|
Get
|
|
Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode
|
|
End Get
|
|
Set
|
|
Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BefoerderungsmittelGrenzeArt() As String
|
|
Get
|
|
Return Me._befoerderungsmittelGrenzeArt
|
|
End Get
|
|
Set
|
|
Me._befoerderungsmittelGrenzeArt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BefoerderungsmittelGrenze() As String
|
|
Get
|
|
Return Me._befoerderungsmittelGrenze
|
|
End Get
|
|
Set
|
|
Me._befoerderungsmittelGrenze = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property LieferbedingungCode() As String
|
|
Get
|
|
Return Me._lieferbedingungCode
|
|
End Get
|
|
Set
|
|
Me._lieferbedingungCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property LieferbedingungText() As String
|
|
Get
|
|
Return Me._lieferbedingungText
|
|
End Get
|
|
Set
|
|
Me._lieferbedingungText = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property LieferbedingungSchluessel() As String
|
|
Get
|
|
Return Me._lieferbedingungSchluessel
|
|
End Get
|
|
Set
|
|
Me._lieferbedingungSchluessel = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property LieferbedingungOrt() As String
|
|
Get
|
|
Return Me._lieferbedingungOrt
|
|
End Get
|
|
Set
|
|
Me._lieferbedingungOrt = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VorpapierArtCode() As String
|
|
Get
|
|
Return Me._vorpapierArtCode
|
|
End Get
|
|
Set
|
|
Me._vorpapierArtCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VorpapierNr() As String
|
|
Get
|
|
Return Me._vorpapierNr
|
|
End Get
|
|
Set
|
|
Me._vorpapierNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ArtGeschaeftCode() As String
|
|
Get
|
|
Return Me._artGeschaeftCode
|
|
End Get
|
|
Set
|
|
Me._artGeschaeftCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property StatistikStatus() As String
|
|
Get
|
|
Return Me._statistikStatus
|
|
End Get
|
|
Set
|
|
Me._statistikStatus = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Warenort() As String
|
|
Get
|
|
Return Me._warenort
|
|
End Get
|
|
Set
|
|
Me._warenort = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Rechnungspreis() As String
|
|
Get
|
|
Return Me._rechnungspreis
|
|
End Get
|
|
Set
|
|
Me._rechnungspreis = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Rechnungswaehrung() As String
|
|
Get
|
|
Return Me._rechnungswaehrung
|
|
End Get
|
|
Set
|
|
Me._rechnungswaehrung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property DV1Angaben() As DV1AngabenAVUVTyp
|
|
Get
|
|
Return Me._dV1Angaben
|
|
End Get
|
|
Set
|
|
Me._dV1Angaben = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("DV1Kostenverteilung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property DV1Kostenverteilung() As List(Of DV1KostenverteilungAVUVTyp)
|
|
Get
|
|
Return Me._dV1Kostenverteilung
|
|
End Get
|
|
Set
|
|
Me._dV1Kostenverteilung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Unterlage", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Unterlage() As List(Of UnterlageVzKopfAVUVTyp)
|
|
Get
|
|
Return Me._unterlage
|
|
End Get
|
|
Set
|
|
Me._unterlage = 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 KzAutoBestaetigung() As String
|
|
Get
|
|
Return Me._kzAutoBestaetigung
|
|
End Get
|
|
Set
|
|
Me._kzAutoBestaetigung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")>
|
|
Public Property AnschreibungDatum() As Date
|
|
Get
|
|
Return Me._anschreibungDatum
|
|
End Get
|
|
Set
|
|
Me._anschreibungDatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property VereinfachterBewilligungsantragKzAV() As String
|
|
Get
|
|
Return Me._vereinfachterBewilligungsantragKzAV
|
|
End Get
|
|
Set
|
|
Me._vereinfachterBewilligungsantragKzAV = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Eingangszollstelle() As String
|
|
Get
|
|
Return Me._eingangszollstelle
|
|
End Get
|
|
Set
|
|
Me._eingangszollstelle = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Zahlungsart() As String
|
|
Get
|
|
Return Me._zahlungsart
|
|
End Get
|
|
Set
|
|
Me._zahlungsart = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Aufschub", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Aufschub() As List(Of AufschubAVUVTyp)
|
|
Get
|
|
Return Me._aufschub
|
|
End Get
|
|
Set
|
|
Me._aufschub = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("SumABeendigungsAnteil", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property SumABeendigungsAnteil() As List(Of SumABeendigungsAnteilAVUVTyp)
|
|
Get
|
|
Return Me._sumABeendigungsAnteil
|
|
End Get
|
|
Set
|
|
Me._sumABeendigungsAnteil = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("ContainerNr", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ContainerNr() As List(Of String)
|
|
Get
|
|
Return Me._containerNr
|
|
End Get
|
|
Set
|
|
Me._containerNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BeendigungsAnteilArtCode() As String
|
|
Get
|
|
Return Me._beendigungsAnteilArtCode
|
|
End Get
|
|
Set
|
|
Me._beendigungsAnteilArtCode = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BewilligungsIDZLAVUV() As String
|
|
Get
|
|
Return Me._bewilligungsIDZLAVUV
|
|
End Get
|
|
Set
|
|
Me._bewilligungsIDZLAVUV = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BezugsnummerBEAnteilZL() As String
|
|
Get
|
|
Return Me._bezugsnummerBEAnteilZL
|
|
End Get
|
|
Set
|
|
Me._bezugsnummerBEAnteilZL = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("BEAnteilZLAVUV", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BEAnteilZLAVUV() As List(Of BEAnteilZLAVUVPositionAVUVTyp)
|
|
Get
|
|
Return Me._bEAnteilZLAVUV
|
|
End Get
|
|
Set
|
|
Me._bEAnteilZLAVUV = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property KzVereinfBewillAntrgBEAnteilAV() As String
|
|
Get
|
|
Return Me._kzVereinfBewillAntrgBEAnteilAV
|
|
End Get
|
|
Set
|
|
Me._kzVereinfBewillAntrgBEAnteilAV = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property DeutschesUeHZAbeiAV() As String
|
|
Get
|
|
Return Me._deutschesUeHZAbeiAV
|
|
End Get
|
|
Set
|
|
Me._deutschesUeHZAbeiAV = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ErledigungsfristAV() As String
|
|
Get
|
|
Return Me._erledigungsfristAV
|
|
End Get
|
|
Set
|
|
Me._erledigungsfristAV = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property BemEinfuhrabgKz() As String
|
|
Get
|
|
Return Me._bemEinfuhrabgKz
|
|
End Get
|
|
Set
|
|
Me._bemEinfuhrabgKz = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ZusatzAngabenAV() As String
|
|
Get
|
|
Return Me._zusatzAngabenAV
|
|
End Get
|
|
Set
|
|
Me._zusatzAngabenAV = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property EinzelheitenVeredelung() As String
|
|
Get
|
|
Return Me._einzelheitenVeredelung
|
|
End Get
|
|
Set
|
|
Me._einzelheitenVeredelung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("AVBuchhaltVeredelung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AVBuchhaltVeredelung() As List(Of AVBuchhaltVeredelungTyp)
|
|
Get
|
|
Return Me._aVBuchhaltVeredelung
|
|
End Get
|
|
Set
|
|
Me._aVBuchhaltVeredelung = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("AVErledZollstelle", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property AVErledZollstelle() As List(Of String)
|
|
Get
|
|
Return Me._aVErledZollstelle
|
|
End Get
|
|
Set
|
|
Me._aVErledZollstelle = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("ZusaetzlicheSteuerlicheVerweise", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property ZusaetzlicheSteuerlicheVerweise() As List(Of ZusaetzlicheSteuerlicheVerweiseTyp)
|
|
Get
|
|
Return Me._zusaetzlicheSteuerlicheVerweise
|
|
End Get
|
|
Set
|
|
Me._zusaetzlicheSteuerlicheVerweise = Value
|
|
End Set
|
|
End Property
|
|
|
|
<XmlElement("Adressen", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Adressen() As List(Of AdressenVzImportAVUVTyp)
|
|
Get
|
|
Return Me._adressen
|
|
End Get
|
|
Set
|
|
Me._adressen = 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(KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp
|
|
Return CType(SerializerXml.Deserialize(s), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)
|
|
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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) 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 KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp
|
|
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.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class TransaktionFreierVerkehrTyp
|
|
|
|
#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(TransaktionFreierVerkehrTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize TransaktionFreierVerkehrTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 TransaktionFreierVerkehrTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output TransaktionFreierVerkehrTyp 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 TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
|
|
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 TransaktionFreierVerkehrTyp) 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 TransaktionFreierVerkehrTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp)
|
|
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 TransaktionFreierVerkehrTyp
|
|
Return CType(SerializerXml.Deserialize(s), TransaktionFreierVerkehrTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current TransaktionFreierVerkehrTyp 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 TransaktionFreierVerkehrTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output TransaktionFreierVerkehrTyp 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 TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
|
|
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 TransaktionFreierVerkehrTyp) 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 TransaktionFreierVerkehrTyp
|
|
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(FreierVerkehrAktVeredelUmwandlungAVUVTyp)),
|
|
System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
|
|
System.Serializable,
|
|
DebuggerStepThrough,
|
|
DesignerCategoryAttribute("code")>
|
|
Partial Public Class DatenaustauschFreierVerkehrTyp
|
|
|
|
#Region "Private fields"
|
|
Private _transaktion As TransaktionFreierVerkehrTyp
|
|
|
|
Private Shared _serializerXml As XmlSerializer
|
|
#End Region
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me._transaktion = New TransaktionFreierVerkehrTyp()
|
|
End Sub
|
|
|
|
<XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
|
|
Public Property Transaktion() As TransaktionFreierVerkehrTyp
|
|
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(DatenaustauschFreierVerkehrTyp))
|
|
End If
|
|
Return _serializerXml
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
''' <summary>
|
|
''' Serialize DatenaustauschFreierVerkehrTyp 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()
|
|
xmlWriterSettings.Indent = True
|
|
xmlWriterSettings.IndentChars = " "
|
|
xmlWriterSettings.NewLineOnAttributes = True
|
|
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 DatenaustauschFreierVerkehrTyp object
|
|
''' </summary>
|
|
''' <param name="input">string to deserialize</param>
|
|
''' <param name="obj">Output DatenaustauschFreierVerkehrTyp 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 DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
|
|
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 DatenaustauschFreierVerkehrTyp) 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 DatenaustauschFreierVerkehrTyp
|
|
Dim stringReader As StringReader = Nothing
|
|
Try
|
|
stringReader = New StringReader(input)
|
|
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp)
|
|
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 DatenaustauschFreierVerkehrTyp
|
|
Return CType(SerializerXml.Deserialize(s), DatenaustauschFreierVerkehrTyp)
|
|
End Function
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' Serializes current DatenaustauschFreierVerkehrTyp 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 DatenaustauschFreierVerkehrTyp object
|
|
''' </summary>
|
|
''' <param name="fileName">File to load and deserialize</param>
|
|
''' <param name="obj">Output DatenaustauschFreierVerkehrTyp 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 DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
|
|
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 DatenaustauschFreierVerkehrTyp) 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 DatenaustauschFreierVerkehrTyp
|
|
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
|