5850 lines
203 KiB
VB.net
5850 lines
203 KiB
VB.net
'' ------------------------------------------------------------------------------
|
|
'' <auto-generated>
|
|
'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL)
|
|
'' <NameSpace>BefundVereinfachteZollanmeldung_008</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><EnableLazyLoading>False</EnableLazyLoading><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><VirtualProp>False</VirtualProp><IncludeSerializeMethod>True</IncludeSerializeMethod><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><CodeBaseTag>Net20</CodeBaseTag><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><GenerateXMLAttributes>False</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableEncoding>False</EnableEncoding><AutomaticProperties>False</AutomaticProperties><GenerateShouldSerialize>False</GenerateShouldSerialize><DisableDebug>False</DisableDebug><PropNameSpecified>Default</PropNameSpecified><Encoder>UTF8</Encoder><CustomUsings></CustomUsings><ExcludeIncludedTypes>False</ExcludeIncludedTypes><EnableInitializeFields>True</EnableInitializeFields>
|
|
'' </auto-generated>
|
|
'' ------------------------------------------------------------------------------
|
|
Imports System
|
|
Imports System.Diagnostics
|
|
Imports System.Xml.Serialization
|
|
Imports System.Collections
|
|
Imports System.Xml.Schema
|
|
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Text
|
|
Imports System.Collections.Generic
|
|
|
|
Namespace BefundVereinfachteZollanmeldung_008
|
|
|
|
Partial Public Class BefundVereinfachteZollanmeldungVBTyp
|
|
Inherits DatenaustauschFreierVerkehrTyp
|
|
|
|
Private einzelBefundVereinfachteZollanmeldungField As EinzelBefundVereinfachteZollanmeldungTyp
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.einzelBefundVereinfachteZollanmeldungField = New EinzelBefundVereinfachteZollanmeldungTyp()
|
|
End Sub
|
|
|
|
Public Property EinzelBefundVereinfachteZollanmeldung() As EinzelBefundVereinfachteZollanmeldungTyp
|
|
Get
|
|
Return Me.einzelBefundVereinfachteZollanmeldungField
|
|
End Get
|
|
Set
|
|
Me.einzelBefundVereinfachteZollanmeldungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current BefundVereinfachteZollanmeldungVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an BefundVereinfachteZollanmeldungVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output BefundVereinfachteZollanmeldungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As BefundVereinfachteZollanmeldungVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), BefundVereinfachteZollanmeldungVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current BefundVereinfachteZollanmeldungVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 BefundVereinfachteZollanmeldungVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output BefundVereinfachteZollanmeldungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp)
|
|
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 BefundVereinfachteZollanmeldungVBTyp) 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 BefundVereinfachteZollanmeldungVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class EinzelBefundVereinfachteZollanmeldungTyp
|
|
|
|
Private objektIdentifizierungField As ObjektIdentifizierungVBTyp
|
|
|
|
Private kopfDatenField As KopfdatenBefundVereinfachteZollanmeldungTyp
|
|
|
|
Private positionField As List(Of PositionBefundVereinfachteZollanmeldungTyp)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.positionField = New List(Of PositionBefundVereinfachteZollanmeldungTyp)()
|
|
Me.kopfDatenField = New KopfdatenBefundVereinfachteZollanmeldungTyp()
|
|
Me.objektIdentifizierungField = New ObjektIdentifizierungVBTyp()
|
|
End Sub
|
|
|
|
Public Property ObjektIdentifizierung() As ObjektIdentifizierungVBTyp
|
|
Get
|
|
Return Me.objektIdentifizierungField
|
|
End Get
|
|
Set
|
|
Me.objektIdentifizierungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp
|
|
Get
|
|
Return Me.kopfDatenField
|
|
End Get
|
|
Set
|
|
Me.kopfDatenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp)
|
|
Get
|
|
Return Me.positionField
|
|
End Get
|
|
Set
|
|
Me.positionField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an EinzelBefundVereinfachteZollanmeldungTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output EinzelBefundVereinfachteZollanmeldungTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As EinzelBefundVereinfachteZollanmeldungTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), EinzelBefundVereinfachteZollanmeldungTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current EinzelBefundVereinfachteZollanmeldungTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 EinzelBefundVereinfachteZollanmeldungTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output EinzelBefundVereinfachteZollanmeldungTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp)
|
|
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 EinzelBefundVereinfachteZollanmeldungTyp) 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 EinzelBefundVereinfachteZollanmeldungTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class ObjektIdentifizierungVBTyp
|
|
|
|
Private objektNameField As String
|
|
|
|
Private eDIFACTNachrichtenNrField As String
|
|
|
|
Private zeitpunktEingangField As Date
|
|
|
|
Private zeitpunktEingangFieldSpecified As Boolean
|
|
|
|
Private shipmentReferenzField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property ObjektName() As String
|
|
Get
|
|
Return Me.objektNameField
|
|
End Get
|
|
Set
|
|
Me.objektNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EDIFACTNachrichtenNr() As String
|
|
Get
|
|
Return Me.eDIFACTNachrichtenNrField
|
|
End Get
|
|
Set
|
|
Me.eDIFACTNachrichtenNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZeitpunktEingang() As Date
|
|
Get
|
|
Return Me.zeitpunktEingangField
|
|
End Get
|
|
Set
|
|
Me.zeitpunktEingangField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ZeitpunktEingangSpecified() As Boolean
|
|
Get
|
|
Return Me.zeitpunktEingangFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.zeitpunktEingangFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ShipmentReferenz() As String
|
|
Get
|
|
Return Me.shipmentReferenzField
|
|
End Get
|
|
Set
|
|
Me.shipmentReferenzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(ObjektIdentifizierungVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current ObjektIdentifizierungVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an ObjektIdentifizierungVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output ObjektIdentifizierungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ObjektIdentifizierungVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As ObjektIdentifizierungVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), ObjektIdentifizierungVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current ObjektIdentifizierungVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 ObjektIdentifizierungVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output ObjektIdentifizierungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, ObjektIdentifizierungVBTyp)
|
|
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 ObjektIdentifizierungVBTyp) 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 ObjektIdentifizierungVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class SonderabgabenVBTyp
|
|
|
|
Private sonderfalleingabeSonderabgabengruppeField As String
|
|
|
|
Private anwendungsartField As String
|
|
|
|
Private satzBetragFaktorField As Decimal
|
|
|
|
Private satzBetragFaktorFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property SonderfalleingabeSonderabgabengruppe() As String
|
|
Get
|
|
Return Me.sonderfalleingabeSonderabgabengruppeField
|
|
End Get
|
|
Set
|
|
Me.sonderfalleingabeSonderabgabengruppeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Anwendungsart() As String
|
|
Get
|
|
Return Me.anwendungsartField
|
|
End Get
|
|
Set
|
|
Me.anwendungsartField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SatzBetragFaktor() As Decimal
|
|
Get
|
|
Return Me.satzBetragFaktorField
|
|
End Get
|
|
Set
|
|
Me.satzBetragFaktorField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property SatzBetragFaktorSpecified() As Boolean
|
|
Get
|
|
Return Me.satzBetragFaktorFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.satzBetragFaktorFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(SonderabgabenVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current SonderabgabenVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an SonderabgabenVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output SonderabgabenVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SonderabgabenVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As SonderabgabenVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As SonderabgabenVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), SonderabgabenVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current SonderabgabenVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 SonderabgabenVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output SonderabgabenVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, SonderabgabenVBTyp)
|
|
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 SonderabgabenVBTyp) 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 SonderabgabenVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class MinderungVBTyp
|
|
|
|
Private minderndeAbgabengruppeField As String
|
|
|
|
Private minderungsbetragField As Decimal
|
|
|
|
Private minderungsbetragFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property MinderndeAbgabengruppe() As String
|
|
Get
|
|
Return Me.minderndeAbgabengruppeField
|
|
End Get
|
|
Set
|
|
Me.minderndeAbgabengruppeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Minderungsbetrag() As Decimal
|
|
Get
|
|
Return Me.minderungsbetragField
|
|
End Get
|
|
Set
|
|
Me.minderungsbetragField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property MinderungsbetragSpecified() As Boolean
|
|
Get
|
|
Return Me.minderungsbetragFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.minderungsbetragFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(MinderungVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current MinderungVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an MinderungVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output MinderungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, MinderungVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As MinderungVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As MinderungVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), MinderungVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current MinderungVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 MinderungVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output MinderungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, MinderungVBTyp)
|
|
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 MinderungVBTyp) 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 MinderungVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class VerbrauchsteuerVBTyp
|
|
|
|
Private verbrauchsteuerCodeField As String
|
|
|
|
Private verbrauchssteuerMengeField As Decimal
|
|
|
|
Private verbrauchssteuerMengeFieldSpecified As Boolean
|
|
|
|
Private verbrauchssteuerMasseinheitCodeField As String
|
|
|
|
Private verbrauchssteuerMasseinheitQualifierField As String
|
|
|
|
Private gradProzentField As Decimal
|
|
|
|
Private gradProzentFieldSpecified As Boolean
|
|
|
|
Private verbrauchssteuerWertBasisField As Decimal
|
|
|
|
Private verbrauchssteuerWertBasisFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property VerbrauchsteuerCode() As String
|
|
Get
|
|
Return Me.verbrauchsteuerCodeField
|
|
End Get
|
|
Set
|
|
Me.verbrauchsteuerCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerMenge() As Decimal
|
|
Get
|
|
Return Me.verbrauchssteuerMengeField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerMengeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property VerbrauchssteuerMengeSpecified() As Boolean
|
|
Get
|
|
Return Me.verbrauchssteuerMengeFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerMengeFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerMasseinheitCode() As String
|
|
Get
|
|
Return Me.verbrauchssteuerMasseinheitCodeField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerMasseinheitCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerMasseinheitQualifier() As String
|
|
Get
|
|
Return Me.verbrauchssteuerMasseinheitQualifierField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerMasseinheitQualifierField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property GradProzent() As Decimal
|
|
Get
|
|
Return Me.gradProzentField
|
|
End Get
|
|
Set
|
|
Me.gradProzentField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property GradProzentSpecified() As Boolean
|
|
Get
|
|
Return Me.gradProzentFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.gradProzentFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbrauchssteuerWertBasis() As Decimal
|
|
Get
|
|
Return Me.verbrauchssteuerWertBasisField
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerWertBasisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property VerbrauchssteuerWertBasisSpecified() As Boolean
|
|
Get
|
|
Return Me.verbrauchssteuerWertBasisFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.verbrauchssteuerWertBasisFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(VerbrauchsteuerVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current VerbrauchsteuerVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an VerbrauchsteuerVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output VerbrauchsteuerVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, VerbrauchsteuerVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As VerbrauchsteuerVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), VerbrauchsteuerVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current VerbrauchsteuerVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 VerbrauchsteuerVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output VerbrauchsteuerVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, VerbrauchsteuerVBTyp)
|
|
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 VerbrauchsteuerVBTyp) 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 VerbrauchsteuerVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class GehaltsangabenVBTyp
|
|
|
|
Private artCodeField As String
|
|
|
|
Private gradProzentField As Decimal
|
|
|
|
Private gradProzentFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property ArtCode() As String
|
|
Get
|
|
Return Me.artCodeField
|
|
End Get
|
|
Set
|
|
Me.artCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property GradProzent() As Decimal
|
|
Get
|
|
Return Me.gradProzentField
|
|
End Get
|
|
Set
|
|
Me.gradProzentField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property GradProzentSpecified() As Boolean
|
|
Get
|
|
Return Me.gradProzentFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.gradProzentFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(GehaltsangabenVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current GehaltsangabenVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an GehaltsangabenVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output GehaltsangabenVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, GehaltsangabenVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As GehaltsangabenVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As GehaltsangabenVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), GehaltsangabenVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current GehaltsangabenVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 GehaltsangabenVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output GehaltsangabenVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, GehaltsangabenVBTyp)
|
|
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 GehaltsangabenVBTyp) 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 GehaltsangabenVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class PreisWertangabeVBTyp
|
|
|
|
Private preisartCodeField As String
|
|
|
|
Private wertField As Decimal
|
|
|
|
Private wertFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property PreisartCode() As String
|
|
Get
|
|
Return Me.preisartCodeField
|
|
End Get
|
|
Set
|
|
Me.preisartCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Wert() As Decimal
|
|
Get
|
|
Return Me.wertField
|
|
End Get
|
|
Set
|
|
Me.wertField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property WertSpecified() As Boolean
|
|
Get
|
|
Return Me.wertFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.wertFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PreisWertangabeVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current PreisWertangabeVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an PreisWertangabeVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output PreisWertangabeVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PreisWertangabeVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PreisWertangabeVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As PreisWertangabeVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PreisWertangabeVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current PreisWertangabeVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 PreisWertangabeVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output PreisWertangabeVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PreisWertangabeVBTyp)
|
|
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 PreisWertangabeVBTyp) 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 PreisWertangabeVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class WarenMengeVBTyp
|
|
|
|
Private mengeField As String
|
|
|
|
Private masseinheitField As String
|
|
|
|
Private qualifierField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property Menge() As String
|
|
Get
|
|
Return Me.mengeField
|
|
End Get
|
|
Set
|
|
Me.mengeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Masseinheit() As String
|
|
Get
|
|
Return Me.masseinheitField
|
|
End Get
|
|
Set
|
|
Me.masseinheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Qualifier() As String
|
|
Get
|
|
Return Me.qualifierField
|
|
End Get
|
|
Set
|
|
Me.qualifierField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(WarenMengeVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current WarenMengeVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an WarenMengeVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output WarenMengeVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, WarenMengeVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As WarenMengeVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As WarenMengeVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), WarenMengeVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current WarenMengeVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 WarenMengeVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output WarenMengeVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, WarenMengeVBTyp)
|
|
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 WarenMengeVBTyp) 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 WarenMengeVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class AbzugHinzurechnungenVBTyp
|
|
|
|
Private artCodeField As String
|
|
|
|
Private artTextField As String
|
|
|
|
Private betragField As Decimal
|
|
|
|
Private betragFieldSpecified As Boolean
|
|
|
|
Private iATAKursKzField As String
|
|
|
|
Private waehrungField As String
|
|
|
|
Private kursVereinbartKzField As String
|
|
|
|
Private kursAuslandswaehrungField As Decimal
|
|
|
|
Private kursAuslandswaehrungFieldSpecified As Boolean
|
|
|
|
Private kursDatumField As Date
|
|
|
|
Private kursDatumFieldSpecified As Boolean
|
|
|
|
Private prozentsatzField As Decimal
|
|
|
|
Private prozentsatzFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property ArtCode() As String
|
|
Get
|
|
Return Me.artCodeField
|
|
End Get
|
|
Set
|
|
Me.artCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ArtText() As String
|
|
Get
|
|
Return Me.artTextField
|
|
End Get
|
|
Set
|
|
Me.artTextField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Betrag() As Decimal
|
|
Get
|
|
Return Me.betragField
|
|
End Get
|
|
Set
|
|
Me.betragField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property BetragSpecified() As Boolean
|
|
Get
|
|
Return Me.betragFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.betragFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IATAKursKz() As String
|
|
Get
|
|
Return Me.iATAKursKzField
|
|
End Get
|
|
Set
|
|
Me.iATAKursKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Waehrung() As String
|
|
Get
|
|
Return Me.waehrungField
|
|
End Get
|
|
Set
|
|
Me.waehrungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KursVereinbartKz() As String
|
|
Get
|
|
Return Me.kursVereinbartKzField
|
|
End Get
|
|
Set
|
|
Me.kursVereinbartKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KursAuslandswaehrung() As Decimal
|
|
Get
|
|
Return Me.kursAuslandswaehrungField
|
|
End Get
|
|
Set
|
|
Me.kursAuslandswaehrungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property KursAuslandswaehrungSpecified() As Boolean
|
|
Get
|
|
Return Me.kursAuslandswaehrungFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.kursAuslandswaehrungFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KursDatum() As Date
|
|
Get
|
|
Return Me.kursDatumField
|
|
End Get
|
|
Set
|
|
Me.kursDatumField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property KursDatumSpecified() As Boolean
|
|
Get
|
|
Return Me.kursDatumFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.kursDatumFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Prozentsatz() As Decimal
|
|
Get
|
|
Return Me.prozentsatzField
|
|
End Get
|
|
Set
|
|
Me.prozentsatzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ProzentsatzSpecified() As Boolean
|
|
Get
|
|
Return Me.prozentsatzFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.prozentsatzFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbzugHinzurechnungenVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current AbzugHinzurechnungenVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an AbzugHinzurechnungenVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output AbzugHinzurechnungenVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbzugHinzurechnungenVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As AbzugHinzurechnungenVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbzugHinzurechnungenVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current AbzugHinzurechnungenVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 AbzugHinzurechnungenVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output AbzugHinzurechnungenVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbzugHinzurechnungenVBTyp)
|
|
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 AbzugHinzurechnungenVBTyp) 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 AbzugHinzurechnungenVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class AbweichungVBTyp
|
|
|
|
Private abweichendFestgesetztesFeldField As String
|
|
|
|
Private abweichendFestgesetztesFeldQualifikatorField As String
|
|
|
|
Private qualifikatorInhaltField As String
|
|
|
|
Private abweichendeFestsetzungArtField As String
|
|
|
|
Private abweichendFestgesetztVonField As String
|
|
|
|
Private abweichendFestgesetztAufField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property AbweichendFestgesetztesFeld() As String
|
|
Get
|
|
Return Me.abweichendFestgesetztesFeldField
|
|
End Get
|
|
Set
|
|
Me.abweichendFestgesetztesFeldField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbweichendFestgesetztesFeldQualifikator() As String
|
|
Get
|
|
Return Me.abweichendFestgesetztesFeldQualifikatorField
|
|
End Get
|
|
Set
|
|
Me.abweichendFestgesetztesFeldQualifikatorField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property QualifikatorInhalt() As String
|
|
Get
|
|
Return Me.qualifikatorInhaltField
|
|
End Get
|
|
Set
|
|
Me.qualifikatorInhaltField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbweichendeFestsetzungArt() As String
|
|
Get
|
|
Return Me.abweichendeFestsetzungArtField
|
|
End Get
|
|
Set
|
|
Me.abweichendeFestsetzungArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbweichendFestgesetztVon() As String
|
|
Get
|
|
Return Me.abweichendFestgesetztVonField
|
|
End Get
|
|
Set
|
|
Me.abweichendFestgesetztVonField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbweichendFestgesetztAuf() As String
|
|
Get
|
|
Return Me.abweichendFestgesetztAufField
|
|
End Get
|
|
Set
|
|
Me.abweichendFestgesetztAufField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbweichungVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current AbweichungVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an AbweichungVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output AbweichungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbweichungVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AbweichungVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As AbweichungVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AbweichungVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current AbweichungVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 AbweichungVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output AbweichungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AbweichungVBTyp)
|
|
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 AbweichungVBTyp) 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 AbweichungVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class UnterlageVBTyp
|
|
|
|
Private artField As String
|
|
|
|
Private bereichField As String
|
|
|
|
Private nummerField As String
|
|
|
|
Private datumAusstellungField As Date
|
|
|
|
Private datumAusstellungFieldSpecified As Boolean
|
|
|
|
Private vorlageKzField As String
|
|
|
|
Private abschreibungsMengeField As Decimal
|
|
|
|
Private abschreibungsMengeFieldSpecified As Boolean
|
|
|
|
Private abschreibungsMengeMasseinheitField As String
|
|
|
|
Private abschreibungsMengeMasseinheitQualifierField As String
|
|
|
|
Private kzAnerkennungField As String
|
|
|
|
Private kzAbschreibungField As String
|
|
|
|
Private kzEinbehaltenField As String
|
|
|
|
Private kzPeriodischeVorlageField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property Art() As String
|
|
Get
|
|
Return Me.artField
|
|
End Get
|
|
Set
|
|
Me.artField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Bereich() As String
|
|
Get
|
|
Return Me.bereichField
|
|
End Get
|
|
Set
|
|
Me.bereichField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Nummer() As String
|
|
Get
|
|
Return Me.nummerField
|
|
End Get
|
|
Set
|
|
Me.nummerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DatumAusstellung() As Date
|
|
Get
|
|
Return Me.datumAusstellungField
|
|
End Get
|
|
Set
|
|
Me.datumAusstellungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property DatumAusstellungSpecified() As Boolean
|
|
Get
|
|
Return Me.datumAusstellungFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.datumAusstellungFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VorlageKz() As String
|
|
Get
|
|
Return Me.vorlageKzField
|
|
End Get
|
|
Set
|
|
Me.vorlageKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbschreibungsMenge() As Decimal
|
|
Get
|
|
Return Me.abschreibungsMengeField
|
|
End Get
|
|
Set
|
|
Me.abschreibungsMengeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AbschreibungsMengeSpecified() As Boolean
|
|
Get
|
|
Return Me.abschreibungsMengeFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.abschreibungsMengeFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbschreibungsMengeMasseinheit() As String
|
|
Get
|
|
Return Me.abschreibungsMengeMasseinheitField
|
|
End Get
|
|
Set
|
|
Me.abschreibungsMengeMasseinheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbschreibungsMengeMasseinheitQualifier() As String
|
|
Get
|
|
Return Me.abschreibungsMengeMasseinheitQualifierField
|
|
End Get
|
|
Set
|
|
Me.abschreibungsMengeMasseinheitQualifierField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzAnerkennung() As String
|
|
Get
|
|
Return Me.kzAnerkennungField
|
|
End Get
|
|
Set
|
|
Me.kzAnerkennungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzAbschreibung() As String
|
|
Get
|
|
Return Me.kzAbschreibungField
|
|
End Get
|
|
Set
|
|
Me.kzAbschreibungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzEinbehalten() As String
|
|
Get
|
|
Return Me.kzEinbehaltenField
|
|
End Get
|
|
Set
|
|
Me.kzEinbehaltenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzPeriodischeVorlage() As String
|
|
Get
|
|
Return Me.kzPeriodischeVorlageField
|
|
End Get
|
|
Set
|
|
Me.kzPeriodischeVorlageField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(UnterlageVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current UnterlageVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an UnterlageVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output UnterlageVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, UnterlageVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As UnterlageVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As UnterlageVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), UnterlageVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current UnterlageVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 UnterlageVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output UnterlageVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, UnterlageVBTyp)
|
|
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 UnterlageVBTyp) 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 UnterlageVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class PositionBefundVereinfachteZollanmeldungTyp
|
|
|
|
Private positionsNrvZAAZField As String
|
|
|
|
Private mitteilungAnTeilnehmerBeschauField As String
|
|
|
|
Private weitererNachweisField As String
|
|
|
|
Private mitteilungAnTeilnehmerErledigungField As String
|
|
|
|
Private positionsbefundField As String
|
|
|
|
Private unterlageField As List(Of UnterlageVBTyp)
|
|
|
|
Private ueberlassungDatumField As Date
|
|
|
|
Private ueberlassungDatumFieldSpecified As Boolean
|
|
|
|
Private weitererNachweisFristField As Date
|
|
|
|
Private weitererNachweisFristFieldSpecified As Boolean
|
|
|
|
Private positionKzErledigungField As String
|
|
|
|
Private abweichungField As List(Of AbweichungVBTyp)
|
|
|
|
Private warenNummerEZTField As String
|
|
|
|
Private warenNummerZusatzCodeField As List(Of String)
|
|
|
|
Private abgabensteuerungKzField As String
|
|
|
|
Private eUCodeField As List(Of String)
|
|
|
|
Private sachbereichField As String
|
|
|
|
Private artikelNummerField As String
|
|
|
|
Private artikelpreisField As Decimal
|
|
|
|
Private artikelpreisFieldSpecified As Boolean
|
|
|
|
Private positionsZusatzField As String
|
|
|
|
Private eigenmasseField As Decimal
|
|
|
|
Private eigenmasseFieldSpecified As Boolean
|
|
|
|
Private ursprungslandCodeField As String
|
|
|
|
Private tabakSteuerzeichenIDField As String
|
|
|
|
Private statistikStatusField As String
|
|
|
|
Private artGeschaeftCodeField As String
|
|
|
|
Private bestimmungsbundeslandField As String
|
|
|
|
Private aHStatWertField As String
|
|
|
|
Private aHStatMengeField As Decimal
|
|
|
|
Private aHStatMengeFieldSpecified As Boolean
|
|
|
|
Private aHStatMengeMasseinheitField As String
|
|
|
|
Private aHStatMengeQualifierField As String
|
|
|
|
Private rohmasseField As Decimal
|
|
|
|
Private rohmasseFieldSpecified As Boolean
|
|
|
|
Private dV1NettopreisField As Decimal
|
|
|
|
Private dV1NettopreisFieldSpecified As Boolean
|
|
|
|
Private dV1WaehrungField As String
|
|
|
|
Private dV1KzKursNettoVereinbartField As String
|
|
|
|
Private dV1KursField As Decimal
|
|
|
|
Private dV1KursFieldSpecified As Boolean
|
|
|
|
Private dV1MittelbareZahlungenField As Decimal
|
|
|
|
Private dV1MittelbareZahlungenFieldSpecified As Boolean
|
|
|
|
Private dV1MittelbareZahlungenWaehrungField As String
|
|
|
|
Private dV1MittelbareZahlungenKursKzField As String
|
|
|
|
Private dV1MittelbareZahlungenKursField As Decimal
|
|
|
|
Private dV1MittelbareZahlungenKursFieldSpecified As Boolean
|
|
|
|
Private ortVerbringensField As String
|
|
|
|
Private abflughafenIATACodeField As String
|
|
|
|
Private luftfrachtkostenGesamtField As Decimal
|
|
|
|
Private luftfrachtkostenGesamtFieldSpecified As Boolean
|
|
|
|
Private iATAKursKzField As String
|
|
|
|
Private luftfrachtkostenGesamtWaehrungField As String
|
|
|
|
Private kursVereinbartKzField As String
|
|
|
|
Private kursBetragVereinbartField As Decimal
|
|
|
|
Private kursBetragVereinbartFieldSpecified As Boolean
|
|
|
|
Private kursDatumField As Date
|
|
|
|
Private kursDatumFieldSpecified As Boolean
|
|
|
|
Private abzugHinzurechnungenField As List(Of AbzugHinzurechnungenVBTyp)
|
|
|
|
Private zollwertField As Decimal
|
|
|
|
Private zollwertFieldSpecified As Boolean
|
|
|
|
Private warenMengeField As List(Of WarenMengeVBTyp)
|
|
|
|
Private besondereWertangabeField As List(Of PreisWertangabeVBTyp)
|
|
|
|
Private gehaltsangabenField As List(Of GehaltsangabenVBTyp)
|
|
|
|
Private veredelungWertsteigerungField As Decimal
|
|
|
|
Private veredelungWertsteigerungFieldSpecified As Boolean
|
|
|
|
Private kostenEUStField As Decimal
|
|
|
|
Private kostenEUStFieldSpecified As Boolean
|
|
|
|
Private verbrauchsteuerField As List(Of VerbrauchsteuerVBTyp)
|
|
|
|
Private beguenstigungBeantragtCodeField As String
|
|
|
|
Private beguenstigungMengeField As String
|
|
|
|
Private beguenstigungMengeMasseinheitField As String
|
|
|
|
Private beguenstigungMengeQualifikatorField As String
|
|
|
|
Private minderungField As List(Of MinderungVBTyp)
|
|
|
|
Private sonderabgabenField As List(Of SonderabgabenVBTyp)
|
|
|
|
Private kontingentNrAngewandtField As List(Of String)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.kontingentNrAngewandtField = New List(Of String)()
|
|
Me.sonderabgabenField = New List(Of SonderabgabenVBTyp)()
|
|
Me.minderungField = New List(Of MinderungVBTyp)()
|
|
Me.verbrauchsteuerField = New List(Of VerbrauchsteuerVBTyp)()
|
|
Me.gehaltsangabenField = New List(Of GehaltsangabenVBTyp)()
|
|
Me.besondereWertangabeField = New List(Of PreisWertangabeVBTyp)()
|
|
Me.warenMengeField = New List(Of WarenMengeVBTyp)()
|
|
Me.abzugHinzurechnungenField = New List(Of AbzugHinzurechnungenVBTyp)()
|
|
Me.eUCodeField = New List(Of String)()
|
|
Me.warenNummerZusatzCodeField = New List(Of String)()
|
|
Me.abweichungField = New List(Of AbweichungVBTyp)()
|
|
Me.unterlageField = New List(Of UnterlageVBTyp)()
|
|
End Sub
|
|
|
|
Public Property PositionsNrvZAAZ() As String
|
|
Get
|
|
Return Me.positionsNrvZAAZField
|
|
End Get
|
|
Set
|
|
Me.positionsNrvZAAZField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property MitteilungAnTeilnehmerBeschau() As String
|
|
Get
|
|
Return Me.mitteilungAnTeilnehmerBeschauField
|
|
End Get
|
|
Set
|
|
Me.mitteilungAnTeilnehmerBeschauField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WeitererNachweis() As String
|
|
Get
|
|
Return Me.weitererNachweisField
|
|
End Get
|
|
Set
|
|
Me.weitererNachweisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property MitteilungAnTeilnehmerErledigung() As String
|
|
Get
|
|
Return Me.mitteilungAnTeilnehmerErledigungField
|
|
End Get
|
|
Set
|
|
Me.mitteilungAnTeilnehmerErledigungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Positionsbefund() As String
|
|
Get
|
|
Return Me.positionsbefundField
|
|
End Get
|
|
Set
|
|
Me.positionsbefundField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Unterlage() As List(Of UnterlageVBTyp)
|
|
Get
|
|
Return Me.unterlageField
|
|
End Get
|
|
Set
|
|
Me.unterlageField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UeberlassungDatum() As Date
|
|
Get
|
|
Return Me.ueberlassungDatumField
|
|
End Get
|
|
Set
|
|
Me.ueberlassungDatumField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property UeberlassungDatumSpecified() As Boolean
|
|
Get
|
|
Return Me.ueberlassungDatumFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.ueberlassungDatumFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WeitererNachweisFrist() As Date
|
|
Get
|
|
Return Me.weitererNachweisFristField
|
|
End Get
|
|
Set
|
|
Me.weitererNachweisFristField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property WeitererNachweisFristSpecified() As Boolean
|
|
Get
|
|
Return Me.weitererNachweisFristFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.weitererNachweisFristFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property PositionKzErledigung() As String
|
|
Get
|
|
Return Me.positionKzErledigungField
|
|
End Get
|
|
Set
|
|
Me.positionKzErledigungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Abweichung() As List(Of AbweichungVBTyp)
|
|
Get
|
|
Return Me.abweichungField
|
|
End Get
|
|
Set
|
|
Me.abweichungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WarenNummerEZT() As String
|
|
Get
|
|
Return Me.warenNummerEZTField
|
|
End Get
|
|
Set
|
|
Me.warenNummerEZTField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WarenNummerZusatzCode() As List(Of String)
|
|
Get
|
|
Return Me.warenNummerZusatzCodeField
|
|
End Get
|
|
Set
|
|
Me.warenNummerZusatzCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbgabensteuerungKz() As String
|
|
Get
|
|
Return Me.abgabensteuerungKzField
|
|
End Get
|
|
Set
|
|
Me.abgabensteuerungKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EUCode() As List(Of String)
|
|
Get
|
|
Return Me.eUCodeField
|
|
End Get
|
|
Set
|
|
Me.eUCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Sachbereich() As String
|
|
Get
|
|
Return Me.sachbereichField
|
|
End Get
|
|
Set
|
|
Me.sachbereichField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ArtikelNummer() As String
|
|
Get
|
|
Return Me.artikelNummerField
|
|
End Get
|
|
Set
|
|
Me.artikelNummerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Artikelpreis() As Decimal
|
|
Get
|
|
Return Me.artikelpreisField
|
|
End Get
|
|
Set
|
|
Me.artikelpreisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ArtikelpreisSpecified() As Boolean
|
|
Get
|
|
Return Me.artikelpreisFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.artikelpreisFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property PositionsZusatz() As String
|
|
Get
|
|
Return Me.positionsZusatzField
|
|
End Get
|
|
Set
|
|
Me.positionsZusatzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Eigenmasse() As Decimal
|
|
Get
|
|
Return Me.eigenmasseField
|
|
End Get
|
|
Set
|
|
Me.eigenmasseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property EigenmasseSpecified() As Boolean
|
|
Get
|
|
Return Me.eigenmasseFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.eigenmasseFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UrsprungslandCode() As String
|
|
Get
|
|
Return Me.ursprungslandCodeField
|
|
End Get
|
|
Set
|
|
Me.ursprungslandCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property TabakSteuerzeichenID() As String
|
|
Get
|
|
Return Me.tabakSteuerzeichenIDField
|
|
End Get
|
|
Set
|
|
Me.tabakSteuerzeichenIDField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property StatistikStatus() As String
|
|
Get
|
|
Return Me.statistikStatusField
|
|
End Get
|
|
Set
|
|
Me.statistikStatusField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ArtGeschaeftCode() As String
|
|
Get
|
|
Return Me.artGeschaeftCodeField
|
|
End Get
|
|
Set
|
|
Me.artGeschaeftCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Bestimmungsbundesland() As String
|
|
Get
|
|
Return Me.bestimmungsbundeslandField
|
|
End Get
|
|
Set
|
|
Me.bestimmungsbundeslandField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AHStatWert() As String
|
|
Get
|
|
Return Me.aHStatWertField
|
|
End Get
|
|
Set
|
|
Me.aHStatWertField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AHStatMenge() As Decimal
|
|
Get
|
|
Return Me.aHStatMengeField
|
|
End Get
|
|
Set
|
|
Me.aHStatMengeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property AHStatMengeSpecified() As Boolean
|
|
Get
|
|
Return Me.aHStatMengeFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.aHStatMengeFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AHStatMengeMasseinheit() As String
|
|
Get
|
|
Return Me.aHStatMengeMasseinheitField
|
|
End Get
|
|
Set
|
|
Me.aHStatMengeMasseinheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AHStatMengeQualifier() As String
|
|
Get
|
|
Return Me.aHStatMengeQualifierField
|
|
End Get
|
|
Set
|
|
Me.aHStatMengeQualifierField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Rohmasse() As Decimal
|
|
Get
|
|
Return Me.rohmasseField
|
|
End Get
|
|
Set
|
|
Me.rohmasseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property RohmasseSpecified() As Boolean
|
|
Get
|
|
Return Me.rohmasseFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.rohmasseFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1Nettopreis() As Decimal
|
|
Get
|
|
Return Me.dV1NettopreisField
|
|
End Get
|
|
Set
|
|
Me.dV1NettopreisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property DV1NettopreisSpecified() As Boolean
|
|
Get
|
|
Return Me.dV1NettopreisFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.dV1NettopreisFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1Waehrung() As String
|
|
Get
|
|
Return Me.dV1WaehrungField
|
|
End Get
|
|
Set
|
|
Me.dV1WaehrungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1KzKursNettoVereinbart() As String
|
|
Get
|
|
Return Me.dV1KzKursNettoVereinbartField
|
|
End Get
|
|
Set
|
|
Me.dV1KzKursNettoVereinbartField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1Kurs() As Decimal
|
|
Get
|
|
Return Me.dV1KursField
|
|
End Get
|
|
Set
|
|
Me.dV1KursField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property DV1KursSpecified() As Boolean
|
|
Get
|
|
Return Me.dV1KursFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.dV1KursFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1MittelbareZahlungen() As Decimal
|
|
Get
|
|
Return Me.dV1MittelbareZahlungenField
|
|
End Get
|
|
Set
|
|
Me.dV1MittelbareZahlungenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property DV1MittelbareZahlungenSpecified() As Boolean
|
|
Get
|
|
Return Me.dV1MittelbareZahlungenFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.dV1MittelbareZahlungenFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1MittelbareZahlungenWaehrung() As String
|
|
Get
|
|
Return Me.dV1MittelbareZahlungenWaehrungField
|
|
End Get
|
|
Set
|
|
Me.dV1MittelbareZahlungenWaehrungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1MittelbareZahlungenKursKz() As String
|
|
Get
|
|
Return Me.dV1MittelbareZahlungenKursKzField
|
|
End Get
|
|
Set
|
|
Me.dV1MittelbareZahlungenKursKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1MittelbareZahlungenKurs() As Decimal
|
|
Get
|
|
Return Me.dV1MittelbareZahlungenKursField
|
|
End Get
|
|
Set
|
|
Me.dV1MittelbareZahlungenKursField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property DV1MittelbareZahlungenKursSpecified() As Boolean
|
|
Get
|
|
Return Me.dV1MittelbareZahlungenKursFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.dV1MittelbareZahlungenKursFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property OrtVerbringens() As String
|
|
Get
|
|
Return Me.ortVerbringensField
|
|
End Get
|
|
Set
|
|
Me.ortVerbringensField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbflughafenIATACode() As String
|
|
Get
|
|
Return Me.abflughafenIATACodeField
|
|
End Get
|
|
Set
|
|
Me.abflughafenIATACodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LuftfrachtkostenGesamt() As Decimal
|
|
Get
|
|
Return Me.luftfrachtkostenGesamtField
|
|
End Get
|
|
Set
|
|
Me.luftfrachtkostenGesamtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property LuftfrachtkostenGesamtSpecified() As Boolean
|
|
Get
|
|
Return Me.luftfrachtkostenGesamtFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.luftfrachtkostenGesamtFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IATAKursKz() As String
|
|
Get
|
|
Return Me.iATAKursKzField
|
|
End Get
|
|
Set
|
|
Me.iATAKursKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LuftfrachtkostenGesamtWaehrung() As String
|
|
Get
|
|
Return Me.luftfrachtkostenGesamtWaehrungField
|
|
End Get
|
|
Set
|
|
Me.luftfrachtkostenGesamtWaehrungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KursVereinbartKz() As String
|
|
Get
|
|
Return Me.kursVereinbartKzField
|
|
End Get
|
|
Set
|
|
Me.kursVereinbartKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KursBetragVereinbart() As Decimal
|
|
Get
|
|
Return Me.kursBetragVereinbartField
|
|
End Get
|
|
Set
|
|
Me.kursBetragVereinbartField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property KursBetragVereinbartSpecified() As Boolean
|
|
Get
|
|
Return Me.kursBetragVereinbartFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.kursBetragVereinbartFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KursDatum() As Date
|
|
Get
|
|
Return Me.kursDatumField
|
|
End Get
|
|
Set
|
|
Me.kursDatumField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property KursDatumSpecified() As Boolean
|
|
Get
|
|
Return Me.kursDatumFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.kursDatumFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp)
|
|
Get
|
|
Return Me.abzugHinzurechnungenField
|
|
End Get
|
|
Set
|
|
Me.abzugHinzurechnungenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Zollwert() As Decimal
|
|
Get
|
|
Return Me.zollwertField
|
|
End Get
|
|
Set
|
|
Me.zollwertField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property ZollwertSpecified() As Boolean
|
|
Get
|
|
Return Me.zollwertFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.zollwertFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WarenMenge() As List(Of WarenMengeVBTyp)
|
|
Get
|
|
Return Me.warenMengeField
|
|
End Get
|
|
Set
|
|
Me.warenMengeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp)
|
|
Get
|
|
Return Me.besondereWertangabeField
|
|
End Get
|
|
Set
|
|
Me.besondereWertangabeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp)
|
|
Get
|
|
Return Me.gehaltsangabenField
|
|
End Get
|
|
Set
|
|
Me.gehaltsangabenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VeredelungWertsteigerung() As Decimal
|
|
Get
|
|
Return Me.veredelungWertsteigerungField
|
|
End Get
|
|
Set
|
|
Me.veredelungWertsteigerungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property VeredelungWertsteigerungSpecified() As Boolean
|
|
Get
|
|
Return Me.veredelungWertsteigerungFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.veredelungWertsteigerungFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KostenEUSt() As Decimal
|
|
Get
|
|
Return Me.kostenEUStField
|
|
End Get
|
|
Set
|
|
Me.kostenEUStField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property KostenEUStSpecified() As Boolean
|
|
Get
|
|
Return Me.kostenEUStFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.kostenEUStFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp)
|
|
Get
|
|
Return Me.verbrauchsteuerField
|
|
End Get
|
|
Set
|
|
Me.verbrauchsteuerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BeguenstigungBeantragtCode() As String
|
|
Get
|
|
Return Me.beguenstigungBeantragtCodeField
|
|
End Get
|
|
Set
|
|
Me.beguenstigungBeantragtCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BeguenstigungMenge() As String
|
|
Get
|
|
Return Me.beguenstigungMengeField
|
|
End Get
|
|
Set
|
|
Me.beguenstigungMengeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BeguenstigungMengeMasseinheit() As String
|
|
Get
|
|
Return Me.beguenstigungMengeMasseinheitField
|
|
End Get
|
|
Set
|
|
Me.beguenstigungMengeMasseinheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BeguenstigungMengeQualifikator() As String
|
|
Get
|
|
Return Me.beguenstigungMengeQualifikatorField
|
|
End Get
|
|
Set
|
|
Me.beguenstigungMengeQualifikatorField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Minderung() As List(Of MinderungVBTyp)
|
|
Get
|
|
Return Me.minderungField
|
|
End Get
|
|
Set
|
|
Me.minderungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp)
|
|
Get
|
|
Return Me.sonderabgabenField
|
|
End Get
|
|
Set
|
|
Me.sonderabgabenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KontingentNrAngewandt() As List(Of String)
|
|
Get
|
|
Return Me.kontingentNrAngewandtField
|
|
End Get
|
|
Set
|
|
Me.kontingentNrAngewandtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current PositionBefundVereinfachteZollanmeldungTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an PositionBefundVereinfachteZollanmeldungTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output PositionBefundVereinfachteZollanmeldungTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As PositionBefundVereinfachteZollanmeldungTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), PositionBefundVereinfachteZollanmeldungTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current PositionBefundVereinfachteZollanmeldungTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 PositionBefundVereinfachteZollanmeldungTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output PositionBefundVereinfachteZollanmeldungTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp)
|
|
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 PositionBefundVereinfachteZollanmeldungTyp) 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 PositionBefundVereinfachteZollanmeldungTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class AnmeldungVBTyp
|
|
|
|
Private bereichField As String
|
|
|
|
Private artField As String
|
|
|
|
Private nummerField As String
|
|
|
|
Private datumAusstellungField As Date
|
|
|
|
Private datumAusstellungFieldSpecified As Boolean
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property Bereich() As String
|
|
Get
|
|
Return Me.bereichField
|
|
End Get
|
|
Set
|
|
Me.bereichField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Art() As String
|
|
Get
|
|
Return Me.artField
|
|
End Get
|
|
Set
|
|
Me.artField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Nummer() As String
|
|
Get
|
|
Return Me.nummerField
|
|
End Get
|
|
Set
|
|
Me.nummerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DatumAusstellung() As Date
|
|
Get
|
|
Return Me.datumAusstellungField
|
|
End Get
|
|
Set
|
|
Me.datumAusstellungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property DatumAusstellungSpecified() As Boolean
|
|
Get
|
|
Return Me.datumAusstellungFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.datumAusstellungFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AnmeldungVBTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current AnmeldungVBTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an AnmeldungVBTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output AnmeldungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AnmeldungVBTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As AnmeldungVBTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As AnmeldungVBTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), AnmeldungVBTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current AnmeldungVBTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 AnmeldungVBTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output AnmeldungVBTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, AnmeldungVBTyp)
|
|
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 AnmeldungVBTyp) 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 AnmeldungVBTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class KopfdatenBefundVereinfachteZollanmeldungTyp
|
|
|
|
Private sachbearbeiterField As String
|
|
|
|
Private telefonnummerBearbeiterField As String
|
|
|
|
Private kopfKzErledigungField As String
|
|
|
|
Private registriernummerField As String
|
|
|
|
Private registrierdatumField As Date
|
|
|
|
Private registrierdatumFieldSpecified As Boolean
|
|
|
|
Private artAnmeldungField As String
|
|
|
|
Private datumErstellungBefundField As Date
|
|
|
|
Private datumErstellungBefundFieldSpecified As Boolean
|
|
|
|
Private befundField As String
|
|
|
|
Private kzVertretungsverhaeltnisField As String
|
|
|
|
Private wKZField As String
|
|
|
|
Private kzRechtsbehelfField As String
|
|
|
|
Private kzGesamtschuldnerschaftField As String
|
|
|
|
Private eingangszollstelleGeaendertKzField As String
|
|
|
|
Private anmelderEORIField As String
|
|
|
|
Private anmelderNLNRField As String
|
|
|
|
Private anmelderFirmenbezeichungField As String
|
|
|
|
Private anmelderStrasseHausNrField As String
|
|
|
|
Private anmelderOrtsteilField As String
|
|
|
|
Private anmelderOrtSField As String
|
|
|
|
Private anmelderPLZSField As String
|
|
|
|
Private anmelderNationalitaetField As String
|
|
|
|
Private dienststellenschluesselField As String
|
|
|
|
Private dienststelleBezeichungField As String
|
|
|
|
Private dienststelleStrasseHausNrField As String
|
|
|
|
Private dienststelleOrtSField As String
|
|
|
|
Private dienststellePLZSField As String
|
|
|
|
Private bearbeiterField As String
|
|
|
|
Private dienststelleVorwahlTelefonNrField As String
|
|
|
|
Private vertreterEORIField As String
|
|
|
|
Private vertreterNLNRField As String
|
|
|
|
Private vertreterFirmenbezeichnungField As String
|
|
|
|
Private vertreterStrasseHausNrField As String
|
|
|
|
Private vertreterOrtsteilField As String
|
|
|
|
Private vertreterOrtSField As String
|
|
|
|
Private vertreterPLZSField As String
|
|
|
|
Private vertreterNationalitaetField As String
|
|
|
|
Private hZABezeichnungField As String
|
|
|
|
Private hZAEmailAdresseField As String
|
|
|
|
Private hZADEmailAdresseField As String
|
|
|
|
Private hZAPostfachField As String
|
|
|
|
Private hZAOrtPField As String
|
|
|
|
Private hZAPLZPField As String
|
|
|
|
Private hZAStrasseHausNrField As String
|
|
|
|
Private hZAOrtsteilField As String
|
|
|
|
Private hZAOrtSField As String
|
|
|
|
Private hZAPLZSField As String
|
|
|
|
Private fRechnungEORIField As String
|
|
|
|
Private fRechnungNLNRField As String
|
|
|
|
Private fRechnungNationalitaetField As String
|
|
|
|
Private fRechnungNameField As String
|
|
|
|
Private fRechnungStrasseHausNrField As String
|
|
|
|
Private fRechnungPLZSField As String
|
|
|
|
Private fRechnungOrtSField As String
|
|
|
|
Private fRechnungOrtsteilField As String
|
|
|
|
Private anmelderEmpfaengerKzField As String
|
|
|
|
Private bewilligungsnummerField As String
|
|
|
|
Private versendungslandCodeField As String
|
|
|
|
Private lieferbedingungField As String
|
|
|
|
Private lieferbedingungTextField As String
|
|
|
|
Private lieferbedingungOrtField As String
|
|
|
|
Private lieferbedingungSchluesselField As String
|
|
|
|
Private rechnungspreisField As Decimal
|
|
|
|
Private rechnungspreisFieldSpecified As Boolean
|
|
|
|
Private rechnungswaehrungField As String
|
|
|
|
Private finanzamtField As String
|
|
|
|
Private eingangszollstelleField As String
|
|
|
|
Private dV1KzField As String
|
|
|
|
Private verkaeuferEORIField As String
|
|
|
|
Private verkaeuferFirmenbezeichnungField As String
|
|
|
|
Private verkaeuferNationalitaetField As String
|
|
|
|
Private verkaeuferStrasseHausNrField As String
|
|
|
|
Private verkaeuferPLZSField As String
|
|
|
|
Private verkaeuferOrtSField As String
|
|
|
|
Private verkaeuferOrtsteilField As String
|
|
|
|
Private kaeuferEORIField As String
|
|
|
|
Private kaeuferFirmenbezeichnungField As String
|
|
|
|
Private kaeuferNationalitaetField As String
|
|
|
|
Private kaeuferStrasseHausNrField As String
|
|
|
|
Private kaeuferPLZSField As String
|
|
|
|
Private kaeuferOrtSField As String
|
|
|
|
Private kaeuferOrtsteilField As String
|
|
|
|
Private zollwertanmelderEORIField As String
|
|
|
|
Private zollwertanmelderFirmenbezeichnungField As String
|
|
|
|
Private zollwertanmelderNationalitaetField As String
|
|
|
|
Private zollwertanmelderStrasseHausNrField As String
|
|
|
|
Private zollwertanmelderPLZSField As String
|
|
|
|
Private zollwertanmelderOrtSField As String
|
|
|
|
Private zollwertanmelderOrtsteilField As String
|
|
|
|
Private vertreterZollwertanmelderEORIField As String
|
|
|
|
Private vertreterZollwertanmelderFirmenbezeichnungField As String
|
|
|
|
Private vertreterZollwertanmelderNationalitaetField As String
|
|
|
|
Private vertreterZollwertanmelderStrasseHausNrField As String
|
|
|
|
Private vertreterZollwertanmelderPLZSField As String
|
|
|
|
Private vertreterZollwertanmelderOrtSField As String
|
|
|
|
Private vertreterZollwertanmelderOrtsteilField As String
|
|
|
|
Private vertretungsverhaeltnisField As String
|
|
|
|
Private fruehereEntscheidungenField As String
|
|
|
|
Private verbundenheitField As String
|
|
|
|
Private verbundenheitEinzelheitenField As String
|
|
|
|
Private einschraenkungenKzField As String
|
|
|
|
Private bedingungenLeistungenKzField As String
|
|
|
|
Private bedingungenLeistungenArtField As String
|
|
|
|
Private lizenzgebuehrenKzField As String
|
|
|
|
Private lizenzgebuehrenUmstandField As String
|
|
|
|
Private spezielleVereinbarungKzField As String
|
|
|
|
Private spezielleVereinbarungUmstandField As String
|
|
|
|
Private empfaengerEORIField As String
|
|
|
|
Private empfaengerNLNRField As String
|
|
|
|
Private empfaengerFirmenbezeichnungField As String
|
|
|
|
Private empfaengerNationalitaetField As String
|
|
|
|
Private empfaengerStrasseHausNrField As String
|
|
|
|
Private empfaengerPLZSField As String
|
|
|
|
Private empfaengerOrtSField As String
|
|
|
|
Private empfaengerOrtsteilField As String
|
|
|
|
Private datenuebermittlungEORIField As String
|
|
|
|
Private erwerberAndererMitgliedstaatEORIField As String
|
|
|
|
Private erwerberAndererMitgliedstaatNLNRField As String
|
|
|
|
Private erwerberFirmenbezeichnungField As String
|
|
|
|
Private erwerberNationalitaetField As String
|
|
|
|
Private erwerberStrasseHausNrField As String
|
|
|
|
Private erwerberPLZSField As String
|
|
|
|
Private erwerberOrtSField As String
|
|
|
|
Private erwerberOrtsteilField As String
|
|
|
|
Private erwerberUStIdNrAndererMitgliedstaatField As String
|
|
|
|
Private versenderAusfuehrerEORIField As String
|
|
|
|
Private versenderAusfuehrerFirmenbezeichnungField As String
|
|
|
|
Private versenderAusfuehrerNationalitaetField As String
|
|
|
|
Private versenderAusfuehrerStrasseHausNrField As String
|
|
|
|
Private versenderAusfuehrerPLZSField As String
|
|
|
|
Private versenderAusfuehrerOrtSField As String
|
|
|
|
Private versenderAusfuehrerOrtsteilField As String
|
|
|
|
Private unterlageField As List(Of AnmeldungVBTyp)
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.unterlageField = New List(Of AnmeldungVBTyp)()
|
|
End Sub
|
|
|
|
Public Property Sachbearbeiter() As String
|
|
Get
|
|
Return Me.sachbearbeiterField
|
|
End Get
|
|
Set
|
|
Me.sachbearbeiterField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property TelefonnummerBearbeiter() As String
|
|
Get
|
|
Return Me.telefonnummerBearbeiterField
|
|
End Get
|
|
Set
|
|
Me.telefonnummerBearbeiterField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KopfKzErledigung() As String
|
|
Get
|
|
Return Me.kopfKzErledigungField
|
|
End Get
|
|
Set
|
|
Me.kopfKzErledigungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Registriernummer() As String
|
|
Get
|
|
Return Me.registriernummerField
|
|
End Get
|
|
Set
|
|
Me.registriernummerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Registrierdatum() As Date
|
|
Get
|
|
Return Me.registrierdatumField
|
|
End Get
|
|
Set
|
|
Me.registrierdatumField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property RegistrierdatumSpecified() As Boolean
|
|
Get
|
|
Return Me.registrierdatumFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.registrierdatumFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ArtAnmeldung() As String
|
|
Get
|
|
Return Me.artAnmeldungField
|
|
End Get
|
|
Set
|
|
Me.artAnmeldungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DatumErstellungBefund() As Date
|
|
Get
|
|
Return Me.datumErstellungBefundField
|
|
End Get
|
|
Set
|
|
Me.datumErstellungBefundField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property DatumErstellungBefundSpecified() As Boolean
|
|
Get
|
|
Return Me.datumErstellungBefundFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.datumErstellungBefundFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Befund() As String
|
|
Get
|
|
Return Me.befundField
|
|
End Get
|
|
Set
|
|
Me.befundField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzVertretungsverhaeltnis() As String
|
|
Get
|
|
Return Me.kzVertretungsverhaeltnisField
|
|
End Get
|
|
Set
|
|
Me.kzVertretungsverhaeltnisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property WKZ() As String
|
|
Get
|
|
Return Me.wKZField
|
|
End Get
|
|
Set
|
|
Me.wKZField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzRechtsbehelf() As String
|
|
Get
|
|
Return Me.kzRechtsbehelfField
|
|
End Get
|
|
Set
|
|
Me.kzRechtsbehelfField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KzGesamtschuldnerschaft() As String
|
|
Get
|
|
Return Me.kzGesamtschuldnerschaftField
|
|
End Get
|
|
Set
|
|
Me.kzGesamtschuldnerschaftField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EingangszollstelleGeaendertKz() As String
|
|
Get
|
|
Return Me.eingangszollstelleGeaendertKzField
|
|
End Get
|
|
Set
|
|
Me.eingangszollstelleGeaendertKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderEORI() As String
|
|
Get
|
|
Return Me.anmelderEORIField
|
|
End Get
|
|
Set
|
|
Me.anmelderEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderNLNR() As String
|
|
Get
|
|
Return Me.anmelderNLNRField
|
|
End Get
|
|
Set
|
|
Me.anmelderNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderFirmenbezeichung() As String
|
|
Get
|
|
Return Me.anmelderFirmenbezeichungField
|
|
End Get
|
|
Set
|
|
Me.anmelderFirmenbezeichungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderStrasseHausNr() As String
|
|
Get
|
|
Return Me.anmelderStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.anmelderStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderOrtsteil() As String
|
|
Get
|
|
Return Me.anmelderOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.anmelderOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderOrtS() As String
|
|
Get
|
|
Return Me.anmelderOrtSField
|
|
End Get
|
|
Set
|
|
Me.anmelderOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderPLZS() As String
|
|
Get
|
|
Return Me.anmelderPLZSField
|
|
End Get
|
|
Set
|
|
Me.anmelderPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderNationalitaet() As String
|
|
Get
|
|
Return Me.anmelderNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.anmelderNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Dienststellenschluessel() As String
|
|
Get
|
|
Return Me.dienststellenschluesselField
|
|
End Get
|
|
Set
|
|
Me.dienststellenschluesselField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DienststelleBezeichung() As String
|
|
Get
|
|
Return Me.dienststelleBezeichungField
|
|
End Get
|
|
Set
|
|
Me.dienststelleBezeichungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DienststelleStrasseHausNr() As String
|
|
Get
|
|
Return Me.dienststelleStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.dienststelleStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DienststelleOrtS() As String
|
|
Get
|
|
Return Me.dienststelleOrtSField
|
|
End Get
|
|
Set
|
|
Me.dienststelleOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DienststellePLZS() As String
|
|
Get
|
|
Return Me.dienststellePLZSField
|
|
End Get
|
|
Set
|
|
Me.dienststellePLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Bearbeiter() As String
|
|
Get
|
|
Return Me.bearbeiterField
|
|
End Get
|
|
Set
|
|
Me.bearbeiterField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DienststelleVorwahlTelefonNr() As String
|
|
Get
|
|
Return Me.dienststelleVorwahlTelefonNrField
|
|
End Get
|
|
Set
|
|
Me.dienststelleVorwahlTelefonNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterEORI() As String
|
|
Get
|
|
Return Me.vertreterEORIField
|
|
End Get
|
|
Set
|
|
Me.vertreterEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterNLNR() As String
|
|
Get
|
|
Return Me.vertreterNLNRField
|
|
End Get
|
|
Set
|
|
Me.vertreterNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterFirmenbezeichnung() As String
|
|
Get
|
|
Return Me.vertreterFirmenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.vertreterFirmenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterStrasseHausNr() As String
|
|
Get
|
|
Return Me.vertreterStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.vertreterStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterOrtsteil() As String
|
|
Get
|
|
Return Me.vertreterOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.vertreterOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterOrtS() As String
|
|
Get
|
|
Return Me.vertreterOrtSField
|
|
End Get
|
|
Set
|
|
Me.vertreterOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterPLZS() As String
|
|
Get
|
|
Return Me.vertreterPLZSField
|
|
End Get
|
|
Set
|
|
Me.vertreterPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterNationalitaet() As String
|
|
Get
|
|
Return Me.vertreterNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.vertreterNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZABezeichnung() As String
|
|
Get
|
|
Return Me.hZABezeichnungField
|
|
End Get
|
|
Set
|
|
Me.hZABezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZAEmailAdresse() As String
|
|
Get
|
|
Return Me.hZAEmailAdresseField
|
|
End Get
|
|
Set
|
|
Me.hZAEmailAdresseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZADEmailAdresse() As String
|
|
Get
|
|
Return Me.hZADEmailAdresseField
|
|
End Get
|
|
Set
|
|
Me.hZADEmailAdresseField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZAPostfach() As String
|
|
Get
|
|
Return Me.hZAPostfachField
|
|
End Get
|
|
Set
|
|
Me.hZAPostfachField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZAOrtP() As String
|
|
Get
|
|
Return Me.hZAOrtPField
|
|
End Get
|
|
Set
|
|
Me.hZAOrtPField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZAPLZP() As String
|
|
Get
|
|
Return Me.hZAPLZPField
|
|
End Get
|
|
Set
|
|
Me.hZAPLZPField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZAStrasseHausNr() As String
|
|
Get
|
|
Return Me.hZAStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.hZAStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZAOrtsteil() As String
|
|
Get
|
|
Return Me.hZAOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.hZAOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZAOrtS() As String
|
|
Get
|
|
Return Me.hZAOrtSField
|
|
End Get
|
|
Set
|
|
Me.hZAOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property HZAPLZS() As String
|
|
Get
|
|
Return Me.hZAPLZSField
|
|
End Get
|
|
Set
|
|
Me.hZAPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungEORI() As String
|
|
Get
|
|
Return Me.fRechnungEORIField
|
|
End Get
|
|
Set
|
|
Me.fRechnungEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungNLNR() As String
|
|
Get
|
|
Return Me.fRechnungNLNRField
|
|
End Get
|
|
Set
|
|
Me.fRechnungNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungNationalitaet() As String
|
|
Get
|
|
Return Me.fRechnungNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.fRechnungNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungName() As String
|
|
Get
|
|
Return Me.fRechnungNameField
|
|
End Get
|
|
Set
|
|
Me.fRechnungNameField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungStrasseHausNr() As String
|
|
Get
|
|
Return Me.fRechnungStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.fRechnungStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungPLZS() As String
|
|
Get
|
|
Return Me.fRechnungPLZSField
|
|
End Get
|
|
Set
|
|
Me.fRechnungPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungOrtS() As String
|
|
Get
|
|
Return Me.fRechnungOrtSField
|
|
End Get
|
|
Set
|
|
Me.fRechnungOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FRechnungOrtsteil() As String
|
|
Get
|
|
Return Me.fRechnungOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.fRechnungOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property AnmelderEmpfaengerKz() As String
|
|
Get
|
|
Return Me.anmelderEmpfaengerKzField
|
|
End Get
|
|
Set
|
|
Me.anmelderEmpfaengerKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Bewilligungsnummer() As String
|
|
Get
|
|
Return Me.bewilligungsnummerField
|
|
End Get
|
|
Set
|
|
Me.bewilligungsnummerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VersendungslandCode() As String
|
|
Get
|
|
Return Me.versendungslandCodeField
|
|
End Get
|
|
Set
|
|
Me.versendungslandCodeField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Lieferbedingung() As String
|
|
Get
|
|
Return Me.lieferbedingungField
|
|
End Get
|
|
Set
|
|
Me.lieferbedingungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LieferbedingungText() As String
|
|
Get
|
|
Return Me.lieferbedingungTextField
|
|
End Get
|
|
Set
|
|
Me.lieferbedingungTextField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LieferbedingungOrt() As String
|
|
Get
|
|
Return Me.lieferbedingungOrtField
|
|
End Get
|
|
Set
|
|
Me.lieferbedingungOrtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LieferbedingungSchluessel() As String
|
|
Get
|
|
Return Me.lieferbedingungSchluesselField
|
|
End Get
|
|
Set
|
|
Me.lieferbedingungSchluesselField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Rechnungspreis() As Decimal
|
|
Get
|
|
Return Me.rechnungspreisField
|
|
End Get
|
|
Set
|
|
Me.rechnungspreisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
<System.Xml.Serialization.XmlIgnoreAttribute()>
|
|
Public Property RechnungspreisSpecified() As Boolean
|
|
Get
|
|
Return Me.rechnungspreisFieldSpecified
|
|
End Get
|
|
Set
|
|
Me.rechnungspreisFieldSpecified = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Rechnungswaehrung() As String
|
|
Get
|
|
Return Me.rechnungswaehrungField
|
|
End Get
|
|
Set
|
|
Me.rechnungswaehrungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Finanzamt() As String
|
|
Get
|
|
Return Me.finanzamtField
|
|
End Get
|
|
Set
|
|
Me.finanzamtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Eingangszollstelle() As String
|
|
Get
|
|
Return Me.eingangszollstelleField
|
|
End Get
|
|
Set
|
|
Me.eingangszollstelleField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DV1Kz() As String
|
|
Get
|
|
Return Me.dV1KzField
|
|
End Get
|
|
Set
|
|
Me.dV1KzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerkaeuferEORI() As String
|
|
Get
|
|
Return Me.verkaeuferEORIField
|
|
End Get
|
|
Set
|
|
Me.verkaeuferEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerkaeuferFirmenbezeichnung() As String
|
|
Get
|
|
Return Me.verkaeuferFirmenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.verkaeuferFirmenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerkaeuferNationalitaet() As String
|
|
Get
|
|
Return Me.verkaeuferNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.verkaeuferNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerkaeuferStrasseHausNr() As String
|
|
Get
|
|
Return Me.verkaeuferStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.verkaeuferStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerkaeuferPLZS() As String
|
|
Get
|
|
Return Me.verkaeuferPLZSField
|
|
End Get
|
|
Set
|
|
Me.verkaeuferPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerkaeuferOrtS() As String
|
|
Get
|
|
Return Me.verkaeuferOrtSField
|
|
End Get
|
|
Set
|
|
Me.verkaeuferOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerkaeuferOrtsteil() As String
|
|
Get
|
|
Return Me.verkaeuferOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.verkaeuferOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KaeuferEORI() As String
|
|
Get
|
|
Return Me.kaeuferEORIField
|
|
End Get
|
|
Set
|
|
Me.kaeuferEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KaeuferFirmenbezeichnung() As String
|
|
Get
|
|
Return Me.kaeuferFirmenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.kaeuferFirmenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KaeuferNationalitaet() As String
|
|
Get
|
|
Return Me.kaeuferNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.kaeuferNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KaeuferStrasseHausNr() As String
|
|
Get
|
|
Return Me.kaeuferStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.kaeuferStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KaeuferPLZS() As String
|
|
Get
|
|
Return Me.kaeuferPLZSField
|
|
End Get
|
|
Set
|
|
Me.kaeuferPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KaeuferOrtS() As String
|
|
Get
|
|
Return Me.kaeuferOrtSField
|
|
End Get
|
|
Set
|
|
Me.kaeuferOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property KaeuferOrtsteil() As String
|
|
Get
|
|
Return Me.kaeuferOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.kaeuferOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollwertanmelderEORI() As String
|
|
Get
|
|
Return Me.zollwertanmelderEORIField
|
|
End Get
|
|
Set
|
|
Me.zollwertanmelderEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollwertanmelderFirmenbezeichnung() As String
|
|
Get
|
|
Return Me.zollwertanmelderFirmenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.zollwertanmelderFirmenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollwertanmelderNationalitaet() As String
|
|
Get
|
|
Return Me.zollwertanmelderNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.zollwertanmelderNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollwertanmelderStrasseHausNr() As String
|
|
Get
|
|
Return Me.zollwertanmelderStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.zollwertanmelderStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollwertanmelderPLZS() As String
|
|
Get
|
|
Return Me.zollwertanmelderPLZSField
|
|
End Get
|
|
Set
|
|
Me.zollwertanmelderPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollwertanmelderOrtS() As String
|
|
Get
|
|
Return Me.zollwertanmelderOrtSField
|
|
End Get
|
|
Set
|
|
Me.zollwertanmelderOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ZollwertanmelderOrtsteil() As String
|
|
Get
|
|
Return Me.zollwertanmelderOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.zollwertanmelderOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterZollwertanmelderEORI() As String
|
|
Get
|
|
Return Me.vertreterZollwertanmelderEORIField
|
|
End Get
|
|
Set
|
|
Me.vertreterZollwertanmelderEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterZollwertanmelderFirmenbezeichnung() As String
|
|
Get
|
|
Return Me.vertreterZollwertanmelderFirmenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.vertreterZollwertanmelderFirmenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterZollwertanmelderNationalitaet() As String
|
|
Get
|
|
Return Me.vertreterZollwertanmelderNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.vertreterZollwertanmelderNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterZollwertanmelderStrasseHausNr() As String
|
|
Get
|
|
Return Me.vertreterZollwertanmelderStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.vertreterZollwertanmelderStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterZollwertanmelderPLZS() As String
|
|
Get
|
|
Return Me.vertreterZollwertanmelderPLZSField
|
|
End Get
|
|
Set
|
|
Me.vertreterZollwertanmelderPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterZollwertanmelderOrtS() As String
|
|
Get
|
|
Return Me.vertreterZollwertanmelderOrtSField
|
|
End Get
|
|
Set
|
|
Me.vertreterZollwertanmelderOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VertreterZollwertanmelderOrtsteil() As String
|
|
Get
|
|
Return Me.vertreterZollwertanmelderOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.vertreterZollwertanmelderOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Vertretungsverhaeltnis() As String
|
|
Get
|
|
Return Me.vertretungsverhaeltnisField
|
|
End Get
|
|
Set
|
|
Me.vertretungsverhaeltnisField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FruehereEntscheidungen() As String
|
|
Get
|
|
Return Me.fruehereEntscheidungenField
|
|
End Get
|
|
Set
|
|
Me.fruehereEntscheidungenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Verbundenheit() As String
|
|
Get
|
|
Return Me.verbundenheitField
|
|
End Get
|
|
Set
|
|
Me.verbundenheitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VerbundenheitEinzelheiten() As String
|
|
Get
|
|
Return Me.verbundenheitEinzelheitenField
|
|
End Get
|
|
Set
|
|
Me.verbundenheitEinzelheitenField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EinschraenkungenKz() As String
|
|
Get
|
|
Return Me.einschraenkungenKzField
|
|
End Get
|
|
Set
|
|
Me.einschraenkungenKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BedingungenLeistungenKz() As String
|
|
Get
|
|
Return Me.bedingungenLeistungenKzField
|
|
End Get
|
|
Set
|
|
Me.bedingungenLeistungenKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BedingungenLeistungenArt() As String
|
|
Get
|
|
Return Me.bedingungenLeistungenArtField
|
|
End Get
|
|
Set
|
|
Me.bedingungenLeistungenArtField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LizenzgebuehrenKz() As String
|
|
Get
|
|
Return Me.lizenzgebuehrenKzField
|
|
End Get
|
|
Set
|
|
Me.lizenzgebuehrenKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property LizenzgebuehrenUmstand() As String
|
|
Get
|
|
Return Me.lizenzgebuehrenUmstandField
|
|
End Get
|
|
Set
|
|
Me.lizenzgebuehrenUmstandField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SpezielleVereinbarungKz() As String
|
|
Get
|
|
Return Me.spezielleVereinbarungKzField
|
|
End Get
|
|
Set
|
|
Me.spezielleVereinbarungKzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SpezielleVereinbarungUmstand() As String
|
|
Get
|
|
Return Me.spezielleVereinbarungUmstandField
|
|
End Get
|
|
Set
|
|
Me.spezielleVereinbarungUmstandField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerEORI() As String
|
|
Get
|
|
Return Me.empfaengerEORIField
|
|
End Get
|
|
Set
|
|
Me.empfaengerEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerNLNR() As String
|
|
Get
|
|
Return Me.empfaengerNLNRField
|
|
End Get
|
|
Set
|
|
Me.empfaengerNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerFirmenbezeichnung() As String
|
|
Get
|
|
Return Me.empfaengerFirmenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.empfaengerFirmenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerNationalitaet() As String
|
|
Get
|
|
Return Me.empfaengerNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.empfaengerNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerStrasseHausNr() As String
|
|
Get
|
|
Return Me.empfaengerStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.empfaengerStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerPLZS() As String
|
|
Get
|
|
Return Me.empfaengerPLZSField
|
|
End Get
|
|
Set
|
|
Me.empfaengerPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerOrtS() As String
|
|
Get
|
|
Return Me.empfaengerOrtSField
|
|
End Get
|
|
Set
|
|
Me.empfaengerOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EmpfaengerOrtsteil() As String
|
|
Get
|
|
Return Me.empfaengerOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.empfaengerOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DatenuebermittlungEORI() As String
|
|
Get
|
|
Return Me.datenuebermittlungEORIField
|
|
End Get
|
|
Set
|
|
Me.datenuebermittlungEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErwerberAndererMitgliedstaatEORI() As String
|
|
Get
|
|
Return Me.erwerberAndererMitgliedstaatEORIField
|
|
End Get
|
|
Set
|
|
Me.erwerberAndererMitgliedstaatEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErwerberAndererMitgliedstaatNLNR() As String
|
|
Get
|
|
Return Me.erwerberAndererMitgliedstaatNLNRField
|
|
End Get
|
|
Set
|
|
Me.erwerberAndererMitgliedstaatNLNRField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErwerberFirmenbezeichnung() As String
|
|
Get
|
|
Return Me.erwerberFirmenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.erwerberFirmenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErwerberNationalitaet() As String
|
|
Get
|
|
Return Me.erwerberNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.erwerberNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErwerberStrasseHausNr() As String
|
|
Get
|
|
Return Me.erwerberStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.erwerberStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErwerberPLZS() As String
|
|
Get
|
|
Return Me.erwerberPLZSField
|
|
End Get
|
|
Set
|
|
Me.erwerberPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErwerberOrtS() As String
|
|
Get
|
|
Return Me.erwerberOrtSField
|
|
End Get
|
|
Set
|
|
Me.erwerberOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErwerberOrtsteil() As String
|
|
Get
|
|
Return Me.erwerberOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.erwerberOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property ErwerberUStIdNrAndererMitgliedstaat() As String
|
|
Get
|
|
Return Me.erwerberUStIdNrAndererMitgliedstaatField
|
|
End Get
|
|
Set
|
|
Me.erwerberUStIdNrAndererMitgliedstaatField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VersenderAusfuehrerEORI() As String
|
|
Get
|
|
Return Me.versenderAusfuehrerEORIField
|
|
End Get
|
|
Set
|
|
Me.versenderAusfuehrerEORIField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VersenderAusfuehrerFirmenbezeichnung() As String
|
|
Get
|
|
Return Me.versenderAusfuehrerFirmenbezeichnungField
|
|
End Get
|
|
Set
|
|
Me.versenderAusfuehrerFirmenbezeichnungField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VersenderAusfuehrerNationalitaet() As String
|
|
Get
|
|
Return Me.versenderAusfuehrerNationalitaetField
|
|
End Get
|
|
Set
|
|
Me.versenderAusfuehrerNationalitaetField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VersenderAusfuehrerStrasseHausNr() As String
|
|
Get
|
|
Return Me.versenderAusfuehrerStrasseHausNrField
|
|
End Get
|
|
Set
|
|
Me.versenderAusfuehrerStrasseHausNrField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VersenderAusfuehrerPLZS() As String
|
|
Get
|
|
Return Me.versenderAusfuehrerPLZSField
|
|
End Get
|
|
Set
|
|
Me.versenderAusfuehrerPLZSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VersenderAusfuehrerOrtS() As String
|
|
Get
|
|
Return Me.versenderAusfuehrerOrtSField
|
|
End Get
|
|
Set
|
|
Me.versenderAusfuehrerOrtSField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property VersenderAusfuehrerOrtsteil() As String
|
|
Get
|
|
Return Me.versenderAusfuehrerOrtsteilField
|
|
End Get
|
|
Set
|
|
Me.versenderAusfuehrerOrtsteilField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Unterlage() As List(Of AnmeldungVBTyp)
|
|
Get
|
|
Return Me.unterlageField
|
|
End Get
|
|
Set
|
|
Me.unterlageField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an KopfdatenBefundVereinfachteZollanmeldungTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output KopfdatenBefundVereinfachteZollanmeldungTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As KopfdatenBefundVereinfachteZollanmeldungTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), KopfdatenBefundVereinfachteZollanmeldungTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp 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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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 KopfdatenBefundVereinfachteZollanmeldungTyp object
|
|
'''</summary>
|
|
'''<param name="fileName">string xml file to load and deserialize</param>
|
|
'''<param name="obj">Output KopfdatenBefundVereinfachteZollanmeldungTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp)
|
|
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 KopfdatenBefundVereinfachteZollanmeldungTyp) 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 KopfdatenBefundVereinfachteZollanmeldungTyp
|
|
Dim file As System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
Partial Public Class TransaktionFreierVerkehrTyp
|
|
|
|
Private iOPartnerField As String
|
|
|
|
Private iODivision1Field As String
|
|
|
|
Private iODivision2Field As String
|
|
|
|
Private iODivision3Field As String
|
|
|
|
Private iOReferenzField As String
|
|
|
|
Private iODatumZeitField As Date
|
|
|
|
Private versionField As String
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Property IOPartner() As String
|
|
Get
|
|
Return Me.iOPartnerField
|
|
End Get
|
|
Set
|
|
Me.iOPartnerField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODivision1() As String
|
|
Get
|
|
Return Me.iODivision1Field
|
|
End Get
|
|
Set
|
|
Me.iODivision1Field = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODivision2() As String
|
|
Get
|
|
Return Me.iODivision2Field
|
|
End Get
|
|
Set
|
|
Me.iODivision2Field = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODivision3() As String
|
|
Get
|
|
Return Me.iODivision3Field
|
|
End Get
|
|
Set
|
|
Me.iODivision3Field = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IOReferenz() As String
|
|
Get
|
|
Return Me.iOReferenzField
|
|
End Get
|
|
Set
|
|
Me.iOReferenzField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property IODatumZeit() As Date
|
|
Get
|
|
Return Me.iODatumZeitField
|
|
End Get
|
|
Set
|
|
Me.iODatumZeitField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Version() As String
|
|
Get
|
|
Return Me.versionField
|
|
End Get
|
|
Set
|
|
Me.versionField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(TransaktionFreierVerkehrTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current TransaktionFreierVerkehrTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an TransaktionFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output TransaktionFreierVerkehrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, TransaktionFreierVerkehrTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As TransaktionFreierVerkehrTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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">string xml 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 XmlSerializer 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 System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
|
|
<System.Xml.Serialization.XmlIncludeAttribute(GetType(BefundVereinfachteZollanmeldungVBTyp))>
|
|
Partial Public Class DatenaustauschFreierVerkehrTyp
|
|
|
|
Private transaktionField As TransaktionFreierVerkehrTyp
|
|
|
|
Private Shared sSerializer As System.Xml.Serialization.XmlSerializer
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.transaktionField = New TransaktionFreierVerkehrTyp()
|
|
End Sub
|
|
|
|
Public Property Transaktion() As TransaktionFreierVerkehrTyp
|
|
Get
|
|
Return Me.transaktionField
|
|
End Get
|
|
Set
|
|
Me.transaktionField = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Shared ReadOnly Property Serializer() As System.Xml.Serialization.XmlSerializer
|
|
Get
|
|
If (sSerializer Is Nothing) Then
|
|
sSerializer = New System.Xml.Serialization.XmlSerializer(GetType(DatenaustauschFreierVerkehrTyp))
|
|
End If
|
|
Return sSerializer
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Serialize/Deserialize"
|
|
'''<summary>
|
|
'''Serializes current DatenaustauschFreierVerkehrTyp object into an XML document
|
|
'''</summary>
|
|
'''<returns>string XML value</returns>
|
|
Public Overridable Function Serialize() As String
|
|
Dim streamReader As System.IO.StreamReader = Nothing
|
|
Dim memoryStream As System.IO.MemoryStream = Nothing
|
|
Try
|
|
memoryStream = New System.IO.MemoryStream()
|
|
Serializer.Serialize(memoryStream, Me)
|
|
memoryStream.Seek(0, System.IO.SeekOrigin.Begin)
|
|
streamReader = New System.IO.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 workflow markup into an DatenaustauschFreierVerkehrTyp object
|
|
'''</summary>
|
|
'''<param name="xml">string workflow markup to deserialize</param>
|
|
'''<param name="obj">Output DatenaustauschFreierVerkehrTyp object</param>
|
|
'''<param name="exception">output Exception value if deserialize failed</param>
|
|
'''<returns>true if this XmlSerializer can deserialize the object; otherwise, false</returns>
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean
|
|
exception = Nothing
|
|
obj = CType(Nothing, DatenaustauschFreierVerkehrTyp)
|
|
Try
|
|
obj = Deserialize(xml)
|
|
Return True
|
|
Catch ex As System.Exception
|
|
exception = ex
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean
|
|
Dim exception As System.Exception = Nothing
|
|
Return Deserialize(xml, obj, exception)
|
|
End Function
|
|
|
|
Public Overloads Shared Function Deserialize(ByVal xml As String) As DatenaustauschFreierVerkehrTyp
|
|
Dim stringReader As System.IO.StringReader = Nothing
|
|
Try
|
|
stringReader = New System.IO.StringReader(xml)
|
|
Return CType(Serializer.Deserialize(System.Xml.XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp)
|
|
Finally
|
|
If (Not (stringReader) Is Nothing) Then
|
|
stringReader.Dispose()
|
|
End If
|
|
End Try
|
|
End Function
|
|
|
|
'''<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 System.IO.StreamWriter = Nothing
|
|
Try
|
|
Dim xmlString As String = Serialize()
|
|
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
|
|
streamWriter = xmlFile.CreateText
|
|
streamWriter.WriteLine(xmlString)
|
|
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">string xml 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 XmlSerializer 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 System.IO.FileStream = Nothing
|
|
Dim sr As System.IO.StreamReader = Nothing
|
|
Try
|
|
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
|
|
sr = New System.IO.StreamReader(file)
|
|
Dim xmlString As String = sr.ReadToEnd
|
|
sr.Close()
|
|
file.Close()
|
|
Return Deserialize(xmlString)
|
|
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 Region
|
|
End Class
|
|
End Namespace
|